diff --git a/README.md b/README.md
index 4c205ee..fc16571 100644
--- a/README.md
+++ b/README.md
@@ -1,6 +1,6 @@
# OfficeXml
-[迁移指南](./迁移指南.md)
+[迁移指南](./%E8%BF%81%E7%A7%BB%E6%8C%87%E5%8D%97.md)
## 概述
@@ -52,27 +52,111 @@ echo p.Rs(1).T.Text; // 输出：(份)
## 基类
-`OpenXmlAttribute`是节点的属性类
-`OpenXmlElement.tsf`是节点基类
-`OpenXmlSimpleType`是简单类型的元素节点类，继承于`OpenXmlElement`，如``
-`OpenXmlTextElement`是包含文本内容的元素节点类，继承于`OpenXmlElement`，如`文本`
-`OpenXmlCompositeElement`是复杂节点的元素节点类，继承于`OpenXmlElement`，会包含一系列的属性或其他元素节点类
+`OpenXmlAttribute`是节点的属性类
+
+`OpenXmlElement`是节点基类
+
+`OpenXmlSimpleType`是简单类型的元素节点类，继承于 `OpenXmlElement`，如 ``
+
+`OpenXmlTextElement`是包含文本内容的元素节点类，继承于 `OpenXmlElement`，如 `文本`
+
+`OpenXmlCompositeElement`是复杂节点的元素节点类，继承于 `OpenXmlElement`，会包含一系列的属性或其他元素节点类
+
+## 基本功能
+
+### 获取属性/子节点
+
+获取同名但命名空间不同的属性/子节点内容时，遵守以下规范
+
+1. 默认情况下，获取的命名空间前缀与父节点一致
+2. 当父节点有前缀，但是属性/子节点没有前缀时候，通过 `("")`空字符串参数获取
+3. 存在同名属性/子节点情况下，默认获取的一定是和父节点前缀相同的内容
+
+```xml
+
+
+
+
+
+
+
+ cos
+
+```
+
+```go
+r.Val; // 默认获取前缀为m，即m:val的属性
+r.Val("m"); // 指定前缀m
+r.Val(""); // 无前缀的属性，即val
+r.Val("w"); // 获取前缀为w，即w:val的属性
+
+r.RPr; // 默认获取前缀为m，即m:rPr的子节点
+r.RPr("m"); // 指定前缀为m
+r.RPr("a"); // 获取前缀为a，即a:rPr的子节点
+```
+
+### 删除属性/节点
+
+```go
+移除方式一：通过RemoveAttribute或RemoveChild
+// 移除r的属性w:val
+// 因为r.Val("w")是直接获取了属性值，所以不能作为参数传递给RemoveAttribute
+r.RemoveAttribute(r.Attribute("w:val"));
+
+// 移除r的子节点rPr
+// 因为r.RPr就是一个对象，所以可直接使用
+r.RemoveChild(r.RPr);
+
+移除方式二：通过赋值nil
+// 这种方式不需要区分属性和子节点，也不需要知道属性的全称
+r.Val("w") := nil;
+r.RPr := nil;
+
+最后需要回写才会生效
+r.Serialize();
+```
+
+### 回落功能(Fallback)
+
+项目的 `fallback`功能是指获取某个属性或节点不存在时候，会检查是否设置了 `fallback`，如果设置了会通过 `fallback`获取对应的属性或节点
+
+```xml
+// pPr1
+
+
+
+
+// pPr2
+
+
+
+
+```
+
+```go
+// 假设已经获取到了对象ppr1和ppr2
+ppr1.SetFallback(ppr2); // 将ppr1的fallback设置为ppr2
+ppr1.Jc.Val; // 得到"left"
+ppr1.WordWrap.Val; // ppr1不存在wordWrap，但是ppr2存在wordWrap，所以回落到ppr2的wordWrap获取到"1"
+```
## 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 节点对象
+- `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/)
+[参考链接 1](http://webapp.docx4java.org/OnlineDemo/ecma376/)
+
[参考链接 2](http://officeopenxml.com/index.php)
## 部件
@@ -85,7 +169,7 @@ echo p.Rs(1).T.Text; // 输出：(份)
2. `XlsxComponents`：xlsx 文件的各部分 xml 内容
3. `PptxComponents`：pptx 文件的各部分 xml 内容
-以`DocxComponents.tsf`为例，使用这个类，可以获取到对应的 docx 文件的 xml 对象
+以 `DocxComponents.tsf`为例，使用这个类，可以获取到对应的 docx 文件的 xml 对象
```go
component := new DocxComponents(); // 创建对象
@@ -136,9 +220,9 @@ document.xml 内容如下
每个对象都有一个单位装饰器，能统一转成磅(point)单位（如果有配置属性转换），还能保留原来的接口
-每个`ML`都有装饰器`tsf`统一命名是`Unit的名称+UnitDecorator`，如`docx`（`docx`大部分`xml`隶属于`DocxML`）的`SectPr`对象的装饰器是`SectPrUnitDecorator`
+每个 `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
@@ -153,7 +237,7 @@ document.xml 内容如下
```go
uses DocxMLUnitDecorator;
-component := new Components(); // 创建对象
+component := new DocxComponents(); // 创建对象
component.Open("", "xxx.docx"); // 打开文件
document := component.Document; // 获取document.xml，生成Document对象
document.Deserialize(); // 将xml对象的数据反序列化到tsl对象中
@@ -169,7 +253,7 @@ echo "w = ", sect_pr_unit_decorator.PgSz.W; // 此时输出的是数字类
适配器是通过 key 获取对应的对象，比如样式可以通过样式 ID 获取对应的样式对象
-只有部分对象才有适配器（具体可见`autounit/xxxMLAdapter`），比如`DocxML.Styles`的适配器是`StylesAdapter`
+只有部分对象才有适配器（具体可见 `autounit/xxxMLAdapter`），比如 `DocxML.Styles`的适配器是 `StylesAdapter`
styles.xml 部分如下
@@ -202,7 +286,7 @@ styles.xml 部分如下
```go
uses DocxMLAdapter;
-component := new Components(); // 创建对象
+component := new DocxComponents(); // 创建对象
component.Open("", "xxx.docx"); // 打开文件
document := component.Document; // 获取document.xml，生成Document对象
document.Deserialize(); // 将xml对象的数据反序列化到tsl对象中
@@ -214,32 +298,3 @@ 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`对象
-
-## TODO
-
-- [ ] 命名空间不同，但是名字相同属性的读写访问
-- [ ] 属性的删除操作
diff --git a/autounit/DocxML.tsf b/autounit/DocxML.tsf
index b83d520..3d2ec2f 100644
--- a/autounit/DocxML.tsf
+++ b/autounit/DocxML.tsf
@@ -1,6 +1,6 @@
unit DocxML;
interface
-uses SharedML, VML, DrawingML;
+uses TSSafeUnitConverter, SharedML, VML, DrawingML;
type Properties = class(OpenXmlCompositeElement)
public
@@ -9,41 +9,59 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Properties);override;
+ function ConvertToPoint();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;
+ property Template read ReadXmlChildTemplate write WriteXmlChildTemplate;
+ property TotalTime read ReadXmlChildTotalTime write WriteXmlChildTotalTime;
+ property Pages read ReadXmlChildPages write WriteXmlChildPages;
+ property Words read ReadXmlChildWords write WriteXmlChildWords;
+ property Characters read ReadXmlChildCharacters write WriteXmlChildCharacters;
+ property Application read ReadXmlChildApplication write WriteXmlChildApplication;
+ property DocSecurity read ReadXmlChildDocSecurity write WriteXmlChildDocSecurity;
+ property Lines read ReadXmlChildLines write WriteXmlChildLines;
+ property Paragraphs read ReadXmlChildParagraphs write WriteXmlChildParagraphs;
+ property ScaleCrop read ReadXmlChildScaleCrop write WriteXmlChildScaleCrop;
+ property Company read ReadXmlChildCompany write WriteXmlChildCompany;
+ property LinksUpToDate read ReadXmlChildLinksUpToDate write WriteXmlChildLinksUpToDate;
+ property CharactersWithSpaces read ReadXmlChildCharactersWithSpaces write WriteXmlChildCharactersWithSpaces;
+ property SharedDoc read ReadXmlChildSharedDoc write WriteXmlChildSharedDoc;
+ property HyperlinksChanged read ReadXmlChildHyperlinksChanged write WriteXmlChildHyperlinksChanged;
+ property AppVersion read ReadXmlChildAppVersion write WriteXmlChildAppVersion;
function ReadXmlChildTemplate();
+ function WriteXmlChildTemplate(_value: nil_or_OpenXmlTextElement);
function ReadXmlChildTotalTime();
+ function WriteXmlChildTotalTime(_value: nil_or_OpenXmlTextElement);
function ReadXmlChildPages();
+ function WriteXmlChildPages(_value: nil_or_OpenXmlTextElement);
function ReadXmlChildWords();
+ function WriteXmlChildWords(_value: nil_or_OpenXmlTextElement);
function ReadXmlChildCharacters();
+ function WriteXmlChildCharacters(_value: nil_or_OpenXmlTextElement);
function ReadXmlChildApplication();
+ function WriteXmlChildApplication(_value: nil_or_OpenXmlTextElement);
function ReadXmlChildDocSecurity();
+ function WriteXmlChildDocSecurity(_value: nil_or_OpenXmlTextElement);
function ReadXmlChildLines();
+ function WriteXmlChildLines(_value: nil_or_OpenXmlTextElement);
function ReadXmlChildParagraphs();
+ function WriteXmlChildParagraphs(_value: nil_or_OpenXmlTextElement);
function ReadXmlChildScaleCrop();
+ function WriteXmlChildScaleCrop(_value: nil_or_OpenXmlTextElement);
function ReadXmlChildCompany();
+ function WriteXmlChildCompany(_value: nil_or_OpenXmlTextElement);
function ReadXmlChildLinksUpToDate();
+ function WriteXmlChildLinksUpToDate(_value: nil_or_OpenXmlTextElement);
function ReadXmlChildCharactersWithSpaces();
+ function WriteXmlChildCharactersWithSpaces(_value: nil_or_OpenXmlTextElement);
function ReadXmlChildSharedDoc();
+ function WriteXmlChildSharedDoc(_value: nil_or_OpenXmlTextElement);
function ReadXmlChildHyperlinksChanged();
+ function WriteXmlChildHyperlinksChanged(_value: nil_or_OpenXmlTextElement);
function ReadXmlChildAppVersion();
+ function WriteXmlChildAppVersion(_value: nil_or_OpenXmlTextElement);
public
// Children
@@ -72,15 +90,18 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Document);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Ignorable read ReadXmlAttrIgnorable write WriteXmlAttrIgnorable;
function ReadXmlAttrIgnorable();
- function WriteXmlAttrIgnorable(_value);
+ function WriteXmlAttrIgnorable(_value: any);
// normal property
- property Body read ReadXmlChildBody;
+ property Body read ReadXmlChildBody write WriteXmlChildBody;
function ReadXmlChildBody(): Body;
+ function WriteXmlChildBody(_p1: any; _p2: any);
public
// Attributes
@@ -97,19 +118,25 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Body);override;
+ function ConvertToPoint();override;
+
public
// normal property
- property SectPr read ReadXmlChildSectPr;
+ property SectPr read ReadXmlChildSectPr write WriteXmlChildSectPr;
function ReadXmlChildSectPr(): SectPr;
+ function WriteXmlChildSectPr(_p1: any; _p2: any);
// multi property
- property Ps read ReadPs;
- property Tbls read ReadTbls;
- property Sdts read ReadSdts;
- function ReadPs(_index);
- function ReadTbls(_index);
- function ReadSdts(_index);
+ property Ps read ReadPs write WritePs;
+ property Tbls read ReadTbls write WriteTbls;
+ property Sdts read ReadSdts write WriteSdts;
+ function ReadPs(_index: integer);
+ function WritePs(_index: integer; _value: nil_OR_P);
+ function ReadTbls(_index: integer);
+ function WriteTbls(_index: integer; _value: nil_OR_Tbl);
+ function ReadSdts(_index: integer);
+ function WriteSdts(_index: integer; _value: nil_OR_Sdt);
function AddP(): P;
function AddTbl(): Tbl;
function AddSdt(): Sdt;
@@ -129,6 +156,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: P);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property ParaId read ReadXmlAttrParaId write WriteXmlAttrParaId;
@@ -138,47 +167,60 @@ public
property RsidRDefault read ReadXmlAttrRsidRDefault write WriteXmlAttrRsidRDefault;
property RsidP read ReadXmlAttrRsidP write WriteXmlAttrRsidP;
function ReadXmlAttrParaId();
- function WriteXmlAttrParaId(_value);
+ function WriteXmlAttrParaId(_value: any);
function ReadXmlAttrTextId();
- function WriteXmlAttrTextId(_value);
+ function WriteXmlAttrTextId(_value: any);
function ReadXmlAttrRsidR();
- function WriteXmlAttrRsidR(_value);
+ function WriteXmlAttrRsidR(_value: any);
function ReadXmlAttrRsidRPr();
- function WriteXmlAttrRsidRPr(_value);
+ function WriteXmlAttrRsidRPr(_value: any);
function ReadXmlAttrRsidRDefault();
- function WriteXmlAttrRsidRDefault(_value);
+ function WriteXmlAttrRsidRDefault(_value: any);
function ReadXmlAttrRsidP();
- function WriteXmlAttrRsidP(_value);
+ function WriteXmlAttrRsidP(_value: any);
// normal property
- property PPr read ReadXmlChildPPr;
- property OMathPara read ReadXmlChildOMathPara;
- property OMath read ReadXmlChildOMath;
- property Ins read ReadXmlChildIns;
- property Del read ReadXmlChildDel;
+ property PPr read ReadXmlChildPPr write WriteXmlChildPPr;
+ property OMathPara read ReadXmlChildOMathPara write WriteXmlChildOMathPara;
+ property OMath read ReadXmlChildOMath write WriteXmlChildOMath;
+ property Ins read ReadXmlChildIns write WriteXmlChildIns;
+ property Del read ReadXmlChildDel write WriteXmlChildDel;
function ReadXmlChildPPr(): PPr;
+ function WriteXmlChildPPr(_p1: any; _p2: any);
function ReadXmlChildOMathPara(): OMathPara;
+ function WriteXmlChildOMathPara(_p1: any; _p2: any);
function ReadXmlChildOMath(): OMath;
+ function WriteXmlChildOMath(_p1: any; _p2: any);
function ReadXmlChildIns(): Ins;
+ function WriteXmlChildIns(_p1: any; _p2: any);
function ReadXmlChildDel(): Del;
+ function WriteXmlChildDel(_p1: any; _p2: any);
// multi property
- property Sdts read ReadSdts;
- 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 ReadSdts(_index);
- function ReadRs(_index);
- function ReadCommentRangeStarts(_index);
- function ReadCommentRangeEnds(_index);
- function ReadBookmarkStarts(_index);
- function ReadBookmarkEnds(_index);
- function ReadHyperlinks(_index);
- function ReadFldSimples(_index);
+ property Sdts read ReadSdts write WriteSdts;
+ property Rs read ReadRs write WriteRs;
+ property CommentRangeStarts read ReadCommentRangeStarts write WriteCommentRangeStarts;
+ property CommentRangeEnds read ReadCommentRangeEnds write WriteCommentRangeEnds;
+ property BookmarkStarts read ReadBookmarkStarts write WriteBookmarkStarts;
+ property BookmarkEnds read ReadBookmarkEnds write WriteBookmarkEnds;
+ property Hyperlinks read ReadHyperlinks write WriteHyperlinks;
+ property FldSimples read ReadFldSimples write WriteFldSimples;
+ function ReadSdts(_index: integer);
+ function WriteSdts(_index: integer; _value: nil_OR_Sdt);
+ function ReadRs(_index: integer);
+ function WriteRs(_index: integer; _value: nil_OR_R);
+ function ReadCommentRangeStarts(_index: integer);
+ function WriteCommentRangeStarts(_index: integer; _value: nil_OR_CommentRange);
+ function ReadCommentRangeEnds(_index: integer);
+ function WriteCommentRangeEnds(_index: integer; _value: nil_OR_CommentRange);
+ function ReadBookmarkStarts(_index: integer);
+ function WriteBookmarkStarts(_index: integer; _value: nil_OR_Bookmark);
+ function ReadBookmarkEnds(_index: integer);
+ function WriteBookmarkEnds(_index: integer; _value: nil_OR_Bookmark);
+ function ReadHyperlinks(_index: integer);
+ function WriteHyperlinks(_index: integer; _value: nil_OR_HyperLink);
+ function ReadFldSimples(_index: integer);
+ function WriteFldSimples(_index: integer; _value: nil_OR_FldSimple);
function AddSdt(): Sdt;
function AddR(): R;
function AddCommentRangeStart(): CommentRange;
@@ -220,21 +262,24 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: FldSimple);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Dirty read ReadXmlAttrDirty write WriteXmlAttrDirty;
property FldLock read ReadXmlAttrFldLock write WriteXmlAttrFldLock;
property Instr read ReadXmlAttrInstr write WriteXmlAttrInstr;
function ReadXmlAttrDirty();
- function WriteXmlAttrDirty(_value);
+ function WriteXmlAttrDirty(_value: any);
function ReadXmlAttrFldLock();
- function WriteXmlAttrFldLock(_value);
+ function WriteXmlAttrFldLock(_value: any);
function ReadXmlAttrInstr();
- function WriteXmlAttrInstr(_value);
+ function WriteXmlAttrInstr(_value: any);
// multi property
- property Rs read ReadRs;
- function ReadRs(_index);
+ property Rs read ReadRs write WriteRs;
+ function ReadRs(_index: integer);
+ function WriteRs(_index: integer; _value: nil_OR_R);
function AddR(): R;
function AppendR(): R;
@@ -254,11 +299,13 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: CommentRange);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Id read ReadXmlAttrId write WriteXmlAttrId;
function ReadXmlAttrId();
- function WriteXmlAttrId(_value);
+ function WriteXmlAttrId(_value: any);
public
// Attributes
@@ -273,21 +320,24 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: HyperLink);override;
+ function ConvertToPoint();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 WriteXmlAttrAnchor(_value: any);
function ReadXmlAttrId();
- function WriteXmlAttrId(_value);
+ function WriteXmlAttrId(_value: any);
function ReadXmlAttrHistory();
- function WriteXmlAttrHistory(_value);
+ function WriteXmlAttrHistory(_value: any);
// multi property
- property Rs read ReadRs;
- function ReadRs(_index);
+ property Rs read ReadRs write WriteRs;
+ function ReadRs(_index: integer);
+ function WriteRs(_index: integer; _value: nil_OR_R);
function AddR(): R;
function AppendR(): R;
@@ -307,14 +357,16 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Bookmark);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Name read ReadXmlAttrName write WriteXmlAttrName;
property Id read ReadXmlAttrId write WriteXmlAttrId;
function ReadXmlAttrName();
- function WriteXmlAttrName(_value);
+ function WriteXmlAttrName(_value: any);
function ReadXmlAttrId();
- function WriteXmlAttrId(_value);
+ function WriteXmlAttrId(_value: any);
public
// Attributes
@@ -330,81 +382,121 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: PPr);override;
+ function ConvertToPoint();override;
+
public
// simple_type property
- property Bidi read ReadXmlChildBidi;
- property WidowControl read ReadXmlChildWidowControl;
- property SnapToGrid read ReadXmlChildSnapToGrid;
- property KeepNext read ReadXmlChildKeepNext;
- property KeepLines read ReadXmlChildKeepLines;
- property MirrorIndents read ReadXmlChildMirrorIndents;
- property PageBreakBefore read ReadXmlChildPageBreakBefore;
- property SuppressAutoHyphens read ReadXmlChildSuppressAutoHyphens;
- property SuppressLineNumbers read ReadXmlChildSuppressLineNumbers;
- property SuppressOverlap read ReadXmlChildSuppressOverlap;
- property ContextualSpacing read ReadXmlChildContextualSpacing;
+ property Bidi read ReadXmlChildBidi write WriteXmlChildBidi;
+ 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 MirrorIndents read ReadXmlChildMirrorIndents write WriteXmlChildMirrorIndents;
+ property PageBreakBefore read ReadXmlChildPageBreakBefore write WriteXmlChildPageBreakBefore;
+ property SuppressAutoHyphens read ReadXmlChildSuppressAutoHyphens write WriteXmlChildSuppressAutoHyphens;
+ property SuppressLineNumbers read ReadXmlChildSuppressLineNumbers write WriteXmlChildSuppressLineNumbers;
+ property SuppressOverlap read ReadXmlChildSuppressOverlap write WriteXmlChildSuppressOverlap;
+ property ContextualSpacing read ReadXmlChildContextualSpacing write WriteXmlChildContextualSpacing;
function ReadXmlChildBidi(): OpenXmlSimpleType;
+ function WriteXmlChildBidi(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildWidowControl(): OpenXmlSimpleType;
+ function WriteXmlChildWidowControl(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildSnapToGrid(): OpenXmlSimpleType;
+ function WriteXmlChildSnapToGrid(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildKeepNext(): OpenXmlSimpleType;
+ function WriteXmlChildKeepNext(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildKeepLines(): OpenXmlSimpleType;
+ function WriteXmlChildKeepLines(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildMirrorIndents(): OpenXmlSimpleType;
+ function WriteXmlChildMirrorIndents(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildPageBreakBefore(): OpenXmlSimpleType;
+ function WriteXmlChildPageBreakBefore(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildSuppressAutoHyphens(): OpenXmlSimpleType;
+ function WriteXmlChildSuppressAutoHyphens(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildSuppressLineNumbers(): OpenXmlSimpleType;
+ function WriteXmlChildSuppressLineNumbers(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildSuppressOverlap(): OpenXmlSimpleType;
+ function WriteXmlChildSuppressOverlap(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildContextualSpacing(): OpenXmlSimpleType;
+ function WriteXmlChildContextualSpacing(_value: nil_or_OpenXmlSimpleType);
// 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 Kinsoku read ReadXmlChildKinsoku;
- property OverflowPunct read ReadXmlChildOverflowPunct;
- 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 DivId read ReadXmlChildDivId;
- property CnfStyle read ReadXmlChildCnfStyle;
- property FramePr read ReadXmlChildFramePr;
- property TextboxTightWrap read ReadXmlChildTextboxTightWrap;
- property TopLinePunct read ReadXmlChildTopLinePunct;
- property TextAlignment read ReadXmlChildTextAlignment;
- property TextDirection read ReadXmlChildTextDirection;
+ property SectPr read ReadXmlChildSectPr write WriteXmlChildSectPr;
+ property Tabs read ReadXmlChildTabs write WriteXmlChildTabs;
+ property PStyle read ReadXmlChildPStyle write WriteXmlChildPStyle;
+ property NumPr read ReadXmlChildNumPr write WriteXmlChildNumPr;
+ property Jc read ReadXmlChildJc write WriteXmlChildJc;
+ property Ind read ReadXmlChildInd write WriteXmlChildInd;
+ property Kinsoku read ReadXmlChildKinsoku write WriteXmlChildKinsoku;
+ property OverflowPunct read ReadXmlChildOverflowPunct write WriteXmlChildOverflowPunct;
+ property AdjustRightInd read ReadXmlChildAdjustRightInd write WriteXmlChildAdjustRightInd;
+ property Spacing read ReadXmlChildSpacing write WriteXmlChildSpacing;
+ property OutlineLvl read ReadXmlChildOutlineLvl write WriteXmlChildOutlineLvl;
+ property AutoSpaceDE read ReadXmlChildAutoSpaceDE write WriteXmlChildAutoSpaceDE;
+ property AutoSpaceDN read ReadXmlChildAutoSpaceDN write WriteXmlChildAutoSpaceDN;
+ property RPr read ReadXmlChildRPr write WriteXmlChildRPr;
+ property PBdr read ReadXmlChildPBdr write WriteXmlChildPBdr;
+ property Shd read ReadXmlChildShd write WriteXmlChildShd;
+ property WordWrap read ReadXmlChildWordWrap write WriteXmlChildWordWrap;
+ property DivId read ReadXmlChildDivId write WriteXmlChildDivId;
+ property CnfStyle read ReadXmlChildCnfStyle write WriteXmlChildCnfStyle;
+ property FramePr read ReadXmlChildFramePr write WriteXmlChildFramePr;
+ property TextboxTightWrap read ReadXmlChildTextboxTightWrap write WriteXmlChildTextboxTightWrap;
+ property TopLinePunct read ReadXmlChildTopLinePunct write WriteXmlChildTopLinePunct;
+ property TextAlignment read ReadXmlChildTextAlignment write WriteXmlChildTextAlignment;
+ property TextDirection read ReadXmlChildTextDirection write WriteXmlChildTextDirection;
+ property Collapsed read ReadXmlChildCollapsed write WriteXmlChildCollapsed;
function ReadXmlChildSectPr(): SectPr;
+ function WriteXmlChildSectPr(_p1: any; _p2: any);
function ReadXmlChildTabs(): Tabs;
+ function WriteXmlChildTabs(_p1: any; _p2: any);
function ReadXmlChildPStyle(): PureWVal;
+ function WriteXmlChildPStyle(_p1: any; _p2: any);
function ReadXmlChildNumPr(): NumPr;
+ function WriteXmlChildNumPr(_p1: any; _p2: any);
function ReadXmlChildJc(): PureWVal;
+ function WriteXmlChildJc(_p1: any; _p2: any);
function ReadXmlChildInd(): Ind;
+ function WriteXmlChildInd(_p1: any; _p2: any);
function ReadXmlChildKinsoku(): PureWVal;
+ function WriteXmlChildKinsoku(_p1: any; _p2: any);
function ReadXmlChildOverflowPunct(): PureWVal;
+ function WriteXmlChildOverflowPunct(_p1: any; _p2: any);
function ReadXmlChildAdjustRightInd(): PureWVal;
+ function WriteXmlChildAdjustRightInd(_p1: any; _p2: any);
function ReadXmlChildSpacing(): Spacing;
+ function WriteXmlChildSpacing(_p1: any; _p2: any);
function ReadXmlChildOutlineLvl(): PureWVal;
+ function WriteXmlChildOutlineLvl(_p1: any; _p2: any);
function ReadXmlChildAutoSpaceDE(): PureWVal;
+ function WriteXmlChildAutoSpaceDE(_p1: any; _p2: any);
function ReadXmlChildAutoSpaceDN(): PureWVal;
+ function WriteXmlChildAutoSpaceDN(_p1: any; _p2: any);
function ReadXmlChildRPr(): RPr;
+ function WriteXmlChildRPr(_p1: any; _p2: any);
function ReadXmlChildPBdr(): PBdr;
+ function WriteXmlChildPBdr(_p1: any; _p2: any);
function ReadXmlChildShd(): Shd;
+ function WriteXmlChildShd(_p1: any; _p2: any);
function ReadXmlChildWordWrap(): PureWVal;
+ function WriteXmlChildWordWrap(_p1: any; _p2: any);
function ReadXmlChildDivId(): PureWVal;
+ function WriteXmlChildDivId(_p1: any; _p2: any);
function ReadXmlChildCnfStyle(): PureWVal;
+ function WriteXmlChildCnfStyle(_p1: any; _p2: any);
function ReadXmlChildFramePr(): FramePr;
+ function WriteXmlChildFramePr(_p1: any; _p2: any);
function ReadXmlChildTextboxTightWrap(): PureWVal;
+ function WriteXmlChildTextboxTightWrap(_p1: any; _p2: any);
function ReadXmlChildTopLinePunct(): PureWVal;
+ function WriteXmlChildTopLinePunct(_p1: any; _p2: any);
function ReadXmlChildTextAlignment(): PureWVal;
+ function WriteXmlChildTextAlignment(_p1: any; _p2: any);
function ReadXmlChildTextDirection(): PureWVal;
+ function WriteXmlChildTextDirection(_p1: any; _p2: any);
+ function ReadXmlChildCollapsed(): PureWVal;
+ function WriteXmlChildCollapsed(_p1: any; _p2: any);
public
// Children
@@ -443,6 +535,7 @@ public
XmlChildTopLinePunct: PureWVal;
XmlChildTextAlignment: PureWVal;
XmlChildTextDirection: PureWVal;
+ XmlChildCollapsed: PureWVal;
end;
type PBdr = class(OpenXmlCompositeElement)
@@ -452,19 +545,26 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: PBdr);override;
+ function ConvertToPoint();override;
+
public
// normal property
- property Top read ReadXmlChildTop;
- property Left read ReadXmlChildLeft;
- property Right read ReadXmlChildRight;
- property Bottom read ReadXmlChildBottom;
- property Between read ReadXmlChildBetween;
+ property Top read ReadXmlChildTop write WriteXmlChildTop;
+ property Left read ReadXmlChildLeft write WriteXmlChildLeft;
+ property Right read ReadXmlChildRight write WriteXmlChildRight;
+ property Bottom read ReadXmlChildBottom write WriteXmlChildBottom;
+ property Between read ReadXmlChildBetween write WriteXmlChildBetween;
function ReadXmlChildTop(): PBorder;
+ function WriteXmlChildTop(_p1: any; _p2: any);
function ReadXmlChildLeft(): PBorder;
+ function WriteXmlChildLeft(_p1: any; _p2: any);
function ReadXmlChildRight(): PBorder;
+ function WriteXmlChildRight(_p1: any; _p2: any);
function ReadXmlChildBottom(): PBorder;
+ function WriteXmlChildBottom(_p1: any; _p2: any);
function ReadXmlChildBetween(): PBorder;
+ function WriteXmlChildBetween(_p1: any; _p2: any);
public
// Children
@@ -482,6 +582,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: FramePr);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property AnchorLock read ReadXmlAttrAnchorLock write WriteXmlAttrAnchorLock;
@@ -501,37 +603,37 @@ public
property XAlign read ReadXmlAttrXAlign write WriteXmlAttrXAlign;
property YAlign read ReadXmlAttrYAlign write WriteXmlAttrYAlign;
function ReadXmlAttrAnchorLock();
- function WriteXmlAttrAnchorLock(_value);
+ function WriteXmlAttrAnchorLock(_value: any);
function ReadXmlAttrDropCap();
- function WriteXmlAttrDropCap(_value);
+ function WriteXmlAttrDropCap(_value: any);
function ReadXmlAttrVAnchor();
- function WriteXmlAttrVAnchor(_value);
+ function WriteXmlAttrVAnchor(_value: any);
function ReadXmlAttrHAnchor();
- function WriteXmlAttrHAnchor(_value);
+ function WriteXmlAttrHAnchor(_value: any);
function ReadXmlAttrHRule();
- function WriteXmlAttrHRule(_value);
+ function WriteXmlAttrHRule(_value: any);
function ReadXmlAttrHSpace();
- function WriteXmlAttrHSpace(_value);
+ function WriteXmlAttrHSpace(_value: any);
function ReadXmlAttrVSpace();
- function WriteXmlAttrVSpace(_value);
+ function WriteXmlAttrVSpace(_value: any);
function ReadXmlAttrLines();
- function WriteXmlAttrLines(_value);
+ function WriteXmlAttrLines(_value: any);
function ReadXmlAttrWrap();
- function WriteXmlAttrWrap(_value);
+ function WriteXmlAttrWrap(_value: any);
function ReadXmlAttrVal();
- function WriteXmlAttrVal(_value);
+ function WriteXmlAttrVal(_value: any);
function ReadXmlAttrW();
- function WriteXmlAttrW(_value);
+ function WriteXmlAttrW(_value: any);
function ReadXmlAttrH();
- function WriteXmlAttrH(_value);
+ function WriteXmlAttrH(_value: any);
function ReadXmlAttrX();
- function WriteXmlAttrX(_value);
+ function WriteXmlAttrX(_value: any);
function ReadXmlAttrY();
- function WriteXmlAttrY(_value);
+ function WriteXmlAttrY(_value: any);
function ReadXmlAttrXAlign();
- function WriteXmlAttrXAlign(_value);
+ function WriteXmlAttrXAlign(_value: any);
function ReadXmlAttrYAlign();
- function WriteXmlAttrYAlign(_value);
+ function WriteXmlAttrYAlign(_value: any);
public
// Attributes
@@ -561,6 +663,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: PBorder);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Val read ReadXmlAttrVal write WriteXmlAttrVal;
@@ -573,23 +677,23 @@ public
property ThemeTint read ReadXmlAttrThemeTint write WriteXmlAttrThemeTint;
property Sz read ReadXmlAttrSz write WriteXmlAttrSz;
function ReadXmlAttrVal();
- function WriteXmlAttrVal(_value);
+ function WriteXmlAttrVal(_value: any);
function ReadXmlAttrColor();
- function WriteXmlAttrColor(_value);
+ function WriteXmlAttrColor(_value: any);
function ReadXmlAttrSpace();
- function WriteXmlAttrSpace(_value);
+ function WriteXmlAttrSpace(_value: any);
function ReadXmlAttrFrame();
- function WriteXmlAttrFrame(_value);
+ function WriteXmlAttrFrame(_value: any);
function ReadXmlAttrShadow();
- function WriteXmlAttrShadow(_value);
+ function WriteXmlAttrShadow(_value: any);
function ReadXmlAttrThemeColor();
- function WriteXmlAttrThemeColor(_value);
+ function WriteXmlAttrThemeColor(_value: any);
function ReadXmlAttrThemeShade();
- function WriteXmlAttrThemeShade(_value);
+ function WriteXmlAttrThemeShade(_value: any);
function ReadXmlAttrThemeTint();
- function WriteXmlAttrThemeTint(_value);
+ function WriteXmlAttrThemeTint(_value: any);
function ReadXmlAttrSz();
- function WriteXmlAttrSz(_value);
+ function WriteXmlAttrSz(_value: any);
public
// Attributes
@@ -612,11 +716,14 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Tabs);override;
+ function ConvertToPoint();override;
+
public
// multi property
- property Tabs read ReadTabs;
- function ReadTabs(_index);
+ property Tabs read ReadTabs write WriteTabs;
+ function ReadTabs(_index: integer);
+ function WriteTabs(_index: integer; _value: nil_OR_Tab);
function AddTab(): Tab;
function AppendTab(): Tab;
@@ -631,17 +738,19 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Tab);override;
+ function ConvertToPoint();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 WriteXmlAttrVal(_value: any);
function ReadXmlAttrLeader();
- function WriteXmlAttrLeader(_value);
+ function WriteXmlAttrLeader(_value: any);
function ReadXmlAttrPos();
- function WriteXmlAttrPos(_value);
+ function WriteXmlAttrPos(_value: any);
public
// Attributes
@@ -658,13 +767,17 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: NumPr);override;
+ function ConvertToPoint();override;
+
public
// normal property
- property Ilvl read ReadXmlChildIlvl;
- property NumId read ReadXmlChildNumId;
+ property Ilvl read ReadXmlChildIlvl write WriteXmlChildIlvl;
+ property NumId read ReadXmlChildNumId write WriteXmlChildNumId;
function ReadXmlChildIlvl(): PureWVal;
+ function WriteXmlChildIlvl(_p1: any; _p2: any);
function ReadXmlChildNumId(): PureWVal;
+ function WriteXmlChildNumId(_p1: any; _p2: any);
public
// Children
@@ -679,6 +792,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Ind);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property FirstLineChars read ReadXmlAttrFirstLineChars write WriteXmlAttrFirstLineChars;
@@ -690,21 +805,21 @@ public
property Hanging read ReadXmlAttrHanging write WriteXmlAttrHanging;
property HangingChars read ReadXmlAttrHangingChars write WriteXmlAttrHangingChars;
function ReadXmlAttrFirstLineChars();
- function WriteXmlAttrFirstLineChars(_value);
+ function WriteXmlAttrFirstLineChars(_value: any);
function ReadXmlAttrFirstLine();
- function WriteXmlAttrFirstLine(_value);
+ function WriteXmlAttrFirstLine(_value: any);
function ReadXmlAttrRightChars();
- function WriteXmlAttrRightChars(_value);
+ function WriteXmlAttrRightChars(_value: any);
function ReadXmlAttrRight();
- function WriteXmlAttrRight(_value);
+ function WriteXmlAttrRight(_value: any);
function ReadXmlAttrLeftChars();
- function WriteXmlAttrLeftChars(_value);
+ function WriteXmlAttrLeftChars(_value: any);
function ReadXmlAttrLeft();
- function WriteXmlAttrLeft(_value);
+ function WriteXmlAttrLeft(_value: any);
function ReadXmlAttrHanging();
- function WriteXmlAttrHanging(_value);
+ function WriteXmlAttrHanging(_value: any);
function ReadXmlAttrHangingChars();
- function WriteXmlAttrHangingChars(_value);
+ function WriteXmlAttrHangingChars(_value: any);
public
// Attributes
@@ -726,6 +841,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Spacing);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Before read ReadXmlAttrBefore write WriteXmlAttrBefore;
@@ -737,21 +854,21 @@ public
property Line read ReadXmlAttrLine write WriteXmlAttrLine;
property LineRule read ReadXmlAttrLineRule write WriteXmlAttrLineRule;
function ReadXmlAttrBefore();
- function WriteXmlAttrBefore(_value);
+ function WriteXmlAttrBefore(_value: any);
function ReadXmlAttrBeforeLines();
- function WriteXmlAttrBeforeLines(_value);
+ function WriteXmlAttrBeforeLines(_value: any);
function ReadXmlAttrBeforeAutospacing();
- function WriteXmlAttrBeforeAutospacing(_value);
+ function WriteXmlAttrBeforeAutospacing(_value: any);
function ReadXmlAttrAfter();
- function WriteXmlAttrAfter(_value);
+ function WriteXmlAttrAfter(_value: any);
function ReadXmlAttrAfterLines();
- function WriteXmlAttrAfterLines(_value);
+ function WriteXmlAttrAfterLines(_value: any);
function ReadXmlAttrAfterAutospacing();
- function WriteXmlAttrAfterAutospacing(_value);
+ function WriteXmlAttrAfterAutospacing(_value: any);
function ReadXmlAttrLine();
- function WriteXmlAttrLine(_value);
+ function WriteXmlAttrLine(_value: any);
function ReadXmlAttrLineRule();
- function WriteXmlAttrLineRule(_value);
+ function WriteXmlAttrLineRule(_value: any);
public
// Attributes
@@ -773,91 +890,133 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: RPr);override;
+ function ConvertToPoint();override;
+
public
// simple_type property
- property I read ReadXmlChildI;
- property ICs read ReadXmlChildICs;
- property B read ReadXmlChildB;
- property BCs read ReadXmlChildBCs;
- property Strike read ReadXmlChildStrike;
- property Cs read ReadXmlChildCs;
- property U read ReadXmlChildU;
- property OMath read ReadXmlChildOMath;
- property Shadow read ReadXmlChildShadow;
- property SpecVanish read ReadXmlChildSpecVanish;
- property Vanish read ReadXmlChildVanish;
+ 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 Cs read ReadXmlChildCs write WriteXmlChildCs;
+ property U read ReadXmlChildU write WriteXmlChildU;
+ property OMath read ReadXmlChildOMath write WriteXmlChildOMath;
+ property Shadow read ReadXmlChildShadow write WriteXmlChildShadow;
+ property SpecVanish read ReadXmlChildSpecVanish write WriteXmlChildSpecVanish;
+ property Vanish read ReadXmlChildVanish write WriteXmlChildVanish;
function ReadXmlChildI(): OpenXmlSimpleType;
+ function WriteXmlChildI(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildICs(): OpenXmlSimpleType;
+ function WriteXmlChildICs(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildB(): OpenXmlSimpleType;
+ function WriteXmlChildB(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildBCs(): OpenXmlSimpleType;
+ function WriteXmlChildBCs(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildStrike(): OpenXmlSimpleType;
+ function WriteXmlChildStrike(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildCs(): OpenXmlSimpleType;
+ function WriteXmlChildCs(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildU(): OpenXmlSimpleType;
+ function WriteXmlChildU(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildOMath(): OpenXmlSimpleType;
+ function WriteXmlChildOMath(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildShadow(): OpenXmlSimpleType;
+ function WriteXmlChildShadow(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildSpecVanish(): OpenXmlSimpleType;
+ function WriteXmlChildSpecVanish(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildVanish(): OpenXmlSimpleType;
+ function WriteXmlChildVanish(_value: nil_or_OpenXmlSimpleType);
// normal property
- property NoProof read ReadXmlChildNoProof;
- property Outline read ReadXmlChildOutline;
- 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 Bdr read ReadXmlChildBdr;
- property Caps read ReadXmlChildCaps;
- property Del read ReadXmlChildDel;
- property DStrike read ReadXmlChildDStrike;
- property Effect read ReadXmlChildEffect;
- property Em read ReadXmlChildEm;
- property Emboss read ReadXmlChildEmboss;
- property FitText read ReadXmlChildFitText;
- property Highlight read ReadXmlChildHighlight;
- property Color read ReadXmlChildColor;
- property EastAsianLayout read ReadXmlChildEastAsianLayout;
- property Sz read ReadXmlChildSz;
- property SzCs read ReadXmlChildSzCs;
- property Lang read ReadXmlChildLang;
- property Imprint read ReadXmlChildImprint;
- property VertAlign read ReadXmlChildVertAlign;
- property Ligatures read ReadXmlChildLigatures;
- property Rtl read ReadXmlChildRtl;
- property Shd read ReadXmlChildShd;
- property SmallCaps read ReadXmlChildSmallCaps;
- property W read ReadXmlChildW;
+ property NoProof read ReadXmlChildNoProof write WriteXmlChildNoProof;
+ property Outline read ReadXmlChildOutline write WriteXmlChildOutline;
+ property Position read ReadXmlChildPosition write WriteXmlChildPosition;
+ property WebHidden read ReadXmlChildWebHidden write WriteXmlChildWebHidden;
+ property RStyle read ReadXmlChildRStyle write WriteXmlChildRStyle;
+ property Ins read ReadXmlChildIns write WriteXmlChildIns;
+ property RFonts read ReadXmlChildRFonts write WriteXmlChildRFonts;
+ property Kern read ReadXmlChildKern write WriteXmlChildKern;
+ property Bdr read ReadXmlChildBdr write WriteXmlChildBdr;
+ property Caps read ReadXmlChildCaps write WriteXmlChildCaps;
+ property Del read ReadXmlChildDel write WriteXmlChildDel;
+ property DStrike read ReadXmlChildDStrike write WriteXmlChildDStrike;
+ property Effect read ReadXmlChildEffect write WriteXmlChildEffect;
+ property Em read ReadXmlChildEm write WriteXmlChildEm;
+ property Emboss read ReadXmlChildEmboss write WriteXmlChildEmboss;
+ property FitText read ReadXmlChildFitText write WriteXmlChildFitText;
+ property Highlight read ReadXmlChildHighlight write WriteXmlChildHighlight;
+ property Color read ReadXmlChildColor write WriteXmlChildColor;
+ property EastAsianLayout read ReadXmlChildEastAsianLayout write WriteXmlChildEastAsianLayout;
+ property Sz read ReadXmlChildSz write WriteXmlChildSz;
+ property SzCs read ReadXmlChildSzCs write WriteXmlChildSzCs;
+ property Lang read ReadXmlChildLang write WriteXmlChildLang;
+ property Imprint read ReadXmlChildImprint write WriteXmlChildImprint;
+ property VertAlign read ReadXmlChildVertAlign write WriteXmlChildVertAlign;
+ property Ligatures read ReadXmlChildLigatures write WriteXmlChildLigatures;
+ property Rtl read ReadXmlChildRtl write WriteXmlChildRtl;
+ property Shd read ReadXmlChildShd write WriteXmlChildShd;
+ property SmallCaps read ReadXmlChildSmallCaps write WriteXmlChildSmallCaps;
+ property W read ReadXmlChildW write WriteXmlChildW;
function ReadXmlChildNoProof(): PureVal;
+ function WriteXmlChildNoProof(_p1: any; _p2: any);
function ReadXmlChildOutline(): PureVal;
+ function WriteXmlChildOutline(_p1: any; _p2: any);
function ReadXmlChildPosition(): PureVal;
+ function WriteXmlChildPosition(_p1: any; _p2: any);
function ReadXmlChildWebHidden(): PureWVal;
+ function WriteXmlChildWebHidden(_p1: any; _p2: any);
function ReadXmlChildRStyle(): PureWVal;
+ function WriteXmlChildRStyle(_p1: any; _p2: any);
function ReadXmlChildIns(): Ins;
+ function WriteXmlChildIns(_p1: any; _p2: any);
function ReadXmlChildRFonts(): RFonts;
+ function WriteXmlChildRFonts(_p1: any; _p2: any);
function ReadXmlChildKern(): PureWVal;
+ function WriteXmlChildKern(_p1: any; _p2: any);
function ReadXmlChildBdr(): Bdr;
+ function WriteXmlChildBdr(_p1: any; _p2: any);
function ReadXmlChildCaps(): PureWVal;
+ function WriteXmlChildCaps(_p1: any; _p2: any);
function ReadXmlChildDel(): Del;
+ function WriteXmlChildDel(_p1: any; _p2: any);
function ReadXmlChildDStrike(): PureWVal;
+ function WriteXmlChildDStrike(_p1: any; _p2: any);
function ReadXmlChildEffect(): PureWVal;
+ function WriteXmlChildEffect(_p1: any; _p2: any);
function ReadXmlChildEm(): PureWVal;
+ function WriteXmlChildEm(_p1: any; _p2: any);
function ReadXmlChildEmboss(): PureWVal;
+ function WriteXmlChildEmboss(_p1: any; _p2: any);
function ReadXmlChildFitText(): FitText;
+ function WriteXmlChildFitText(_p1: any; _p2: any);
function ReadXmlChildHighlight(): Highlight;
+ function WriteXmlChildHighlight(_p1: any; _p2: any);
function ReadXmlChildColor(): Color;
+ function WriteXmlChildColor(_p1: any; _p2: any);
function ReadXmlChildEastAsianLayout(): EastAsianLayout;
+ function WriteXmlChildEastAsianLayout(_p1: any; _p2: any);
function ReadXmlChildSz(): Sz;
+ function WriteXmlChildSz(_p1: any; _p2: any);
function ReadXmlChildSzCs(): SzCs;
+ function WriteXmlChildSzCs(_p1: any; _p2: any);
function ReadXmlChildLang(): Lang;
+ function WriteXmlChildLang(_p1: any; _p2: any);
function ReadXmlChildImprint(): PureWVal;
+ function WriteXmlChildImprint(_p1: any; _p2: any);
function ReadXmlChildVertAlign(): PureWVal;
+ function WriteXmlChildVertAlign(_p1: any; _p2: any);
function ReadXmlChildLigatures(): PureWVal;
+ function WriteXmlChildLigatures(_p1: any; _p2: any);
function ReadXmlChildRtl(): PureWVal;
+ function WriteXmlChildRtl(_p1: any; _p2: any);
function ReadXmlChildShd(): Shd;
+ function WriteXmlChildShd(_p1: any; _p2: any);
function ReadXmlChildSmallCaps(): PureWVal;
+ function WriteXmlChildSmallCaps(_p1: any; _p2: any);
function ReadXmlChildW(): PureWVal;
+ function WriteXmlChildW(_p1: any; _p2: any);
public
// Children
@@ -910,6 +1069,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Shd);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Val read ReadXmlAttrVal write WriteXmlAttrVal;
@@ -922,23 +1083,23 @@ public
property ThemeShade read ReadXmlAttrThemeShade write WriteXmlAttrThemeShade;
property ThemeTint read ReadXmlAttrThemeTint write WriteXmlAttrThemeTint;
function ReadXmlAttrVal();
- function WriteXmlAttrVal(_value);
+ function WriteXmlAttrVal(_value: any);
function ReadXmlAttrColor();
- function WriteXmlAttrColor(_value);
+ function WriteXmlAttrColor(_value: any);
function ReadXmlAttrFill();
- function WriteXmlAttrFill(_value);
+ function WriteXmlAttrFill(_value: any);
function ReadXmlAttrThemeColor();
- function WriteXmlAttrThemeColor(_value);
+ function WriteXmlAttrThemeColor(_value: any);
function ReadXmlAttrThemeFill();
- function WriteXmlAttrThemeFill(_value);
+ function WriteXmlAttrThemeFill(_value: any);
function ReadXmlAttrThemeFillTint();
- function WriteXmlAttrThemeFillTint(_value);
+ function WriteXmlAttrThemeFillTint(_value: any);
function ReadXmlAttrThemeFillShade();
- function WriteXmlAttrThemeFillShade(_value);
+ function WriteXmlAttrThemeFillShade(_value: any);
function ReadXmlAttrThemeShade();
- function WriteXmlAttrThemeShade(_value);
+ function WriteXmlAttrThemeShade(_value: any);
function ReadXmlAttrThemeTint();
- function WriteXmlAttrThemeTint(_value);
+ function WriteXmlAttrThemeTint(_value: any);
public
// Attributes
@@ -961,11 +1122,13 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Highlight);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Val read ReadXmlAttrVal write WriteXmlAttrVal;
function ReadXmlAttrVal();
- function WriteXmlAttrVal(_value);
+ function WriteXmlAttrVal(_value: any);
public
// Attributes
@@ -980,14 +1143,16 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: FitText);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Id read ReadXmlAttrId write WriteXmlAttrId;
property Val read ReadXmlAttrVal write WriteXmlAttrVal;
function ReadXmlAttrId();
- function WriteXmlAttrId(_value);
+ function WriteXmlAttrId(_value: any);
function ReadXmlAttrVal();
- function WriteXmlAttrVal(_value);
+ function WriteXmlAttrVal(_value: any);
public
// Attributes
@@ -1003,6 +1168,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: EastAsianLayout);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Combine read ReadXmlAttrCombine write WriteXmlAttrCombine;
@@ -1011,15 +1178,15 @@ public
property Vert read ReadXmlAttrVert write WriteXmlAttrVert;
property VertCompress read ReadXmlAttrVertCompress write WriteXmlAttrVertCompress;
function ReadXmlAttrCombine();
- function WriteXmlAttrCombine(_value);
+ function WriteXmlAttrCombine(_value: any);
function ReadXmlAttrCombineBrackets();
- function WriteXmlAttrCombineBrackets(_value);
+ function WriteXmlAttrCombineBrackets(_value: any);
function ReadXmlAttrId();
- function WriteXmlAttrId(_value);
+ function WriteXmlAttrId(_value: any);
function ReadXmlAttrVert();
- function WriteXmlAttrVert(_value);
+ function WriteXmlAttrVert(_value: any);
function ReadXmlAttrVertCompress();
- function WriteXmlAttrVertCompress(_value);
+ function WriteXmlAttrVertCompress(_value: any);
public
// Attributes
@@ -1038,6 +1205,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Del);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Author read ReadXmlAttrAuthor write WriteXmlAttrAuthor;
@@ -1050,23 +1219,23 @@ public
property Frame read ReadXmlAttrFrame write WriteXmlAttrFrame;
property Shadow read ReadXmlAttrShadow write WriteXmlAttrShadow;
function ReadXmlAttrAuthor();
- function WriteXmlAttrAuthor(_value);
+ function WriteXmlAttrAuthor(_value: any);
function ReadXmlAttrDate();
- function WriteXmlAttrDate(_value);
+ function WriteXmlAttrDate(_value: any);
function ReadXmlAttrId();
- function WriteXmlAttrId(_value);
+ function WriteXmlAttrId(_value: any);
function ReadXmlAttrColor();
- function WriteXmlAttrColor(_value);
+ function WriteXmlAttrColor(_value: any);
function ReadXmlAttrThemeColor();
- function WriteXmlAttrThemeColor(_value);
+ function WriteXmlAttrThemeColor(_value: any);
function ReadXmlAttrThemeShade();
- function WriteXmlAttrThemeShade(_value);
+ function WriteXmlAttrThemeShade(_value: any);
function ReadXmlAttrThemeTint();
- function WriteXmlAttrThemeTint(_value);
+ function WriteXmlAttrThemeTint(_value: any);
function ReadXmlAttrFrame();
- function WriteXmlAttrFrame(_value);
+ function WriteXmlAttrFrame(_value: any);
function ReadXmlAttrShadow();
- function WriteXmlAttrShadow(_value);
+ function WriteXmlAttrShadow(_value: any);
public
// Attributes
@@ -1089,6 +1258,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Bdr);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Val read ReadXmlAttrVal write WriteXmlAttrVal;
@@ -1101,23 +1272,23 @@ public
property Frame read ReadXmlAttrFrame write WriteXmlAttrFrame;
property Shadow read ReadXmlAttrShadow write WriteXmlAttrShadow;
function ReadXmlAttrVal();
- function WriteXmlAttrVal(_value);
+ function WriteXmlAttrVal(_value: any);
function ReadXmlAttrSz();
- function WriteXmlAttrSz(_value);
+ function WriteXmlAttrSz(_value: any);
function ReadXmlAttrSpace();
- function WriteXmlAttrSpace(_value);
+ function WriteXmlAttrSpace(_value: any);
function ReadXmlAttrColor();
- function WriteXmlAttrColor(_value);
+ function WriteXmlAttrColor(_value: any);
function ReadXmlAttrThemeColor();
- function WriteXmlAttrThemeColor(_value);
+ function WriteXmlAttrThemeColor(_value: any);
function ReadXmlAttrThemeShade();
- function WriteXmlAttrThemeShade(_value);
+ function WriteXmlAttrThemeShade(_value: any);
function ReadXmlAttrThemeTint();
- function WriteXmlAttrThemeTint(_value);
+ function WriteXmlAttrThemeTint(_value: any);
function ReadXmlAttrFrame();
- function WriteXmlAttrFrame(_value);
+ function WriteXmlAttrFrame(_value: any);
function ReadXmlAttrShadow();
- function WriteXmlAttrShadow(_value);
+ function WriteXmlAttrShadow(_value: any);
public
// Attributes
@@ -1140,6 +1311,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: RFonts);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Hint read ReadXmlAttrHint write WriteXmlAttrHint;
@@ -1152,23 +1325,23 @@ public
property Cs read ReadXmlAttrCs write WriteXmlAttrCs;
property CsTheme read ReadXmlAttrCsTheme write WriteXmlAttrCsTheme;
function ReadXmlAttrHint();
- function WriteXmlAttrHint(_value);
+ function WriteXmlAttrHint(_value: any);
function ReadXmlAttrAscii();
- function WriteXmlAttrAscii(_value);
+ function WriteXmlAttrAscii(_value: any);
function ReadXmlAttrAsciiTheme();
- function WriteXmlAttrAsciiTheme(_value);
+ function WriteXmlAttrAsciiTheme(_value: any);
function ReadXmlAttrEastAsia();
- function WriteXmlAttrEastAsia(_value);
+ function WriteXmlAttrEastAsia(_value: any);
function ReadXmlAttrEastAsiaTheme();
- function WriteXmlAttrEastAsiaTheme(_value);
+ function WriteXmlAttrEastAsiaTheme(_value: any);
function ReadXmlAttrHAnsi();
- function WriteXmlAttrHAnsi(_value);
+ function WriteXmlAttrHAnsi(_value: any);
function ReadXmlAttrHAnsiTheme();
- function WriteXmlAttrHAnsiTheme(_value);
+ function WriteXmlAttrHAnsiTheme(_value: any);
function ReadXmlAttrCs();
- function WriteXmlAttrCs(_value);
+ function WriteXmlAttrCs(_value: any);
function ReadXmlAttrCsTheme();
- function WriteXmlAttrCsTheme(_value);
+ function WriteXmlAttrCsTheme(_value: any);
public
// Attributes
@@ -1191,11 +1364,13 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: SzCs);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Val read ReadXmlAttrVal write WriteXmlAttrVal;
function ReadXmlAttrVal();
- function WriteXmlAttrVal(_value);
+ function WriteXmlAttrVal(_value: any);
public
// Attributes
@@ -1210,11 +1385,13 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Sz);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Val read ReadXmlAttrVal write WriteXmlAttrVal;
function ReadXmlAttrVal();
- function WriteXmlAttrVal(_value);
+ function WriteXmlAttrVal(_value: any);
public
// Attributes
@@ -1229,11 +1406,13 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: PureVal);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Val read ReadXmlAttrVal write WriteXmlAttrVal;
function ReadXmlAttrVal();
- function WriteXmlAttrVal(_value);
+ function WriteXmlAttrVal(_value: any);
public
// Attributes
@@ -1248,11 +1427,13 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: PureWVal);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Val read ReadXmlAttrVal write WriteXmlAttrVal;
function ReadXmlAttrVal();
- function WriteXmlAttrVal(_value);
+ function WriteXmlAttrVal(_value: any);
public
// Attributes
@@ -1267,14 +1448,16 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Color);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Val read ReadXmlAttrVal write WriteXmlAttrVal;
property ThemeColor read ReadXmlAttrThemeColor write WriteXmlAttrThemeColor;
function ReadXmlAttrVal();
- function WriteXmlAttrVal(_value);
+ function WriteXmlAttrVal(_value: any);
function ReadXmlAttrThemeColor();
- function WriteXmlAttrThemeColor(_value);
+ function WriteXmlAttrThemeColor(_value: any);
public
// Attributes
@@ -1290,17 +1473,19 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Lang);override;
+ function ConvertToPoint();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 WriteXmlAttrVal(_value: any);
function ReadXmlAttrEastAsia();
- function WriteXmlAttrEastAsia(_value);
+ function WriteXmlAttrEastAsia(_value: any);
function ReadXmlAttrBidi();
- function WriteXmlAttrBidi(_value);
+ function WriteXmlAttrBidi(_value: any);
public
// Attributes
@@ -1317,53 +1502,73 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: R);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property RsidRPr read ReadXmlAttrRsidRPr write WriteXmlAttrRsidRPr;
property Anchor read ReadXmlAttrAnchor write WriteXmlAttrAnchor;
property History read ReadXmlAttrHistory write WriteXmlAttrHistory;
function ReadXmlAttrRsidRPr();
- function WriteXmlAttrRsidRPr(_value);
+ function WriteXmlAttrRsidRPr(_value: any);
function ReadXmlAttrAnchor();
- function WriteXmlAttrAnchor(_value);
+ function WriteXmlAttrAnchor(_value: any);
function ReadXmlAttrHistory();
- function WriteXmlAttrHistory(_value);
+ function WriteXmlAttrHistory(_value: any);
// simple_type property
- property Separator read ReadXmlChildSeparator;
- property ContinuationSeparator read ReadXmlChildContinuationSeparator;
- property LastRenderedPageBreak read ReadXmlChildLastRenderedPageBreak;
- property FootnoteRef read ReadXmlChildFootnoteRef;
+ 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(): OpenXmlSimpleType;
+ function WriteXmlChildSeparator(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildContinuationSeparator(): OpenXmlSimpleType;
+ function WriteXmlChildContinuationSeparator(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildLastRenderedPageBreak(): OpenXmlSimpleType;
+ function WriteXmlChildLastRenderedPageBreak(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildFootnoteRef(): OpenXmlSimpleType;
+ function WriteXmlChildFootnoteRef(_value: nil_or_OpenXmlSimpleType);
// 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 Pict read ReadXmlChildPict;
- property T read ReadXmlChildT;
- property Object read ReadXmlChildObject;
- property FootnoteReference read ReadXmlChildFootnoteReference;
+ property RPr read ReadXmlChildRPr write WriteXmlChildRPr;
+ property Br read ReadXmlChildBr write WriteXmlChildBr;
+ property FldChar read ReadXmlChildFldChar write WriteXmlChildFldChar;
+ property InstrText read ReadXmlChildInstrText write WriteXmlChildInstrText;
+ property AlternateContent read ReadXmlChildAlternateContent write WriteXmlChildAlternateContent;
+ property Drawing read ReadXmlChildDrawing write WriteXmlChildDrawing;
+ property Pict read ReadXmlChildPict write WriteXmlChildPict;
+ property T read ReadXmlChildT write WriteXmlChildT;
+ property Object read ReadXmlChildObject write WriteXmlChildObject;
+ property FootnoteReference read ReadXmlChildFootnoteReference write WriteXmlChildFootnoteReference;
+ property CommentReference read ReadXmlChildCommentReference write WriteXmlChildCommentReference;
function ReadXmlChildRPr(): RPr;
+ function WriteXmlChildRPr(_p1: any; _p2: any);
function ReadXmlChildBr(): Br;
+ function WriteXmlChildBr(_p1: any; _p2: any);
function ReadXmlChildFldChar(): FldChar;
+ function WriteXmlChildFldChar(_p1: any; _p2: any);
function ReadXmlChildInstrText(): InstrText;
+ function WriteXmlChildInstrText(_p1: any; _p2: any);
function ReadXmlChildAlternateContent(): AlternateContent;
+ function WriteXmlChildAlternateContent(_p1: any; _p2: any);
function ReadXmlChildDrawing(): Drawing;
+ function WriteXmlChildDrawing(_p1: any; _p2: any);
function ReadXmlChildPict(): Pict;
+ function WriteXmlChildPict(_p1: any; _p2: any);
function ReadXmlChildT(): T;
+ function WriteXmlChildT(_p1: any; _p2: any);
function ReadXmlChildObject(): Object;
+ function WriteXmlChildObject(_p1: any; _p2: any);
function ReadXmlChildFootnoteReference(): FootnoteReference;
+ function WriteXmlChildFootnoteReference(_p1: any; _p2: any);
+ function ReadXmlChildCommentReference(): CommentReference;
+ function WriteXmlChildCommentReference(_p1: any; _p2: any);
// multi property
- property Rs read ReadRs;
- function ReadRs(_index);
+ property Rs read ReadRs write WriteRs;
+ function ReadRs(_index: integer);
+ function WriteRs(_index: integer; _value: nil_OR_R);
function AddR(): R;
function AppendR(): R;
@@ -1388,6 +1593,28 @@ public
XmlChildObject: Object;
XmlChildFootnoteReference: FootnoteReference;
XmlChildFootnoteRef: OpenXmlSimpleType;
+ XmlChildCommentReference: CommentReference;
+end;
+
+type CommentReference = class(OpenXmlCompositeElement)
+public
+ function Create();overload;
+ function Create(_node: XmlNode);overload;
+ function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
+ function Init();override;
+ function Copy(_obj: CommentReference);override;
+ function ConvertToPoint();override;
+
+public
+ // attributes property
+ property Id read ReadXmlAttrId write WriteXmlAttrId;
+ function ReadXmlAttrId();
+ function WriteXmlAttrId(_value: any);
+
+public
+ // Attributes
+ XmlAttrId: OpenXmlAttribute;
+
end;
type Object = class(OpenXmlCompositeElement)
@@ -1397,25 +1624,30 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Object);override;
+ function ConvertToPoint();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 WriteXmlAttrDxaOrig(_value: any);
function ReadXmlAttrDyaOrig();
- function WriteXmlAttrDyaOrig(_value);
+ function WriteXmlAttrDyaOrig(_value: any);
function ReadXmlAttrAnchorId();
- function WriteXmlAttrAnchorId(_value);
+ function WriteXmlAttrAnchorId(_value: any);
// normal property
- property Shapetype read ReadXmlChildShapetype;
- property Shape read ReadXmlChildShape;
- property OLEObject read ReadXmlChildOLEObject;
+ property Shapetype read ReadXmlChildShapetype write WriteXmlChildShapetype;
+ property Shape read ReadXmlChildShape write WriteXmlChildShape;
+ property OLEObject read ReadXmlChildOLEObject write WriteXmlChildOLEObject;
function ReadXmlChildShapetype(): Shapetype;
+ function WriteXmlChildShapetype(_p1: any; _p2: any);
function ReadXmlChildShape(): Shape;
+ function WriteXmlChildShape(_p1: any; _p2: any);
function ReadXmlChildOLEObject(): OLEObject;
+ function WriteXmlChildOLEObject(_p1: any; _p2: any);
public
// Attributes
@@ -1436,11 +1668,13 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: FootnoteReference);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Id read ReadXmlAttrId write WriteXmlAttrId;
function ReadXmlAttrId();
- function WriteXmlAttrId(_value);
+ function WriteXmlAttrId(_value: any);
public
// Attributes
@@ -1455,17 +1689,19 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: FldChar);override;
+ function ConvertToPoint();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 WriteXmlAttrFldCharType(_value: any);
function ReadXmlAttrFldLock();
- function WriteXmlAttrFldLock(_value);
+ function WriteXmlAttrFldLock(_value: any);
function ReadXmlAttrDirty();
- function WriteXmlAttrDirty(_value);
+ function WriteXmlAttrDirty(_value: any);
public
// Attributes
@@ -1482,11 +1718,13 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: InstrText);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Space read ReadXmlAttrSpace write WriteXmlAttrSpace;
function ReadXmlAttrSpace();
- function WriteXmlAttrSpace(_value);
+ function WriteXmlAttrSpace(_value: any);
public
// Attributes
@@ -1501,11 +1739,13 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Br);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Type read ReadXmlAttrType write WriteXmlAttrType;
function ReadXmlAttrType();
- function WriteXmlAttrType(_value);
+ function WriteXmlAttrType(_value: any);
public
// Attributes
@@ -1520,11 +1760,14 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: TxbxContent);override;
+ function ConvertToPoint();override;
+
public
// multi property
- property Ps read ReadPs;
- function ReadPs(_index);
+ property Ps read ReadPs write WritePs;
+ function ReadPs(_index: integer);
+ function WritePs(_index: integer; _value: nil_OR_P);
function AddP(): P;
function AppendP(): P;
@@ -1539,13 +1782,17 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Drawing);override;
+ function ConvertToPoint();override;
+
public
// normal property
- property _Inline read ReadXmlChild_Inline;
- property Anchor read ReadXmlChildAnchor;
+ property _Inline read ReadXmlChild_Inline write WriteXmlChild_Inline;
+ property Anchor read ReadXmlChildAnchor write WriteXmlChildAnchor;
function ReadXmlChild_Inline(): _Inline;
+ function WriteXmlChild_Inline(_p1: any; _p2: any);
function ReadXmlChildAnchor(): Anchor;
+ function WriteXmlChildAnchor(_p1: any; _p2: any);
public
// Children
@@ -1560,11 +1807,13 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: T);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Space read ReadXmlAttrSpace write WriteXmlAttrSpace;
function ReadXmlAttrSpace();
- function WriteXmlAttrSpace(_value);
+ function WriteXmlAttrSpace(_value: any);
public
// Attributes
@@ -1579,19 +1828,25 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Tbl);override;
+ function ConvertToPoint();override;
+
public
// normal property
- property TblPr read ReadXmlChildTblPr;
- property TblGrid read ReadXmlChildTblGrid;
+ property TblPr read ReadXmlChildTblPr write WriteXmlChildTblPr;
+ property TblGrid read ReadXmlChildTblGrid write WriteXmlChildTblGrid;
function ReadXmlChildTblPr(): TblPr;
+ function WriteXmlChildTblPr(_p1: any; _p2: any);
function ReadXmlChildTblGrid(): TblGrid;
+ function WriteXmlChildTblGrid(_p1: any; _p2: any);
// multi property
- property Trs read ReadTrs;
- property Sdts read ReadSdts;
- function ReadTrs(_index);
- function ReadSdts(_index);
+ property Trs read ReadTrs write WriteTrs;
+ property Sdts read ReadSdts write WriteSdts;
+ function ReadTrs(_index: integer);
+ function WriteTrs(_index: integer; _value: nil_OR_Tr);
+ function ReadSdts(_index: integer);
+ function WriteSdts(_index: integer; _value: nil_OR_Sdt);
function AddTr(): Tr;
function AddSdt(): Sdt;
function AppendTr(): Tr;
@@ -1610,37 +1865,53 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: TblPr);override;
+ function ConvertToPoint();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;
+ property Jc read ReadXmlChildJc write WriteXmlChildJc;
+ property Shd read ReadXmlChildShd write WriteXmlChildShd;
+ property TblStyle read ReadXmlChildTblStyle write WriteXmlChildTblStyle;
+ property TblW read ReadXmlChildTblW write WriteXmlChildTblW;
+ property TblInd read ReadXmlChildTblInd write WriteXmlChildTblInd;
+ property TblLayout read ReadXmlChildTblLayout write WriteXmlChildTblLayout;
+ property TblLook read ReadXmlChildTblLook write WriteXmlChildTblLook;
+ property TblBorders read ReadXmlChildTblBorders write WriteXmlChildTblBorders;
+ property TblCellMar read ReadXmlChildTblCellMar write WriteXmlChildTblCellMar;
+ property TblCellSpacing read ReadXmlChildTblCellSpacing write WriteXmlChildTblCellSpacing;
+ property TblCaption read ReadXmlChildTblCaption write WriteXmlChildTblCaption;
+ property TblDescription read ReadXmlChildTblDescription write WriteXmlChildTblDescription;
+ property TblStyleRowBandSize read ReadXmlChildTblStyleRowBandSize write WriteXmlChildTblStyleRowBandSize;
+ property TblStyleColBandSize read ReadXmlChildTblStyleColBandSize write WriteXmlChildTblStyleColBandSize;
function ReadXmlChildJc(): PureWVal;
+ function WriteXmlChildJc(_p1: any; _p2: any);
function ReadXmlChildShd(): Shd;
+ function WriteXmlChildShd(_p1: any; _p2: any);
function ReadXmlChildTblStyle(): PureWVal;
+ function WriteXmlChildTblStyle(_p1: any; _p2: any);
function ReadXmlChildTblW(): TblW;
+ function WriteXmlChildTblW(_p1: any; _p2: any);
function ReadXmlChildTblInd(): TblW;
+ function WriteXmlChildTblInd(_p1: any; _p2: any);
function ReadXmlChildTblLayout(): TblLayout;
+ function WriteXmlChildTblLayout(_p1: any; _p2: any);
function ReadXmlChildTblLook(): TblLook;
+ function WriteXmlChildTblLook(_p1: any; _p2: any);
function ReadXmlChildTblBorders(): TblBorders;
+ function WriteXmlChildTblBorders(_p1: any; _p2: any);
function ReadXmlChildTblCellMar(): TblCellMar;
+ function WriteXmlChildTblCellMar(_p1: any; _p2: any);
function ReadXmlChildTblCellSpacing(): TblCellSpacing;
+ function WriteXmlChildTblCellSpacing(_p1: any; _p2: any);
function ReadXmlChildTblCaption(): PureWVal;
+ function WriteXmlChildTblCaption(_p1: any; _p2: any);
function ReadXmlChildTblDescription(): PureWVal;
+ function WriteXmlChildTblDescription(_p1: any; _p2: any);
function ReadXmlChildTblStyleRowBandSize(): PureWVal;
+ function WriteXmlChildTblStyleRowBandSize(_p1: any; _p2: any);
function ReadXmlChildTblStyleColBandSize(): PureWVal;
+ function WriteXmlChildTblStyleColBandSize(_p1: any; _p2: any);
public
// Children
@@ -1667,14 +1938,16 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: TblCellSpacing);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property W read ReadXmlAttrW write WriteXmlAttrW;
property Type read ReadXmlAttrType write WriteXmlAttrType;
function ReadXmlAttrW();
- function WriteXmlAttrW(_value);
+ function WriteXmlAttrW(_value: any);
function ReadXmlAttrType();
- function WriteXmlAttrType(_value);
+ function WriteXmlAttrType(_value: any);
public
// Attributes
@@ -1690,14 +1963,16 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: TblW);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property W read ReadXmlAttrW write WriteXmlAttrW;
property Type read ReadXmlAttrType write WriteXmlAttrType;
function ReadXmlAttrW();
- function WriteXmlAttrW(_value);
+ function WriteXmlAttrW(_value: any);
function ReadXmlAttrType();
- function WriteXmlAttrType(_value);
+ function WriteXmlAttrType(_value: any);
public
// Attributes
@@ -1713,11 +1988,13 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: TblLayout);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Type read ReadXmlAttrType write WriteXmlAttrType;
function ReadXmlAttrType();
- function WriteXmlAttrType(_value);
+ function WriteXmlAttrType(_value: any);
public
// Attributes
@@ -1732,6 +2009,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: TblLook);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Val read ReadXmlAttrVal write WriteXmlAttrVal;
@@ -1742,19 +2021,19 @@ public
property NoHBand read ReadXmlAttrNoHBand write WriteXmlAttrNoHBand;
property NoVBand read ReadXmlAttrNoVBand write WriteXmlAttrNoVBand;
function ReadXmlAttrVal();
- function WriteXmlAttrVal(_value);
+ function WriteXmlAttrVal(_value: any);
function ReadXmlAttrFirstRow();
- function WriteXmlAttrFirstRow(_value);
+ function WriteXmlAttrFirstRow(_value: any);
function ReadXmlAttrLastRow();
- function WriteXmlAttrLastRow(_value);
+ function WriteXmlAttrLastRow(_value: any);
function ReadXmlAttrFirstColumn();
- function WriteXmlAttrFirstColumn(_value);
+ function WriteXmlAttrFirstColumn(_value: any);
function ReadXmlAttrLastColumn();
- function WriteXmlAttrLastColumn(_value);
+ function WriteXmlAttrLastColumn(_value: any);
function ReadXmlAttrNoHBand();
- function WriteXmlAttrNoHBand(_value);
+ function WriteXmlAttrNoHBand(_value: any);
function ReadXmlAttrNoVBand();
- function WriteXmlAttrNoVBand(_value);
+ function WriteXmlAttrNoVBand(_value: any);
public
// Attributes
@@ -1775,21 +2054,29 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: TblBorders);override;
+ function ConvertToPoint();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;
+ property Top read ReadXmlChildTop write WriteXmlChildTop;
+ property Left read ReadXmlChildLeft write WriteXmlChildLeft;
+ property Bottom read ReadXmlChildBottom write WriteXmlChildBottom;
+ property Right read ReadXmlChildRight write WriteXmlChildRight;
+ property InsideH read ReadXmlChildInsideH write WriteXmlChildInsideH;
+ property InsideV read ReadXmlChildInsideV write WriteXmlChildInsideV;
function ReadXmlChildTop(): TblBorder;
+ function WriteXmlChildTop(_p1: any; _p2: any);
function ReadXmlChildLeft(): TblBorder;
+ function WriteXmlChildLeft(_p1: any; _p2: any);
function ReadXmlChildBottom(): TblBorder;
+ function WriteXmlChildBottom(_p1: any; _p2: any);
function ReadXmlChildRight(): TblBorder;
+ function WriteXmlChildRight(_p1: any; _p2: any);
function ReadXmlChildInsideH(): TblBorder;
+ function WriteXmlChildInsideH(_p1: any; _p2: any);
function ReadXmlChildInsideV(): TblBorder;
+ function WriteXmlChildInsideV(_p1: any; _p2: any);
public
// Children
@@ -1808,6 +2095,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: TblBorder);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Val read ReadXmlAttrVal write WriteXmlAttrVal;
@@ -1817,17 +2106,17 @@ public
property ThemeTint read ReadXmlAttrThemeTint write WriteXmlAttrThemeTint;
property Sz read ReadXmlAttrSz write WriteXmlAttrSz;
function ReadXmlAttrVal();
- function WriteXmlAttrVal(_value);
+ function WriteXmlAttrVal(_value: any);
function ReadXmlAttrColor();
- function WriteXmlAttrColor(_value);
+ function WriteXmlAttrColor(_value: any);
function ReadXmlAttrSpace();
- function WriteXmlAttrSpace(_value);
+ function WriteXmlAttrSpace(_value: any);
function ReadXmlAttrThemeColor();
- function WriteXmlAttrThemeColor(_value);
+ function WriteXmlAttrThemeColor(_value: any);
function ReadXmlAttrThemeTint();
- function WriteXmlAttrThemeTint(_value);
+ function WriteXmlAttrThemeTint(_value: any);
function ReadXmlAttrSz();
- function WriteXmlAttrSz(_value);
+ function WriteXmlAttrSz(_value: any);
public
// Attributes
@@ -1847,11 +2136,14 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: TblGrid);override;
+ function ConvertToPoint();override;
+
public
// multi property
- property GridCols read ReadGridCols;
- function ReadGridCols(_index);
+ property GridCols read ReadGridCols write WriteGridCols;
+ function ReadGridCols(_index: integer);
+ function WriteGridCols(_index: integer; _value: nil_OR_GridCol);
function AddGridCol(): GridCol;
function AppendGridCol(): GridCol;
@@ -1866,11 +2158,13 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: GridCol);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property w read ReadXmlAttrw write WriteXmlAttrw;
function ReadXmlAttrw();
- function WriteXmlAttrw(_value);
+ function WriteXmlAttrw(_value: any);
public
// Attributes
@@ -1885,6 +2179,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Tr);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property RsidR read ReadXmlAttrRsidR write WriteXmlAttrRsidR;
@@ -1892,23 +2188,26 @@ public
property TextId read ReadXmlAttrTextId write WriteXmlAttrTextId;
property RsidTr read ReadXmlAttrRsidTr write WriteXmlAttrRsidTr;
function ReadXmlAttrRsidR();
- function WriteXmlAttrRsidR(_value);
+ function WriteXmlAttrRsidR(_value: any);
function ReadXmlAttrParaId();
- function WriteXmlAttrParaId(_value);
+ function WriteXmlAttrParaId(_value: any);
function ReadXmlAttrTextId();
- function WriteXmlAttrTextId(_value);
+ function WriteXmlAttrTextId(_value: any);
function ReadXmlAttrRsidTr();
- function WriteXmlAttrRsidTr(_value);
+ function WriteXmlAttrRsidTr(_value: any);
// normal property
- property TrPr read ReadXmlChildTrPr;
+ property TrPr read ReadXmlChildTrPr write WriteXmlChildTrPr;
function ReadXmlChildTrPr(): TrPr;
+ function WriteXmlChildTrPr(_p1: any; _p2: any);
// multi property
- property Sdts read ReadSdts;
- property Tcs read ReadTcs;
- function ReadSdts(_index);
- function ReadTcs(_index);
+ property Sdts read ReadSdts write WriteSdts;
+ property Tcs read ReadTcs write WriteTcs;
+ function ReadSdts(_index: integer);
+ function WriteSdts(_index: integer; _value: nil_OR_Sdt);
+ function ReadTcs(_index: integer);
+ function WriteTcs(_index: integer; _value: nil_OR_Tc);
function AddSdt(): Sdt;
function AddTc(): Tc;
function AppendSdt(): Sdt;
@@ -1932,30 +2231,39 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: TrPr);override;
+ function ConvertToPoint();override;
+
public
// simple_type property
- property CantSplit read ReadXmlChildCantSplit;
+ property TblHeader read ReadXmlChildTblHeader write WriteXmlChildTblHeader;
+ property CantSplit read ReadXmlChildCantSplit write WriteXmlChildCantSplit;
+ function ReadXmlChildTblHeader(): OpenXmlSimpleType;
+ function WriteXmlChildTblHeader(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildCantSplit(): OpenXmlSimpleType;
+ function WriteXmlChildCantSplit(_value: nil_or_OpenXmlSimpleType);
// normal property
- property TrHeight read ReadXmlChildTrHeight;
- property TblHeader read ReadXmlChildTblHeader;
- property Jc read ReadXmlChildJc;
- property CnfStyle read ReadXmlChildCnfStyle;
- property Ins read ReadXmlChildIns;
- property Del read ReadXmlChildDel;
+ property TrHeight read ReadXmlChildTrHeight write WriteXmlChildTrHeight;
+ property Jc read ReadXmlChildJc write WriteXmlChildJc;
+ property CnfStyle read ReadXmlChildCnfStyle write WriteXmlChildCnfStyle;
+ property Ins read ReadXmlChildIns write WriteXmlChildIns;
+ property Del read ReadXmlChildDel write WriteXmlChildDel;
function ReadXmlChildTrHeight(): TrHeight;
- function ReadXmlChildTblHeader(): PureWVal;
+ function WriteXmlChildTrHeight(_p1: any; _p2: any);
function ReadXmlChildJc(): PureWVal;
+ function WriteXmlChildJc(_p1: any; _p2: any);
function ReadXmlChildCnfStyle(): CnfStyle;
+ function WriteXmlChildCnfStyle(_p1: any; _p2: any);
function ReadXmlChildIns(): Ins;
+ function WriteXmlChildIns(_p1: any; _p2: any);
function ReadXmlChildDel(): Del;
+ function WriteXmlChildDel(_p1: any; _p2: any);
public
// Children
XmlChildTrHeight: TrHeight;
- XmlChildTblHeader: PureWVal;
+ XmlChildTblHeader: OpenXmlSimpleType;
XmlChildJc: PureWVal;
XmlChildCantSplit: OpenXmlSimpleType;
XmlChildCnfStyle: CnfStyle;
@@ -1970,6 +2278,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Ins);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Id read ReadXmlAttrId write WriteXmlAttrId;
@@ -1977,17 +2287,18 @@ public
property Date read ReadXmlAttrDate write WriteXmlAttrDate;
property DateUtc read ReadXmlAttrDateUtc write WriteXmlAttrDateUtc;
function ReadXmlAttrId();
- function WriteXmlAttrId(_value);
+ function WriteXmlAttrId(_value: any);
function ReadXmlAttrAuthor();
- function WriteXmlAttrAuthor(_value);
+ function WriteXmlAttrAuthor(_value: any);
function ReadXmlAttrDate();
- function WriteXmlAttrDate(_value);
+ function WriteXmlAttrDate(_value: any);
function ReadXmlAttrDateUtc();
- function WriteXmlAttrDateUtc(_value);
+ function WriteXmlAttrDateUtc(_value: any);
// multi property
- property Rs read ReadRs;
- function ReadRs(_index);
+ property Rs read ReadRs write WriteRs;
+ function ReadRs(_index: integer);
+ function WriteRs(_index: integer; _value: nil_OR_R);
function AddR(): R;
function AppendR(): R;
@@ -2008,6 +2319,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: CnfStyle);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Val read ReadXmlAttrVal write WriteXmlAttrVal;
@@ -2024,31 +2337,31 @@ public
property LastRowFirstColumn read ReadXmlAttrLastRowFirstColumn write WriteXmlAttrLastRowFirstColumn;
property LastRowLastColumn read ReadXmlAttrLastRowLastColumn write WriteXmlAttrLastRowLastColumn;
function ReadXmlAttrVal();
- function WriteXmlAttrVal(_value);
+ function WriteXmlAttrVal(_value: any);
function ReadXmlAttrFirstRow();
- function WriteXmlAttrFirstRow(_value);
+ function WriteXmlAttrFirstRow(_value: any);
function ReadXmlAttrLastRow();
- function WriteXmlAttrLastRow(_value);
+ function WriteXmlAttrLastRow(_value: any);
function ReadXmlAttrFirstColumn();
- function WriteXmlAttrFirstColumn(_value);
+ function WriteXmlAttrFirstColumn(_value: any);
function ReadXmlAttrLastColumn();
- function WriteXmlAttrLastColumn(_value);
+ function WriteXmlAttrLastColumn(_value: any);
function ReadXmlAttrOddVBand();
- function WriteXmlAttrOddVBand(_value);
+ function WriteXmlAttrOddVBand(_value: any);
function ReadXmlAttrEvenVBand();
- function WriteXmlAttrEvenVBand(_value);
+ function WriteXmlAttrEvenVBand(_value: any);
function ReadXmlAttrOddHBand();
- function WriteXmlAttrOddHBand(_value);
+ function WriteXmlAttrOddHBand(_value: any);
function ReadXmlAttrEvenHBand();
- function WriteXmlAttrEvenHBand(_value);
+ function WriteXmlAttrEvenHBand(_value: any);
function ReadXmlAttrFirstRowFirstColumn();
- function WriteXmlAttrFirstRowFirstColumn(_value);
+ function WriteXmlAttrFirstRowFirstColumn(_value: any);
function ReadXmlAttrFirstRowLastColumn();
- function WriteXmlAttrFirstRowLastColumn(_value);
+ function WriteXmlAttrFirstRowLastColumn(_value: any);
function ReadXmlAttrLastRowFirstColumn();
- function WriteXmlAttrLastRowFirstColumn(_value);
+ function WriteXmlAttrLastRowFirstColumn(_value: any);
function ReadXmlAttrLastRowLastColumn();
- function WriteXmlAttrLastRowLastColumn(_value);
+ function WriteXmlAttrLastRowLastColumn(_value: any);
public
// Attributes
@@ -2075,14 +2388,16 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: TrHeight);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property HRule read ReadXmlAttrHRule write WriteXmlAttrHRule;
property val read ReadXmlAttrval write WriteXmlAttrval;
function ReadXmlAttrHRule();
- function WriteXmlAttrHRule(_value);
+ function WriteXmlAttrHRule(_value: any);
function ReadXmlAttrval();
- function WriteXmlAttrval(_value);
+ function WriteXmlAttrval(_value: any);
public
// Attributes
@@ -2098,17 +2413,22 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Tc);override;
+ function ConvertToPoint();override;
+
public
// normal property
- property TcPr read ReadXmlChildTcPr;
+ property TcPr read ReadXmlChildTcPr write WriteXmlChildTcPr;
function ReadXmlChildTcPr(): TcPr;
+ function WriteXmlChildTcPr(_p1: any; _p2: any);
// multi property
- property Ps read ReadPs;
- property Tbls read ReadTbls;
- function ReadPs(_index);
- function ReadTbls(_index);
+ property Ps read ReadPs write WritePs;
+ property Tbls read ReadTbls write WriteTbls;
+ function ReadPs(_index: integer);
+ function WritePs(_index: integer; _value: nil_OR_P);
+ function ReadTbls(_index: integer);
+ function WriteTbls(_index: integer; _value: nil_OR_Tbl);
function AddP(): P;
function AddTbl(): Tbl;
function AppendP(): P;
@@ -2126,27 +2446,37 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: TcPr);override;
+ function ConvertToPoint();override;
+
public
// simple_type property
- property VMerge read ReadXmlChildVMerge;
- property HideMark read ReadXmlChildHideMark;
+ property VMerge read ReadXmlChildVMerge write WriteXmlChildVMerge;
+ property HideMark read ReadXmlChildHideMark write WriteXmlChildHideMark;
function ReadXmlChildVMerge(): OpenXmlSimpleType;
+ function WriteXmlChildVMerge(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildHideMark(): OpenXmlSimpleType;
+ function WriteXmlChildHideMark(_value: nil_or_OpenXmlSimpleType);
// normal property
- property TcW read ReadXmlChildTcW;
- property GridSpan read ReadXmlChildGridSpan;
- property VAlign read ReadXmlChildVAlign;
- property Shd read ReadXmlChildShd;
- property TcBorders read ReadXmlChildTcBorders;
- property TextDirection read ReadXmlChildTextDirection;
+ property TcW read ReadXmlChildTcW write WriteXmlChildTcW;
+ property GridSpan read ReadXmlChildGridSpan write WriteXmlChildGridSpan;
+ property VAlign read ReadXmlChildVAlign write WriteXmlChildVAlign;
+ property Shd read ReadXmlChildShd write WriteXmlChildShd;
+ property TcBorders read ReadXmlChildTcBorders write WriteXmlChildTcBorders;
+ property TextDirection read ReadXmlChildTextDirection write WriteXmlChildTextDirection;
function ReadXmlChildTcW(): TblW;
+ function WriteXmlChildTcW(_p1: any; _p2: any);
function ReadXmlChildGridSpan(): GridSpan;
+ function WriteXmlChildGridSpan(_p1: any; _p2: any);
function ReadXmlChildVAlign(): PureWVal;
+ function WriteXmlChildVAlign(_p1: any; _p2: any);
function ReadXmlChildShd(): Shd;
+ function WriteXmlChildShd(_p1: any; _p2: any);
function ReadXmlChildTcBorders(): TcBorders;
+ function WriteXmlChildTcBorders(_p1: any; _p2: any);
function ReadXmlChildTextDirection(): PureWVal;
+ function WriteXmlChildTextDirection(_p1: any; _p2: any);
public
// Children
@@ -2167,25 +2497,35 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: TcBorders);override;
+ function ConvertToPoint();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;
+ property Top read ReadXmlChildTop write WriteXmlChildTop;
+ property Left read ReadXmlChildLeft write WriteXmlChildLeft;
+ property Bottom read ReadXmlChildBottom write WriteXmlChildBottom;
+ property Right read ReadXmlChildRight write WriteXmlChildRight;
+ property Tl2Br read ReadXmlChildTl2Br write WriteXmlChildTl2Br;
+ property Tr2Bl read ReadXmlChildTr2Bl write WriteXmlChildTr2Bl;
+ property InsideH read ReadXmlChildInsideH write WriteXmlChildInsideH;
+ property InsideV read ReadXmlChildInsideV write WriteXmlChildInsideV;
function ReadXmlChildTop(): TcBorder;
+ function WriteXmlChildTop(_p1: any; _p2: any);
function ReadXmlChildLeft(): TcBorder;
+ function WriteXmlChildLeft(_p1: any; _p2: any);
function ReadXmlChildBottom(): TcBorder;
+ function WriteXmlChildBottom(_p1: any; _p2: any);
function ReadXmlChildRight(): TcBorder;
+ function WriteXmlChildRight(_p1: any; _p2: any);
function ReadXmlChildTl2Br(): TcBorder;
+ function WriteXmlChildTl2Br(_p1: any; _p2: any);
function ReadXmlChildTr2Bl(): TcBorder;
+ function WriteXmlChildTr2Bl(_p1: any; _p2: any);
function ReadXmlChildInsideH(): TcBorder;
+ function WriteXmlChildInsideH(_p1: any; _p2: any);
function ReadXmlChildInsideV(): TcBorder;
+ function WriteXmlChildInsideV(_p1: any; _p2: any);
public
// Children
@@ -2206,6 +2546,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: TcBorder);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Val read ReadXmlAttrVal write WriteXmlAttrVal;
@@ -2215,17 +2557,17 @@ public
property ThemeTint read ReadXmlAttrThemeTint write WriteXmlAttrThemeTint;
property Sz read ReadXmlAttrSz write WriteXmlAttrSz;
function ReadXmlAttrVal();
- function WriteXmlAttrVal(_value);
+ function WriteXmlAttrVal(_value: any);
function ReadXmlAttrColor();
- function WriteXmlAttrColor(_value);
+ function WriteXmlAttrColor(_value: any);
function ReadXmlAttrSpace();
- function WriteXmlAttrSpace(_value);
+ function WriteXmlAttrSpace(_value: any);
function ReadXmlAttrThemeColor();
- function WriteXmlAttrThemeColor(_value);
+ function WriteXmlAttrThemeColor(_value: any);
function ReadXmlAttrThemeTint();
- function WriteXmlAttrThemeTint(_value);
+ function WriteXmlAttrThemeTint(_value: any);
function ReadXmlAttrSz();
- function WriteXmlAttrSz(_value);
+ function WriteXmlAttrSz(_value: any);
public
// Attributes
@@ -2245,11 +2587,13 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: GridSpan);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Val read ReadXmlAttrVal write WriteXmlAttrVal;
function ReadXmlAttrVal();
- function WriteXmlAttrVal(_value);
+ function WriteXmlAttrVal(_value: any);
public
// Attributes
@@ -2264,15 +2608,20 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Sdt);override;
+ function ConvertToPoint();override;
+
public
// normal property
- property SdtPr read ReadXmlChildSdtPr;
- property SdtEndPr read ReadXmlChildSdtEndPr;
- property SdtContent read ReadXmlChildSdtContent;
+ property SdtPr read ReadXmlChildSdtPr write WriteXmlChildSdtPr;
+ property SdtEndPr read ReadXmlChildSdtEndPr write WriteXmlChildSdtEndPr;
+ property SdtContent read ReadXmlChildSdtContent write WriteXmlChildSdtContent;
function ReadXmlChildSdtPr(): SdtPr;
+ function WriteXmlChildSdtPr(_p1: any; _p2: any);
function ReadXmlChildSdtEndPr(): SdtEndPr;
+ function WriteXmlChildSdtEndPr(_p1: any; _p2: any);
function ReadXmlChildSdtContent(): SdtContent;
+ function WriteXmlChildSdtContent(_p1: any; _p2: any);
public
// Children
@@ -2288,15 +2637,20 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: SdtPr);override;
+ function ConvertToPoint();override;
+
public
// normal property
- property RPr read ReadXmlChildRPr;
- property Id read ReadXmlChildId;
- property DocPartObj read ReadXmlChildDocPartObj;
+ property RPr read ReadXmlChildRPr write WriteXmlChildRPr;
+ property Id read ReadXmlChildId write WriteXmlChildId;
+ property DocPartObj read ReadXmlChildDocPartObj write WriteXmlChildDocPartObj;
function ReadXmlChildRPr(): RPr;
+ function WriteXmlChildRPr(_p1: any; _p2: any);
function ReadXmlChildId(): PureWVal;
+ function WriteXmlChildId(_p1: any; _p2: any);
function ReadXmlChildDocPartObj(): DocPartObj;
+ function WriteXmlChildDocPartObj(_p1: any; _p2: any);
public
// Children
@@ -2312,13 +2666,17 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: DocPartObj);override;
+ function ConvertToPoint();override;
+
public
// normal property
- property DocPartGallery read ReadXmlChildDocPartGallery;
- property DocPartUnique read ReadXmlChildDocPartUnique;
+ property DocPartGallery read ReadXmlChildDocPartGallery write WriteXmlChildDocPartGallery;
+ property DocPartUnique read ReadXmlChildDocPartUnique write WriteXmlChildDocPartUnique;
function ReadXmlChildDocPartGallery(): PureWVal;
+ function WriteXmlChildDocPartGallery(_p1: any; _p2: any);
function ReadXmlChildDocPartUnique(): PureVal;
+ function WriteXmlChildDocPartUnique(_p1: any; _p2: any);
public
// Children
@@ -2333,11 +2691,14 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: SdtEndPr);override;
+ function ConvertToPoint();override;
+
public
// normal property
- property RPr read ReadXmlChildRPr;
+ property RPr read ReadXmlChildRPr write WriteXmlChildRPr;
function ReadXmlChildRPr(): RPr;
+ function WriteXmlChildRPr(_p1: any; _p2: any);
public
// Children
@@ -2351,17 +2712,22 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: SdtContent);override;
+ function ConvertToPoint();override;
+
public
// normal property
- property Sdt read ReadXmlChildSdt;
+ property Sdt read ReadXmlChildSdt write WriteXmlChildSdt;
function ReadXmlChildSdt(): Sdt;
+ function WriteXmlChildSdt(_p1: any; _p2: any);
// multi property
- property Ps read ReadPs;
- property Rs read ReadRs;
- function ReadPs(_index);
- function ReadRs(_index);
+ property Ps read ReadPs write WritePs;
+ property Rs read ReadRs write WriteRs;
+ function ReadPs(_index: integer);
+ function WritePs(_index: integer; _value: nil_OR_P);
+ function ReadRs(_index: integer);
+ function WriteRs(_index: integer; _value: nil_OR_R);
function AddP(): P;
function AddR(): R;
function AppendP(): P;
@@ -2379,44 +2745,58 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: SectPr);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property RsidR read ReadXmlAttrRsidR write WriteXmlAttrRsidR;
property RsidSect read ReadXmlAttrRsidSect write WriteXmlAttrRsidSect;
function ReadXmlAttrRsidR();
- function WriteXmlAttrRsidR(_value);
+ function WriteXmlAttrRsidR(_value: any);
function ReadXmlAttrRsidSect();
- function WriteXmlAttrRsidSect(_value);
+ function WriteXmlAttrRsidSect(_value: any);
// simple_type property
- property TitlePg read ReadXmlChildTitlePg;
+ property TitlePg read ReadXmlChildTitlePg write WriteXmlChildTitlePg;
function ReadXmlChildTitlePg(): OpenXmlSimpleType;
+ function WriteXmlChildTitlePg(_value: nil_or_OpenXmlSimpleType);
// 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;
- property TextDirection read ReadXmlChildTextDirection;
+ property FootnotePr read ReadXmlChildFootnotePr write WriteXmlChildFootnotePr;
+ property EndnotePr read ReadXmlChildEndnotePr write WriteXmlChildEndnotePr;
+ property Type read ReadXmlChildType write WriteXmlChildType;
+ property PgSz read ReadXmlChildPgSz write WriteXmlChildPgSz;
+ property PgMar read ReadXmlChildPgMar write WriteXmlChildPgMar;
+ property PgNumType read ReadXmlChildPgNumType write WriteXmlChildPgNumType;
+ property Cols read ReadXmlChildCols write WriteXmlChildCols;
+ property DocGrid read ReadXmlChildDocGrid write WriteXmlChildDocGrid;
+ property TextDirection read ReadXmlChildTextDirection write WriteXmlChildTextDirection;
function ReadXmlChildFootnotePr(): FootnotePr;
+ function WriteXmlChildFootnotePr(_p1: any; _p2: any);
function ReadXmlChildEndnotePr(): EndnotePr;
+ function WriteXmlChildEndnotePr(_p1: any; _p2: any);
function ReadXmlChildType(): PureWVal;
+ function WriteXmlChildType(_p1: any; _p2: any);
function ReadXmlChildPgSz(): PgSz;
+ function WriteXmlChildPgSz(_p1: any; _p2: any);
function ReadXmlChildPgMar(): PgMar;
+ function WriteXmlChildPgMar(_p1: any; _p2: any);
function ReadXmlChildPgNumType(): PgNumType;
+ function WriteXmlChildPgNumType(_p1: any; _p2: any);
function ReadXmlChildCols(): Cols;
+ function WriteXmlChildCols(_p1: any; _p2: any);
function ReadXmlChildDocGrid(): DocGrid;
+ function WriteXmlChildDocGrid(_p1: any; _p2: any);
function ReadXmlChildTextDirection(): PureWVal;
+ function WriteXmlChildTextDirection(_p1: any; _p2: any);
// multi property
- property HeaderReferences read ReadHeaderReferences;
- property FooterReferences read ReadFooterReferences;
- function ReadHeaderReferences(_index);
- function ReadFooterReferences(_index);
+ property HeaderReferences read ReadHeaderReferences write WriteHeaderReferences;
+ property FooterReferences read ReadFooterReferences write WriteFooterReferences;
+ function ReadHeaderReferences(_index: integer);
+ function WriteHeaderReferences(_index: integer; _value: nil_OR_Reference);
+ function ReadFooterReferences(_index: integer);
+ function WriteFooterReferences(_index: integer; _value: nil_OR_Reference);
function AddHeaderReference(): Reference;
function AddFooterReference(): Reference;
function AppendHeaderReference(): Reference;
@@ -2447,14 +2827,16 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Reference);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Type read ReadXmlAttrType write WriteXmlAttrType;
property Id read ReadXmlAttrId write WriteXmlAttrId;
function ReadXmlAttrType();
- function WriteXmlAttrType(_value);
+ function WriteXmlAttrType(_value: any);
function ReadXmlAttrId();
- function WriteXmlAttrId(_value);
+ function WriteXmlAttrId(_value: any);
public
// Attributes
@@ -2470,11 +2852,13 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: PgNumType);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Start read ReadXmlAttrStart write WriteXmlAttrStart;
function ReadXmlAttrStart();
- function WriteXmlAttrStart(_value);
+ function WriteXmlAttrStart(_value: any);
public
// Attributes
@@ -2489,6 +2873,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: PgSz);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property W read ReadXmlAttrW write WriteXmlAttrW;
@@ -2496,13 +2882,13 @@ public
property Orient read ReadXmlAttrOrient write WriteXmlAttrOrient;
property Code read ReadXmlAttrCode write WriteXmlAttrCode;
function ReadXmlAttrW();
- function WriteXmlAttrW(_value);
+ function WriteXmlAttrW(_value: any);
function ReadXmlAttrH();
- function WriteXmlAttrH(_value);
+ function WriteXmlAttrH(_value: any);
function ReadXmlAttrOrient();
- function WriteXmlAttrOrient(_value);
+ function WriteXmlAttrOrient(_value: any);
function ReadXmlAttrCode();
- function WriteXmlAttrCode(_value);
+ function WriteXmlAttrCode(_value: any);
public
// Attributes
@@ -2520,6 +2906,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: PgMar);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Top read ReadXmlAttrTop write WriteXmlAttrTop;
@@ -2530,19 +2918,19 @@ public
property Footer read ReadXmlAttrFooter write WriteXmlAttrFooter;
property Gutter read ReadXmlAttrGutter write WriteXmlAttrGutter;
function ReadXmlAttrTop();
- function WriteXmlAttrTop(_value);
+ function WriteXmlAttrTop(_value: any);
function ReadXmlAttrRight();
- function WriteXmlAttrRight(_value);
+ function WriteXmlAttrRight(_value: any);
function ReadXmlAttrBottom();
- function WriteXmlAttrBottom(_value);
+ function WriteXmlAttrBottom(_value: any);
function ReadXmlAttrLeft();
- function WriteXmlAttrLeft(_value);
+ function WriteXmlAttrLeft(_value: any);
function ReadXmlAttrHeader();
- function WriteXmlAttrHeader(_value);
+ function WriteXmlAttrHeader(_value: any);
function ReadXmlAttrFooter();
- function WriteXmlAttrFooter(_value);
+ function WriteXmlAttrFooter(_value: any);
function ReadXmlAttrGutter();
- function WriteXmlAttrGutter(_value);
+ function WriteXmlAttrGutter(_value: any);
public
// Attributes
@@ -2563,21 +2951,24 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Cols);override;
+ function ConvertToPoint();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 WriteXmlAttrNum(_value: any);
function ReadXmlAttrSpace();
- function WriteXmlAttrSpace(_value);
+ function WriteXmlAttrSpace(_value: any);
function ReadXmlAttrEqualWidth();
- function WriteXmlAttrEqualWidth(_value);
+ function WriteXmlAttrEqualWidth(_value: any);
// multi property
- property Cols read ReadCols;
- function ReadCols(_index);
+ property Cols read ReadCols write WriteCols;
+ function ReadCols(_index: integer);
+ function WriteCols(_index: integer; _value: nil_OR_Col);
function AddCol(): Col;
function AppendCol(): Col;
@@ -2597,14 +2988,16 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Col);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property W read ReadXmlAttrW write WriteXmlAttrW;
property Space read ReadXmlAttrSpace write WriteXmlAttrSpace;
function ReadXmlAttrW();
- function WriteXmlAttrW(_value);
+ function WriteXmlAttrW(_value: any);
function ReadXmlAttrSpace();
- function WriteXmlAttrSpace(_value);
+ function WriteXmlAttrSpace(_value: any);
public
// Attributes
@@ -2620,14 +3013,16 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: DocGrid);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Type read ReadXmlAttrType write WriteXmlAttrType;
property LinePitch read ReadXmlAttrLinePitch write WriteXmlAttrLinePitch;
function ReadXmlAttrType();
- function WriteXmlAttrType(_value);
+ function WriteXmlAttrType(_value: any);
function ReadXmlAttrLinePitch();
- function WriteXmlAttrLinePitch(_value);
+ function WriteXmlAttrLinePitch(_value: any);
public
// Attributes
@@ -2643,15 +3038,18 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Endnotes);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Ignorable read ReadXmlAttrIgnorable write WriteXmlAttrIgnorable;
function ReadXmlAttrIgnorable();
- function WriteXmlAttrIgnorable(_value);
+ function WriteXmlAttrIgnorable(_value: any);
// multi property
- property Endnotes read ReadEndnotes;
- function ReadEndnotes(_index);
+ property Endnotes read ReadEndnotes write WriteEndnotes;
+ function ReadEndnotes(_index: integer);
+ function WriteEndnotes(_index: integer; _value: nil_OR_Endnote);
function AddEndnote(): Endnote;
function AppendEndnote(): Endnote;
@@ -2669,18 +3067,21 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Endnote);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Type read ReadXmlAttrType write WriteXmlAttrType;
property Id read ReadXmlAttrId write WriteXmlAttrId;
function ReadXmlAttrType();
- function WriteXmlAttrType(_value);
+ function WriteXmlAttrType(_value: any);
function ReadXmlAttrId();
- function WriteXmlAttrId(_value);
+ function WriteXmlAttrId(_value: any);
// multi property
- property Ps read ReadPs;
- function ReadPs(_index);
+ property Ps read ReadPs write WritePs;
+ function ReadPs(_index: integer);
+ function WritePs(_index: integer; _value: nil_OR_P);
function AddP(): P;
function AppendP(): P;
@@ -2699,15 +3100,18 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Footnotes);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Ignorable read ReadXmlAttrIgnorable write WriteXmlAttrIgnorable;
function ReadXmlAttrIgnorable();
- function WriteXmlAttrIgnorable(_value);
+ function WriteXmlAttrIgnorable(_value: any);
// multi property
- property Footnotes read ReadFootnotes;
- function ReadFootnotes(_index);
+ property Footnotes read ReadFootnotes write WriteFootnotes;
+ function ReadFootnotes(_index: integer);
+ function WriteFootnotes(_index: integer; _value: nil_OR_Footnote);
function AddFootnote(): Footnote;
function AppendFootnote(): Footnote;
@@ -2725,18 +3129,21 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Footnote);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Type read ReadXmlAttrType write WriteXmlAttrType;
property Id read ReadXmlAttrId write WriteXmlAttrId;
function ReadXmlAttrType();
- function WriteXmlAttrType(_value);
+ function WriteXmlAttrType(_value: any);
function ReadXmlAttrId();
- function WriteXmlAttrId(_value);
+ function WriteXmlAttrId(_value: any);
// multi property
- property Ps read ReadPs;
- function ReadPs(_index);
+ property Ps read ReadPs write WritePs;
+ function ReadPs(_index: integer);
+ function WritePs(_index: integer; _value: nil_OR_P);
function AddP(): P;
function AppendP(): P;
@@ -2755,15 +3162,18 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Fonts);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Ignorable read ReadXmlAttrIgnorable write WriteXmlAttrIgnorable;
function ReadXmlAttrIgnorable();
- function WriteXmlAttrIgnorable(_value);
+ function WriteXmlAttrIgnorable(_value: any);
// multi property
- property Fonts read ReadFonts;
- function ReadFonts(_index);
+ property Fonts read ReadFonts write WriteFonts;
+ function ReadFonts(_index: integer);
+ function WriteFonts(_index: integer; _value: nil_OR_Font);
function AddFont(): Font;
function AppendFont(): Font;
@@ -2781,25 +3191,33 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Font);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Name read ReadXmlAttrName write WriteXmlAttrName;
function ReadXmlAttrName();
- function WriteXmlAttrName(_value);
+ function WriteXmlAttrName(_value: any);
// 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;
+ property AltName read ReadXmlChildAltName write WriteXmlChildAltName;
+ property Panosel read ReadXmlChildPanosel write WriteXmlChildPanosel;
+ property Charset read ReadXmlChildCharset write WriteXmlChildCharset;
+ property Family read ReadXmlChildFamily write WriteXmlChildFamily;
+ property Pitch read ReadXmlChildPitch write WriteXmlChildPitch;
+ property Sig read ReadXmlChildSig write WriteXmlChildSig;
function ReadXmlChildAltName(): PureWVal;
+ function WriteXmlChildAltName(_p1: any; _p2: any);
function ReadXmlChildPanosel(): PureWVal;
+ function WriteXmlChildPanosel(_p1: any; _p2: any);
function ReadXmlChildCharset(): PureWVal;
+ function WriteXmlChildCharset(_p1: any; _p2: any);
function ReadXmlChildFamily(): PureWVal;
+ function WriteXmlChildFamily(_p1: any; _p2: any);
function ReadXmlChildPitch(): PureWVal;
+ function WriteXmlChildPitch(_p1: any; _p2: any);
function ReadXmlChildSig(): Sig;
+ function WriteXmlChildSig(_p1: any; _p2: any);
public
// Attributes
@@ -2821,26 +3239,28 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Sig);override;
+ function ConvertToPoint();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;
+ property Csb0 read ReadXmlAttrCsb0 write WriteXmlAttrCsb0;
+ property Csb1 read ReadXmlAttrCsb1 write WriteXmlAttrCsb1;
function ReadXmlAttrUsb0();
- function WriteXmlAttrUsb0(_value);
+ function WriteXmlAttrUsb0(_value: any);
function ReadXmlAttrUsb1();
- function WriteXmlAttrUsb1(_value);
+ function WriteXmlAttrUsb1(_value: any);
function ReadXmlAttrUsb2();
- function WriteXmlAttrUsb2(_value);
+ function WriteXmlAttrUsb2(_value: any);
function ReadXmlAttrUsb3();
- function WriteXmlAttrUsb3(_value);
- function ReadXmlAttrcsb0();
- function WriteXmlAttrcsb0(_value);
- function ReadXmlAttrcsb1();
- function WriteXmlAttrcsb1(_value);
+ function WriteXmlAttrUsb3(_value: any);
+ function ReadXmlAttrCsb0();
+ function WriteXmlAttrCsb0(_value: any);
+ function ReadXmlAttrCsb1();
+ function WriteXmlAttrCsb1(_value: any);
public
// Attributes
@@ -2848,8 +3268,8 @@ public
XmlAttrUsb1: OpenXmlAttribute;
XmlAttrUsb2: OpenXmlAttribute;
XmlAttrUsb3: OpenXmlAttribute;
- XmlAttrcsb0: OpenXmlAttribute;
- XmlAttrcsb1: OpenXmlAttribute;
+ XmlAttrCsb0: OpenXmlAttribute;
+ XmlAttrCsb1: OpenXmlAttribute;
end;
@@ -2860,92 +3280,63 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Settings);override;
+ function ConvertToPoint();override;
+
public
// attributes property
+ property MCIgnorable read ReadXmlAttrMCIgnorable write WriteXmlAttrMCIgnorable;
+ property IgnorableN read ReadXmlAttrIgnorableN write WriteXmlAttrIgnorableN;
property Ignorable read ReadXmlAttrIgnorable write WriteXmlAttrIgnorable;
- function ReadXmlAttrIgnorable();
- function WriteXmlAttrIgnorable(_value);
+ property MCPr read ReadXmlAttrMCPr write WriteXmlAttrMCPr;
+ property Pr read ReadXmlAttrPr write WriteXmlAttrPr;
+ property XSig read ReadXmlAttrXSig write WriteXmlAttrXSig;
+ property MCSig read ReadXmlAttrMCSig write WriteXmlAttrMCSig;
+ property SigN read ReadXmlAttrSigN write WriteXmlAttrSigN;
+ function ReadXmlAttrMCIgnorable();
+ function WriteXmlAttrMCIgnorable(_value: any);
+ function ReadXmlAttrIgnorableN();
+ function WriteXmlAttrIgnorableN(_value: any);
+ function ReadXmlAttrIgnorable(_ns: string);
+ function WriteXmlAttrIgnorable(_p1: any; _p2: any);
+ function ReadXmlAttrMCPr();
+ function WriteXmlAttrMCPr(_value: any);
+ function ReadXmlAttrPr(_ns: string);
+ function WriteXmlAttrPr(_p1: any; _p2: any);
+ function ReadXmlAttrXSig();
+ function WriteXmlAttrXSig(_value: any);
+ function ReadXmlAttrMCSig();
+ function WriteXmlAttrMCSig(_value: any);
+ function ReadXmlAttrSigN();
+ function WriteXmlAttrSigN(_value: any);
// simple_type property
- property BordersDoNotSurroundHeader read ReadXmlChildBordersDoNotSurroundHeader;
- property BordersDoNotSurroundFooter read ReadXmlChildBordersDoNotSurroundFooter;
- property EvenAndOddHeaders read ReadXmlChildEvenAndOddHeaders;
- property DoNotIncludeSubdocsInStats read ReadXmlChildDoNotIncludeSubdocsInStats;
- property ChartTrackingRefBased read ReadXmlChildChartTrackingRefBased;
- function ReadXmlChildBordersDoNotSurroundHeader(): OpenXmlSimpleType;
- function ReadXmlChildBordersDoNotSurroundFooter(): OpenXmlSimpleType;
- function ReadXmlChildEvenAndOddHeaders(): OpenXmlSimpleType;
- function ReadXmlChildDoNotIncludeSubdocsInStats(): OpenXmlSimpleType;
+ property ChartTrackingRefBased read ReadXmlChildChartTrackingRefBased write WriteXmlChildChartTrackingRefBased;
function ReadXmlChildChartTrackingRefBased(): OpenXmlSimpleType;
+ function WriteXmlChildChartTrackingRefBased(_value: nil_or_OpenXmlSimpleType);
// 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;
+ property DocId read ReadXmlChildDocId write WriteXmlChildDocId;
+ property W14DocId read ReadXmlChildW14DocId write WriteXmlChildW14DocId;
+ property W15DocId read ReadXmlChildW15DocId write WriteXmlChildW15DocId;
function ReadXmlChildDocId(_ns: string): PureWVal;
+ function WriteXmlChildDocId(_p1: any; _p2: any);
function ReadXmlChildW14DocId(): PureWVal;
+ function WriteXmlChildW14DocId(_p1: any; _p2: any);
function ReadXmlChildW15DocId(): PureWVal;
+ function WriteXmlChildW15DocId(_p1: any; _p2: any);
public
// Attributes
+ XmlAttrMCIgnorable: OpenXmlAttribute;
+ XmlAttrIgnorableN: OpenXmlAttribute;
XmlAttrIgnorable: OpenXmlAttribute;
+ XmlAttrMCPr: OpenXmlAttribute;
+ XmlAttrPr: OpenXmlAttribute;
+ XmlAttrXSig: OpenXmlAttribute;
+ XmlAttrMCSig: OpenXmlAttribute;
+ XmlAttrSigN: OpenXmlAttribute;
// Children
- XmlChildZoom: Zoom;
- XmlChildBordersDoNotSurroundHeader: OpenXmlSimpleType;
- XmlChildBordersDoNotSurroundFooter: OpenXmlSimpleType;
- XmlChildDefaultTabStop: PureWVal;
- XmlChildEvenAndOddHeaders: OpenXmlSimpleType;
- 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: OpenXmlSimpleType;
- XmlChildShapeDefaults: ShapeDefaults2;
- XmlChildDecimalSymbol: PureWVal;
- XmlChildListSeparator: PureWVal;
XmlChildDocId: PureWVal;
XmlChildW14DocId: PureWVal;
XmlChildW15DocId: PureWVal;
@@ -2959,11 +3350,13 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Zoom);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Percent read ReadXmlAttrPercent write WriteXmlAttrPercent;
function ReadXmlAttrPercent();
- function WriteXmlAttrPercent(_value);
+ function WriteXmlAttrPercent(_value: any);
public
// Attributes
@@ -2978,11 +3371,14 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: HdrShapeDefaults);override;
+ function ConvertToPoint();override;
+
public
// normal property
- property ShapeDefaults read ReadXmlChildShapeDefaults;
+ property ShapeDefaults read ReadXmlChildShapeDefaults write WriteXmlChildShapeDefaults;
function ReadXmlChildShapeDefaults(): ShapeDefaults;
+ function WriteXmlChildShapeDefaults(_p1: any; _p2: any);
public
// Children
@@ -2996,14 +3392,16 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: ShapeDefaults);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Ext read ReadXmlAttrExt write WriteXmlAttrExt;
property Spidmax read ReadXmlAttrSpidmax write WriteXmlAttrSpidmax;
function ReadXmlAttrExt();
- function WriteXmlAttrExt(_value);
+ function WriteXmlAttrExt(_value: any);
function ReadXmlAttrSpidmax();
- function WriteXmlAttrSpidmax(_value);
+ function WriteXmlAttrSpidmax(_value: any);
public
// Attributes
@@ -3019,21 +3417,28 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: FootnotePr);override;
+ function ConvertToPoint();override;
+
public
// normal property
- property Pos read ReadXmlChildPos;
- property NumFmt read ReadXmlChildNumFmt;
- property NumStart read ReadXmlChildNumStart;
- property NumRestart read ReadXmlChildNumRestart;
+ property Pos read ReadXmlChildPos write WriteXmlChildPos;
+ property NumFmt read ReadXmlChildNumFmt write WriteXmlChildNumFmt;
+ property NumStart read ReadXmlChildNumStart write WriteXmlChildNumStart;
+ property NumRestart read ReadXmlChildNumRestart write WriteXmlChildNumRestart;
function ReadXmlChildPos(): PureWVal;
+ function WriteXmlChildPos(_p1: any; _p2: any);
function ReadXmlChildNumFmt(): PureWVal;
+ function WriteXmlChildNumFmt(_p1: any; _p2: any);
function ReadXmlChildNumStart(): PureWVal;
+ function WriteXmlChildNumStart(_p1: any; _p2: any);
function ReadXmlChildNumRestart(): PureWVal;
+ function WriteXmlChildNumRestart(_p1: any; _p2: any);
// multi property
- property Footnotes read ReadFootnotes;
- function ReadFootnotes(_index);
+ property Footnotes read ReadFootnotes write WriteFootnotes;
+ function ReadFootnotes(_index: integer);
+ function WriteFootnotes(_index: integer; _value: nil_OR_Footnote);
function AddFootnote(): Footnote;
function AppendFootnote(): Footnote;
@@ -3052,21 +3457,28 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: EndnotePr);override;
+ function ConvertToPoint();override;
+
public
// normal property
- property Pos read ReadXmlChildPos;
- property NumFmt read ReadXmlChildNumFmt;
- property NumStart read ReadXmlChildNumStart;
- property NumRestart read ReadXmlChildNumRestart;
+ property Pos read ReadXmlChildPos write WriteXmlChildPos;
+ property NumFmt read ReadXmlChildNumFmt write WriteXmlChildNumFmt;
+ property NumStart read ReadXmlChildNumStart write WriteXmlChildNumStart;
+ property NumRestart read ReadXmlChildNumRestart write WriteXmlChildNumRestart;
function ReadXmlChildPos(): PureWVal;
+ function WriteXmlChildPos(_p1: any; _p2: any);
function ReadXmlChildNumFmt(): PureWVal;
+ function WriteXmlChildNumFmt(_p1: any; _p2: any);
function ReadXmlChildNumStart(): PureWVal;
+ function WriteXmlChildNumStart(_p1: any; _p2: any);
function ReadXmlChildNumRestart(): PureWVal;
+ function WriteXmlChildNumRestart(_p1: any; _p2: any);
// multi property
- property Footnotes read ReadFootnotes;
- function ReadFootnotes(_index);
+ property Footnotes read ReadFootnotes write WriteFootnotes;
+ function ReadFootnotes(_index: integer);
+ function WriteFootnotes(_index: integer; _value: nil_OR_Footnote);
function AddFootnote(): Footnote;
function AppendFootnote(): Footnote;
@@ -3085,29 +3497,40 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Compat);override;
+ function ConvertToPoint();override;
+
public
// simple_type property
- property SpaceForUL read ReadXmlChildSpaceForUL;
- property BalanceSingleByteDoubleByteWidth read ReadXmlChildBalanceSingleByteDoubleByteWidth;
- property DoNotLeaveBackslashAlone read ReadXmlChildDoNotLeaveBackslashAlone;
- property UlTrailSpace read ReadXmlChildUlTrailSpace;
- property DoNotExpandShiftReturn read ReadXmlChildDoNotExpandShiftReturn;
- property AdjustLineHeightInTable read ReadXmlChildAdjustLineHeightInTable;
- property UseFELayout read ReadXmlChildUseFELayout;
- property CompatSetting read ReadXmlChildCompatSetting;
+ 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(): OpenXmlSimpleType;
+ function WriteXmlChildSpaceForUL(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildBalanceSingleByteDoubleByteWidth(): OpenXmlSimpleType;
+ function WriteXmlChildBalanceSingleByteDoubleByteWidth(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildDoNotLeaveBackslashAlone(): OpenXmlSimpleType;
+ function WriteXmlChildDoNotLeaveBackslashAlone(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildUlTrailSpace(): OpenXmlSimpleType;
+ function WriteXmlChildUlTrailSpace(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildDoNotExpandShiftReturn(): OpenXmlSimpleType;
+ function WriteXmlChildDoNotExpandShiftReturn(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildAdjustLineHeightInTable(): OpenXmlSimpleType;
+ function WriteXmlChildAdjustLineHeightInTable(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildUseFELayout(): OpenXmlSimpleType;
+ function WriteXmlChildUseFELayout(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildCompatSetting(): OpenXmlSimpleType;
+ function WriteXmlChildCompatSetting(_value: nil_or_OpenXmlSimpleType);
// multi property
- property CompatSettings read ReadCompatSettings;
- function ReadCompatSettings(_index);
+ property CompatSettings read ReadCompatSettings write WriteCompatSettings;
+ function ReadCompatSettings(_index: integer);
+ function WriteCompatSettings(_index: integer; _value: nil_OR_CompatSetting);
function AddCompatSetting(): CompatSetting;
function AppendCompatSetting(): CompatSetting;
@@ -3129,17 +3552,19 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: CompatSetting);override;
+ function ConvertToPoint();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 WriteXmlAttrName(_value: any);
function ReadXmlAttrUri();
- function WriteXmlAttrUri(_value);
+ function WriteXmlAttrUri(_value: any);
function ReadXmlAttrVal();
- function WriteXmlAttrVal(_value);
+ function WriteXmlAttrVal(_value: any);
public
// Attributes
@@ -3156,15 +3581,19 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Rsids);override;
+ function ConvertToPoint();override;
+
public
// normal property
- property RsidRoot read ReadXmlChildRsidRoot;
+ property RsidRoot read ReadXmlChildRsidRoot write WriteXmlChildRsidRoot;
function ReadXmlChildRsidRoot(): PureWVal;
+ function WriteXmlChildRsidRoot(_p1: any; _p2: any);
// multi property
- property Rsids read ReadRsids;
- function ReadRsids(_index);
+ property Rsids read ReadRsids write WriteRsids;
+ function ReadRsids(_index: integer);
+ function WriteRsids(_index: integer; _value: nil_OR_PureWVal);
function AddRsid(): PureWVal;
function AppendRsid(): PureWVal;
@@ -3180,14 +3609,16 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: ThemeFontLang);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Val read ReadXmlAttrVal write WriteXmlAttrVal;
property EastAsia read ReadXmlAttrEastAsia write WriteXmlAttrEastAsia;
function ReadXmlAttrVal();
- function WriteXmlAttrVal(_value);
+ function WriteXmlAttrVal(_value: any);
function ReadXmlAttrEastAsia();
- function WriteXmlAttrEastAsia(_value);
+ function WriteXmlAttrEastAsia(_value: any);
public
// Attributes
@@ -3203,6 +3634,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: ClrSchemeMapping);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Bg1 read ReadXmlAttrBg1 write WriteXmlAttrBg1;
@@ -3218,29 +3651,29 @@ public
property HyperLink read ReadXmlAttrHyperLink write WriteXmlAttrHyperLink;
property FollowedHyperlink read ReadXmlAttrFollowedHyperlink write WriteXmlAttrFollowedHyperlink;
function ReadXmlAttrBg1();
- function WriteXmlAttrBg1(_value);
+ function WriteXmlAttrBg1(_value: any);
function ReadXmlAttrT1();
- function WriteXmlAttrT1(_value);
+ function WriteXmlAttrT1(_value: any);
function ReadXmlAttrBg2();
- function WriteXmlAttrBg2(_value);
+ function WriteXmlAttrBg2(_value: any);
function ReadXmlAttrT2();
- function WriteXmlAttrT2(_value);
+ function WriteXmlAttrT2(_value: any);
function ReadXmlAttrAccent1();
- function WriteXmlAttrAccent1(_value);
+ function WriteXmlAttrAccent1(_value: any);
function ReadXmlAttrAccent2();
- function WriteXmlAttrAccent2(_value);
+ function WriteXmlAttrAccent2(_value: any);
function ReadXmlAttrAccent3();
- function WriteXmlAttrAccent3(_value);
+ function WriteXmlAttrAccent3(_value: any);
function ReadXmlAttrAccent4();
- function WriteXmlAttrAccent4(_value);
+ function WriteXmlAttrAccent4(_value: any);
function ReadXmlAttrAccent5();
- function WriteXmlAttrAccent5(_value);
+ function WriteXmlAttrAccent5(_value: any);
function ReadXmlAttrAccent6();
- function WriteXmlAttrAccent6(_value);
+ function WriteXmlAttrAccent6(_value: any);
function ReadXmlAttrHyperLink();
- function WriteXmlAttrHyperLink(_value);
+ function WriteXmlAttrHyperLink(_value: any);
function ReadXmlAttrFollowedHyperlink();
- function WriteXmlAttrFollowedHyperlink(_value);
+ function WriteXmlAttrFollowedHyperlink(_value: any);
public
// Attributes
@@ -3266,13 +3699,17 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: ShapeDefaults2);override;
+ function ConvertToPoint();override;
+
public
// normal property
- property ShapeDefaults read ReadXmlChildShapeDefaults;
- property ShapeLayout read ReadXmlChildShapeLayout;
+ property ShapeDefaults read ReadXmlChildShapeDefaults write WriteXmlChildShapeDefaults;
+ property ShapeLayout read ReadXmlChildShapeLayout write WriteXmlChildShapeLayout;
function ReadXmlChildShapeDefaults(): ShapeDefaults;
+ function WriteXmlChildShapeDefaults(_p1: any; _p2: any);
function ReadXmlChildShapeLayout(): ShapeLayout;
+ function WriteXmlChildShapeLayout(_p1: any; _p2: any);
public
// Children
@@ -3287,15 +3724,18 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: ShapeLayout);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Ext read ReadXmlAttrExt write WriteXmlAttrExt;
function ReadXmlAttrExt();
- function WriteXmlAttrExt(_value);
+ function WriteXmlAttrExt(_value: any);
// normal property
- property IdMap read ReadXmlChildIdMap;
+ property IdMap read ReadXmlChildIdMap write WriteXmlChildIdMap;
function ReadXmlChildIdMap(): IdMap;
+ function WriteXmlChildIdMap(_p1: any; _p2: any);
public
// Attributes
@@ -3312,14 +3752,16 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: IdMap);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Ext read ReadXmlAttrExt write WriteXmlAttrExt;
property Data read ReadXmlAttrData write WriteXmlAttrData;
function ReadXmlAttrExt();
- function WriteXmlAttrExt(_value);
+ function WriteXmlAttrExt(_value: any);
function ReadXmlAttrData();
- function WriteXmlAttrData(_value);
+ function WriteXmlAttrData(_value: any);
public
// Attributes
@@ -3335,21 +3777,26 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Styles);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Ignorable read ReadXmlAttrIgnorable write WriteXmlAttrIgnorable;
function ReadXmlAttrIgnorable();
- function WriteXmlAttrIgnorable(_value);
+ function WriteXmlAttrIgnorable(_value: any);
// normal property
- property DocDefaults read ReadXmlChildDocDefaults;
- property LatenStyles read ReadXmlChildLatenStyles;
+ property DocDefaults read ReadXmlChildDocDefaults write WriteXmlChildDocDefaults;
+ property LatenStyles read ReadXmlChildLatenStyles write WriteXmlChildLatenStyles;
function ReadXmlChildDocDefaults(): DocDefaults;
+ function WriteXmlChildDocDefaults(_p1: any; _p2: any);
function ReadXmlChildLatenStyles(): LatenStyles;
+ function WriteXmlChildLatenStyles(_p1: any; _p2: any);
// multi property
- property Styles read ReadStyles;
- function ReadStyles(_index);
+ property Styles read ReadStyles write WriteStyles;
+ function ReadStyles(_index: integer);
+ function WriteStyles(_index: integer; _value: nil_OR_Style);
function AddStyle(): Style;
function AppendStyle(): Style;
@@ -3369,13 +3816,17 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: DocDefaults);override;
+ function ConvertToPoint();override;
+
public
// normal property
- property RPrDefault read ReadXmlChildRPrDefault;
- property PPrDefault read ReadXmlChildPPrDefault;
+ property RPrDefault read ReadXmlChildRPrDefault write WriteXmlChildRPrDefault;
+ property PPrDefault read ReadXmlChildPPrDefault write WriteXmlChildPPrDefault;
function ReadXmlChildRPrDefault(): RPrDefault;
+ function WriteXmlChildRPrDefault(_p1: any; _p2: any);
function ReadXmlChildPPrDefault(): PPrDefault;
+ function WriteXmlChildPPrDefault(_p1: any; _p2: any);
public
// Children
@@ -3390,11 +3841,14 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: RPrDefault);override;
+ function ConvertToPoint();override;
+
public
// normal property
- property RPr read ReadXmlChildRPr;
+ property RPr read ReadXmlChildRPr write WriteXmlChildRPr;
function ReadXmlChildRPr(): RPr;
+ function WriteXmlChildRPr(_p1: any; _p2: any);
public
// Children
@@ -3408,11 +3862,14 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: PPrDefault);override;
+ function ConvertToPoint();override;
+
public
// normal property
- property PPr read ReadXmlChildPPr;
+ property PPr read ReadXmlChildPPr write WriteXmlChildPPr;
function ReadXmlChildPPr(): PPr;
+ function WriteXmlChildPPr(_p1: any; _p2: any);
public
// Children
@@ -3426,6 +3883,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: LatenStyles);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property DefLickedState read ReadXmlAttrDefLickedState write WriteXmlAttrDefLickedState;
@@ -3435,21 +3894,22 @@ public
property DefQFormat read ReadXmlAttrDefQFormat write WriteXmlAttrDefQFormat;
property Count read ReadXmlAttrCount write WriteXmlAttrCount;
function ReadXmlAttrDefLickedState();
- function WriteXmlAttrDefLickedState(_value);
+ function WriteXmlAttrDefLickedState(_value: any);
function ReadXmlAttrDefUIPriority();
- function WriteXmlAttrDefUIPriority(_value);
+ function WriteXmlAttrDefUIPriority(_value: any);
function ReadXmlAttrDefSemiHidden();
- function WriteXmlAttrDefSemiHidden(_value);
+ function WriteXmlAttrDefSemiHidden(_value: any);
function ReadXmlAttrDefUnhideWhenUsed();
- function WriteXmlAttrDefUnhideWhenUsed(_value);
+ function WriteXmlAttrDefUnhideWhenUsed(_value: any);
function ReadXmlAttrDefQFormat();
- function WriteXmlAttrDefQFormat(_value);
+ function WriteXmlAttrDefQFormat(_value: any);
function ReadXmlAttrCount();
- function WriteXmlAttrCount(_value);
+ function WriteXmlAttrCount(_value: any);
// multi property
- property LsdExceptions read ReadLsdExceptions;
- function ReadLsdExceptions(_index);
+ property LsdExceptions read ReadLsdExceptions write WriteLsdExceptions;
+ function ReadLsdExceptions(_index: integer);
+ function WriteLsdExceptions(_index: integer; _value: nil_OR_LsdException);
function AddLsdException(): LsdException;
function AppendLsdException(): LsdException;
@@ -3472,6 +3932,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: LsdException);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Name read ReadXmlAttrName write WriteXmlAttrName;
@@ -3480,15 +3942,15 @@ public
property UnhideWhenUsed read ReadXmlAttrUnhideWhenUsed write WriteXmlAttrUnhideWhenUsed;
property QFormat read ReadXmlAttrQFormat write WriteXmlAttrQFormat;
function ReadXmlAttrName();
- function WriteXmlAttrName(_value);
+ function WriteXmlAttrName(_value: any);
function ReadXmlAttrUIPriority();
- function WriteXmlAttrUIPriority(_value);
+ function WriteXmlAttrUIPriority(_value: any);
function ReadXmlAttrSemiHidden();
- function WriteXmlAttrSemiHidden(_value);
+ function WriteXmlAttrSemiHidden(_value: any);
function ReadXmlAttrUnhideWhenUsed();
- function WriteXmlAttrUnhideWhenUsed(_value);
+ function WriteXmlAttrUnhideWhenUsed(_value: any);
function ReadXmlAttrQFormat();
- function WriteXmlAttrQFormat(_value);
+ function WriteXmlAttrQFormat(_value: any);
public
// Attributes
@@ -3507,55 +3969,73 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Style);override;
+ function ConvertToPoint();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 WriteXmlAttrType(_value: any);
function ReadXmlAttrDefault();
- function WriteXmlAttrDefault(_value);
+ function WriteXmlAttrDefault(_value: any);
function ReadXmlAttrStyleId();
- function WriteXmlAttrStyleId(_value);
+ function WriteXmlAttrStyleId(_value: any);
// simple_type property
- property SemiHidden read ReadXmlChildSemiHidden;
- property UnhideWhenUsed read ReadXmlChildUnhideWhenUsed;
- property QFormat read ReadXmlChildQFormat;
- property Rsid read ReadXmlChildRsid;
+ 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(): OpenXmlSimpleType;
+ function WriteXmlChildSemiHidden(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildUnhideWhenUsed(): OpenXmlSimpleType;
+ function WriteXmlChildUnhideWhenUsed(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildQFormat(): OpenXmlSimpleType;
+ function WriteXmlChildQFormat(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildRsid(): OpenXmlSimpleType;
+ function WriteXmlChildRsid(_value: nil_or_OpenXmlSimpleType);
// 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;
+ property Name read ReadXmlChildName write WriteXmlChildName;
+ property BasedOn read ReadXmlChildBasedOn write WriteXmlChildBasedOn;
+ property Next read ReadXmlChildNext write WriteXmlChildNext;
+ property AutoRedefine read ReadXmlChildAutoRedefine write WriteXmlChildAutoRedefine;
+ property Link read ReadXmlChildLink write WriteXmlChildLink;
+ property UIPriority read ReadXmlChildUIPriority write WriteXmlChildUIPriority;
+ property PPr read ReadXmlChildPPr write WriteXmlChildPPr;
+ property RPr read ReadXmlChildRPr write WriteXmlChildRPr;
+ property TblPr read ReadXmlChildTblPr write WriteXmlChildTblPr;
+ property TrPr read ReadXmlChildTrPr write WriteXmlChildTrPr;
+ property TcPr read ReadXmlChildTcPr write WriteXmlChildTcPr;
function ReadXmlChildName(): PureWVal;
+ function WriteXmlChildName(_p1: any; _p2: any);
function ReadXmlChildBasedOn(): PureWVal;
+ function WriteXmlChildBasedOn(_p1: any; _p2: any);
function ReadXmlChildNext(): PureWVal;
+ function WriteXmlChildNext(_p1: any; _p2: any);
function ReadXmlChildAutoRedefine(): PureWVal;
+ function WriteXmlChildAutoRedefine(_p1: any; _p2: any);
function ReadXmlChildLink(): PureWVal;
+ function WriteXmlChildLink(_p1: any; _p2: any);
function ReadXmlChildUIPriority(): PureWVal;
+ function WriteXmlChildUIPriority(_p1: any; _p2: any);
function ReadXmlChildPPr(): PPr;
+ function WriteXmlChildPPr(_p1: any; _p2: any);
function ReadXmlChildRPr(): RPr;
+ function WriteXmlChildRPr(_p1: any; _p2: any);
function ReadXmlChildTblPr(): TblPr;
+ function WriteXmlChildTblPr(_p1: any; _p2: any);
function ReadXmlChildTrPr(): TrPr;
+ function WriteXmlChildTrPr(_p1: any; _p2: any);
function ReadXmlChildTcPr(): TcPr;
+ function WriteXmlChildTcPr(_p1: any; _p2: any);
// multi property
- property TblStylePrs read ReadTblStylePrs;
- function ReadTblStylePrs(_index);
+ property TblStylePrs read ReadTblStylePrs write WriteTblStylePrs;
+ function ReadTblStylePrs(_index: integer);
+ function WriteTblStylePrs(_index: integer; _value: nil_OR_TblStylePr);
function AddTblStylePr(): TblStylePr;
function AppendTblStylePr(): TblStylePr;
@@ -3590,23 +4070,30 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: TblStylePr);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Type read ReadXmlAttrType write WriteXmlAttrType;
function ReadXmlAttrType();
- function WriteXmlAttrType(_value);
+ function WriteXmlAttrType(_value: any);
// normal property
- property PPr read ReadXmlChildPPr;
- property RPr read ReadXmlChildRPr;
- property TblPr read ReadXmlChildTblPr;
- property TrPr read ReadXmlChildTrPr;
- property TcPr read ReadXmlChildTcPr;
+ property PPr read ReadXmlChildPPr write WriteXmlChildPPr;
+ property RPr read ReadXmlChildRPr write WriteXmlChildRPr;
+ property TblPr read ReadXmlChildTblPr write WriteXmlChildTblPr;
+ property TrPr read ReadXmlChildTrPr write WriteXmlChildTrPr;
+ property TcPr read ReadXmlChildTcPr write WriteXmlChildTcPr;
function ReadXmlChildPPr(): PPr;
+ function WriteXmlChildPPr(_p1: any; _p2: any);
function ReadXmlChildRPr(): RPr;
+ function WriteXmlChildRPr(_p1: any; _p2: any);
function ReadXmlChildTblPr(): TblPr;
+ function WriteXmlChildTblPr(_p1: any; _p2: any);
function ReadXmlChildTrPr(): TrPr;
+ function WriteXmlChildTrPr(_p1: any; _p2: any);
function ReadXmlChildTcPr(): TcPr;
+ function WriteXmlChildTcPr(_p1: any; _p2: any);
public
// Attributes
@@ -3627,14 +4114,16 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: TblInd);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property W read ReadXmlAttrW write WriteXmlAttrW;
property Type read ReadXmlAttrType write WriteXmlAttrType;
function ReadXmlAttrW();
- function WriteXmlAttrW(_value);
+ function WriteXmlAttrW(_value: any);
function ReadXmlAttrType();
- function WriteXmlAttrType(_value);
+ function WriteXmlAttrType(_value: any);
public
// Attributes
@@ -3650,17 +4139,23 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: TblCellMar);override;
+ function ConvertToPoint();override;
+
public
// normal property
- property Top read ReadXmlChildTop;
- property Left read ReadXmlChildLeft;
- property Bottom read ReadXmlChildBottom;
- property Right read ReadXmlChildRight;
+ property Top read ReadXmlChildTop write WriteXmlChildTop;
+ property Left read ReadXmlChildLeft write WriteXmlChildLeft;
+ property Bottom read ReadXmlChildBottom write WriteXmlChildBottom;
+ property Right read ReadXmlChildRight write WriteXmlChildRight;
function ReadXmlChildTop(): TblInd;
+ function WriteXmlChildTop(_p1: any; _p2: any);
function ReadXmlChildLeft(): TblInd;
+ function WriteXmlChildLeft(_p1: any; _p2: any);
function ReadXmlChildBottom(): TblInd;
+ function WriteXmlChildBottom(_p1: any; _p2: any);
function ReadXmlChildRight(): TblInd;
+ function WriteXmlChildRight(_p1: any; _p2: any);
public
// Children
@@ -3677,17 +4172,21 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: WebSettings);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Ignorable read ReadXmlAttrIgnorable write WriteXmlAttrIgnorable;
function ReadXmlAttrIgnorable();
- function WriteXmlAttrIgnorable(_value);
+ function WriteXmlAttrIgnorable(_value: any);
// simple_type property
- property OptimizeForBrowser read ReadXmlChildOptimizeForBrowser;
- property AllowPNG read ReadXmlChildAllowPNG;
+ property OptimizeForBrowser read ReadXmlChildOptimizeForBrowser write WriteXmlChildOptimizeForBrowser;
+ property AllowPNG read ReadXmlChildAllowPNG write WriteXmlChildAllowPNG;
function ReadXmlChildOptimizeForBrowser(): OpenXmlSimpleType;
+ function WriteXmlChildOptimizeForBrowser(_value: nil_or_OpenXmlSimpleType);
function ReadXmlChildAllowPNG(): OpenXmlSimpleType;
+ function WriteXmlChildAllowPNG(_value: nil_or_OpenXmlSimpleType);
public
// Attributes
@@ -3705,13 +4204,17 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: AlternateContent);override;
+ function ConvertToPoint();override;
+
public
// normal property
- property Choice read ReadXmlChildChoice;
- property Fallback read ReadXmlChildFallback;
+ property Choice read ReadXmlChildChoice write WriteXmlChildChoice;
+ property Fallback read ReadXmlChildFallback write WriteXmlChildFallback;
function ReadXmlChildChoice(): Choice;
+ function WriteXmlChildChoice(_p1: any; _p2: any);
function ReadXmlChildFallback(): Fallback;
+ function WriteXmlChildFallback(_p1: any; _p2: any);
public
// Children
@@ -3726,17 +4229,21 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Choice);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Requires read ReadXmlAttrRequires write WriteXmlAttrRequires;
function ReadXmlAttrRequires();
- function WriteXmlAttrRequires(_value);
+ function WriteXmlAttrRequires(_value: any);
// normal property
- property Style read ReadXmlChildStyle;
- property Drawing read ReadXmlChildDrawing;
+ property Style read ReadXmlChildStyle write WriteXmlChildStyle;
+ property Drawing read ReadXmlChildDrawing write WriteXmlChildDrawing;
function ReadXmlChildStyle(): PureVal;
+ function WriteXmlChildStyle(_p1: any; _p2: any);
function ReadXmlChildDrawing(): Drawing;
+ function WriteXmlChildDrawing(_p1: any; _p2: any);
public
// Attributes
@@ -3754,13 +4261,17 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Fallback);override;
+ function ConvertToPoint();override;
+
public
// normal property
- property Style read ReadXmlChildStyle;
- property Pict read ReadXmlChildPict;
+ property Style read ReadXmlChildStyle write WriteXmlChildStyle;
+ property Pict read ReadXmlChildPict write WriteXmlChildPict;
function ReadXmlChildStyle(): PureVal;
+ function WriteXmlChildStyle(_p1: any; _p2: any);
function ReadXmlChildPict(): Pict;
+ function WriteXmlChildPict(_p1: any; _p2: any);
public
// Children
@@ -3775,15 +4286,20 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Pict);override;
+ function ConvertToPoint();override;
+
public
// normal property
- property Shapetype read ReadXmlChildShapetype;
- property Shape read ReadXmlChildShape;
- property Control read ReadXmlChildControl;
+ property Shapetype read ReadXmlChildShapetype write WriteXmlChildShapetype;
+ property Shape read ReadXmlChildShape write WriteXmlChildShape;
+ property Control read ReadXmlChildControl write WriteXmlChildControl;
function ReadXmlChildShapetype(): Shapetype;
+ function WriteXmlChildShapetype(_p1: any; _p2: any);
function ReadXmlChildShape(): Shape;
+ function WriteXmlChildShape(_p1: any; _p2: any);
function ReadXmlChildControl(): Control;
+ function WriteXmlChildControl(_p1: any; _p2: any);
public
// Children
@@ -3799,17 +4315,19 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Control);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Id read ReadXmlAttrId write WriteXmlAttrId;
property Shapeid read ReadXmlAttrShapeid write WriteXmlAttrShapeid;
property name read ReadXmlAttrname write WriteXmlAttrname;
function ReadXmlAttrId();
- function WriteXmlAttrId(_value);
+ function WriteXmlAttrId(_value: any);
function ReadXmlAttrShapeid();
- function WriteXmlAttrShapeid(_value);
+ function WriteXmlAttrShapeid(_value: any);
function ReadXmlAttrname();
- function WriteXmlAttrname(_value);
+ function WriteXmlAttrname(_value: any);
public
// Attributes
@@ -3826,19 +4344,23 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Ftr);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Ignorable read ReadXmlAttrIgnorable write WriteXmlAttrIgnorable;
function ReadXmlAttrIgnorable();
- function WriteXmlAttrIgnorable(_value);
+ function WriteXmlAttrIgnorable(_value: any);
// normal property
- property Sdt read ReadXmlChildSdt;
+ property Sdt read ReadXmlChildSdt write WriteXmlChildSdt;
function ReadXmlChildSdt(): Sdt;
+ function WriteXmlChildSdt(_p1: any; _p2: any);
// multi property
- property Ps read ReadPs;
- function ReadPs(_index);
+ property Ps read ReadPs write WritePs;
+ function ReadPs(_index: integer);
+ function WritePs(_index: integer; _value: nil_OR_P);
function AddP(): P;
function AppendP(): P;
@@ -3857,19 +4379,23 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Hdr);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Ignorable read ReadXmlAttrIgnorable write WriteXmlAttrIgnorable;
function ReadXmlAttrIgnorable();
- function WriteXmlAttrIgnorable(_value);
+ function WriteXmlAttrIgnorable(_value: any);
// normal property
- property Sdt read ReadXmlChildSdt;
+ property Sdt read ReadXmlChildSdt write WriteXmlChildSdt;
function ReadXmlChildSdt(): Sdt;
+ function WriteXmlChildSdt(_p1: any; _p2: any);
// multi property
- property Ps read ReadPs;
- function ReadPs(_index);
+ property Ps read ReadPs write WritePs;
+ function ReadPs(_index: integer);
+ function WritePs(_index: integer; _value: nil_OR_P);
function AddP(): P;
function AppendP(): P;
@@ -3888,15 +4414,18 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Comments);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Ignorable read ReadXmlAttrIgnorable write WriteXmlAttrIgnorable;
function ReadXmlAttrIgnorable();
- function WriteXmlAttrIgnorable(_value);
+ function WriteXmlAttrIgnorable(_value: any);
// multi property
- property Comments read ReadComments;
- function ReadComments(_index);
+ property Comments read ReadComments write WriteComments;
+ function ReadComments(_index: integer);
+ function WriteComments(_index: integer; _value: nil_OR_Comment);
function AddComment(): Comment;
function AppendComment(): Comment;
@@ -3914,21 +4443,24 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Comment);override;
+ function ConvertToPoint();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 WriteXmlAttrAuthor(_value: any);
function ReadXmlAttrDate();
- function WriteXmlAttrDate(_value);
+ function WriteXmlAttrDate(_value: any);
function ReadXmlAttrId();
- function WriteXmlAttrId(_value);
+ function WriteXmlAttrId(_value: any);
// multi property
- property Ps read ReadPs;
- function ReadPs(_index);
+ property Ps read ReadPs write WritePs;
+ function ReadPs(_index: integer);
+ function WritePs(_index: integer; _value: nil_OR_P);
function AddP(): P;
function AppendP(): P;
@@ -3948,17 +4480,21 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Numbering);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Ignorable read ReadXmlAttrIgnorable write WriteXmlAttrIgnorable;
function ReadXmlAttrIgnorable();
- function WriteXmlAttrIgnorable(_value);
+ function WriteXmlAttrIgnorable(_value: any);
// multi property
- property AbstractNums read ReadAbstractNums;
- property Nums read ReadNums;
- function ReadAbstractNums(_index);
- function ReadNums(_index);
+ property AbstractNums read ReadAbstractNums write WriteAbstractNums;
+ property Nums read ReadNums write WriteNums;
+ function ReadAbstractNums(_index: integer);
+ function WriteAbstractNums(_index: integer; _value: nil_OR_AbstractNum);
+ function ReadNums(_index: integer);
+ function WriteNums(_index: integer; _value: nil_OR_Num);
function AddAbstractNum(): AbstractNum;
function AddNum(): Num;
function AppendAbstractNum(): AbstractNum;
@@ -3978,15 +4514,18 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Num);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property NumId read ReadXmlAttrNumId write WriteXmlAttrNumId;
function ReadXmlAttrNumId();
- function WriteXmlAttrNumId(_value);
+ function WriteXmlAttrNumId(_value: any);
// normal property
- property AbstractNumId read ReadXmlChildAbstractNumId;
+ property AbstractNumId read ReadXmlChildAbstractNumId write WriteXmlChildAbstractNumId;
function ReadXmlChildAbstractNumId(): PureWVal;
+ function WriteXmlChildAbstractNumId(_p1: any; _p2: any);
public
// Attributes
@@ -4003,26 +4542,32 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: AbstractNum);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property AbstractNumId read ReadXmlAttrAbstractNumId write WriteXmlAttrAbstractNumId;
property RestartNumberingAfterBreak read ReadXmlAttrRestartNumberingAfterBreak write WriteXmlAttrRestartNumberingAfterBreak;
function ReadXmlAttrAbstractNumId();
- function WriteXmlAttrAbstractNumId(_value);
+ function WriteXmlAttrAbstractNumId(_value: any);
function ReadXmlAttrRestartNumberingAfterBreak();
- function WriteXmlAttrRestartNumberingAfterBreak(_value);
+ function WriteXmlAttrRestartNumberingAfterBreak(_value: any);
// normal property
- property Nsid read ReadXmlChildNsid;
- property MultiLevelType read ReadXmlChildMultiLevelType;
- property Tmpl read ReadXmlChildTmpl;
+ property Nsid read ReadXmlChildNsid write WriteXmlChildNsid;
+ property MultiLevelType read ReadXmlChildMultiLevelType write WriteXmlChildMultiLevelType;
+ property Tmpl read ReadXmlChildTmpl write WriteXmlChildTmpl;
function ReadXmlChildNsid(): PureWVal;
+ function WriteXmlChildNsid(_p1: any; _p2: any);
function ReadXmlChildMultiLevelType(): PureWVal;
+ function WriteXmlChildMultiLevelType(_p1: any; _p2: any);
function ReadXmlChildTmpl(): PureWVal;
+ function WriteXmlChildTmpl(_p1: any; _p2: any);
// multi property
- property Lvls read ReadLvls;
- function ReadLvls(_index);
+ property Lvls read ReadLvls write WriteLvls;
+ function ReadLvls(_index: integer);
+ function WriteLvls(_index: integer; _value: nil_OR_Lvl);
function AddLvl(): Lvl;
function AppendLvl(): Lvl;
@@ -4044,32 +4589,42 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Lvl);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Ilvl read ReadXmlAttrIlvl write WriteXmlAttrIlvl;
property Tentative read ReadXmlAttrTentative write WriteXmlAttrTentative;
function ReadXmlAttrIlvl();
- function WriteXmlAttrIlvl(_value);
+ function WriteXmlAttrIlvl(_value: any);
function ReadXmlAttrTentative();
- function WriteXmlAttrTentative(_value);
+ function WriteXmlAttrTentative(_value: any);
// 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;
+ property Start read ReadXmlChildStart write WriteXmlChildStart;
+ property NumFmt read ReadXmlChildNumFmt write WriteXmlChildNumFmt;
+ property PStyle read ReadXmlChildPStyle write WriteXmlChildPStyle;
+ property Suff read ReadXmlChildSuff write WriteXmlChildSuff;
+ property LvlText read ReadXmlChildLvlText write WriteXmlChildLvlText;
+ property LvlJc read ReadXmlChildLvlJc write WriteXmlChildLvlJc;
+ property PPr read ReadXmlChildPPr write WriteXmlChildPPr;
+ property RPr read ReadXmlChildRPr write WriteXmlChildRPr;
function ReadXmlChildStart(): PureWVal;
+ function WriteXmlChildStart(_p1: any; _p2: any);
function ReadXmlChildNumFmt(): PureWVal;
+ function WriteXmlChildNumFmt(_p1: any; _p2: any);
function ReadXmlChildPStyle(): PureWVal;
+ function WriteXmlChildPStyle(_p1: any; _p2: any);
function ReadXmlChildSuff(): PureWVal;
+ function WriteXmlChildSuff(_p1: any; _p2: any);
function ReadXmlChildLvlText(): PureWVal;
+ function WriteXmlChildLvlText(_p1: any; _p2: any);
function ReadXmlChildLvlJc(): PureWVal;
+ function WriteXmlChildLvlJc(_p1: any; _p2: any);
function ReadXmlChildPPr(): PPr;
+ function WriteXmlChildPPr(_p1: any; _p2: any);
function ReadXmlChildRPr(): RPr;
+ function WriteXmlChildRPr(_p1: any; _p2: any);
public
// Attributes
@@ -4096,13 +4651,13 @@ end;
function Properties.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Properties.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Properties.Init();override;
@@ -4172,6 +4727,26 @@ begin
tslassigning := tslassigning_backup;
end;
+function Properties.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildTemplate) then
+ if not ifnil({self.}XmlChildTotalTime) then
+ if not ifnil({self.}XmlChildPages) then
+ if not ifnil({self.}XmlChildWords) then
+ if not ifnil({self.}XmlChildCharacters) then
+ if not ifnil({self.}XmlChildApplication) then
+ if not ifnil({self.}XmlChildDocSecurity) then
+ if not ifnil({self.}XmlChildLines) then
+ if not ifnil({self.}XmlChildParagraphs) then
+ if not ifnil({self.}XmlChildScaleCrop) then
+ if not ifnil({self.}XmlChildCompany) then
+ if not ifnil({self.}XmlChildLinksUpToDate) then
+ if not ifnil({self.}XmlChildCharactersWithSpaces) then
+ if not ifnil({self.}XmlChildSharedDoc) then
+ if not ifnil({self.}XmlChildHyperlinksChanged) then
+ if not ifnil({self.}XmlChildAppVersion) then
+end;
+
function Properties.ReadXmlChildTemplate();
begin
if tslassigning and (ifnil({self.}XmlChildTemplate) or {self.}XmlChildTemplate.Removed) then
@@ -4179,7 +4754,24 @@ begin
{self.}XmlChildTemplate := new OpenXmlTextElement(self, "", "Template");
container_.Set({self.}XmlChildTemplate);
end
- return {self.}XmlChildTemplate;
+ return {self.}XmlChildTemplate and not {self.}XmlChildTemplate.Removed ? {self.}XmlChildTemplate : fallback_.XmlChildTemplate;
+end;
+
+function Properties.WriteXmlChildTemplate(_value: nil_or_OpenXmlTextElement);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildTemplate) then
+ {self.}RemoveChild({self.}XmlChildTemplate);
+ end
+ else if _value is class(OpenXmlTextElement) then
+ begin
+ {self.}XmlChildTemplate := _value;
+ container_.Set({self.}XmlChildTemplate);
+ end
+ else begin
+ raise "Invalid assignment: Template expects nil or OpenXmlTextElement";
+ end
end;
function Properties.ReadXmlChildTotalTime();
@@ -4189,7 +4781,24 @@ begin
{self.}XmlChildTotalTime := new OpenXmlTextElement(self, "", "TotalTime");
container_.Set({self.}XmlChildTotalTime);
end
- return {self.}XmlChildTotalTime;
+ return {self.}XmlChildTotalTime and not {self.}XmlChildTotalTime.Removed ? {self.}XmlChildTotalTime : fallback_.XmlChildTotalTime;
+end;
+
+function Properties.WriteXmlChildTotalTime(_value: nil_or_OpenXmlTextElement);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildTotalTime) then
+ {self.}RemoveChild({self.}XmlChildTotalTime);
+ end
+ else if _value is class(OpenXmlTextElement) then
+ begin
+ {self.}XmlChildTotalTime := _value;
+ container_.Set({self.}XmlChildTotalTime);
+ end
+ else begin
+ raise "Invalid assignment: TotalTime expects nil or OpenXmlTextElement";
+ end
end;
function Properties.ReadXmlChildPages();
@@ -4199,7 +4808,24 @@ begin
{self.}XmlChildPages := new OpenXmlTextElement(self, "", "Pages");
container_.Set({self.}XmlChildPages);
end
- return {self.}XmlChildPages;
+ return {self.}XmlChildPages and not {self.}XmlChildPages.Removed ? {self.}XmlChildPages : fallback_.XmlChildPages;
+end;
+
+function Properties.WriteXmlChildPages(_value: nil_or_OpenXmlTextElement);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildPages) then
+ {self.}RemoveChild({self.}XmlChildPages);
+ end
+ else if _value is class(OpenXmlTextElement) then
+ begin
+ {self.}XmlChildPages := _value;
+ container_.Set({self.}XmlChildPages);
+ end
+ else begin
+ raise "Invalid assignment: Pages expects nil or OpenXmlTextElement";
+ end
end;
function Properties.ReadXmlChildWords();
@@ -4209,7 +4835,24 @@ begin
{self.}XmlChildWords := new OpenXmlTextElement(self, "", "Words");
container_.Set({self.}XmlChildWords);
end
- return {self.}XmlChildWords;
+ return {self.}XmlChildWords and not {self.}XmlChildWords.Removed ? {self.}XmlChildWords : fallback_.XmlChildWords;
+end;
+
+function Properties.WriteXmlChildWords(_value: nil_or_OpenXmlTextElement);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildWords) then
+ {self.}RemoveChild({self.}XmlChildWords);
+ end
+ else if _value is class(OpenXmlTextElement) then
+ begin
+ {self.}XmlChildWords := _value;
+ container_.Set({self.}XmlChildWords);
+ end
+ else begin
+ raise "Invalid assignment: Words expects nil or OpenXmlTextElement";
+ end
end;
function Properties.ReadXmlChildCharacters();
@@ -4219,7 +4862,24 @@ begin
{self.}XmlChildCharacters := new OpenXmlTextElement(self, "", "Characters");
container_.Set({self.}XmlChildCharacters);
end
- return {self.}XmlChildCharacters;
+ return {self.}XmlChildCharacters and not {self.}XmlChildCharacters.Removed ? {self.}XmlChildCharacters : fallback_.XmlChildCharacters;
+end;
+
+function Properties.WriteXmlChildCharacters(_value: nil_or_OpenXmlTextElement);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildCharacters) then
+ {self.}RemoveChild({self.}XmlChildCharacters);
+ end
+ else if _value is class(OpenXmlTextElement) then
+ begin
+ {self.}XmlChildCharacters := _value;
+ container_.Set({self.}XmlChildCharacters);
+ end
+ else begin
+ raise "Invalid assignment: Characters expects nil or OpenXmlTextElement";
+ end
end;
function Properties.ReadXmlChildApplication();
@@ -4229,7 +4889,24 @@ begin
{self.}XmlChildApplication := new OpenXmlTextElement(self, "", "Application");
container_.Set({self.}XmlChildApplication);
end
- return {self.}XmlChildApplication;
+ return {self.}XmlChildApplication and not {self.}XmlChildApplication.Removed ? {self.}XmlChildApplication : fallback_.XmlChildApplication;
+end;
+
+function Properties.WriteXmlChildApplication(_value: nil_or_OpenXmlTextElement);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildApplication) then
+ {self.}RemoveChild({self.}XmlChildApplication);
+ end
+ else if _value is class(OpenXmlTextElement) then
+ begin
+ {self.}XmlChildApplication := _value;
+ container_.Set({self.}XmlChildApplication);
+ end
+ else begin
+ raise "Invalid assignment: Application expects nil or OpenXmlTextElement";
+ end
end;
function Properties.ReadXmlChildDocSecurity();
@@ -4239,7 +4916,24 @@ begin
{self.}XmlChildDocSecurity := new OpenXmlTextElement(self, "", "DocSecurity");
container_.Set({self.}XmlChildDocSecurity);
end
- return {self.}XmlChildDocSecurity;
+ return {self.}XmlChildDocSecurity and not {self.}XmlChildDocSecurity.Removed ? {self.}XmlChildDocSecurity : fallback_.XmlChildDocSecurity;
+end;
+
+function Properties.WriteXmlChildDocSecurity(_value: nil_or_OpenXmlTextElement);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildDocSecurity) then
+ {self.}RemoveChild({self.}XmlChildDocSecurity);
+ end
+ else if _value is class(OpenXmlTextElement) then
+ begin
+ {self.}XmlChildDocSecurity := _value;
+ container_.Set({self.}XmlChildDocSecurity);
+ end
+ else begin
+ raise "Invalid assignment: DocSecurity expects nil or OpenXmlTextElement";
+ end
end;
function Properties.ReadXmlChildLines();
@@ -4249,7 +4943,24 @@ begin
{self.}XmlChildLines := new OpenXmlTextElement(self, "", "Lines");
container_.Set({self.}XmlChildLines);
end
- return {self.}XmlChildLines;
+ return {self.}XmlChildLines and not {self.}XmlChildLines.Removed ? {self.}XmlChildLines : fallback_.XmlChildLines;
+end;
+
+function Properties.WriteXmlChildLines(_value: nil_or_OpenXmlTextElement);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildLines) then
+ {self.}RemoveChild({self.}XmlChildLines);
+ end
+ else if _value is class(OpenXmlTextElement) then
+ begin
+ {self.}XmlChildLines := _value;
+ container_.Set({self.}XmlChildLines);
+ end
+ else begin
+ raise "Invalid assignment: Lines expects nil or OpenXmlTextElement";
+ end
end;
function Properties.ReadXmlChildParagraphs();
@@ -4259,7 +4970,24 @@ begin
{self.}XmlChildParagraphs := new OpenXmlTextElement(self, "", "Paragraphs");
container_.Set({self.}XmlChildParagraphs);
end
- return {self.}XmlChildParagraphs;
+ return {self.}XmlChildParagraphs and not {self.}XmlChildParagraphs.Removed ? {self.}XmlChildParagraphs : fallback_.XmlChildParagraphs;
+end;
+
+function Properties.WriteXmlChildParagraphs(_value: nil_or_OpenXmlTextElement);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildParagraphs) then
+ {self.}RemoveChild({self.}XmlChildParagraphs);
+ end
+ else if _value is class(OpenXmlTextElement) then
+ begin
+ {self.}XmlChildParagraphs := _value;
+ container_.Set({self.}XmlChildParagraphs);
+ end
+ else begin
+ raise "Invalid assignment: Paragraphs expects nil or OpenXmlTextElement";
+ end
end;
function Properties.ReadXmlChildScaleCrop();
@@ -4269,7 +4997,24 @@ begin
{self.}XmlChildScaleCrop := new OpenXmlTextElement(self, "", "ScaleCrop");
container_.Set({self.}XmlChildScaleCrop);
end
- return {self.}XmlChildScaleCrop;
+ return {self.}XmlChildScaleCrop and not {self.}XmlChildScaleCrop.Removed ? {self.}XmlChildScaleCrop : fallback_.XmlChildScaleCrop;
+end;
+
+function Properties.WriteXmlChildScaleCrop(_value: nil_or_OpenXmlTextElement);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildScaleCrop) then
+ {self.}RemoveChild({self.}XmlChildScaleCrop);
+ end
+ else if _value is class(OpenXmlTextElement) then
+ begin
+ {self.}XmlChildScaleCrop := _value;
+ container_.Set({self.}XmlChildScaleCrop);
+ end
+ else begin
+ raise "Invalid assignment: ScaleCrop expects nil or OpenXmlTextElement";
+ end
end;
function Properties.ReadXmlChildCompany();
@@ -4279,7 +5024,24 @@ begin
{self.}XmlChildCompany := new OpenXmlTextElement(self, "", "Company");
container_.Set({self.}XmlChildCompany);
end
- return {self.}XmlChildCompany;
+ return {self.}XmlChildCompany and not {self.}XmlChildCompany.Removed ? {self.}XmlChildCompany : fallback_.XmlChildCompany;
+end;
+
+function Properties.WriteXmlChildCompany(_value: nil_or_OpenXmlTextElement);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildCompany) then
+ {self.}RemoveChild({self.}XmlChildCompany);
+ end
+ else if _value is class(OpenXmlTextElement) then
+ begin
+ {self.}XmlChildCompany := _value;
+ container_.Set({self.}XmlChildCompany);
+ end
+ else begin
+ raise "Invalid assignment: Company expects nil or OpenXmlTextElement";
+ end
end;
function Properties.ReadXmlChildLinksUpToDate();
@@ -4289,7 +5051,24 @@ begin
{self.}XmlChildLinksUpToDate := new OpenXmlTextElement(self, "", "LinksUpToDate");
container_.Set({self.}XmlChildLinksUpToDate);
end
- return {self.}XmlChildLinksUpToDate;
+ return {self.}XmlChildLinksUpToDate and not {self.}XmlChildLinksUpToDate.Removed ? {self.}XmlChildLinksUpToDate : fallback_.XmlChildLinksUpToDate;
+end;
+
+function Properties.WriteXmlChildLinksUpToDate(_value: nil_or_OpenXmlTextElement);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildLinksUpToDate) then
+ {self.}RemoveChild({self.}XmlChildLinksUpToDate);
+ end
+ else if _value is class(OpenXmlTextElement) then
+ begin
+ {self.}XmlChildLinksUpToDate := _value;
+ container_.Set({self.}XmlChildLinksUpToDate);
+ end
+ else begin
+ raise "Invalid assignment: LinksUpToDate expects nil or OpenXmlTextElement";
+ end
end;
function Properties.ReadXmlChildCharactersWithSpaces();
@@ -4299,7 +5078,24 @@ begin
{self.}XmlChildCharactersWithSpaces := new OpenXmlTextElement(self, "", "charactersWithSpaces");
container_.Set({self.}XmlChildCharactersWithSpaces);
end
- return {self.}XmlChildCharactersWithSpaces;
+ return {self.}XmlChildCharactersWithSpaces and not {self.}XmlChildCharactersWithSpaces.Removed ? {self.}XmlChildCharactersWithSpaces : fallback_.XmlChildCharactersWithSpaces;
+end;
+
+function Properties.WriteXmlChildCharactersWithSpaces(_value: nil_or_OpenXmlTextElement);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildCharactersWithSpaces) then
+ {self.}RemoveChild({self.}XmlChildCharactersWithSpaces);
+ end
+ else if _value is class(OpenXmlTextElement) then
+ begin
+ {self.}XmlChildCharactersWithSpaces := _value;
+ container_.Set({self.}XmlChildCharactersWithSpaces);
+ end
+ else begin
+ raise "Invalid assignment: CharactersWithSpaces expects nil or OpenXmlTextElement";
+ end
end;
function Properties.ReadXmlChildSharedDoc();
@@ -4309,7 +5105,24 @@ begin
{self.}XmlChildSharedDoc := new OpenXmlTextElement(self, "", "SharedDoc");
container_.Set({self.}XmlChildSharedDoc);
end
- return {self.}XmlChildSharedDoc;
+ return {self.}XmlChildSharedDoc and not {self.}XmlChildSharedDoc.Removed ? {self.}XmlChildSharedDoc : fallback_.XmlChildSharedDoc;
+end;
+
+function Properties.WriteXmlChildSharedDoc(_value: nil_or_OpenXmlTextElement);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildSharedDoc) then
+ {self.}RemoveChild({self.}XmlChildSharedDoc);
+ end
+ else if _value is class(OpenXmlTextElement) then
+ begin
+ {self.}XmlChildSharedDoc := _value;
+ container_.Set({self.}XmlChildSharedDoc);
+ end
+ else begin
+ raise "Invalid assignment: SharedDoc expects nil or OpenXmlTextElement";
+ end
end;
function Properties.ReadXmlChildHyperlinksChanged();
@@ -4319,7 +5132,24 @@ begin
{self.}XmlChildHyperlinksChanged := new OpenXmlTextElement(self, "", "HyperlinksChanged");
container_.Set({self.}XmlChildHyperlinksChanged);
end
- return {self.}XmlChildHyperlinksChanged;
+ return {self.}XmlChildHyperlinksChanged and not {self.}XmlChildHyperlinksChanged.Removed ? {self.}XmlChildHyperlinksChanged : fallback_.XmlChildHyperlinksChanged;
+end;
+
+function Properties.WriteXmlChildHyperlinksChanged(_value: nil_or_OpenXmlTextElement);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildHyperlinksChanged) then
+ {self.}RemoveChild({self.}XmlChildHyperlinksChanged);
+ end
+ else if _value is class(OpenXmlTextElement) then
+ begin
+ {self.}XmlChildHyperlinksChanged := _value;
+ container_.Set({self.}XmlChildHyperlinksChanged);
+ end
+ else begin
+ raise "Invalid assignment: HyperlinksChanged expects nil or OpenXmlTextElement";
+ end
end;
function Properties.ReadXmlChildAppVersion();
@@ -4329,7 +5159,24 @@ begin
{self.}XmlChildAppVersion := new OpenXmlTextElement(self, "", "AppVersion");
container_.Set({self.}XmlChildAppVersion);
end
- return {self.}XmlChildAppVersion;
+ return {self.}XmlChildAppVersion and not {self.}XmlChildAppVersion.Removed ? {self.}XmlChildAppVersion : fallback_.XmlChildAppVersion;
+end;
+
+function Properties.WriteXmlChildAppVersion(_value: nil_or_OpenXmlTextElement);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildAppVersion) then
+ {self.}RemoveChild({self.}XmlChildAppVersion);
+ end
+ else if _value is class(OpenXmlTextElement) then
+ begin
+ {self.}XmlChildAppVersion := _value;
+ container_.Set({self.}XmlChildAppVersion);
+ end
+ else begin
+ raise "Invalid assignment: AppVersion expects nil or OpenXmlTextElement";
+ end
end;
function Document.Create();overload;
@@ -4339,13 +5186,13 @@ end;
function Document.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Document.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Document.Init();override;
@@ -4373,17 +5220,23 @@ begin
tslassigning := tslassigning_backup;
end;
-function Document.ReadXmlAttrIgnorable();
+function Document.ConvertToPoint();override;
begin
- return {self.}XmlAttrIgnorable.Value;
+ if not ifnil({self.}XmlChildBody) then
+ {self.}XmlChildBody.ConvertToPoint();
end;
-function Document.WriteXmlAttrIgnorable(_value);
+function Document.ReadXmlAttrIgnorable();
+begin
+ return ifnil({self.}XmlAttrIgnorable.Value) ? fallback_.XmlAttrIgnorable.Value : {self.}XmlAttrIgnorable.Value;
+end;
+
+function Document.WriteXmlAttrIgnorable(_value: any);
begin
if ifnil({self.}XmlAttrIgnorable) then
begin
{self.}XmlAttrIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrIgnorable;
+ attributes_["mc:Ignorable"] := {self.}XmlAttrIgnorable;
end
{self.}XmlAttrIgnorable.Value := _value;
end;
@@ -4395,7 +5248,25 @@ begin
{self.}XmlChildBody := new Body(self, {self.}Prefix, "body");
container_.Set({self.}XmlChildBody);
end
- return {self.}XmlChildBody;
+ return {self.}XmlChildBody and not {self.}XmlChildBody.Removed ? {self.}XmlChildBody : fallback_.XmlChildBody;
+end;
+
+function Document.WriteXmlChildBody(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildBody) then
+ {self.}RemoveChild({self.}XmlChildBody);
+ end
+ else if v is class(Body) then
+ begin
+ {self.}XmlChildBody := v;
+ container_.Set({self.}XmlChildBody);
+ end
+ else begin
+ raise "Invalid assignment: Body expects Body or nil";
+ end
end;
function Body.Create();overload;
@@ -4405,13 +5276,13 @@ end;
function Body.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Body.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Body.Init();override;
@@ -4439,6 +5310,21 @@ begin
tslassigning := tslassigning_backup;
end;
+function Body.ConvertToPoint();override;
+begin
+ elems := {self.}Ps();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Tbls();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Sdts();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ if not ifnil({self.}XmlChildSectPr) then
+ {self.}XmlChildSectPr.ConvertToPoint();
+end;
+
function Body.ReadXmlChildSectPr(): SectPr;
begin
if tslassigning and (ifnil({self.}XmlChildSectPr) or {self.}XmlChildSectPr.Removed) then
@@ -4446,30 +5332,105 @@ begin
{self.}XmlChildSectPr := new SectPr(self, {self.}Prefix, "sectPr");
container_.Append({self.}XmlChildSectPr);
end
- return {self.}XmlChildSectPr;
+ return {self.}XmlChildSectPr and not {self.}XmlChildSectPr.Removed ? {self.}XmlChildSectPr : fallback_.XmlChildSectPr;
end;
-function Body.ReadPs(_index);
+function Body.WriteXmlChildSectPr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildSectPr) then
+ {self.}RemoveChild({self.}XmlChildSectPr);
+ end
+ else if v is class(SectPr) then
+ begin
+ {self.}XmlChildSectPr := v;
+ container_.Set({self.}XmlChildSectPr);
+ end
+ else begin
+ raise "Invalid assignment: SectPr expects SectPr or nil";
+ end
+end;
+
+function Body.ReadPs(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "p", ind);
end;
-function Body.ReadTbls(_index);
+function Body.WritePs(_index: integer; _value: nil_OR_P);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadPs(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "p", ind, _value) then
+ raise format("Index out of range: Ps[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Ps expects nil or P";
+ end
+end;
+
+function Body.ReadTbls(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "tbl", ind);
end;
-function Body.ReadSdts(_index);
+function Body.WriteTbls(_index: integer; _value: nil_OR_Tbl);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadTbls(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "tbl", ind, _value) then
+ raise format("Index out of range: Tbls[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Tbls expects nil or Tbl";
+ end
+end;
+
+function Body.ReadSdts(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "sdt", ind);
end;
+function Body.WriteSdts(_index: integer; _value: nil_OR_Sdt);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadSdts(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "sdt", ind, _value) then
+ raise format("Index out of range: Sdts[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Sdts expects nil or Sdt";
+ end
+end;
+
function Body.AddP(): P;
begin
obj := new P(self, {self.}Prefix, "p");
@@ -4519,13 +5480,13 @@ end;
function P.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function P.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function P.Init();override;
@@ -4588,92 +5549,130 @@ begin
tslassigning := tslassigning_backup;
end;
-function P.ReadXmlAttrParaId();
+function P.ConvertToPoint();override;
begin
- return {self.}XmlAttrParaId.Value;
+ if not ifnil({self.}XmlChildPPr) then
+ {self.}XmlChildPPr.ConvertToPoint();
+ elems := {self.}Sdts();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Rs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}CommentRangeStarts();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}CommentRangeEnds();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}BookmarkStarts();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}BookmarkEnds();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Hyperlinks();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}FldSimples();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ if not ifnil({self.}XmlChildOMathPara) then
+ {self.}XmlChildOMathPara.ConvertToPoint();
+ if not ifnil({self.}XmlChildOMath) then
+ {self.}XmlChildOMath.ConvertToPoint();
+ if not ifnil({self.}XmlChildIns) then
+ {self.}XmlChildIns.ConvertToPoint();
+ if not ifnil({self.}XmlChildDel) then
+ {self.}XmlChildDel.ConvertToPoint();
end;
-function P.WriteXmlAttrParaId(_value);
+function P.ReadXmlAttrParaId();
+begin
+ return ifnil({self.}XmlAttrParaId.Value) ? fallback_.XmlAttrParaId.Value : {self.}XmlAttrParaId.Value;
+end;
+
+function P.WriteXmlAttrParaId(_value: any);
begin
if ifnil({self.}XmlAttrParaId) then
begin
{self.}XmlAttrParaId := new OpenXmlAttribute("w14", "paraId", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrParaId;
+ attributes_["w14:paraId"] := {self.}XmlAttrParaId;
end
{self.}XmlAttrParaId.Value := _value;
end;
function P.ReadXmlAttrTextId();
begin
- return {self.}XmlAttrTextId.Value;
+ return ifnil({self.}XmlAttrTextId.Value) ? fallback_.XmlAttrTextId.Value : {self.}XmlAttrTextId.Value;
end;
-function P.WriteXmlAttrTextId(_value);
+function P.WriteXmlAttrTextId(_value: any);
begin
if ifnil({self.}XmlAttrTextId) then
begin
{self.}XmlAttrTextId := new OpenXmlAttribute("w14", "textId", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrTextId;
+ attributes_["w14:textId"] := {self.}XmlAttrTextId;
end
{self.}XmlAttrTextId.Value := _value;
end;
function P.ReadXmlAttrRsidR();
begin
- return {self.}XmlAttrRsidR.Value;
+ return ifnil({self.}XmlAttrRsidR.Value) ? fallback_.XmlAttrRsidR.Value : {self.}XmlAttrRsidR.Value;
end;
-function P.WriteXmlAttrRsidR(_value);
+function P.WriteXmlAttrRsidR(_value: any);
begin
if ifnil({self.}XmlAttrRsidR) then
begin
{self.}XmlAttrRsidR := new OpenXmlAttribute({self.}Prefix, "rsidR", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrRsidR;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "rsidR" : "rsidR"] := {self.}XmlAttrRsidR;
end
{self.}XmlAttrRsidR.Value := _value;
end;
function P.ReadXmlAttrRsidRPr();
begin
- return {self.}XmlAttrRsidRPr.Value;
+ return ifnil({self.}XmlAttrRsidRPr.Value) ? fallback_.XmlAttrRsidRPr.Value : {self.}XmlAttrRsidRPr.Value;
end;
-function P.WriteXmlAttrRsidRPr(_value);
+function P.WriteXmlAttrRsidRPr(_value: any);
begin
if ifnil({self.}XmlAttrRsidRPr) then
begin
{self.}XmlAttrRsidRPr := new OpenXmlAttribute({self.}Prefix, "rsidRPr", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrRsidRPr;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "rsidRPr" : "rsidRPr"] := {self.}XmlAttrRsidRPr;
end
{self.}XmlAttrRsidRPr.Value := _value;
end;
function P.ReadXmlAttrRsidRDefault();
begin
- return {self.}XmlAttrRsidRDefault.Value;
+ return ifnil({self.}XmlAttrRsidRDefault.Value) ? fallback_.XmlAttrRsidRDefault.Value : {self.}XmlAttrRsidRDefault.Value;
end;
-function P.WriteXmlAttrRsidRDefault(_value);
+function P.WriteXmlAttrRsidRDefault(_value: any);
begin
if ifnil({self.}XmlAttrRsidRDefault) then
begin
{self.}XmlAttrRsidRDefault := new OpenXmlAttribute({self.}Prefix, "rsidRDefault", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrRsidRDefault;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "rsidRDefault" : "rsidRDefault"] := {self.}XmlAttrRsidRDefault;
end
{self.}XmlAttrRsidRDefault.Value := _value;
end;
function P.ReadXmlAttrRsidP();
begin
- return {self.}XmlAttrRsidP.Value;
+ return ifnil({self.}XmlAttrRsidP.Value) ? fallback_.XmlAttrRsidP.Value : {self.}XmlAttrRsidP.Value;
end;
-function P.WriteXmlAttrRsidP(_value);
+function P.WriteXmlAttrRsidP(_value: any);
begin
if ifnil({self.}XmlAttrRsidP) then
begin
{self.}XmlAttrRsidP := new OpenXmlAttribute({self.}Prefix, "rsidP", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrRsidP;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "rsidP" : "rsidP"] := {self.}XmlAttrRsidP;
end
{self.}XmlAttrRsidP.Value := _value;
end;
@@ -4685,7 +5684,25 @@ begin
{self.}XmlChildPPr := new PPr(self, {self.}Prefix, "pPr");
container_.Set({self.}XmlChildPPr);
end
- return {self.}XmlChildPPr;
+ return {self.}XmlChildPPr and not {self.}XmlChildPPr.Removed ? {self.}XmlChildPPr : fallback_.XmlChildPPr;
+end;
+
+function P.WriteXmlChildPPr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildPPr) then
+ {self.}RemoveChild({self.}XmlChildPPr);
+ end
+ else if v is class(PPr) then
+ begin
+ {self.}XmlChildPPr := v;
+ container_.Set({self.}XmlChildPPr);
+ end
+ else begin
+ raise "Invalid assignment: PPr expects PPr or nil";
+ end
end;
function P.ReadXmlChildOMathPara(): OMathPara;
@@ -4695,7 +5712,25 @@ begin
{self.}XmlChildOMathPara := new SharedML.OMathPara(self, "m", "oMathPara");
container_.Set({self.}XmlChildOMathPara);
end
- return {self.}XmlChildOMathPara;
+ return {self.}XmlChildOMathPara and not {self.}XmlChildOMathPara.Removed ? {self.}XmlChildOMathPara : fallback_.XmlChildOMathPara;
+end;
+
+function P.WriteXmlChildOMathPara(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildOMathPara) then
+ {self.}RemoveChild({self.}XmlChildOMathPara);
+ end
+ else if v is class(OMathPara) then
+ begin
+ {self.}XmlChildOMathPara := v;
+ container_.Set({self.}XmlChildOMathPara);
+ end
+ else begin
+ raise "Invalid assignment: OMathPara expects OMathPara or nil";
+ end
end;
function P.ReadXmlChildOMath(): OMath;
@@ -4705,7 +5740,25 @@ begin
{self.}XmlChildOMath := new SharedML.OMath(self, "m", "oMath");
container_.Set({self.}XmlChildOMath);
end
- return {self.}XmlChildOMath;
+ return {self.}XmlChildOMath and not {self.}XmlChildOMath.Removed ? {self.}XmlChildOMath : fallback_.XmlChildOMath;
+end;
+
+function P.WriteXmlChildOMath(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildOMath) then
+ {self.}RemoveChild({self.}XmlChildOMath);
+ end
+ else if v is class(OMath) then
+ begin
+ {self.}XmlChildOMath := v;
+ container_.Set({self.}XmlChildOMath);
+ end
+ else begin
+ raise "Invalid assignment: OMath expects OMath or nil";
+ end
end;
function P.ReadXmlChildIns(): Ins;
@@ -4715,7 +5768,25 @@ begin
{self.}XmlChildIns := new Ins(self, {self.}Prefix, "ins");
container_.Set({self.}XmlChildIns);
end
- return {self.}XmlChildIns;
+ return {self.}XmlChildIns and not {self.}XmlChildIns.Removed ? {self.}XmlChildIns : fallback_.XmlChildIns;
+end;
+
+function P.WriteXmlChildIns(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildIns) then
+ {self.}RemoveChild({self.}XmlChildIns);
+ end
+ else if v is class(Ins) then
+ begin
+ {self.}XmlChildIns := v;
+ container_.Set({self.}XmlChildIns);
+ end
+ else begin
+ raise "Invalid assignment: Ins expects Ins or nil";
+ end
end;
function P.ReadXmlChildDel(): Del;
@@ -4725,65 +5796,235 @@ begin
{self.}XmlChildDel := new Del(self, {self.}Prefix, "del");
container_.Set({self.}XmlChildDel);
end
- return {self.}XmlChildDel;
+ return {self.}XmlChildDel and not {self.}XmlChildDel.Removed ? {self.}XmlChildDel : fallback_.XmlChildDel;
end;
-function P.ReadSdts(_index);
+function P.WriteXmlChildDel(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildDel) then
+ {self.}RemoveChild({self.}XmlChildDel);
+ end
+ else if v is class(Del) then
+ begin
+ {self.}XmlChildDel := v;
+ container_.Set({self.}XmlChildDel);
+ end
+ else begin
+ raise "Invalid assignment: Del expects Del or nil";
+ end
+end;
+
+function P.ReadSdts(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "sdt", ind);
end;
-function P.ReadRs(_index);
+function P.WriteSdts(_index: integer; _value: nil_OR_Sdt);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadSdts(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "sdt", ind, _value) then
+ raise format("Index out of range: Sdts[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Sdts expects nil or Sdt";
+ end
+end;
+
+function P.ReadRs(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "r", ind);
end;
-function P.ReadCommentRangeStarts(_index);
+function P.WriteRs(_index: integer; _value: nil_OR_R);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadRs(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "r", ind, _value) then
+ raise format("Index out of range: Rs[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Rs expects nil or R";
+ end
+end;
+
+function P.ReadCommentRangeStarts(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "commentRangeStart", ind);
end;
-function P.ReadCommentRangeEnds(_index);
+function P.WriteCommentRangeStarts(_index: integer; _value: nil_OR_CommentRange);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadCommentRangeStarts(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "commentRangeStart", ind, _value) then
+ raise format("Index out of range: CommentRangeStarts[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: CommentRangeStarts expects nil or CommentRange";
+ end
+end;
+
+function P.ReadCommentRangeEnds(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "commentRangeEnd", ind);
end;
-function P.ReadBookmarkStarts(_index);
+function P.WriteCommentRangeEnds(_index: integer; _value: nil_OR_CommentRange);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadCommentRangeEnds(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "commentRangeEnd", ind, _value) then
+ raise format("Index out of range: CommentRangeEnds[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: CommentRangeEnds expects nil or CommentRange";
+ end
+end;
+
+function P.ReadBookmarkStarts(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "bookmarkStart", ind);
end;
-function P.ReadBookmarkEnds(_index);
+function P.WriteBookmarkStarts(_index: integer; _value: nil_OR_Bookmark);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadBookmarkStarts(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "bookmarkStart", ind, _value) then
+ raise format("Index out of range: BookmarkStarts[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: BookmarkStarts expects nil or Bookmark";
+ end
+end;
+
+function P.ReadBookmarkEnds(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "bookmarkEnd", ind);
end;
-function P.ReadHyperlinks(_index);
+function P.WriteBookmarkEnds(_index: integer; _value: nil_OR_Bookmark);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadBookmarkEnds(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "bookmarkEnd", ind, _value) then
+ raise format("Index out of range: BookmarkEnds[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: BookmarkEnds expects nil or Bookmark";
+ end
+end;
+
+function P.ReadHyperlinks(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "hyperlink", ind);
end;
-function P.ReadFldSimples(_index);
+function P.WriteHyperlinks(_index: integer; _value: nil_OR_HyperLink);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadHyperlinks(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "hyperlink", ind, _value) then
+ raise format("Index out of range: Hyperlinks[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Hyperlinks expects nil or HyperLink";
+ end
+end;
+
+function P.ReadFldSimples(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "fldSimple", ind);
end;
+function P.WriteFldSimples(_index: integer; _value: nil_OR_FldSimple);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadFldSimples(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "fldSimple", ind, _value) then
+ raise format("Index out of range: FldSimples[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: FldSimples expects nil or FldSimple";
+ end
+end;
+
function P.AddSdt(): Sdt;
begin
obj := new Sdt(self, {self.}Prefix, "sdt");
@@ -4903,13 +6144,13 @@ end;
function FldSimple.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function FldSimple.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function FldSimple.Init();override;
@@ -4941,58 +6182,84 @@ begin
tslassigning := tslassigning_backup;
end;
-function FldSimple.ReadXmlAttrDirty();
+function FldSimple.ConvertToPoint();override;
begin
- return {self.}XmlAttrDirty.Value;
+ elems := {self.}Rs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
end;
-function FldSimple.WriteXmlAttrDirty(_value);
+function FldSimple.ReadXmlAttrDirty();
+begin
+ return ifnil({self.}XmlAttrDirty.Value) ? fallback_.XmlAttrDirty.Value : {self.}XmlAttrDirty.Value;
+end;
+
+function FldSimple.WriteXmlAttrDirty(_value: any);
begin
if ifnil({self.}XmlAttrDirty) then
begin
{self.}XmlAttrDirty := new OpenXmlAttribute({self.}Prefix, "dirty", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrDirty;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "dirty" : "dirty"] := {self.}XmlAttrDirty;
end
{self.}XmlAttrDirty.Value := _value;
end;
function FldSimple.ReadXmlAttrFldLock();
begin
- return {self.}XmlAttrFldLock.Value;
+ return ifnil({self.}XmlAttrFldLock.Value) ? fallback_.XmlAttrFldLock.Value : {self.}XmlAttrFldLock.Value;
end;
-function FldSimple.WriteXmlAttrFldLock(_value);
+function FldSimple.WriteXmlAttrFldLock(_value: any);
begin
if ifnil({self.}XmlAttrFldLock) then
begin
{self.}XmlAttrFldLock := new OpenXmlAttribute({self.}Prefix, "fldLock", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrFldLock;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "fldLock" : "fldLock"] := {self.}XmlAttrFldLock;
end
{self.}XmlAttrFldLock.Value := _value;
end;
function FldSimple.ReadXmlAttrInstr();
begin
- return {self.}XmlAttrInstr.Value;
+ return ifnil({self.}XmlAttrInstr.Value) ? fallback_.XmlAttrInstr.Value : {self.}XmlAttrInstr.Value;
end;
-function FldSimple.WriteXmlAttrInstr(_value);
+function FldSimple.WriteXmlAttrInstr(_value: any);
begin
if ifnil({self.}XmlAttrInstr) then
begin
{self.}XmlAttrInstr := new OpenXmlAttribute({self.}Prefix, "instr", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrInstr;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "instr" : "instr"] := {self.}XmlAttrInstr;
end
{self.}XmlAttrInstr.Value := _value;
end;
-function FldSimple.ReadRs(_index);
+function FldSimple.ReadRs(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "r", ind);
end;
+function FldSimple.WriteRs(_index: integer; _value: nil_OR_R);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadRs(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "r", ind, _value) then
+ raise format("Index out of range: Rs[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Rs expects nil or R";
+ end
+end;
+
function FldSimple.AddR(): R;
begin
obj := new R(self, {self.}Prefix, "r");
@@ -5014,13 +6281,13 @@ end;
function CommentRange.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function CommentRange.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function CommentRange.Init();override;
@@ -5045,17 +6312,22 @@ begin
tslassigning := tslassigning_backup;
end;
-function CommentRange.ReadXmlAttrId();
+function CommentRange.ConvertToPoint();override;
begin
- return {self.}XmlAttrId.Value;
+
end;
-function CommentRange.WriteXmlAttrId(_value);
+function CommentRange.ReadXmlAttrId();
+begin
+ return ifnil({self.}XmlAttrId.Value) ? fallback_.XmlAttrId.Value : {self.}XmlAttrId.Value;
+end;
+
+function CommentRange.WriteXmlAttrId(_value: any);
begin
if ifnil({self.}XmlAttrId) then
begin
{self.}XmlAttrId := new OpenXmlAttribute({self.}Prefix, "id", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrId;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "id" : "id"] := {self.}XmlAttrId;
end
{self.}XmlAttrId.Value := _value;
end;
@@ -5067,13 +6339,13 @@ end;
function HyperLink.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function HyperLink.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function HyperLink.Init();override;
@@ -5105,58 +6377,84 @@ begin
tslassigning := tslassigning_backup;
end;
-function HyperLink.ReadXmlAttrAnchor();
+function HyperLink.ConvertToPoint();override;
begin
- return {self.}XmlAttrAnchor.Value;
+ elems := {self.}Rs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
end;
-function HyperLink.WriteXmlAttrAnchor(_value);
+function HyperLink.ReadXmlAttrAnchor();
+begin
+ return ifnil({self.}XmlAttrAnchor.Value) ? fallback_.XmlAttrAnchor.Value : {self.}XmlAttrAnchor.Value;
+end;
+
+function HyperLink.WriteXmlAttrAnchor(_value: any);
begin
if ifnil({self.}XmlAttrAnchor) then
begin
{self.}XmlAttrAnchor := new OpenXmlAttribute({self.}Prefix, "anchor", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrAnchor;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "anchor" : "anchor"] := {self.}XmlAttrAnchor;
end
{self.}XmlAttrAnchor.Value := _value;
end;
function HyperLink.ReadXmlAttrId();
begin
- return {self.}XmlAttrId.Value;
+ return ifnil({self.}XmlAttrId.Value) ? fallback_.XmlAttrId.Value : {self.}XmlAttrId.Value;
end;
-function HyperLink.WriteXmlAttrId(_value);
+function HyperLink.WriteXmlAttrId(_value: any);
begin
if ifnil({self.}XmlAttrId) then
begin
{self.}XmlAttrId := new OpenXmlAttribute("r", "id", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrId;
+ attributes_["r:id"] := {self.}XmlAttrId;
end
{self.}XmlAttrId.Value := _value;
end;
function HyperLink.ReadXmlAttrHistory();
begin
- return {self.}XmlAttrHistory.Value;
+ return ifnil({self.}XmlAttrHistory.Value) ? fallback_.XmlAttrHistory.Value : {self.}XmlAttrHistory.Value;
end;
-function HyperLink.WriteXmlAttrHistory(_value);
+function HyperLink.WriteXmlAttrHistory(_value: any);
begin
if ifnil({self.}XmlAttrHistory) then
begin
{self.}XmlAttrHistory := new OpenXmlAttribute({self.}Prefix, "history", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrHistory;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "history" : "history"] := {self.}XmlAttrHistory;
end
{self.}XmlAttrHistory.Value := _value;
end;
-function HyperLink.ReadRs(_index);
+function HyperLink.ReadRs(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "r", ind);
end;
+function HyperLink.WriteRs(_index: integer; _value: nil_OR_R);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadRs(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "r", ind, _value) then
+ raise format("Index out of range: Rs[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Rs expects nil or R";
+ end
+end;
+
function HyperLink.AddR(): R;
begin
obj := new R(self, {self.}Prefix, "r");
@@ -5178,13 +6476,13 @@ end;
function Bookmark.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Bookmark.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Bookmark.Init();override;
@@ -5212,32 +6510,37 @@ begin
tslassigning := tslassigning_backup;
end;
-function Bookmark.ReadXmlAttrName();
+function Bookmark.ConvertToPoint();override;
begin
- return {self.}XmlAttrName.Value;
+
end;
-function Bookmark.WriteXmlAttrName(_value);
+function Bookmark.ReadXmlAttrName();
+begin
+ return ifnil({self.}XmlAttrName.Value) ? fallback_.XmlAttrName.Value : {self.}XmlAttrName.Value;
+end;
+
+function Bookmark.WriteXmlAttrName(_value: any);
begin
if ifnil({self.}XmlAttrName) then
begin
{self.}XmlAttrName := new OpenXmlAttribute({self.}Prefix, "name", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrName;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "name" : "name"] := {self.}XmlAttrName;
end
{self.}XmlAttrName.Value := _value;
end;
function Bookmark.ReadXmlAttrId();
begin
- return {self.}XmlAttrId.Value;
+ return ifnil({self.}XmlAttrId.Value) ? fallback_.XmlAttrId.Value : {self.}XmlAttrId.Value;
end;
-function Bookmark.WriteXmlAttrId(_value);
+function Bookmark.WriteXmlAttrId(_value: any);
begin
if ifnil({self.}XmlAttrId) then
begin
{self.}XmlAttrId := new OpenXmlAttribute({self.}Prefix, "id", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrId;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "id" : "id"] := {self.}XmlAttrId;
end
{self.}XmlAttrId.Value := _value;
end;
@@ -5249,13 +6552,13 @@ end;
function PPr.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function PPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function PPr.Init();override;
@@ -5300,6 +6603,7 @@ begin
pre + "topLinePunct": array(32, makeweakref(thisFunction(ReadXmlChildTopLinePunct))),
pre + "textAlignment": array(33, makeweakref(thisFunction(ReadXmlChildTextAlignment))),
pre + "textDirection": array(34, makeweakref(thisFunction(ReadXmlChildTextDirection))),
+ "w15:wordWrap": array(35, makeweakref(thisFunction(ReadXmlChildCollapsed))),
);
container_ := new TSOfficeContainer(sorted_child_);
end;
@@ -5379,9 +6683,65 @@ begin
{self.}TextAlignment.Copy(_obj.XmlChildTextAlignment);
if not ifnil(_obj.XmlChildTextDirection) then
{self.}TextDirection.Copy(_obj.XmlChildTextDirection);
+ if not ifnil(_obj.XmlChildCollapsed) then
+ {self.}Collapsed.Copy(_obj.XmlChildCollapsed);
tslassigning := tslassigning_backup;
end;
+function PPr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildSectPr) then
+ {self.}XmlChildSectPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildTabs) then
+ {self.}XmlChildTabs.ConvertToPoint();
+ if not ifnil({self.}XmlChildPStyle) then
+ {self.}XmlChildPStyle.ConvertToPoint();
+ if not ifnil({self.}XmlChildNumPr) then
+ {self.}XmlChildNumPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildJc) then
+ {self.}XmlChildJc.ConvertToPoint();
+ if not ifnil({self.}XmlChildInd) then
+ {self.}XmlChildInd.ConvertToPoint();
+ if not ifnil({self.}XmlChildKinsoku) then
+ {self.}XmlChildKinsoku.ConvertToPoint();
+ if not ifnil({self.}XmlChildOverflowPunct) then
+ {self.}XmlChildOverflowPunct.ConvertToPoint();
+ if not ifnil({self.}XmlChildAdjustRightInd) then
+ {self.}XmlChildAdjustRightInd.ConvertToPoint();
+ if not ifnil({self.}XmlChildSpacing) then
+ {self.}XmlChildSpacing.ConvertToPoint();
+ if not ifnil({self.}XmlChildOutlineLvl) then
+ {self.}XmlChildOutlineLvl.ConvertToPoint();
+ if not ifnil({self.}XmlChildAutoSpaceDE) then
+ {self.}XmlChildAutoSpaceDE.ConvertToPoint();
+ if not ifnil({self.}XmlChildAutoSpaceDN) then
+ {self.}XmlChildAutoSpaceDN.ConvertToPoint();
+ if not ifnil({self.}XmlChildRPr) then
+ {self.}XmlChildRPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildPBdr) then
+ {self.}XmlChildPBdr.ConvertToPoint();
+ if not ifnil({self.}XmlChildShd) then
+ {self.}XmlChildShd.ConvertToPoint();
+ if not ifnil({self.}XmlChildWordWrap) then
+ {self.}XmlChildWordWrap.ConvertToPoint();
+ if not ifnil({self.}XmlChildDivId) then
+ {self.}XmlChildDivId.ConvertToPoint();
+ if not ifnil({self.}XmlChildCnfStyle) then
+ {self.}XmlChildCnfStyle.ConvertToPoint();
+ if not ifnil({self.}XmlChildFramePr) then
+ {self.}XmlChildFramePr.ConvertToPoint();
+ if not ifnil({self.}XmlChildTextboxTightWrap) then
+ {self.}XmlChildTextboxTightWrap.ConvertToPoint();
+ if not ifnil({self.}XmlChildTopLinePunct) then
+ {self.}XmlChildTopLinePunct.ConvertToPoint();
+ if not ifnil({self.}XmlChildTextAlignment) then
+ {self.}XmlChildTextAlignment.ConvertToPoint();
+ if not ifnil({self.}XmlChildTextDirection) then
+ {self.}XmlChildTextDirection.ConvertToPoint();
+ if not ifnil({self.}XmlChildCollapsed) then
+ {self.}XmlChildCollapsed.ConvertToPoint();
+end;
+
function PPr.ReadXmlChildBidi();
begin
if tslassigning and (ifnil({self.}XmlChildBidi) or {self.}XmlChildBidi.Removed) then
@@ -5389,7 +6749,24 @@ begin
{self.}XmlChildBidi := new OpenXmlSimpleType(self, {self.}Prefix, "bidi");
container_.Set({self.}XmlChildBidi);
end
- return {self.}XmlChildBidi;
+ return {self.}XmlChildBidi and not {self.}XmlChildBidi.Removed ? {self.}XmlChildBidi : fallback_.XmlChildBidi;
+end;
+
+function PPr.WriteXmlChildBidi(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildBidi) then
+ {self.}RemoveChild({self.}XmlChildBidi);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildBidi := _value;
+ container_.Set({self.}XmlChildBidi);
+ end
+ else begin
+ raise "Invalid assignment: Bidi expects nil or OpenXmlSimpleType";
+ end
end;
function PPr.ReadXmlChildWidowControl();
@@ -5399,7 +6776,24 @@ begin
{self.}XmlChildWidowControl := new OpenXmlSimpleType(self, {self.}Prefix, "widowControl");
container_.Set({self.}XmlChildWidowControl);
end
- return {self.}XmlChildWidowControl;
+ return {self.}XmlChildWidowControl and not {self.}XmlChildWidowControl.Removed ? {self.}XmlChildWidowControl : fallback_.XmlChildWidowControl;
+end;
+
+function PPr.WriteXmlChildWidowControl(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildWidowControl) then
+ {self.}RemoveChild({self.}XmlChildWidowControl);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildWidowControl := _value;
+ container_.Set({self.}XmlChildWidowControl);
+ end
+ else begin
+ raise "Invalid assignment: WidowControl expects nil or OpenXmlSimpleType";
+ end
end;
function PPr.ReadXmlChildSnapToGrid();
@@ -5409,7 +6803,24 @@ begin
{self.}XmlChildSnapToGrid := new OpenXmlSimpleType(self, {self.}Prefix, "snapToGrid");
container_.Set({self.}XmlChildSnapToGrid);
end
- return {self.}XmlChildSnapToGrid;
+ return {self.}XmlChildSnapToGrid and not {self.}XmlChildSnapToGrid.Removed ? {self.}XmlChildSnapToGrid : fallback_.XmlChildSnapToGrid;
+end;
+
+function PPr.WriteXmlChildSnapToGrid(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildSnapToGrid) then
+ {self.}RemoveChild({self.}XmlChildSnapToGrid);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildSnapToGrid := _value;
+ container_.Set({self.}XmlChildSnapToGrid);
+ end
+ else begin
+ raise "Invalid assignment: SnapToGrid expects nil or OpenXmlSimpleType";
+ end
end;
function PPr.ReadXmlChildKeepNext();
@@ -5419,7 +6830,24 @@ begin
{self.}XmlChildKeepNext := new OpenXmlSimpleType(self, {self.}Prefix, "keepNext");
container_.Set({self.}XmlChildKeepNext);
end
- return {self.}XmlChildKeepNext;
+ return {self.}XmlChildKeepNext and not {self.}XmlChildKeepNext.Removed ? {self.}XmlChildKeepNext : fallback_.XmlChildKeepNext;
+end;
+
+function PPr.WriteXmlChildKeepNext(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildKeepNext) then
+ {self.}RemoveChild({self.}XmlChildKeepNext);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildKeepNext := _value;
+ container_.Set({self.}XmlChildKeepNext);
+ end
+ else begin
+ raise "Invalid assignment: KeepNext expects nil or OpenXmlSimpleType";
+ end
end;
function PPr.ReadXmlChildKeepLines();
@@ -5429,7 +6857,24 @@ begin
{self.}XmlChildKeepLines := new OpenXmlSimpleType(self, {self.}Prefix, "keepLines");
container_.Set({self.}XmlChildKeepLines);
end
- return {self.}XmlChildKeepLines;
+ return {self.}XmlChildKeepLines and not {self.}XmlChildKeepLines.Removed ? {self.}XmlChildKeepLines : fallback_.XmlChildKeepLines;
+end;
+
+function PPr.WriteXmlChildKeepLines(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildKeepLines) then
+ {self.}RemoveChild({self.}XmlChildKeepLines);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildKeepLines := _value;
+ container_.Set({self.}XmlChildKeepLines);
+ end
+ else begin
+ raise "Invalid assignment: KeepLines expects nil or OpenXmlSimpleType";
+ end
end;
function PPr.ReadXmlChildMirrorIndents();
@@ -5439,7 +6884,24 @@ begin
{self.}XmlChildMirrorIndents := new OpenXmlSimpleType(self, {self.}Prefix, "mirrorIndents");
container_.Set({self.}XmlChildMirrorIndents);
end
- return {self.}XmlChildMirrorIndents;
+ return {self.}XmlChildMirrorIndents and not {self.}XmlChildMirrorIndents.Removed ? {self.}XmlChildMirrorIndents : fallback_.XmlChildMirrorIndents;
+end;
+
+function PPr.WriteXmlChildMirrorIndents(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildMirrorIndents) then
+ {self.}RemoveChild({self.}XmlChildMirrorIndents);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildMirrorIndents := _value;
+ container_.Set({self.}XmlChildMirrorIndents);
+ end
+ else begin
+ raise "Invalid assignment: MirrorIndents expects nil or OpenXmlSimpleType";
+ end
end;
function PPr.ReadXmlChildPageBreakBefore();
@@ -5449,7 +6911,24 @@ begin
{self.}XmlChildPageBreakBefore := new OpenXmlSimpleType(self, {self.}Prefix, "pageBreakBefore");
container_.Set({self.}XmlChildPageBreakBefore);
end
- return {self.}XmlChildPageBreakBefore;
+ return {self.}XmlChildPageBreakBefore and not {self.}XmlChildPageBreakBefore.Removed ? {self.}XmlChildPageBreakBefore : fallback_.XmlChildPageBreakBefore;
+end;
+
+function PPr.WriteXmlChildPageBreakBefore(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildPageBreakBefore) then
+ {self.}RemoveChild({self.}XmlChildPageBreakBefore);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildPageBreakBefore := _value;
+ container_.Set({self.}XmlChildPageBreakBefore);
+ end
+ else begin
+ raise "Invalid assignment: PageBreakBefore expects nil or OpenXmlSimpleType";
+ end
end;
function PPr.ReadXmlChildSuppressAutoHyphens();
@@ -5459,7 +6938,24 @@ begin
{self.}XmlChildSuppressAutoHyphens := new OpenXmlSimpleType(self, {self.}Prefix, "suppressAutoHyphens");
container_.Set({self.}XmlChildSuppressAutoHyphens);
end
- return {self.}XmlChildSuppressAutoHyphens;
+ return {self.}XmlChildSuppressAutoHyphens and not {self.}XmlChildSuppressAutoHyphens.Removed ? {self.}XmlChildSuppressAutoHyphens : fallback_.XmlChildSuppressAutoHyphens;
+end;
+
+function PPr.WriteXmlChildSuppressAutoHyphens(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildSuppressAutoHyphens) then
+ {self.}RemoveChild({self.}XmlChildSuppressAutoHyphens);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildSuppressAutoHyphens := _value;
+ container_.Set({self.}XmlChildSuppressAutoHyphens);
+ end
+ else begin
+ raise "Invalid assignment: SuppressAutoHyphens expects nil or OpenXmlSimpleType";
+ end
end;
function PPr.ReadXmlChildSuppressLineNumbers();
@@ -5469,7 +6965,24 @@ begin
{self.}XmlChildSuppressLineNumbers := new OpenXmlSimpleType(self, {self.}Prefix, "suppressLineNumbers");
container_.Set({self.}XmlChildSuppressLineNumbers);
end
- return {self.}XmlChildSuppressLineNumbers;
+ return {self.}XmlChildSuppressLineNumbers and not {self.}XmlChildSuppressLineNumbers.Removed ? {self.}XmlChildSuppressLineNumbers : fallback_.XmlChildSuppressLineNumbers;
+end;
+
+function PPr.WriteXmlChildSuppressLineNumbers(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildSuppressLineNumbers) then
+ {self.}RemoveChild({self.}XmlChildSuppressLineNumbers);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildSuppressLineNumbers := _value;
+ container_.Set({self.}XmlChildSuppressLineNumbers);
+ end
+ else begin
+ raise "Invalid assignment: SuppressLineNumbers expects nil or OpenXmlSimpleType";
+ end
end;
function PPr.ReadXmlChildSuppressOverlap();
@@ -5479,7 +6992,24 @@ begin
{self.}XmlChildSuppressOverlap := new OpenXmlSimpleType(self, {self.}Prefix, "suppressOverlap");
container_.Set({self.}XmlChildSuppressOverlap);
end
- return {self.}XmlChildSuppressOverlap;
+ return {self.}XmlChildSuppressOverlap and not {self.}XmlChildSuppressOverlap.Removed ? {self.}XmlChildSuppressOverlap : fallback_.XmlChildSuppressOverlap;
+end;
+
+function PPr.WriteXmlChildSuppressOverlap(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildSuppressOverlap) then
+ {self.}RemoveChild({self.}XmlChildSuppressOverlap);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildSuppressOverlap := _value;
+ container_.Set({self.}XmlChildSuppressOverlap);
+ end
+ else begin
+ raise "Invalid assignment: SuppressOverlap expects nil or OpenXmlSimpleType";
+ end
end;
function PPr.ReadXmlChildContextualSpacing();
@@ -5489,7 +7019,24 @@ begin
{self.}XmlChildContextualSpacing := new OpenXmlSimpleType(self, {self.}Prefix, "contextualSpacing");
container_.Set({self.}XmlChildContextualSpacing);
end
- return {self.}XmlChildContextualSpacing;
+ return {self.}XmlChildContextualSpacing and not {self.}XmlChildContextualSpacing.Removed ? {self.}XmlChildContextualSpacing : fallback_.XmlChildContextualSpacing;
+end;
+
+function PPr.WriteXmlChildContextualSpacing(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildContextualSpacing) then
+ {self.}RemoveChild({self.}XmlChildContextualSpacing);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildContextualSpacing := _value;
+ container_.Set({self.}XmlChildContextualSpacing);
+ end
+ else begin
+ raise "Invalid assignment: ContextualSpacing expects nil or OpenXmlSimpleType";
+ end
end;
function PPr.ReadXmlChildSectPr(): SectPr;
@@ -5499,7 +7046,25 @@ begin
{self.}XmlChildSectPr := new SectPr(self, {self.}Prefix, "sectPr");
container_.Set({self.}XmlChildSectPr);
end
- return {self.}XmlChildSectPr;
+ return {self.}XmlChildSectPr and not {self.}XmlChildSectPr.Removed ? {self.}XmlChildSectPr : fallback_.XmlChildSectPr;
+end;
+
+function PPr.WriteXmlChildSectPr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildSectPr) then
+ {self.}RemoveChild({self.}XmlChildSectPr);
+ end
+ else if v is class(SectPr) then
+ begin
+ {self.}XmlChildSectPr := v;
+ container_.Set({self.}XmlChildSectPr);
+ end
+ else begin
+ raise "Invalid assignment: SectPr expects SectPr or nil";
+ end
end;
function PPr.ReadXmlChildTabs(): Tabs;
@@ -5509,7 +7074,25 @@ begin
{self.}XmlChildTabs := new Tabs(self, {self.}Prefix, "tabs");
container_.Set({self.}XmlChildTabs);
end
- return {self.}XmlChildTabs;
+ return {self.}XmlChildTabs and not {self.}XmlChildTabs.Removed ? {self.}XmlChildTabs : fallback_.XmlChildTabs;
+end;
+
+function PPr.WriteXmlChildTabs(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTabs) then
+ {self.}RemoveChild({self.}XmlChildTabs);
+ end
+ else if v is class(Tabs) then
+ begin
+ {self.}XmlChildTabs := v;
+ container_.Set({self.}XmlChildTabs);
+ end
+ else begin
+ raise "Invalid assignment: Tabs expects Tabs or nil";
+ end
end;
function PPr.ReadXmlChildPStyle(): PureWVal;
@@ -5519,7 +7102,25 @@ begin
{self.}XmlChildPStyle := new PureWVal(self, {self.}Prefix, "pStyle");
container_.Set({self.}XmlChildPStyle);
end
- return {self.}XmlChildPStyle;
+ return {self.}XmlChildPStyle and not {self.}XmlChildPStyle.Removed ? {self.}XmlChildPStyle : fallback_.XmlChildPStyle;
+end;
+
+function PPr.WriteXmlChildPStyle(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildPStyle) then
+ {self.}RemoveChild({self.}XmlChildPStyle);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildPStyle := v;
+ container_.Set({self.}XmlChildPStyle);
+ end
+ else begin
+ raise "Invalid assignment: PStyle expects PureWVal or nil";
+ end
end;
function PPr.ReadXmlChildNumPr(): NumPr;
@@ -5529,7 +7130,25 @@ begin
{self.}XmlChildNumPr := new NumPr(self, {self.}Prefix, "numPr");
container_.Set({self.}XmlChildNumPr);
end
- return {self.}XmlChildNumPr;
+ return {self.}XmlChildNumPr and not {self.}XmlChildNumPr.Removed ? {self.}XmlChildNumPr : fallback_.XmlChildNumPr;
+end;
+
+function PPr.WriteXmlChildNumPr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildNumPr) then
+ {self.}RemoveChild({self.}XmlChildNumPr);
+ end
+ else if v is class(NumPr) then
+ begin
+ {self.}XmlChildNumPr := v;
+ container_.Set({self.}XmlChildNumPr);
+ end
+ else begin
+ raise "Invalid assignment: NumPr expects NumPr or nil";
+ end
end;
function PPr.ReadXmlChildJc(): PureWVal;
@@ -5539,7 +7158,25 @@ begin
{self.}XmlChildJc := new PureWVal(self, {self.}Prefix, "jc");
container_.Set({self.}XmlChildJc);
end
- return {self.}XmlChildJc;
+ return {self.}XmlChildJc and not {self.}XmlChildJc.Removed ? {self.}XmlChildJc : fallback_.XmlChildJc;
+end;
+
+function PPr.WriteXmlChildJc(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildJc) then
+ {self.}RemoveChild({self.}XmlChildJc);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildJc := v;
+ container_.Set({self.}XmlChildJc);
+ end
+ else begin
+ raise "Invalid assignment: Jc expects PureWVal or nil";
+ end
end;
function PPr.ReadXmlChildInd(): Ind;
@@ -5549,7 +7186,25 @@ begin
{self.}XmlChildInd := new Ind(self, {self.}Prefix, "ind");
container_.Set({self.}XmlChildInd);
end
- return {self.}XmlChildInd;
+ return {self.}XmlChildInd and not {self.}XmlChildInd.Removed ? {self.}XmlChildInd : fallback_.XmlChildInd;
+end;
+
+function PPr.WriteXmlChildInd(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildInd) then
+ {self.}RemoveChild({self.}XmlChildInd);
+ end
+ else if v is class(Ind) then
+ begin
+ {self.}XmlChildInd := v;
+ container_.Set({self.}XmlChildInd);
+ end
+ else begin
+ raise "Invalid assignment: Ind expects Ind or nil";
+ end
end;
function PPr.ReadXmlChildKinsoku(): PureWVal;
@@ -5559,7 +7214,25 @@ begin
{self.}XmlChildKinsoku := new PureWVal(self, {self.}Prefix, "kinsoku");
container_.Set({self.}XmlChildKinsoku);
end
- return {self.}XmlChildKinsoku;
+ return {self.}XmlChildKinsoku and not {self.}XmlChildKinsoku.Removed ? {self.}XmlChildKinsoku : fallback_.XmlChildKinsoku;
+end;
+
+function PPr.WriteXmlChildKinsoku(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildKinsoku) then
+ {self.}RemoveChild({self.}XmlChildKinsoku);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildKinsoku := v;
+ container_.Set({self.}XmlChildKinsoku);
+ end
+ else begin
+ raise "Invalid assignment: Kinsoku expects PureWVal or nil";
+ end
end;
function PPr.ReadXmlChildOverflowPunct(): PureWVal;
@@ -5569,7 +7242,25 @@ begin
{self.}XmlChildOverflowPunct := new PureWVal(self, {self.}Prefix, "overflowPunct");
container_.Set({self.}XmlChildOverflowPunct);
end
- return {self.}XmlChildOverflowPunct;
+ return {self.}XmlChildOverflowPunct and not {self.}XmlChildOverflowPunct.Removed ? {self.}XmlChildOverflowPunct : fallback_.XmlChildOverflowPunct;
+end;
+
+function PPr.WriteXmlChildOverflowPunct(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildOverflowPunct) then
+ {self.}RemoveChild({self.}XmlChildOverflowPunct);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildOverflowPunct := v;
+ container_.Set({self.}XmlChildOverflowPunct);
+ end
+ else begin
+ raise "Invalid assignment: OverflowPunct expects PureWVal or nil";
+ end
end;
function PPr.ReadXmlChildAdjustRightInd(): PureWVal;
@@ -5579,7 +7270,25 @@ begin
{self.}XmlChildAdjustRightInd := new PureWVal(self, {self.}Prefix, "adjustRightInd");
container_.Set({self.}XmlChildAdjustRightInd);
end
- return {self.}XmlChildAdjustRightInd;
+ return {self.}XmlChildAdjustRightInd and not {self.}XmlChildAdjustRightInd.Removed ? {self.}XmlChildAdjustRightInd : fallback_.XmlChildAdjustRightInd;
+end;
+
+function PPr.WriteXmlChildAdjustRightInd(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildAdjustRightInd) then
+ {self.}RemoveChild({self.}XmlChildAdjustRightInd);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildAdjustRightInd := v;
+ container_.Set({self.}XmlChildAdjustRightInd);
+ end
+ else begin
+ raise "Invalid assignment: AdjustRightInd expects PureWVal or nil";
+ end
end;
function PPr.ReadXmlChildSpacing(): Spacing;
@@ -5589,7 +7298,25 @@ begin
{self.}XmlChildSpacing := new Spacing(self, {self.}Prefix, "spacing");
container_.Set({self.}XmlChildSpacing);
end
- return {self.}XmlChildSpacing;
+ return {self.}XmlChildSpacing and not {self.}XmlChildSpacing.Removed ? {self.}XmlChildSpacing : fallback_.XmlChildSpacing;
+end;
+
+function PPr.WriteXmlChildSpacing(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildSpacing) then
+ {self.}RemoveChild({self.}XmlChildSpacing);
+ end
+ else if v is class(Spacing) then
+ begin
+ {self.}XmlChildSpacing := v;
+ container_.Set({self.}XmlChildSpacing);
+ end
+ else begin
+ raise "Invalid assignment: Spacing expects Spacing or nil";
+ end
end;
function PPr.ReadXmlChildOutlineLvl(): PureWVal;
@@ -5599,7 +7326,25 @@ begin
{self.}XmlChildOutlineLvl := new PureWVal(self, {self.}Prefix, "outlineLvl");
container_.Set({self.}XmlChildOutlineLvl);
end
- return {self.}XmlChildOutlineLvl;
+ return {self.}XmlChildOutlineLvl and not {self.}XmlChildOutlineLvl.Removed ? {self.}XmlChildOutlineLvl : fallback_.XmlChildOutlineLvl;
+end;
+
+function PPr.WriteXmlChildOutlineLvl(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildOutlineLvl) then
+ {self.}RemoveChild({self.}XmlChildOutlineLvl);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildOutlineLvl := v;
+ container_.Set({self.}XmlChildOutlineLvl);
+ end
+ else begin
+ raise "Invalid assignment: OutlineLvl expects PureWVal or nil";
+ end
end;
function PPr.ReadXmlChildAutoSpaceDE(): PureWVal;
@@ -5609,7 +7354,25 @@ begin
{self.}XmlChildAutoSpaceDE := new PureWVal(self, {self.}Prefix, "autoSpaceDE");
container_.Set({self.}XmlChildAutoSpaceDE);
end
- return {self.}XmlChildAutoSpaceDE;
+ return {self.}XmlChildAutoSpaceDE and not {self.}XmlChildAutoSpaceDE.Removed ? {self.}XmlChildAutoSpaceDE : fallback_.XmlChildAutoSpaceDE;
+end;
+
+function PPr.WriteXmlChildAutoSpaceDE(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildAutoSpaceDE) then
+ {self.}RemoveChild({self.}XmlChildAutoSpaceDE);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildAutoSpaceDE := v;
+ container_.Set({self.}XmlChildAutoSpaceDE);
+ end
+ else begin
+ raise "Invalid assignment: AutoSpaceDE expects PureWVal or nil";
+ end
end;
function PPr.ReadXmlChildAutoSpaceDN(): PureWVal;
@@ -5619,7 +7382,25 @@ begin
{self.}XmlChildAutoSpaceDN := new PureWVal(self, {self.}Prefix, "autoSpaceDN");
container_.Set({self.}XmlChildAutoSpaceDN);
end
- return {self.}XmlChildAutoSpaceDN;
+ return {self.}XmlChildAutoSpaceDN and not {self.}XmlChildAutoSpaceDN.Removed ? {self.}XmlChildAutoSpaceDN : fallback_.XmlChildAutoSpaceDN;
+end;
+
+function PPr.WriteXmlChildAutoSpaceDN(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildAutoSpaceDN) then
+ {self.}RemoveChild({self.}XmlChildAutoSpaceDN);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildAutoSpaceDN := v;
+ container_.Set({self.}XmlChildAutoSpaceDN);
+ end
+ else begin
+ raise "Invalid assignment: AutoSpaceDN expects PureWVal or nil";
+ end
end;
function PPr.ReadXmlChildRPr(): RPr;
@@ -5629,7 +7410,25 @@ begin
{self.}XmlChildRPr := new RPr(self, {self.}Prefix, "rPr");
container_.Set({self.}XmlChildRPr);
end
- return {self.}XmlChildRPr;
+ return {self.}XmlChildRPr and not {self.}XmlChildRPr.Removed ? {self.}XmlChildRPr : fallback_.XmlChildRPr;
+end;
+
+function PPr.WriteXmlChildRPr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildRPr) then
+ {self.}RemoveChild({self.}XmlChildRPr);
+ end
+ else if v is class(RPr) then
+ begin
+ {self.}XmlChildRPr := v;
+ container_.Set({self.}XmlChildRPr);
+ end
+ else begin
+ raise "Invalid assignment: RPr expects RPr or nil";
+ end
end;
function PPr.ReadXmlChildPBdr(): PBdr;
@@ -5639,7 +7438,25 @@ begin
{self.}XmlChildPBdr := new PBdr(self, {self.}Prefix, "pBdr");
container_.Set({self.}XmlChildPBdr);
end
- return {self.}XmlChildPBdr;
+ return {self.}XmlChildPBdr and not {self.}XmlChildPBdr.Removed ? {self.}XmlChildPBdr : fallback_.XmlChildPBdr;
+end;
+
+function PPr.WriteXmlChildPBdr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildPBdr) then
+ {self.}RemoveChild({self.}XmlChildPBdr);
+ end
+ else if v is class(PBdr) then
+ begin
+ {self.}XmlChildPBdr := v;
+ container_.Set({self.}XmlChildPBdr);
+ end
+ else begin
+ raise "Invalid assignment: PBdr expects PBdr or nil";
+ end
end;
function PPr.ReadXmlChildShd(): Shd;
@@ -5649,7 +7466,25 @@ begin
{self.}XmlChildShd := new Shd(self, {self.}Prefix, "shd");
container_.Set({self.}XmlChildShd);
end
- return {self.}XmlChildShd;
+ return {self.}XmlChildShd and not {self.}XmlChildShd.Removed ? {self.}XmlChildShd : fallback_.XmlChildShd;
+end;
+
+function PPr.WriteXmlChildShd(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildShd) then
+ {self.}RemoveChild({self.}XmlChildShd);
+ end
+ else if v is class(Shd) then
+ begin
+ {self.}XmlChildShd := v;
+ container_.Set({self.}XmlChildShd);
+ end
+ else begin
+ raise "Invalid assignment: Shd expects Shd or nil";
+ end
end;
function PPr.ReadXmlChildWordWrap(): PureWVal;
@@ -5659,7 +7494,25 @@ begin
{self.}XmlChildWordWrap := new PureWVal(self, {self.}Prefix, "wordWrap");
container_.Set({self.}XmlChildWordWrap);
end
- return {self.}XmlChildWordWrap;
+ return {self.}XmlChildWordWrap and not {self.}XmlChildWordWrap.Removed ? {self.}XmlChildWordWrap : fallback_.XmlChildWordWrap;
+end;
+
+function PPr.WriteXmlChildWordWrap(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildWordWrap) then
+ {self.}RemoveChild({self.}XmlChildWordWrap);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildWordWrap := v;
+ container_.Set({self.}XmlChildWordWrap);
+ end
+ else begin
+ raise "Invalid assignment: WordWrap expects PureWVal or nil";
+ end
end;
function PPr.ReadXmlChildDivId(): PureWVal;
@@ -5669,7 +7522,25 @@ begin
{self.}XmlChildDivId := new PureWVal(self, {self.}Prefix, "divId");
container_.Set({self.}XmlChildDivId);
end
- return {self.}XmlChildDivId;
+ return {self.}XmlChildDivId and not {self.}XmlChildDivId.Removed ? {self.}XmlChildDivId : fallback_.XmlChildDivId;
+end;
+
+function PPr.WriteXmlChildDivId(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildDivId) then
+ {self.}RemoveChild({self.}XmlChildDivId);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildDivId := v;
+ container_.Set({self.}XmlChildDivId);
+ end
+ else begin
+ raise "Invalid assignment: DivId expects PureWVal or nil";
+ end
end;
function PPr.ReadXmlChildCnfStyle(): PureWVal;
@@ -5679,7 +7550,25 @@ begin
{self.}XmlChildCnfStyle := new PureWVal(self, {self.}Prefix, "cnfStyle");
container_.Set({self.}XmlChildCnfStyle);
end
- return {self.}XmlChildCnfStyle;
+ return {self.}XmlChildCnfStyle and not {self.}XmlChildCnfStyle.Removed ? {self.}XmlChildCnfStyle : fallback_.XmlChildCnfStyle;
+end;
+
+function PPr.WriteXmlChildCnfStyle(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildCnfStyle) then
+ {self.}RemoveChild({self.}XmlChildCnfStyle);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildCnfStyle := v;
+ container_.Set({self.}XmlChildCnfStyle);
+ end
+ else begin
+ raise "Invalid assignment: CnfStyle expects PureWVal or nil";
+ end
end;
function PPr.ReadXmlChildFramePr(): FramePr;
@@ -5689,7 +7578,25 @@ begin
{self.}XmlChildFramePr := new FramePr(self, {self.}Prefix, "framePr");
container_.Set({self.}XmlChildFramePr);
end
- return {self.}XmlChildFramePr;
+ return {self.}XmlChildFramePr and not {self.}XmlChildFramePr.Removed ? {self.}XmlChildFramePr : fallback_.XmlChildFramePr;
+end;
+
+function PPr.WriteXmlChildFramePr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildFramePr) then
+ {self.}RemoveChild({self.}XmlChildFramePr);
+ end
+ else if v is class(FramePr) then
+ begin
+ {self.}XmlChildFramePr := v;
+ container_.Set({self.}XmlChildFramePr);
+ end
+ else begin
+ raise "Invalid assignment: FramePr expects FramePr or nil";
+ end
end;
function PPr.ReadXmlChildTextboxTightWrap(): PureWVal;
@@ -5699,7 +7606,25 @@ begin
{self.}XmlChildTextboxTightWrap := new PureWVal(self, {self.}Prefix, "textboxTightWrap");
container_.Set({self.}XmlChildTextboxTightWrap);
end
- return {self.}XmlChildTextboxTightWrap;
+ return {self.}XmlChildTextboxTightWrap and not {self.}XmlChildTextboxTightWrap.Removed ? {self.}XmlChildTextboxTightWrap : fallback_.XmlChildTextboxTightWrap;
+end;
+
+function PPr.WriteXmlChildTextboxTightWrap(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTextboxTightWrap) then
+ {self.}RemoveChild({self.}XmlChildTextboxTightWrap);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildTextboxTightWrap := v;
+ container_.Set({self.}XmlChildTextboxTightWrap);
+ end
+ else begin
+ raise "Invalid assignment: TextboxTightWrap expects PureWVal or nil";
+ end
end;
function PPr.ReadXmlChildTopLinePunct(): PureWVal;
@@ -5709,7 +7634,25 @@ begin
{self.}XmlChildTopLinePunct := new PureWVal(self, {self.}Prefix, "topLinePunct");
container_.Set({self.}XmlChildTopLinePunct);
end
- return {self.}XmlChildTopLinePunct;
+ return {self.}XmlChildTopLinePunct and not {self.}XmlChildTopLinePunct.Removed ? {self.}XmlChildTopLinePunct : fallback_.XmlChildTopLinePunct;
+end;
+
+function PPr.WriteXmlChildTopLinePunct(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTopLinePunct) then
+ {self.}RemoveChild({self.}XmlChildTopLinePunct);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildTopLinePunct := v;
+ container_.Set({self.}XmlChildTopLinePunct);
+ end
+ else begin
+ raise "Invalid assignment: TopLinePunct expects PureWVal or nil";
+ end
end;
function PPr.ReadXmlChildTextAlignment(): PureWVal;
@@ -5719,7 +7662,25 @@ begin
{self.}XmlChildTextAlignment := new PureWVal(self, {self.}Prefix, "textAlignment");
container_.Set({self.}XmlChildTextAlignment);
end
- return {self.}XmlChildTextAlignment;
+ return {self.}XmlChildTextAlignment and not {self.}XmlChildTextAlignment.Removed ? {self.}XmlChildTextAlignment : fallback_.XmlChildTextAlignment;
+end;
+
+function PPr.WriteXmlChildTextAlignment(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTextAlignment) then
+ {self.}RemoveChild({self.}XmlChildTextAlignment);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildTextAlignment := v;
+ container_.Set({self.}XmlChildTextAlignment);
+ end
+ else begin
+ raise "Invalid assignment: TextAlignment expects PureWVal or nil";
+ end
end;
function PPr.ReadXmlChildTextDirection(): PureWVal;
@@ -5729,7 +7690,53 @@ begin
{self.}XmlChildTextDirection := new PureWVal(self, {self.}Prefix, "textDirection");
container_.Set({self.}XmlChildTextDirection);
end
- return {self.}XmlChildTextDirection;
+ return {self.}XmlChildTextDirection and not {self.}XmlChildTextDirection.Removed ? {self.}XmlChildTextDirection : fallback_.XmlChildTextDirection;
+end;
+
+function PPr.WriteXmlChildTextDirection(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTextDirection) then
+ {self.}RemoveChild({self.}XmlChildTextDirection);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildTextDirection := v;
+ container_.Set({self.}XmlChildTextDirection);
+ end
+ else begin
+ raise "Invalid assignment: TextDirection expects PureWVal or nil";
+ end
+end;
+
+function PPr.ReadXmlChildCollapsed(): PureWVal;
+begin
+ if tslassigning and (ifnil({self.}XmlChildCollapsed) or {self.}XmlChildCollapsed.Removed) then
+ begin
+ {self.}XmlChildCollapsed := new PureWVal(self, "w15", "wordWrap");
+ container_.Set({self.}XmlChildCollapsed);
+ end
+ return {self.}XmlChildCollapsed and not {self.}XmlChildCollapsed.Removed ? {self.}XmlChildCollapsed : fallback_.XmlChildCollapsed;
+end;
+
+function PPr.WriteXmlChildCollapsed(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildCollapsed) then
+ {self.}RemoveChild({self.}XmlChildCollapsed);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildCollapsed := v;
+ container_.Set({self.}XmlChildCollapsed);
+ end
+ else begin
+ raise "Invalid assignment: Collapsed expects PureWVal or nil";
+ end
end;
function PBdr.Create();overload;
@@ -5739,13 +7746,13 @@ end;
function PBdr.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function PBdr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function PBdr.Init();override;
@@ -5782,6 +7789,20 @@ begin
tslassigning := tslassigning_backup;
end;
+function PBdr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildTop) then
+ {self.}XmlChildTop.ConvertToPoint();
+ if not ifnil({self.}XmlChildLeft) then
+ {self.}XmlChildLeft.ConvertToPoint();
+ if not ifnil({self.}XmlChildRight) then
+ {self.}XmlChildRight.ConvertToPoint();
+ if not ifnil({self.}XmlChildBottom) then
+ {self.}XmlChildBottom.ConvertToPoint();
+ if not ifnil({self.}XmlChildBetween) then
+ {self.}XmlChildBetween.ConvertToPoint();
+end;
+
function PBdr.ReadXmlChildTop(): PBorder;
begin
if tslassigning and (ifnil({self.}XmlChildTop) or {self.}XmlChildTop.Removed) then
@@ -5789,7 +7810,25 @@ begin
{self.}XmlChildTop := new PBorder(self, {self.}Prefix, "top");
container_.Set({self.}XmlChildTop);
end
- return {self.}XmlChildTop;
+ return {self.}XmlChildTop and not {self.}XmlChildTop.Removed ? {self.}XmlChildTop : fallback_.XmlChildTop;
+end;
+
+function PBdr.WriteXmlChildTop(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTop) then
+ {self.}RemoveChild({self.}XmlChildTop);
+ end
+ else if v is class(PBorder) then
+ begin
+ {self.}XmlChildTop := v;
+ container_.Set({self.}XmlChildTop);
+ end
+ else begin
+ raise "Invalid assignment: Top expects PBorder or nil";
+ end
end;
function PBdr.ReadXmlChildLeft(): PBorder;
@@ -5799,7 +7838,25 @@ begin
{self.}XmlChildLeft := new PBorder(self, {self.}Prefix, "left");
container_.Set({self.}XmlChildLeft);
end
- return {self.}XmlChildLeft;
+ return {self.}XmlChildLeft and not {self.}XmlChildLeft.Removed ? {self.}XmlChildLeft : fallback_.XmlChildLeft;
+end;
+
+function PBdr.WriteXmlChildLeft(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildLeft) then
+ {self.}RemoveChild({self.}XmlChildLeft);
+ end
+ else if v is class(PBorder) then
+ begin
+ {self.}XmlChildLeft := v;
+ container_.Set({self.}XmlChildLeft);
+ end
+ else begin
+ raise "Invalid assignment: Left expects PBorder or nil";
+ end
end;
function PBdr.ReadXmlChildRight(): PBorder;
@@ -5809,7 +7866,25 @@ begin
{self.}XmlChildRight := new PBorder(self, {self.}Prefix, "right");
container_.Set({self.}XmlChildRight);
end
- return {self.}XmlChildRight;
+ return {self.}XmlChildRight and not {self.}XmlChildRight.Removed ? {self.}XmlChildRight : fallback_.XmlChildRight;
+end;
+
+function PBdr.WriteXmlChildRight(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildRight) then
+ {self.}RemoveChild({self.}XmlChildRight);
+ end
+ else if v is class(PBorder) then
+ begin
+ {self.}XmlChildRight := v;
+ container_.Set({self.}XmlChildRight);
+ end
+ else begin
+ raise "Invalid assignment: Right expects PBorder or nil";
+ end
end;
function PBdr.ReadXmlChildBottom(): PBorder;
@@ -5819,7 +7894,25 @@ begin
{self.}XmlChildBottom := new PBorder(self, {self.}Prefix, "bottom");
container_.Set({self.}XmlChildBottom);
end
- return {self.}XmlChildBottom;
+ return {self.}XmlChildBottom and not {self.}XmlChildBottom.Removed ? {self.}XmlChildBottom : fallback_.XmlChildBottom;
+end;
+
+function PBdr.WriteXmlChildBottom(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildBottom) then
+ {self.}RemoveChild({self.}XmlChildBottom);
+ end
+ else if v is class(PBorder) then
+ begin
+ {self.}XmlChildBottom := v;
+ container_.Set({self.}XmlChildBottom);
+ end
+ else begin
+ raise "Invalid assignment: Bottom expects PBorder or nil";
+ end
end;
function PBdr.ReadXmlChildBetween(): PBorder;
@@ -5829,7 +7922,25 @@ begin
{self.}XmlChildBetween := new PBorder(self, {self.}Prefix, "between");
container_.Set({self.}XmlChildBetween);
end
- return {self.}XmlChildBetween;
+ return {self.}XmlChildBetween and not {self.}XmlChildBetween.Removed ? {self.}XmlChildBetween : fallback_.XmlChildBetween;
+end;
+
+function PBdr.WriteXmlChildBetween(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildBetween) then
+ {self.}RemoveChild({self.}XmlChildBetween);
+ end
+ else if v is class(PBorder) then
+ begin
+ {self.}XmlChildBetween := v;
+ container_.Set({self.}XmlChildBetween);
+ end
+ else begin
+ raise "Invalid assignment: Between expects PBorder or nil";
+ end
end;
function FramePr.Create();overload;
@@ -5839,13 +7950,13 @@ end;
function FramePr.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function FramePr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function FramePr.Init();override;
@@ -5915,242 +8026,250 @@ begin
tslassigning := tslassigning_backup;
end;
-function FramePr.ReadXmlAttrAnchorLock();
+function FramePr.ConvertToPoint();override;
begin
- return {self.}XmlAttrAnchorLock.Value;
+ if not ifnil({self.}XmlAttrW) then
+ {self.}W := TSSafeUnitConverter.TwipsToPoints({self.}XmlAttrW.Value);
+ if not ifnil({self.}XmlAttrH) then
+ {self.}H := TSSafeUnitConverter.TwipsToPoints({self.}XmlAttrH.Value);
end;
-function FramePr.WriteXmlAttrAnchorLock(_value);
+function FramePr.ReadXmlAttrAnchorLock();
+begin
+ return ifnil({self.}XmlAttrAnchorLock.Value) ? fallback_.XmlAttrAnchorLock.Value : {self.}XmlAttrAnchorLock.Value;
+end;
+
+function FramePr.WriteXmlAttrAnchorLock(_value: any);
begin
if ifnil({self.}XmlAttrAnchorLock) then
begin
{self.}XmlAttrAnchorLock := new OpenXmlAttribute({self.}Prefix, "anchorLock", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrAnchorLock;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "anchorLock" : "anchorLock"] := {self.}XmlAttrAnchorLock;
end
{self.}XmlAttrAnchorLock.Value := _value;
end;
function FramePr.ReadXmlAttrDropCap();
begin
- return {self.}XmlAttrDropCap.Value;
+ return ifnil({self.}XmlAttrDropCap.Value) ? fallback_.XmlAttrDropCap.Value : {self.}XmlAttrDropCap.Value;
end;
-function FramePr.WriteXmlAttrDropCap(_value);
+function FramePr.WriteXmlAttrDropCap(_value: any);
begin
if ifnil({self.}XmlAttrDropCap) then
begin
{self.}XmlAttrDropCap := new OpenXmlAttribute({self.}Prefix, "dropCap", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrDropCap;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "dropCap" : "dropCap"] := {self.}XmlAttrDropCap;
end
{self.}XmlAttrDropCap.Value := _value;
end;
function FramePr.ReadXmlAttrVAnchor();
begin
- return {self.}XmlAttrVAnchor.Value;
+ return ifnil({self.}XmlAttrVAnchor.Value) ? fallback_.XmlAttrVAnchor.Value : {self.}XmlAttrVAnchor.Value;
end;
-function FramePr.WriteXmlAttrVAnchor(_value);
+function FramePr.WriteXmlAttrVAnchor(_value: any);
begin
if ifnil({self.}XmlAttrVAnchor) then
begin
{self.}XmlAttrVAnchor := new OpenXmlAttribute({self.}Prefix, "vAnchor", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrVAnchor;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "vAnchor" : "vAnchor"] := {self.}XmlAttrVAnchor;
end
{self.}XmlAttrVAnchor.Value := _value;
end;
function FramePr.ReadXmlAttrHAnchor();
begin
- return {self.}XmlAttrHAnchor.Value;
+ return ifnil({self.}XmlAttrHAnchor.Value) ? fallback_.XmlAttrHAnchor.Value : {self.}XmlAttrHAnchor.Value;
end;
-function FramePr.WriteXmlAttrHAnchor(_value);
+function FramePr.WriteXmlAttrHAnchor(_value: any);
begin
if ifnil({self.}XmlAttrHAnchor) then
begin
{self.}XmlAttrHAnchor := new OpenXmlAttribute({self.}Prefix, "hAnchor", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrHAnchor;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "hAnchor" : "hAnchor"] := {self.}XmlAttrHAnchor;
end
{self.}XmlAttrHAnchor.Value := _value;
end;
function FramePr.ReadXmlAttrHRule();
begin
- return {self.}XmlAttrHRule.Value;
+ return ifnil({self.}XmlAttrHRule.Value) ? fallback_.XmlAttrHRule.Value : {self.}XmlAttrHRule.Value;
end;
-function FramePr.WriteXmlAttrHRule(_value);
+function FramePr.WriteXmlAttrHRule(_value: any);
begin
if ifnil({self.}XmlAttrHRule) then
begin
{self.}XmlAttrHRule := new OpenXmlAttribute({self.}Prefix, "hRule", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrHRule;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "hRule" : "hRule"] := {self.}XmlAttrHRule;
end
{self.}XmlAttrHRule.Value := _value;
end;
function FramePr.ReadXmlAttrHSpace();
begin
- return {self.}XmlAttrHSpace.Value;
+ return ifnil({self.}XmlAttrHSpace.Value) ? fallback_.XmlAttrHSpace.Value : {self.}XmlAttrHSpace.Value;
end;
-function FramePr.WriteXmlAttrHSpace(_value);
+function FramePr.WriteXmlAttrHSpace(_value: any);
begin
if ifnil({self.}XmlAttrHSpace) then
begin
{self.}XmlAttrHSpace := new OpenXmlAttribute({self.}Prefix, "hSpace", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrHSpace;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "hSpace" : "hSpace"] := {self.}XmlAttrHSpace;
end
{self.}XmlAttrHSpace.Value := _value;
end;
function FramePr.ReadXmlAttrVSpace();
begin
- return {self.}XmlAttrVSpace.Value;
+ return ifnil({self.}XmlAttrVSpace.Value) ? fallback_.XmlAttrVSpace.Value : {self.}XmlAttrVSpace.Value;
end;
-function FramePr.WriteXmlAttrVSpace(_value);
+function FramePr.WriteXmlAttrVSpace(_value: any);
begin
if ifnil({self.}XmlAttrVSpace) then
begin
{self.}XmlAttrVSpace := new OpenXmlAttribute({self.}Prefix, "vSpace", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrVSpace;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "vSpace" : "vSpace"] := {self.}XmlAttrVSpace;
end
{self.}XmlAttrVSpace.Value := _value;
end;
function FramePr.ReadXmlAttrLines();
begin
- return {self.}XmlAttrLines.Value;
+ return ifnil({self.}XmlAttrLines.Value) ? fallback_.XmlAttrLines.Value : {self.}XmlAttrLines.Value;
end;
-function FramePr.WriteXmlAttrLines(_value);
+function FramePr.WriteXmlAttrLines(_value: any);
begin
if ifnil({self.}XmlAttrLines) then
begin
{self.}XmlAttrLines := new OpenXmlAttribute({self.}Prefix, "lines", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrLines;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "lines" : "lines"] := {self.}XmlAttrLines;
end
{self.}XmlAttrLines.Value := _value;
end;
function FramePr.ReadXmlAttrWrap();
begin
- return {self.}XmlAttrWrap.Value;
+ return ifnil({self.}XmlAttrWrap.Value) ? fallback_.XmlAttrWrap.Value : {self.}XmlAttrWrap.Value;
end;
-function FramePr.WriteXmlAttrWrap(_value);
+function FramePr.WriteXmlAttrWrap(_value: any);
begin
if ifnil({self.}XmlAttrWrap) then
begin
{self.}XmlAttrWrap := new OpenXmlAttribute({self.}Prefix, "wrap", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrWrap;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "wrap" : "wrap"] := {self.}XmlAttrWrap;
end
{self.}XmlAttrWrap.Value := _value;
end;
function FramePr.ReadXmlAttrVal();
begin
- return {self.}XmlAttrVal.Value;
+ return ifnil({self.}XmlAttrVal.Value) ? fallback_.XmlAttrVal.Value : {self.}XmlAttrVal.Value;
end;
-function FramePr.WriteXmlAttrVal(_value);
+function FramePr.WriteXmlAttrVal(_value: any);
begin
if ifnil({self.}XmlAttrVal) then
begin
{self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrVal;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "val" : "val"] := {self.}XmlAttrVal;
end
{self.}XmlAttrVal.Value := _value;
end;
function FramePr.ReadXmlAttrW();
begin
- return {self.}XmlAttrW.Value;
+ return ifnil({self.}XmlAttrW.Value) ? fallback_.XmlAttrW.Value : {self.}XmlAttrW.Value;
end;
-function FramePr.WriteXmlAttrW(_value);
+function FramePr.WriteXmlAttrW(_value: any);
begin
if ifnil({self.}XmlAttrW) then
begin
{self.}XmlAttrW := new OpenXmlAttribute({self.}Prefix, "w", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrW;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "w" : "w"] := {self.}XmlAttrW;
end
{self.}XmlAttrW.Value := _value;
end;
function FramePr.ReadXmlAttrH();
begin
- return {self.}XmlAttrH.Value;
+ return ifnil({self.}XmlAttrH.Value) ? fallback_.XmlAttrH.Value : {self.}XmlAttrH.Value;
end;
-function FramePr.WriteXmlAttrH(_value);
+function FramePr.WriteXmlAttrH(_value: any);
begin
if ifnil({self.}XmlAttrH) then
begin
{self.}XmlAttrH := new OpenXmlAttribute({self.}Prefix, "h", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrH;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "h" : "h"] := {self.}XmlAttrH;
end
{self.}XmlAttrH.Value := _value;
end;
function FramePr.ReadXmlAttrX();
begin
- return {self.}XmlAttrX.Value;
+ return ifnil({self.}XmlAttrX.Value) ? fallback_.XmlAttrX.Value : {self.}XmlAttrX.Value;
end;
-function FramePr.WriteXmlAttrX(_value);
+function FramePr.WriteXmlAttrX(_value: any);
begin
if ifnil({self.}XmlAttrX) then
begin
{self.}XmlAttrX := new OpenXmlAttribute({self.}Prefix, "x", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrX;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "x" : "x"] := {self.}XmlAttrX;
end
{self.}XmlAttrX.Value := _value;
end;
function FramePr.ReadXmlAttrY();
begin
- return {self.}XmlAttrY.Value;
+ return ifnil({self.}XmlAttrY.Value) ? fallback_.XmlAttrY.Value : {self.}XmlAttrY.Value;
end;
-function FramePr.WriteXmlAttrY(_value);
+function FramePr.WriteXmlAttrY(_value: any);
begin
if ifnil({self.}XmlAttrY) then
begin
{self.}XmlAttrY := new OpenXmlAttribute({self.}Prefix, "y", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrY;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "y" : "y"] := {self.}XmlAttrY;
end
{self.}XmlAttrY.Value := _value;
end;
function FramePr.ReadXmlAttrXAlign();
begin
- return {self.}XmlAttrXAlign.Value;
+ return ifnil({self.}XmlAttrXAlign.Value) ? fallback_.XmlAttrXAlign.Value : {self.}XmlAttrXAlign.Value;
end;
-function FramePr.WriteXmlAttrXAlign(_value);
+function FramePr.WriteXmlAttrXAlign(_value: any);
begin
if ifnil({self.}XmlAttrXAlign) then
begin
{self.}XmlAttrXAlign := new OpenXmlAttribute({self.}Prefix, "xAlign", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrXAlign;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "xAlign" : "xAlign"] := {self.}XmlAttrXAlign;
end
{self.}XmlAttrXAlign.Value := _value;
end;
function FramePr.ReadXmlAttrYAlign();
begin
- return {self.}XmlAttrYAlign.Value;
+ return ifnil({self.}XmlAttrYAlign.Value) ? fallback_.XmlAttrYAlign.Value : {self.}XmlAttrYAlign.Value;
end;
-function FramePr.WriteXmlAttrYAlign(_value);
+function FramePr.WriteXmlAttrYAlign(_value: any);
begin
if ifnil({self.}XmlAttrYAlign) then
begin
{self.}XmlAttrYAlign := new OpenXmlAttribute({self.}Prefix, "yAlign", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrYAlign;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "yAlign" : "yAlign"] := {self.}XmlAttrYAlign;
end
{self.}XmlAttrYAlign.Value := _value;
end;
@@ -6162,13 +8281,13 @@ end;
function PBorder.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function PBorder.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function PBorder.Init();override;
@@ -6217,137 +8336,143 @@ begin
tslassigning := tslassigning_backup;
end;
-function PBorder.ReadXmlAttrVal();
+function PBorder.ConvertToPoint();override;
begin
- return {self.}XmlAttrVal.Value;
+ if not ifnil({self.}XmlAttrSz) then
+ {self.}Sz := TSSafeUnitConverter.HalfPointToPoints({self.}XmlAttrSz.Value);
end;
-function PBorder.WriteXmlAttrVal(_value);
+function PBorder.ReadXmlAttrVal();
+begin
+ return ifnil({self.}XmlAttrVal.Value) ? fallback_.XmlAttrVal.Value : {self.}XmlAttrVal.Value;
+end;
+
+function PBorder.WriteXmlAttrVal(_value: any);
begin
if ifnil({self.}XmlAttrVal) then
begin
{self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrVal;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "val" : "val"] := {self.}XmlAttrVal;
end
{self.}XmlAttrVal.Value := _value;
end;
function PBorder.ReadXmlAttrColor();
begin
- return {self.}XmlAttrColor.Value;
+ return ifnil({self.}XmlAttrColor.Value) ? fallback_.XmlAttrColor.Value : {self.}XmlAttrColor.Value;
end;
-function PBorder.WriteXmlAttrColor(_value);
+function PBorder.WriteXmlAttrColor(_value: any);
begin
if ifnil({self.}XmlAttrColor) then
begin
{self.}XmlAttrColor := new OpenXmlAttribute({self.}Prefix, "color", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrColor;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "color" : "color"] := {self.}XmlAttrColor;
end
{self.}XmlAttrColor.Value := _value;
end;
function PBorder.ReadXmlAttrSpace();
begin
- return {self.}XmlAttrSpace.Value;
+ return ifnil({self.}XmlAttrSpace.Value) ? fallback_.XmlAttrSpace.Value : {self.}XmlAttrSpace.Value;
end;
-function PBorder.WriteXmlAttrSpace(_value);
+function PBorder.WriteXmlAttrSpace(_value: any);
begin
if ifnil({self.}XmlAttrSpace) then
begin
{self.}XmlAttrSpace := new OpenXmlAttribute({self.}Prefix, "space", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrSpace;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "space" : "space"] := {self.}XmlAttrSpace;
end
{self.}XmlAttrSpace.Value := _value;
end;
function PBorder.ReadXmlAttrFrame();
begin
- return {self.}XmlAttrFrame.Value;
+ return ifnil({self.}XmlAttrFrame.Value) ? fallback_.XmlAttrFrame.Value : {self.}XmlAttrFrame.Value;
end;
-function PBorder.WriteXmlAttrFrame(_value);
+function PBorder.WriteXmlAttrFrame(_value: any);
begin
if ifnil({self.}XmlAttrFrame) then
begin
{self.}XmlAttrFrame := new OpenXmlAttribute({self.}Prefix, "frame", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrFrame;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "frame" : "frame"] := {self.}XmlAttrFrame;
end
{self.}XmlAttrFrame.Value := _value;
end;
function PBorder.ReadXmlAttrShadow();
begin
- return {self.}XmlAttrShadow.Value;
+ return ifnil({self.}XmlAttrShadow.Value) ? fallback_.XmlAttrShadow.Value : {self.}XmlAttrShadow.Value;
end;
-function PBorder.WriteXmlAttrShadow(_value);
+function PBorder.WriteXmlAttrShadow(_value: any);
begin
if ifnil({self.}XmlAttrShadow) then
begin
{self.}XmlAttrShadow := new OpenXmlAttribute({self.}Prefix, "shadow", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrShadow;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "shadow" : "shadow"] := {self.}XmlAttrShadow;
end
{self.}XmlAttrShadow.Value := _value;
end;
function PBorder.ReadXmlAttrThemeColor();
begin
- return {self.}XmlAttrThemeColor.Value;
+ return ifnil({self.}XmlAttrThemeColor.Value) ? fallback_.XmlAttrThemeColor.Value : {self.}XmlAttrThemeColor.Value;
end;
-function PBorder.WriteXmlAttrThemeColor(_value);
+function PBorder.WriteXmlAttrThemeColor(_value: any);
begin
if ifnil({self.}XmlAttrThemeColor) then
begin
{self.}XmlAttrThemeColor := new OpenXmlAttribute({self.}Prefix, "themeColor", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrThemeColor;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "themeColor" : "themeColor"] := {self.}XmlAttrThemeColor;
end
{self.}XmlAttrThemeColor.Value := _value;
end;
function PBorder.ReadXmlAttrThemeShade();
begin
- return {self.}XmlAttrThemeShade.Value;
+ return ifnil({self.}XmlAttrThemeShade.Value) ? fallback_.XmlAttrThemeShade.Value : {self.}XmlAttrThemeShade.Value;
end;
-function PBorder.WriteXmlAttrThemeShade(_value);
+function PBorder.WriteXmlAttrThemeShade(_value: any);
begin
if ifnil({self.}XmlAttrThemeShade) then
begin
{self.}XmlAttrThemeShade := new OpenXmlAttribute({self.}Prefix, "themeShade", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrThemeShade;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "themeShade" : "themeShade"] := {self.}XmlAttrThemeShade;
end
{self.}XmlAttrThemeShade.Value := _value;
end;
function PBorder.ReadXmlAttrThemeTint();
begin
- return {self.}XmlAttrThemeTint.Value;
+ return ifnil({self.}XmlAttrThemeTint.Value) ? fallback_.XmlAttrThemeTint.Value : {self.}XmlAttrThemeTint.Value;
end;
-function PBorder.WriteXmlAttrThemeTint(_value);
+function PBorder.WriteXmlAttrThemeTint(_value: any);
begin
if ifnil({self.}XmlAttrThemeTint) then
begin
{self.}XmlAttrThemeTint := new OpenXmlAttribute({self.}Prefix, "themeTint", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrThemeTint;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "themeTint" : "themeTint"] := {self.}XmlAttrThemeTint;
end
{self.}XmlAttrThemeTint.Value := _value;
end;
function PBorder.ReadXmlAttrSz();
begin
- return {self.}XmlAttrSz.Value;
+ return ifnil({self.}XmlAttrSz.Value) ? fallback_.XmlAttrSz.Value : {self.}XmlAttrSz.Value;
end;
-function PBorder.WriteXmlAttrSz(_value);
+function PBorder.WriteXmlAttrSz(_value: any);
begin
if ifnil({self.}XmlAttrSz) then
begin
{self.}XmlAttrSz := new OpenXmlAttribute({self.}Prefix, "sz", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrSz;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "sz" : "sz"] := {self.}XmlAttrSz;
end
{self.}XmlAttrSz.Value := _value;
end;
@@ -6359,13 +8484,13 @@ end;
function Tabs.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Tabs.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Tabs.Init();override;
@@ -6388,13 +8513,39 @@ begin
tslassigning := tslassigning_backup;
end;
-function Tabs.ReadTabs(_index);
+function Tabs.ConvertToPoint();override;
+begin
+ elems := {self.}Tabs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+end;
+
+function Tabs.ReadTabs(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "tab", ind);
end;
+function Tabs.WriteTabs(_index: integer; _value: nil_OR_Tab);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadTabs(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "tab", ind, _value) then
+ raise format("Index out of range: Tabs[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Tabs expects nil or Tab";
+ end
+end;
+
function Tabs.AddTab(): Tab;
begin
obj := new Tab(self, {self.}Prefix, "tab");
@@ -6416,13 +8567,13 @@ end;
function Tab.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Tab.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Tab.Init();override;
@@ -6453,47 +8604,52 @@ begin
tslassigning := tslassigning_backup;
end;
-function Tab.ReadXmlAttrVal();
+function Tab.ConvertToPoint();override;
begin
- return {self.}XmlAttrVal.Value;
+
end;
-function Tab.WriteXmlAttrVal(_value);
+function Tab.ReadXmlAttrVal();
+begin
+ return ifnil({self.}XmlAttrVal.Value) ? fallback_.XmlAttrVal.Value : {self.}XmlAttrVal.Value;
+end;
+
+function Tab.WriteXmlAttrVal(_value: any);
begin
if ifnil({self.}XmlAttrVal) then
begin
{self.}XmlAttrVal := new OpenXmlAttribute("", "val", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrVal;
+ attributes_["val"] := {self.}XmlAttrVal;
end
{self.}XmlAttrVal.Value := _value;
end;
function Tab.ReadXmlAttrLeader();
begin
- return {self.}XmlAttrLeader.Value;
+ return ifnil({self.}XmlAttrLeader.Value) ? fallback_.XmlAttrLeader.Value : {self.}XmlAttrLeader.Value;
end;
-function Tab.WriteXmlAttrLeader(_value);
+function Tab.WriteXmlAttrLeader(_value: any);
begin
if ifnil({self.}XmlAttrLeader) then
begin
{self.}XmlAttrLeader := new OpenXmlAttribute({self.}Prefix, "leader", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrLeader;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "leader" : "leader"] := {self.}XmlAttrLeader;
end
{self.}XmlAttrLeader.Value := _value;
end;
function Tab.ReadXmlAttrPos();
begin
- return {self.}XmlAttrPos.Value;
+ return ifnil({self.}XmlAttrPos.Value) ? fallback_.XmlAttrPos.Value : {self.}XmlAttrPos.Value;
end;
-function Tab.WriteXmlAttrPos(_value);
+function Tab.WriteXmlAttrPos(_value: any);
begin
if ifnil({self.}XmlAttrPos) then
begin
{self.}XmlAttrPos := new OpenXmlAttribute({self.}Prefix, "pos", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrPos;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "pos" : "pos"] := {self.}XmlAttrPos;
end
{self.}XmlAttrPos.Value := _value;
end;
@@ -6505,13 +8661,13 @@ end;
function NumPr.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function NumPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function NumPr.Init();override;
@@ -6539,6 +8695,14 @@ begin
tslassigning := tslassigning_backup;
end;
+function NumPr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildIlvl) then
+ {self.}XmlChildIlvl.ConvertToPoint();
+ if not ifnil({self.}XmlChildNumId) then
+ {self.}XmlChildNumId.ConvertToPoint();
+end;
+
function NumPr.ReadXmlChildIlvl(): PureWVal;
begin
if tslassigning and (ifnil({self.}XmlChildIlvl) or {self.}XmlChildIlvl.Removed) then
@@ -6546,7 +8710,25 @@ begin
{self.}XmlChildIlvl := new PureWVal(self, {self.}Prefix, "ilvl");
container_.Set({self.}XmlChildIlvl);
end
- return {self.}XmlChildIlvl;
+ return {self.}XmlChildIlvl and not {self.}XmlChildIlvl.Removed ? {self.}XmlChildIlvl : fallback_.XmlChildIlvl;
+end;
+
+function NumPr.WriteXmlChildIlvl(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildIlvl) then
+ {self.}RemoveChild({self.}XmlChildIlvl);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildIlvl := v;
+ container_.Set({self.}XmlChildIlvl);
+ end
+ else begin
+ raise "Invalid assignment: Ilvl expects PureWVal or nil";
+ end
end;
function NumPr.ReadXmlChildNumId(): PureWVal;
@@ -6556,7 +8738,25 @@ begin
{self.}XmlChildNumId := new PureWVal(self, {self.}Prefix, "numId");
container_.Set({self.}XmlChildNumId);
end
- return {self.}XmlChildNumId;
+ return {self.}XmlChildNumId and not {self.}XmlChildNumId.Removed ? {self.}XmlChildNumId : fallback_.XmlChildNumId;
+end;
+
+function NumPr.WriteXmlChildNumId(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildNumId) then
+ {self.}RemoveChild({self.}XmlChildNumId);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildNumId := v;
+ container_.Set({self.}XmlChildNumId);
+ end
+ else begin
+ raise "Invalid assignment: NumId expects PureWVal or nil";
+ end
end;
function Ind.Create();overload;
@@ -6566,13 +8766,13 @@ end;
function Ind.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Ind.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Ind.Init();override;
@@ -6618,122 +8818,142 @@ begin
tslassigning := tslassigning_backup;
end;
-function Ind.ReadXmlAttrFirstLineChars();
+function Ind.ConvertToPoint();override;
begin
- return {self.}XmlAttrFirstLineChars.Value;
+ if not ifnil({self.}XmlAttrFirstLineChars) then
+ {self.}FirstLineChars := TSSafeUnitConverter.PercentToNumber({self.}XmlAttrFirstLineChars.Value);
+ if not ifnil({self.}XmlAttrFirstLine) then
+ {self.}FirstLine := TSSafeUnitConverter.TwipsToPoints({self.}XmlAttrFirstLine.Value);
+ if not ifnil({self.}XmlAttrRightChars) then
+ {self.}RightChars := TSSafeUnitConverter.PercentToNumber({self.}XmlAttrRightChars.Value);
+ if not ifnil({self.}XmlAttrRight) then
+ {self.}Right := TSSafeUnitConverter.TwipsToPoints({self.}XmlAttrRight.Value);
+ if not ifnil({self.}XmlAttrLeftChars) then
+ {self.}LeftChars := TSSafeUnitConverter.PercentToNumber({self.}XmlAttrLeftChars.Value);
+ if not ifnil({self.}XmlAttrLeft) then
+ {self.}Left := TSSafeUnitConverter.TwipsToPoints({self.}XmlAttrLeft.Value);
+ if not ifnil({self.}XmlAttrHanging) then
+ {self.}Hanging := TSSafeUnitConverter.TwipsToPoints({self.}XmlAttrHanging.Value);
+ if not ifnil({self.}XmlAttrHangingChars) then
+ {self.}HangingChars := TSSafeUnitConverter.PercentToNumber({self.}XmlAttrHangingChars.Value);
end;
-function Ind.WriteXmlAttrFirstLineChars(_value);
+function Ind.ReadXmlAttrFirstLineChars();
+begin
+ return ifnil({self.}XmlAttrFirstLineChars.Value) ? fallback_.XmlAttrFirstLineChars.Value : {self.}XmlAttrFirstLineChars.Value;
+end;
+
+function Ind.WriteXmlAttrFirstLineChars(_value: any);
begin
if ifnil({self.}XmlAttrFirstLineChars) then
begin
{self.}XmlAttrFirstLineChars := new OpenXmlAttribute({self.}Prefix, "firstLineChars", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrFirstLineChars;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "firstLineChars" : "firstLineChars"] := {self.}XmlAttrFirstLineChars;
end
{self.}XmlAttrFirstLineChars.Value := _value;
end;
function Ind.ReadXmlAttrFirstLine();
begin
- return {self.}XmlAttrFirstLine.Value;
+ return ifnil({self.}XmlAttrFirstLine.Value) ? fallback_.XmlAttrFirstLine.Value : {self.}XmlAttrFirstLine.Value;
end;
-function Ind.WriteXmlAttrFirstLine(_value);
+function Ind.WriteXmlAttrFirstLine(_value: any);
begin
if ifnil({self.}XmlAttrFirstLine) then
begin
{self.}XmlAttrFirstLine := new OpenXmlAttribute({self.}Prefix, "firstLine", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrFirstLine;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "firstLine" : "firstLine"] := {self.}XmlAttrFirstLine;
end
{self.}XmlAttrFirstLine.Value := _value;
end;
function Ind.ReadXmlAttrRightChars();
begin
- return {self.}XmlAttrRightChars.Value;
+ return ifnil({self.}XmlAttrRightChars.Value) ? fallback_.XmlAttrRightChars.Value : {self.}XmlAttrRightChars.Value;
end;
-function Ind.WriteXmlAttrRightChars(_value);
+function Ind.WriteXmlAttrRightChars(_value: any);
begin
if ifnil({self.}XmlAttrRightChars) then
begin
{self.}XmlAttrRightChars := new OpenXmlAttribute({self.}Prefix, "rightChars", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrRightChars;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "rightChars" : "rightChars"] := {self.}XmlAttrRightChars;
end
{self.}XmlAttrRightChars.Value := _value;
end;
function Ind.ReadXmlAttrRight();
begin
- return {self.}XmlAttrRight.Value;
+ return ifnil({self.}XmlAttrRight.Value) ? fallback_.XmlAttrRight.Value : {self.}XmlAttrRight.Value;
end;
-function Ind.WriteXmlAttrRight(_value);
+function Ind.WriteXmlAttrRight(_value: any);
begin
if ifnil({self.}XmlAttrRight) then
begin
{self.}XmlAttrRight := new OpenXmlAttribute({self.}Prefix, "right", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrRight;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "right" : "right"] := {self.}XmlAttrRight;
end
{self.}XmlAttrRight.Value := _value;
end;
function Ind.ReadXmlAttrLeftChars();
begin
- return {self.}XmlAttrLeftChars.Value;
+ return ifnil({self.}XmlAttrLeftChars.Value) ? fallback_.XmlAttrLeftChars.Value : {self.}XmlAttrLeftChars.Value;
end;
-function Ind.WriteXmlAttrLeftChars(_value);
+function Ind.WriteXmlAttrLeftChars(_value: any);
begin
if ifnil({self.}XmlAttrLeftChars) then
begin
{self.}XmlAttrLeftChars := new OpenXmlAttribute({self.}Prefix, "leftChars", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrLeftChars;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "leftChars" : "leftChars"] := {self.}XmlAttrLeftChars;
end
{self.}XmlAttrLeftChars.Value := _value;
end;
function Ind.ReadXmlAttrLeft();
begin
- return {self.}XmlAttrLeft.Value;
+ return ifnil({self.}XmlAttrLeft.Value) ? fallback_.XmlAttrLeft.Value : {self.}XmlAttrLeft.Value;
end;
-function Ind.WriteXmlAttrLeft(_value);
+function Ind.WriteXmlAttrLeft(_value: any);
begin
if ifnil({self.}XmlAttrLeft) then
begin
{self.}XmlAttrLeft := new OpenXmlAttribute({self.}Prefix, "left", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrLeft;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "left" : "left"] := {self.}XmlAttrLeft;
end
{self.}XmlAttrLeft.Value := _value;
end;
function Ind.ReadXmlAttrHanging();
begin
- return {self.}XmlAttrHanging.Value;
+ return ifnil({self.}XmlAttrHanging.Value) ? fallback_.XmlAttrHanging.Value : {self.}XmlAttrHanging.Value;
end;
-function Ind.WriteXmlAttrHanging(_value);
+function Ind.WriteXmlAttrHanging(_value: any);
begin
if ifnil({self.}XmlAttrHanging) then
begin
{self.}XmlAttrHanging := new OpenXmlAttribute({self.}Prefix, "hainging", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrHanging;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "hainging" : "hainging"] := {self.}XmlAttrHanging;
end
{self.}XmlAttrHanging.Value := _value;
end;
function Ind.ReadXmlAttrHangingChars();
begin
- return {self.}XmlAttrHangingChars.Value;
+ return ifnil({self.}XmlAttrHangingChars.Value) ? fallback_.XmlAttrHangingChars.Value : {self.}XmlAttrHangingChars.Value;
end;
-function Ind.WriteXmlAttrHangingChars(_value);
+function Ind.WriteXmlAttrHangingChars(_value: any);
begin
if ifnil({self.}XmlAttrHangingChars) then
begin
{self.}XmlAttrHangingChars := new OpenXmlAttribute({self.}Prefix, "hangingChars", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrHangingChars;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "hangingChars" : "hangingChars"] := {self.}XmlAttrHangingChars;
end
{self.}XmlAttrHangingChars.Value := _value;
end;
@@ -6745,13 +8965,13 @@ end;
function Spacing.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Spacing.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Spacing.Init();override;
@@ -6797,122 +9017,136 @@ begin
tslassigning := tslassigning_backup;
end;
-function Spacing.ReadXmlAttrBefore();
+function Spacing.ConvertToPoint();override;
begin
- return {self.}XmlAttrBefore.Value;
+ if not ifnil({self.}XmlAttrBefore) then
+ {self.}Before := TSSafeUnitConverter.TwipsToPoints({self.}XmlAttrBefore.Value);
+ if not ifnil({self.}XmlAttrBeforeLines) then
+ {self.}BeforeLines := TSSafeUnitConverter.PercentToNumber({self.}XmlAttrBeforeLines.Value);
+ if not ifnil({self.}XmlAttrAfter) then
+ {self.}After := TSSafeUnitConverter.TwipsToPoints({self.}XmlAttrAfter.Value);
+ if not ifnil({self.}XmlAttrAfterLines) then
+ {self.}AfterLines := TSSafeUnitConverter.PercentToNumber({self.}XmlAttrAfterLines.Value);
+ if not ifnil({self.}XmlAttrLine) then
+ {self.}Line := TSSafeUnitConverter.ToInt({self.}XmlAttrLine.Value);
end;
-function Spacing.WriteXmlAttrBefore(_value);
+function Spacing.ReadXmlAttrBefore();
+begin
+ return ifnil({self.}XmlAttrBefore.Value) ? fallback_.XmlAttrBefore.Value : {self.}XmlAttrBefore.Value;
+end;
+
+function Spacing.WriteXmlAttrBefore(_value: any);
begin
if ifnil({self.}XmlAttrBefore) then
begin
{self.}XmlAttrBefore := new OpenXmlAttribute({self.}Prefix, "before", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrBefore;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "before" : "before"] := {self.}XmlAttrBefore;
end
{self.}XmlAttrBefore.Value := _value;
end;
function Spacing.ReadXmlAttrBeforeLines();
begin
- return {self.}XmlAttrBeforeLines.Value;
+ return ifnil({self.}XmlAttrBeforeLines.Value) ? fallback_.XmlAttrBeforeLines.Value : {self.}XmlAttrBeforeLines.Value;
end;
-function Spacing.WriteXmlAttrBeforeLines(_value);
+function Spacing.WriteXmlAttrBeforeLines(_value: any);
begin
if ifnil({self.}XmlAttrBeforeLines) then
begin
{self.}XmlAttrBeforeLines := new OpenXmlAttribute({self.}Prefix, "beforeLines", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrBeforeLines;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "beforeLines" : "beforeLines"] := {self.}XmlAttrBeforeLines;
end
{self.}XmlAttrBeforeLines.Value := _value;
end;
function Spacing.ReadXmlAttrBeforeAutospacing();
begin
- return {self.}XmlAttrBeforeAutospacing.Value;
+ return ifnil({self.}XmlAttrBeforeAutospacing.Value) ? fallback_.XmlAttrBeforeAutospacing.Value : {self.}XmlAttrBeforeAutospacing.Value;
end;
-function Spacing.WriteXmlAttrBeforeAutospacing(_value);
+function Spacing.WriteXmlAttrBeforeAutospacing(_value: any);
begin
if ifnil({self.}XmlAttrBeforeAutospacing) then
begin
{self.}XmlAttrBeforeAutospacing := new OpenXmlAttribute({self.}Prefix, "beforeAutospacing", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrBeforeAutospacing;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "beforeAutospacing" : "beforeAutospacing"] := {self.}XmlAttrBeforeAutospacing;
end
{self.}XmlAttrBeforeAutospacing.Value := _value;
end;
function Spacing.ReadXmlAttrAfter();
begin
- return {self.}XmlAttrAfter.Value;
+ return ifnil({self.}XmlAttrAfter.Value) ? fallback_.XmlAttrAfter.Value : {self.}XmlAttrAfter.Value;
end;
-function Spacing.WriteXmlAttrAfter(_value);
+function Spacing.WriteXmlAttrAfter(_value: any);
begin
if ifnil({self.}XmlAttrAfter) then
begin
{self.}XmlAttrAfter := new OpenXmlAttribute({self.}Prefix, "after", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrAfter;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "after" : "after"] := {self.}XmlAttrAfter;
end
{self.}XmlAttrAfter.Value := _value;
end;
function Spacing.ReadXmlAttrAfterLines();
begin
- return {self.}XmlAttrAfterLines.Value;
+ return ifnil({self.}XmlAttrAfterLines.Value) ? fallback_.XmlAttrAfterLines.Value : {self.}XmlAttrAfterLines.Value;
end;
-function Spacing.WriteXmlAttrAfterLines(_value);
+function Spacing.WriteXmlAttrAfterLines(_value: any);
begin
if ifnil({self.}XmlAttrAfterLines) then
begin
{self.}XmlAttrAfterLines := new OpenXmlAttribute({self.}Prefix, "afterLines", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrAfterLines;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "afterLines" : "afterLines"] := {self.}XmlAttrAfterLines;
end
{self.}XmlAttrAfterLines.Value := _value;
end;
function Spacing.ReadXmlAttrAfterAutospacing();
begin
- return {self.}XmlAttrAfterAutospacing.Value;
+ return ifnil({self.}XmlAttrAfterAutospacing.Value) ? fallback_.XmlAttrAfterAutospacing.Value : {self.}XmlAttrAfterAutospacing.Value;
end;
-function Spacing.WriteXmlAttrAfterAutospacing(_value);
+function Spacing.WriteXmlAttrAfterAutospacing(_value: any);
begin
if ifnil({self.}XmlAttrAfterAutospacing) then
begin
{self.}XmlAttrAfterAutospacing := new OpenXmlAttribute({self.}Prefix, "afterAutospacing", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrAfterAutospacing;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "afterAutospacing" : "afterAutospacing"] := {self.}XmlAttrAfterAutospacing;
end
{self.}XmlAttrAfterAutospacing.Value := _value;
end;
function Spacing.ReadXmlAttrLine();
begin
- return {self.}XmlAttrLine.Value;
+ return ifnil({self.}XmlAttrLine.Value) ? fallback_.XmlAttrLine.Value : {self.}XmlAttrLine.Value;
end;
-function Spacing.WriteXmlAttrLine(_value);
+function Spacing.WriteXmlAttrLine(_value: any);
begin
if ifnil({self.}XmlAttrLine) then
begin
{self.}XmlAttrLine := new OpenXmlAttribute({self.}Prefix, "line", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrLine;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "line" : "line"] := {self.}XmlAttrLine;
end
{self.}XmlAttrLine.Value := _value;
end;
function Spacing.ReadXmlAttrLineRule();
begin
- return {self.}XmlAttrLineRule.Value;
+ return ifnil({self.}XmlAttrLineRule.Value) ? fallback_.XmlAttrLineRule.Value : {self.}XmlAttrLineRule.Value;
end;
-function Spacing.WriteXmlAttrLineRule(_value);
+function Spacing.WriteXmlAttrLineRule(_value: any);
begin
if ifnil({self.}XmlAttrLineRule) then
begin
{self.}XmlAttrLineRule := new OpenXmlAttribute({self.}Prefix, "lineRule", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrLineRule;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "lineRule" : "lineRule"] := {self.}XmlAttrLineRule;
end
{self.}XmlAttrLineRule.Value := _value;
end;
@@ -6924,13 +9158,13 @@ end;
function RPr.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function RPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function RPr.Init();override;
@@ -7072,6 +9306,68 @@ begin
tslassigning := tslassigning_backup;
end;
+function RPr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildNoProof) then
+ {self.}XmlChildNoProof.ConvertToPoint();
+ if not ifnil({self.}XmlChildOutline) then
+ {self.}XmlChildOutline.ConvertToPoint();
+ if not ifnil({self.}XmlChildPosition) then
+ {self.}XmlChildPosition.ConvertToPoint();
+ if not ifnil({self.}XmlChildWebHidden) then
+ {self.}XmlChildWebHidden.ConvertToPoint();
+ if not ifnil({self.}XmlChildRStyle) then
+ {self.}XmlChildRStyle.ConvertToPoint();
+ if not ifnil({self.}XmlChildIns) then
+ {self.}XmlChildIns.ConvertToPoint();
+ if not ifnil({self.}XmlChildRFonts) then
+ {self.}XmlChildRFonts.ConvertToPoint();
+ if not ifnil({self.}XmlChildKern) then
+ {self.}XmlChildKern.ConvertToPoint();
+ if not ifnil({self.}XmlChildBdr) then
+ {self.}XmlChildBdr.ConvertToPoint();
+ if not ifnil({self.}XmlChildCaps) then
+ {self.}XmlChildCaps.ConvertToPoint();
+ if not ifnil({self.}XmlChildDel) then
+ {self.}XmlChildDel.ConvertToPoint();
+ if not ifnil({self.}XmlChildDStrike) then
+ {self.}XmlChildDStrike.ConvertToPoint();
+ if not ifnil({self.}XmlChildEffect) then
+ {self.}XmlChildEffect.ConvertToPoint();
+ if not ifnil({self.}XmlChildEm) then
+ {self.}XmlChildEm.ConvertToPoint();
+ if not ifnil({self.}XmlChildEmboss) then
+ {self.}XmlChildEmboss.ConvertToPoint();
+ if not ifnil({self.}XmlChildFitText) then
+ {self.}XmlChildFitText.ConvertToPoint();
+ if not ifnil({self.}XmlChildHighlight) then
+ {self.}XmlChildHighlight.ConvertToPoint();
+ if not ifnil({self.}XmlChildColor) then
+ {self.}XmlChildColor.ConvertToPoint();
+ if not ifnil({self.}XmlChildEastAsianLayout) then
+ {self.}XmlChildEastAsianLayout.ConvertToPoint();
+ if not ifnil({self.}XmlChildSz) then
+ {self.}XmlChildSz.ConvertToPoint();
+ if not ifnil({self.}XmlChildSzCs) then
+ {self.}XmlChildSzCs.ConvertToPoint();
+ if not ifnil({self.}XmlChildLang) then
+ {self.}XmlChildLang.ConvertToPoint();
+ if not ifnil({self.}XmlChildImprint) then
+ {self.}XmlChildImprint.ConvertToPoint();
+ if not ifnil({self.}XmlChildVertAlign) then
+ {self.}XmlChildVertAlign.ConvertToPoint();
+ if not ifnil({self.}XmlChildLigatures) then
+ {self.}XmlChildLigatures.ConvertToPoint();
+ if not ifnil({self.}XmlChildRtl) then
+ {self.}XmlChildRtl.ConvertToPoint();
+ if not ifnil({self.}XmlChildShd) then
+ {self.}XmlChildShd.ConvertToPoint();
+ if not ifnil({self.}XmlChildSmallCaps) then
+ {self.}XmlChildSmallCaps.ConvertToPoint();
+ if not ifnil({self.}XmlChildW) then
+ {self.}XmlChildW.ConvertToPoint();
+end;
+
function RPr.ReadXmlChildI();
begin
if tslassigning and (ifnil({self.}XmlChildI) or {self.}XmlChildI.Removed) then
@@ -7079,7 +9375,24 @@ begin
{self.}XmlChildI := new OpenXmlSimpleType(self, {self.}Prefix, "i");
container_.Set({self.}XmlChildI);
end
- return {self.}XmlChildI;
+ return {self.}XmlChildI and not {self.}XmlChildI.Removed ? {self.}XmlChildI : fallback_.XmlChildI;
+end;
+
+function RPr.WriteXmlChildI(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildI) then
+ {self.}RemoveChild({self.}XmlChildI);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildI := _value;
+ container_.Set({self.}XmlChildI);
+ end
+ else begin
+ raise "Invalid assignment: I expects nil or OpenXmlSimpleType";
+ end
end;
function RPr.ReadXmlChildICs();
@@ -7089,7 +9402,24 @@ begin
{self.}XmlChildICs := new OpenXmlSimpleType(self, {self.}Prefix, "iCs");
container_.Set({self.}XmlChildICs);
end
- return {self.}XmlChildICs;
+ return {self.}XmlChildICs and not {self.}XmlChildICs.Removed ? {self.}XmlChildICs : fallback_.XmlChildICs;
+end;
+
+function RPr.WriteXmlChildICs(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildICs) then
+ {self.}RemoveChild({self.}XmlChildICs);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildICs := _value;
+ container_.Set({self.}XmlChildICs);
+ end
+ else begin
+ raise "Invalid assignment: ICs expects nil or OpenXmlSimpleType";
+ end
end;
function RPr.ReadXmlChildB();
@@ -7099,7 +9429,24 @@ begin
{self.}XmlChildB := new OpenXmlSimpleType(self, {self.}Prefix, "b");
container_.Set({self.}XmlChildB);
end
- return {self.}XmlChildB;
+ return {self.}XmlChildB and not {self.}XmlChildB.Removed ? {self.}XmlChildB : fallback_.XmlChildB;
+end;
+
+function RPr.WriteXmlChildB(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildB) then
+ {self.}RemoveChild({self.}XmlChildB);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildB := _value;
+ container_.Set({self.}XmlChildB);
+ end
+ else begin
+ raise "Invalid assignment: B expects nil or OpenXmlSimpleType";
+ end
end;
function RPr.ReadXmlChildBCs();
@@ -7109,7 +9456,24 @@ begin
{self.}XmlChildBCs := new OpenXmlSimpleType(self, {self.}Prefix, "bCs");
container_.Set({self.}XmlChildBCs);
end
- return {self.}XmlChildBCs;
+ return {self.}XmlChildBCs and not {self.}XmlChildBCs.Removed ? {self.}XmlChildBCs : fallback_.XmlChildBCs;
+end;
+
+function RPr.WriteXmlChildBCs(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildBCs) then
+ {self.}RemoveChild({self.}XmlChildBCs);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildBCs := _value;
+ container_.Set({self.}XmlChildBCs);
+ end
+ else begin
+ raise "Invalid assignment: BCs expects nil or OpenXmlSimpleType";
+ end
end;
function RPr.ReadXmlChildStrike();
@@ -7119,7 +9483,24 @@ begin
{self.}XmlChildStrike := new OpenXmlSimpleType(self, {self.}Prefix, "strike");
container_.Set({self.}XmlChildStrike);
end
- return {self.}XmlChildStrike;
+ return {self.}XmlChildStrike and not {self.}XmlChildStrike.Removed ? {self.}XmlChildStrike : fallback_.XmlChildStrike;
+end;
+
+function RPr.WriteXmlChildStrike(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildStrike) then
+ {self.}RemoveChild({self.}XmlChildStrike);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildStrike := _value;
+ container_.Set({self.}XmlChildStrike);
+ end
+ else begin
+ raise "Invalid assignment: Strike expects nil or OpenXmlSimpleType";
+ end
end;
function RPr.ReadXmlChildCs();
@@ -7129,7 +9510,24 @@ begin
{self.}XmlChildCs := new OpenXmlSimpleType(self, {self.}Prefix, "cs");
container_.Set({self.}XmlChildCs);
end
- return {self.}XmlChildCs;
+ return {self.}XmlChildCs and not {self.}XmlChildCs.Removed ? {self.}XmlChildCs : fallback_.XmlChildCs;
+end;
+
+function RPr.WriteXmlChildCs(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildCs) then
+ {self.}RemoveChild({self.}XmlChildCs);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildCs := _value;
+ container_.Set({self.}XmlChildCs);
+ end
+ else begin
+ raise "Invalid assignment: Cs expects nil or OpenXmlSimpleType";
+ end
end;
function RPr.ReadXmlChildU();
@@ -7139,7 +9537,24 @@ begin
{self.}XmlChildU := new OpenXmlSimpleType(self, {self.}Prefix, "u");
container_.Set({self.}XmlChildU);
end
- return {self.}XmlChildU;
+ return {self.}XmlChildU and not {self.}XmlChildU.Removed ? {self.}XmlChildU : fallback_.XmlChildU;
+end;
+
+function RPr.WriteXmlChildU(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildU) then
+ {self.}RemoveChild({self.}XmlChildU);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildU := _value;
+ container_.Set({self.}XmlChildU);
+ end
+ else begin
+ raise "Invalid assignment: U expects nil or OpenXmlSimpleType";
+ end
end;
function RPr.ReadXmlChildOMath();
@@ -7149,7 +9564,24 @@ begin
{self.}XmlChildOMath := new OpenXmlSimpleType(self, {self.}Prefix, "oMath");
container_.Set({self.}XmlChildOMath);
end
- return {self.}XmlChildOMath;
+ return {self.}XmlChildOMath and not {self.}XmlChildOMath.Removed ? {self.}XmlChildOMath : fallback_.XmlChildOMath;
+end;
+
+function RPr.WriteXmlChildOMath(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildOMath) then
+ {self.}RemoveChild({self.}XmlChildOMath);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildOMath := _value;
+ container_.Set({self.}XmlChildOMath);
+ end
+ else begin
+ raise "Invalid assignment: OMath expects nil or OpenXmlSimpleType";
+ end
end;
function RPr.ReadXmlChildShadow();
@@ -7159,7 +9591,24 @@ begin
{self.}XmlChildShadow := new OpenXmlSimpleType(self, {self.}Prefix, "shadow");
container_.Set({self.}XmlChildShadow);
end
- return {self.}XmlChildShadow;
+ return {self.}XmlChildShadow and not {self.}XmlChildShadow.Removed ? {self.}XmlChildShadow : fallback_.XmlChildShadow;
+end;
+
+function RPr.WriteXmlChildShadow(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildShadow) then
+ {self.}RemoveChild({self.}XmlChildShadow);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildShadow := _value;
+ container_.Set({self.}XmlChildShadow);
+ end
+ else begin
+ raise "Invalid assignment: Shadow expects nil or OpenXmlSimpleType";
+ end
end;
function RPr.ReadXmlChildSpecVanish();
@@ -7169,7 +9618,24 @@ begin
{self.}XmlChildSpecVanish := new OpenXmlSimpleType(self, {self.}Prefix, "specVanish");
container_.Set({self.}XmlChildSpecVanish);
end
- return {self.}XmlChildSpecVanish;
+ return {self.}XmlChildSpecVanish and not {self.}XmlChildSpecVanish.Removed ? {self.}XmlChildSpecVanish : fallback_.XmlChildSpecVanish;
+end;
+
+function RPr.WriteXmlChildSpecVanish(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildSpecVanish) then
+ {self.}RemoveChild({self.}XmlChildSpecVanish);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildSpecVanish := _value;
+ container_.Set({self.}XmlChildSpecVanish);
+ end
+ else begin
+ raise "Invalid assignment: SpecVanish expects nil or OpenXmlSimpleType";
+ end
end;
function RPr.ReadXmlChildVanish();
@@ -7179,7 +9645,24 @@ begin
{self.}XmlChildVanish := new OpenXmlSimpleType(self, {self.}Prefix, "vanish");
container_.Set({self.}XmlChildVanish);
end
- return {self.}XmlChildVanish;
+ return {self.}XmlChildVanish and not {self.}XmlChildVanish.Removed ? {self.}XmlChildVanish : fallback_.XmlChildVanish;
+end;
+
+function RPr.WriteXmlChildVanish(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildVanish) then
+ {self.}RemoveChild({self.}XmlChildVanish);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildVanish := _value;
+ container_.Set({self.}XmlChildVanish);
+ end
+ else begin
+ raise "Invalid assignment: Vanish expects nil or OpenXmlSimpleType";
+ end
end;
function RPr.ReadXmlChildNoProof(): PureVal;
@@ -7189,7 +9672,25 @@ begin
{self.}XmlChildNoProof := new PureVal(self, {self.}Prefix, "noProof");
container_.Set({self.}XmlChildNoProof);
end
- return {self.}XmlChildNoProof;
+ return {self.}XmlChildNoProof and not {self.}XmlChildNoProof.Removed ? {self.}XmlChildNoProof : fallback_.XmlChildNoProof;
+end;
+
+function RPr.WriteXmlChildNoProof(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildNoProof) then
+ {self.}RemoveChild({self.}XmlChildNoProof);
+ end
+ else if v is class(PureVal) then
+ begin
+ {self.}XmlChildNoProof := v;
+ container_.Set({self.}XmlChildNoProof);
+ end
+ else begin
+ raise "Invalid assignment: NoProof expects PureVal or nil";
+ end
end;
function RPr.ReadXmlChildOutline(): PureVal;
@@ -7199,7 +9700,25 @@ begin
{self.}XmlChildOutline := new PureVal(self, {self.}Prefix, "outline");
container_.Set({self.}XmlChildOutline);
end
- return {self.}XmlChildOutline;
+ return {self.}XmlChildOutline and not {self.}XmlChildOutline.Removed ? {self.}XmlChildOutline : fallback_.XmlChildOutline;
+end;
+
+function RPr.WriteXmlChildOutline(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildOutline) then
+ {self.}RemoveChild({self.}XmlChildOutline);
+ end
+ else if v is class(PureVal) then
+ begin
+ {self.}XmlChildOutline := v;
+ container_.Set({self.}XmlChildOutline);
+ end
+ else begin
+ raise "Invalid assignment: Outline expects PureVal or nil";
+ end
end;
function RPr.ReadXmlChildPosition(): PureVal;
@@ -7209,7 +9728,25 @@ begin
{self.}XmlChildPosition := new PureVal(self, {self.}Prefix, "position");
container_.Set({self.}XmlChildPosition);
end
- return {self.}XmlChildPosition;
+ return {self.}XmlChildPosition and not {self.}XmlChildPosition.Removed ? {self.}XmlChildPosition : fallback_.XmlChildPosition;
+end;
+
+function RPr.WriteXmlChildPosition(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildPosition) then
+ {self.}RemoveChild({self.}XmlChildPosition);
+ end
+ else if v is class(PureVal) then
+ begin
+ {self.}XmlChildPosition := v;
+ container_.Set({self.}XmlChildPosition);
+ end
+ else begin
+ raise "Invalid assignment: Position expects PureVal or nil";
+ end
end;
function RPr.ReadXmlChildWebHidden(): PureWVal;
@@ -7219,7 +9756,25 @@ begin
{self.}XmlChildWebHidden := new PureWVal(self, {self.}Prefix, "wedHidden");
container_.Set({self.}XmlChildWebHidden);
end
- return {self.}XmlChildWebHidden;
+ return {self.}XmlChildWebHidden and not {self.}XmlChildWebHidden.Removed ? {self.}XmlChildWebHidden : fallback_.XmlChildWebHidden;
+end;
+
+function RPr.WriteXmlChildWebHidden(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildWebHidden) then
+ {self.}RemoveChild({self.}XmlChildWebHidden);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildWebHidden := v;
+ container_.Set({self.}XmlChildWebHidden);
+ end
+ else begin
+ raise "Invalid assignment: WebHidden expects PureWVal or nil";
+ end
end;
function RPr.ReadXmlChildRStyle(): PureWVal;
@@ -7229,7 +9784,25 @@ begin
{self.}XmlChildRStyle := new PureWVal(self, {self.}Prefix, "rStyle");
container_.Set({self.}XmlChildRStyle);
end
- return {self.}XmlChildRStyle;
+ return {self.}XmlChildRStyle and not {self.}XmlChildRStyle.Removed ? {self.}XmlChildRStyle : fallback_.XmlChildRStyle;
+end;
+
+function RPr.WriteXmlChildRStyle(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildRStyle) then
+ {self.}RemoveChild({self.}XmlChildRStyle);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildRStyle := v;
+ container_.Set({self.}XmlChildRStyle);
+ end
+ else begin
+ raise "Invalid assignment: RStyle expects PureWVal or nil";
+ end
end;
function RPr.ReadXmlChildIns(): Ins;
@@ -7239,7 +9812,25 @@ begin
{self.}XmlChildIns := new Ins(self, {self.}Prefix, "ins");
container_.Set({self.}XmlChildIns);
end
- return {self.}XmlChildIns;
+ return {self.}XmlChildIns and not {self.}XmlChildIns.Removed ? {self.}XmlChildIns : fallback_.XmlChildIns;
+end;
+
+function RPr.WriteXmlChildIns(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildIns) then
+ {self.}RemoveChild({self.}XmlChildIns);
+ end
+ else if v is class(Ins) then
+ begin
+ {self.}XmlChildIns := v;
+ container_.Set({self.}XmlChildIns);
+ end
+ else begin
+ raise "Invalid assignment: Ins expects Ins or nil";
+ end
end;
function RPr.ReadXmlChildRFonts(): RFonts;
@@ -7249,7 +9840,25 @@ begin
{self.}XmlChildRFonts := new RFonts(self, {self.}Prefix, "rFonts");
container_.Set({self.}XmlChildRFonts);
end
- return {self.}XmlChildRFonts;
+ return {self.}XmlChildRFonts and not {self.}XmlChildRFonts.Removed ? {self.}XmlChildRFonts : fallback_.XmlChildRFonts;
+end;
+
+function RPr.WriteXmlChildRFonts(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildRFonts) then
+ {self.}RemoveChild({self.}XmlChildRFonts);
+ end
+ else if v is class(RFonts) then
+ begin
+ {self.}XmlChildRFonts := v;
+ container_.Set({self.}XmlChildRFonts);
+ end
+ else begin
+ raise "Invalid assignment: RFonts expects RFonts or nil";
+ end
end;
function RPr.ReadXmlChildKern(): PureWVal;
@@ -7259,7 +9868,25 @@ begin
{self.}XmlChildKern := new PureWVal(self, {self.}Prefix, "kern");
container_.Set({self.}XmlChildKern);
end
- return {self.}XmlChildKern;
+ return {self.}XmlChildKern and not {self.}XmlChildKern.Removed ? {self.}XmlChildKern : fallback_.XmlChildKern;
+end;
+
+function RPr.WriteXmlChildKern(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildKern) then
+ {self.}RemoveChild({self.}XmlChildKern);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildKern := v;
+ container_.Set({self.}XmlChildKern);
+ end
+ else begin
+ raise "Invalid assignment: Kern expects PureWVal or nil";
+ end
end;
function RPr.ReadXmlChildBdr(): Bdr;
@@ -7269,7 +9896,25 @@ begin
{self.}XmlChildBdr := new Bdr(self, {self.}Prefix, "bdr");
container_.Set({self.}XmlChildBdr);
end
- return {self.}XmlChildBdr;
+ return {self.}XmlChildBdr and not {self.}XmlChildBdr.Removed ? {self.}XmlChildBdr : fallback_.XmlChildBdr;
+end;
+
+function RPr.WriteXmlChildBdr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildBdr) then
+ {self.}RemoveChild({self.}XmlChildBdr);
+ end
+ else if v is class(Bdr) then
+ begin
+ {self.}XmlChildBdr := v;
+ container_.Set({self.}XmlChildBdr);
+ end
+ else begin
+ raise "Invalid assignment: Bdr expects Bdr or nil";
+ end
end;
function RPr.ReadXmlChildCaps(): PureWVal;
@@ -7279,7 +9924,25 @@ begin
{self.}XmlChildCaps := new PureWVal(self, {self.}Prefix, "caps");
container_.Set({self.}XmlChildCaps);
end
- return {self.}XmlChildCaps;
+ return {self.}XmlChildCaps and not {self.}XmlChildCaps.Removed ? {self.}XmlChildCaps : fallback_.XmlChildCaps;
+end;
+
+function RPr.WriteXmlChildCaps(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildCaps) then
+ {self.}RemoveChild({self.}XmlChildCaps);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildCaps := v;
+ container_.Set({self.}XmlChildCaps);
+ end
+ else begin
+ raise "Invalid assignment: Caps expects PureWVal or nil";
+ end
end;
function RPr.ReadXmlChildDel(): Del;
@@ -7289,7 +9952,25 @@ begin
{self.}XmlChildDel := new Del(self, {self.}Prefix, "del");
container_.Set({self.}XmlChildDel);
end
- return {self.}XmlChildDel;
+ return {self.}XmlChildDel and not {self.}XmlChildDel.Removed ? {self.}XmlChildDel : fallback_.XmlChildDel;
+end;
+
+function RPr.WriteXmlChildDel(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildDel) then
+ {self.}RemoveChild({self.}XmlChildDel);
+ end
+ else if v is class(Del) then
+ begin
+ {self.}XmlChildDel := v;
+ container_.Set({self.}XmlChildDel);
+ end
+ else begin
+ raise "Invalid assignment: Del expects Del or nil";
+ end
end;
function RPr.ReadXmlChildDStrike(): PureWVal;
@@ -7299,7 +9980,25 @@ begin
{self.}XmlChildDStrike := new PureWVal(self, {self.}Prefix, "dstrike");
container_.Set({self.}XmlChildDStrike);
end
- return {self.}XmlChildDStrike;
+ return {self.}XmlChildDStrike and not {self.}XmlChildDStrike.Removed ? {self.}XmlChildDStrike : fallback_.XmlChildDStrike;
+end;
+
+function RPr.WriteXmlChildDStrike(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildDStrike) then
+ {self.}RemoveChild({self.}XmlChildDStrike);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildDStrike := v;
+ container_.Set({self.}XmlChildDStrike);
+ end
+ else begin
+ raise "Invalid assignment: DStrike expects PureWVal or nil";
+ end
end;
function RPr.ReadXmlChildEffect(): PureWVal;
@@ -7309,7 +10008,25 @@ begin
{self.}XmlChildEffect := new PureWVal(self, {self.}Prefix, "effect");
container_.Set({self.}XmlChildEffect);
end
- return {self.}XmlChildEffect;
+ return {self.}XmlChildEffect and not {self.}XmlChildEffect.Removed ? {self.}XmlChildEffect : fallback_.XmlChildEffect;
+end;
+
+function RPr.WriteXmlChildEffect(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildEffect) then
+ {self.}RemoveChild({self.}XmlChildEffect);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildEffect := v;
+ container_.Set({self.}XmlChildEffect);
+ end
+ else begin
+ raise "Invalid assignment: Effect expects PureWVal or nil";
+ end
end;
function RPr.ReadXmlChildEm(): PureWVal;
@@ -7319,7 +10036,25 @@ begin
{self.}XmlChildEm := new PureWVal(self, {self.}Prefix, "em");
container_.Set({self.}XmlChildEm);
end
- return {self.}XmlChildEm;
+ return {self.}XmlChildEm and not {self.}XmlChildEm.Removed ? {self.}XmlChildEm : fallback_.XmlChildEm;
+end;
+
+function RPr.WriteXmlChildEm(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildEm) then
+ {self.}RemoveChild({self.}XmlChildEm);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildEm := v;
+ container_.Set({self.}XmlChildEm);
+ end
+ else begin
+ raise "Invalid assignment: Em expects PureWVal or nil";
+ end
end;
function RPr.ReadXmlChildEmboss(): PureWVal;
@@ -7329,7 +10064,25 @@ begin
{self.}XmlChildEmboss := new PureWVal(self, {self.}Prefix, "emboss");
container_.Set({self.}XmlChildEmboss);
end
- return {self.}XmlChildEmboss;
+ return {self.}XmlChildEmboss and not {self.}XmlChildEmboss.Removed ? {self.}XmlChildEmboss : fallback_.XmlChildEmboss;
+end;
+
+function RPr.WriteXmlChildEmboss(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildEmboss) then
+ {self.}RemoveChild({self.}XmlChildEmboss);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildEmboss := v;
+ container_.Set({self.}XmlChildEmboss);
+ end
+ else begin
+ raise "Invalid assignment: Emboss expects PureWVal or nil";
+ end
end;
function RPr.ReadXmlChildFitText(): FitText;
@@ -7339,7 +10092,25 @@ begin
{self.}XmlChildFitText := new FitText(self, {self.}Prefix, "fitText");
container_.Set({self.}XmlChildFitText);
end
- return {self.}XmlChildFitText;
+ return {self.}XmlChildFitText and not {self.}XmlChildFitText.Removed ? {self.}XmlChildFitText : fallback_.XmlChildFitText;
+end;
+
+function RPr.WriteXmlChildFitText(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildFitText) then
+ {self.}RemoveChild({self.}XmlChildFitText);
+ end
+ else if v is class(FitText) then
+ begin
+ {self.}XmlChildFitText := v;
+ container_.Set({self.}XmlChildFitText);
+ end
+ else begin
+ raise "Invalid assignment: FitText expects FitText or nil";
+ end
end;
function RPr.ReadXmlChildHighlight(): Highlight;
@@ -7349,7 +10120,25 @@ begin
{self.}XmlChildHighlight := new Highlight(self, {self.}Prefix, "highlight");
container_.Set({self.}XmlChildHighlight);
end
- return {self.}XmlChildHighlight;
+ return {self.}XmlChildHighlight and not {self.}XmlChildHighlight.Removed ? {self.}XmlChildHighlight : fallback_.XmlChildHighlight;
+end;
+
+function RPr.WriteXmlChildHighlight(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildHighlight) then
+ {self.}RemoveChild({self.}XmlChildHighlight);
+ end
+ else if v is class(Highlight) then
+ begin
+ {self.}XmlChildHighlight := v;
+ container_.Set({self.}XmlChildHighlight);
+ end
+ else begin
+ raise "Invalid assignment: Highlight expects Highlight or nil";
+ end
end;
function RPr.ReadXmlChildColor(): Color;
@@ -7359,7 +10148,25 @@ begin
{self.}XmlChildColor := new Color(self, {self.}Prefix, "color");
container_.Set({self.}XmlChildColor);
end
- return {self.}XmlChildColor;
+ return {self.}XmlChildColor and not {self.}XmlChildColor.Removed ? {self.}XmlChildColor : fallback_.XmlChildColor;
+end;
+
+function RPr.WriteXmlChildColor(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildColor) then
+ {self.}RemoveChild({self.}XmlChildColor);
+ end
+ else if v is class(Color) then
+ begin
+ {self.}XmlChildColor := v;
+ container_.Set({self.}XmlChildColor);
+ end
+ else begin
+ raise "Invalid assignment: Color expects Color or nil";
+ end
end;
function RPr.ReadXmlChildEastAsianLayout(): EastAsianLayout;
@@ -7369,7 +10176,25 @@ begin
{self.}XmlChildEastAsianLayout := new EastAsianLayout(self, {self.}Prefix, "eastAsianLayout");
container_.Set({self.}XmlChildEastAsianLayout);
end
- return {self.}XmlChildEastAsianLayout;
+ return {self.}XmlChildEastAsianLayout and not {self.}XmlChildEastAsianLayout.Removed ? {self.}XmlChildEastAsianLayout : fallback_.XmlChildEastAsianLayout;
+end;
+
+function RPr.WriteXmlChildEastAsianLayout(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildEastAsianLayout) then
+ {self.}RemoveChild({self.}XmlChildEastAsianLayout);
+ end
+ else if v is class(EastAsianLayout) then
+ begin
+ {self.}XmlChildEastAsianLayout := v;
+ container_.Set({self.}XmlChildEastAsianLayout);
+ end
+ else begin
+ raise "Invalid assignment: EastAsianLayout expects EastAsianLayout or nil";
+ end
end;
function RPr.ReadXmlChildSz(): Sz;
@@ -7379,7 +10204,25 @@ begin
{self.}XmlChildSz := new Sz(self, {self.}Prefix, "sz");
container_.Set({self.}XmlChildSz);
end
- return {self.}XmlChildSz;
+ return {self.}XmlChildSz and not {self.}XmlChildSz.Removed ? {self.}XmlChildSz : fallback_.XmlChildSz;
+end;
+
+function RPr.WriteXmlChildSz(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildSz) then
+ {self.}RemoveChild({self.}XmlChildSz);
+ end
+ else if v is class(Sz) then
+ begin
+ {self.}XmlChildSz := v;
+ container_.Set({self.}XmlChildSz);
+ end
+ else begin
+ raise "Invalid assignment: Sz expects Sz or nil";
+ end
end;
function RPr.ReadXmlChildSzCs(): SzCs;
@@ -7389,7 +10232,25 @@ begin
{self.}XmlChildSzCs := new SzCs(self, {self.}Prefix, "szCs");
container_.Set({self.}XmlChildSzCs);
end
- return {self.}XmlChildSzCs;
+ return {self.}XmlChildSzCs and not {self.}XmlChildSzCs.Removed ? {self.}XmlChildSzCs : fallback_.XmlChildSzCs;
+end;
+
+function RPr.WriteXmlChildSzCs(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildSzCs) then
+ {self.}RemoveChild({self.}XmlChildSzCs);
+ end
+ else if v is class(SzCs) then
+ begin
+ {self.}XmlChildSzCs := v;
+ container_.Set({self.}XmlChildSzCs);
+ end
+ else begin
+ raise "Invalid assignment: SzCs expects SzCs or nil";
+ end
end;
function RPr.ReadXmlChildLang(): Lang;
@@ -7399,7 +10260,25 @@ begin
{self.}XmlChildLang := new Lang(self, {self.}Prefix, "lang");
container_.Set({self.}XmlChildLang);
end
- return {self.}XmlChildLang;
+ return {self.}XmlChildLang and not {self.}XmlChildLang.Removed ? {self.}XmlChildLang : fallback_.XmlChildLang;
+end;
+
+function RPr.WriteXmlChildLang(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildLang) then
+ {self.}RemoveChild({self.}XmlChildLang);
+ end
+ else if v is class(Lang) then
+ begin
+ {self.}XmlChildLang := v;
+ container_.Set({self.}XmlChildLang);
+ end
+ else begin
+ raise "Invalid assignment: Lang expects Lang or nil";
+ end
end;
function RPr.ReadXmlChildImprint(): PureWVal;
@@ -7409,7 +10288,25 @@ begin
{self.}XmlChildImprint := new PureWVal(self, {self.}Prefix, "imprint");
container_.Set({self.}XmlChildImprint);
end
- return {self.}XmlChildImprint;
+ return {self.}XmlChildImprint and not {self.}XmlChildImprint.Removed ? {self.}XmlChildImprint : fallback_.XmlChildImprint;
+end;
+
+function RPr.WriteXmlChildImprint(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildImprint) then
+ {self.}RemoveChild({self.}XmlChildImprint);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildImprint := v;
+ container_.Set({self.}XmlChildImprint);
+ end
+ else begin
+ raise "Invalid assignment: Imprint expects PureWVal or nil";
+ end
end;
function RPr.ReadXmlChildVertAlign(): PureWVal;
@@ -7419,7 +10316,25 @@ begin
{self.}XmlChildVertAlign := new PureWVal(self, {self.}Prefix, "vertAlign");
container_.Set({self.}XmlChildVertAlign);
end
- return {self.}XmlChildVertAlign;
+ return {self.}XmlChildVertAlign and not {self.}XmlChildVertAlign.Removed ? {self.}XmlChildVertAlign : fallback_.XmlChildVertAlign;
+end;
+
+function RPr.WriteXmlChildVertAlign(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildVertAlign) then
+ {self.}RemoveChild({self.}XmlChildVertAlign);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildVertAlign := v;
+ container_.Set({self.}XmlChildVertAlign);
+ end
+ else begin
+ raise "Invalid assignment: VertAlign expects PureWVal or nil";
+ end
end;
function RPr.ReadXmlChildLigatures(): PureWVal;
@@ -7429,7 +10344,25 @@ begin
{self.}XmlChildLigatures := new PureWVal(self, "w14", "ligatures");
container_.Set({self.}XmlChildLigatures);
end
- return {self.}XmlChildLigatures;
+ return {self.}XmlChildLigatures and not {self.}XmlChildLigatures.Removed ? {self.}XmlChildLigatures : fallback_.XmlChildLigatures;
+end;
+
+function RPr.WriteXmlChildLigatures(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildLigatures) then
+ {self.}RemoveChild({self.}XmlChildLigatures);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildLigatures := v;
+ container_.Set({self.}XmlChildLigatures);
+ end
+ else begin
+ raise "Invalid assignment: Ligatures expects PureWVal or nil";
+ end
end;
function RPr.ReadXmlChildRtl(): PureWVal;
@@ -7439,7 +10372,25 @@ begin
{self.}XmlChildRtl := new PureWVal(self, {self.}Prefix, "rtl");
container_.Set({self.}XmlChildRtl);
end
- return {self.}XmlChildRtl;
+ return {self.}XmlChildRtl and not {self.}XmlChildRtl.Removed ? {self.}XmlChildRtl : fallback_.XmlChildRtl;
+end;
+
+function RPr.WriteXmlChildRtl(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildRtl) then
+ {self.}RemoveChild({self.}XmlChildRtl);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildRtl := v;
+ container_.Set({self.}XmlChildRtl);
+ end
+ else begin
+ raise "Invalid assignment: Rtl expects PureWVal or nil";
+ end
end;
function RPr.ReadXmlChildShd(): Shd;
@@ -7449,7 +10400,25 @@ begin
{self.}XmlChildShd := new Shd(self, {self.}Prefix, "shd");
container_.Set({self.}XmlChildShd);
end
- return {self.}XmlChildShd;
+ return {self.}XmlChildShd and not {self.}XmlChildShd.Removed ? {self.}XmlChildShd : fallback_.XmlChildShd;
+end;
+
+function RPr.WriteXmlChildShd(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildShd) then
+ {self.}RemoveChild({self.}XmlChildShd);
+ end
+ else if v is class(Shd) then
+ begin
+ {self.}XmlChildShd := v;
+ container_.Set({self.}XmlChildShd);
+ end
+ else begin
+ raise "Invalid assignment: Shd expects Shd or nil";
+ end
end;
function RPr.ReadXmlChildSmallCaps(): PureWVal;
@@ -7459,7 +10428,25 @@ begin
{self.}XmlChildSmallCaps := new PureWVal(self, {self.}Prefix, "smallCaps");
container_.Set({self.}XmlChildSmallCaps);
end
- return {self.}XmlChildSmallCaps;
+ return {self.}XmlChildSmallCaps and not {self.}XmlChildSmallCaps.Removed ? {self.}XmlChildSmallCaps : fallback_.XmlChildSmallCaps;
+end;
+
+function RPr.WriteXmlChildSmallCaps(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildSmallCaps) then
+ {self.}RemoveChild({self.}XmlChildSmallCaps);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildSmallCaps := v;
+ container_.Set({self.}XmlChildSmallCaps);
+ end
+ else begin
+ raise "Invalid assignment: SmallCaps expects PureWVal or nil";
+ end
end;
function RPr.ReadXmlChildW(): PureWVal;
@@ -7469,7 +10456,25 @@ begin
{self.}XmlChildW := new PureWVal(self, {self.}Prefix, "w");
container_.Set({self.}XmlChildW);
end
- return {self.}XmlChildW;
+ return {self.}XmlChildW and not {self.}XmlChildW.Removed ? {self.}XmlChildW : fallback_.XmlChildW;
+end;
+
+function RPr.WriteXmlChildW(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildW) then
+ {self.}RemoveChild({self.}XmlChildW);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildW := v;
+ container_.Set({self.}XmlChildW);
+ end
+ else begin
+ raise "Invalid assignment: W expects PureWVal or nil";
+ end
end;
function Shd.Create();overload;
@@ -7479,13 +10484,13 @@ end;
function Shd.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Shd.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Shd.Init();override;
@@ -7534,137 +10539,142 @@ begin
tslassigning := tslassigning_backup;
end;
-function Shd.ReadXmlAttrVal();
+function Shd.ConvertToPoint();override;
begin
- return {self.}XmlAttrVal.Value;
+
end;
-function Shd.WriteXmlAttrVal(_value);
+function Shd.ReadXmlAttrVal();
+begin
+ return ifnil({self.}XmlAttrVal.Value) ? fallback_.XmlAttrVal.Value : {self.}XmlAttrVal.Value;
+end;
+
+function Shd.WriteXmlAttrVal(_value: any);
begin
if ifnil({self.}XmlAttrVal) then
begin
{self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrVal;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "val" : "val"] := {self.}XmlAttrVal;
end
{self.}XmlAttrVal.Value := _value;
end;
function Shd.ReadXmlAttrColor();
begin
- return {self.}XmlAttrColor.Value;
+ return ifnil({self.}XmlAttrColor.Value) ? fallback_.XmlAttrColor.Value : {self.}XmlAttrColor.Value;
end;
-function Shd.WriteXmlAttrColor(_value);
+function Shd.WriteXmlAttrColor(_value: any);
begin
if ifnil({self.}XmlAttrColor) then
begin
{self.}XmlAttrColor := new OpenXmlAttribute({self.}Prefix, "color", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrColor;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "color" : "color"] := {self.}XmlAttrColor;
end
{self.}XmlAttrColor.Value := _value;
end;
function Shd.ReadXmlAttrFill();
begin
- return {self.}XmlAttrFill.Value;
+ return ifnil({self.}XmlAttrFill.Value) ? fallback_.XmlAttrFill.Value : {self.}XmlAttrFill.Value;
end;
-function Shd.WriteXmlAttrFill(_value);
+function Shd.WriteXmlAttrFill(_value: any);
begin
if ifnil({self.}XmlAttrFill) then
begin
{self.}XmlAttrFill := new OpenXmlAttribute({self.}Prefix, "fill", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrFill;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "fill" : "fill"] := {self.}XmlAttrFill;
end
{self.}XmlAttrFill.Value := _value;
end;
function Shd.ReadXmlAttrThemeColor();
begin
- return {self.}XmlAttrThemeColor.Value;
+ return ifnil({self.}XmlAttrThemeColor.Value) ? fallback_.XmlAttrThemeColor.Value : {self.}XmlAttrThemeColor.Value;
end;
-function Shd.WriteXmlAttrThemeColor(_value);
+function Shd.WriteXmlAttrThemeColor(_value: any);
begin
if ifnil({self.}XmlAttrThemeColor) then
begin
{self.}XmlAttrThemeColor := new OpenXmlAttribute({self.}Prefix, "themeColor", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrThemeColor;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "themeColor" : "themeColor"] := {self.}XmlAttrThemeColor;
end
{self.}XmlAttrThemeColor.Value := _value;
end;
function Shd.ReadXmlAttrThemeFill();
begin
- return {self.}XmlAttrThemeFill.Value;
+ return ifnil({self.}XmlAttrThemeFill.Value) ? fallback_.XmlAttrThemeFill.Value : {self.}XmlAttrThemeFill.Value;
end;
-function Shd.WriteXmlAttrThemeFill(_value);
+function Shd.WriteXmlAttrThemeFill(_value: any);
begin
if ifnil({self.}XmlAttrThemeFill) then
begin
{self.}XmlAttrThemeFill := new OpenXmlAttribute({self.}Prefix, "themeFill", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrThemeFill;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "themeFill" : "themeFill"] := {self.}XmlAttrThemeFill;
end
{self.}XmlAttrThemeFill.Value := _value;
end;
function Shd.ReadXmlAttrThemeFillTint();
begin
- return {self.}XmlAttrThemeFillTint.Value;
+ return ifnil({self.}XmlAttrThemeFillTint.Value) ? fallback_.XmlAttrThemeFillTint.Value : {self.}XmlAttrThemeFillTint.Value;
end;
-function Shd.WriteXmlAttrThemeFillTint(_value);
+function Shd.WriteXmlAttrThemeFillTint(_value: any);
begin
if ifnil({self.}XmlAttrThemeFillTint) then
begin
{self.}XmlAttrThemeFillTint := new OpenXmlAttribute({self.}Prefix, "themeFillTint", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrThemeFillTint;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "themeFillTint" : "themeFillTint"] := {self.}XmlAttrThemeFillTint;
end
{self.}XmlAttrThemeFillTint.Value := _value;
end;
function Shd.ReadXmlAttrThemeFillShade();
begin
- return {self.}XmlAttrThemeFillShade.Value;
+ return ifnil({self.}XmlAttrThemeFillShade.Value) ? fallback_.XmlAttrThemeFillShade.Value : {self.}XmlAttrThemeFillShade.Value;
end;
-function Shd.WriteXmlAttrThemeFillShade(_value);
+function Shd.WriteXmlAttrThemeFillShade(_value: any);
begin
if ifnil({self.}XmlAttrThemeFillShade) then
begin
{self.}XmlAttrThemeFillShade := new OpenXmlAttribute({self.}Prefix, "themeFillShade", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrThemeFillShade;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "themeFillShade" : "themeFillShade"] := {self.}XmlAttrThemeFillShade;
end
{self.}XmlAttrThemeFillShade.Value := _value;
end;
function Shd.ReadXmlAttrThemeShade();
begin
- return {self.}XmlAttrThemeShade.Value;
+ return ifnil({self.}XmlAttrThemeShade.Value) ? fallback_.XmlAttrThemeShade.Value : {self.}XmlAttrThemeShade.Value;
end;
-function Shd.WriteXmlAttrThemeShade(_value);
+function Shd.WriteXmlAttrThemeShade(_value: any);
begin
if ifnil({self.}XmlAttrThemeShade) then
begin
{self.}XmlAttrThemeShade := new OpenXmlAttribute({self.}Prefix, "themeShade", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrThemeShade;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "themeShade" : "themeShade"] := {self.}XmlAttrThemeShade;
end
{self.}XmlAttrThemeShade.Value := _value;
end;
function Shd.ReadXmlAttrThemeTint();
begin
- return {self.}XmlAttrThemeTint.Value;
+ return ifnil({self.}XmlAttrThemeTint.Value) ? fallback_.XmlAttrThemeTint.Value : {self.}XmlAttrThemeTint.Value;
end;
-function Shd.WriteXmlAttrThemeTint(_value);
+function Shd.WriteXmlAttrThemeTint(_value: any);
begin
if ifnil({self.}XmlAttrThemeTint) then
begin
{self.}XmlAttrThemeTint := new OpenXmlAttribute({self.}Prefix, "themeTint", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrThemeTint;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "themeTint" : "themeTint"] := {self.}XmlAttrThemeTint;
end
{self.}XmlAttrThemeTint.Value := _value;
end;
@@ -7676,13 +10686,13 @@ end;
function Highlight.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Highlight.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Highlight.Init();override;
@@ -7707,17 +10717,22 @@ begin
tslassigning := tslassigning_backup;
end;
-function Highlight.ReadXmlAttrVal();
+function Highlight.ConvertToPoint();override;
begin
- return {self.}XmlAttrVal.Value;
+
end;
-function Highlight.WriteXmlAttrVal(_value);
+function Highlight.ReadXmlAttrVal();
+begin
+ return ifnil({self.}XmlAttrVal.Value) ? fallback_.XmlAttrVal.Value : {self.}XmlAttrVal.Value;
+end;
+
+function Highlight.WriteXmlAttrVal(_value: any);
begin
if ifnil({self.}XmlAttrVal) then
begin
{self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrVal;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "val" : "val"] := {self.}XmlAttrVal;
end
{self.}XmlAttrVal.Value := _value;
end;
@@ -7729,13 +10744,13 @@ end;
function FitText.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function FitText.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function FitText.Init();override;
@@ -7763,32 +10778,37 @@ begin
tslassigning := tslassigning_backup;
end;
-function FitText.ReadXmlAttrId();
+function FitText.ConvertToPoint();override;
begin
- return {self.}XmlAttrId.Value;
+
end;
-function FitText.WriteXmlAttrId(_value);
+function FitText.ReadXmlAttrId();
+begin
+ return ifnil({self.}XmlAttrId.Value) ? fallback_.XmlAttrId.Value : {self.}XmlAttrId.Value;
+end;
+
+function FitText.WriteXmlAttrId(_value: any);
begin
if ifnil({self.}XmlAttrId) then
begin
{self.}XmlAttrId := new OpenXmlAttribute({self.}Prefix, "id", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrId;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "id" : "id"] := {self.}XmlAttrId;
end
{self.}XmlAttrId.Value := _value;
end;
function FitText.ReadXmlAttrVal();
begin
- return {self.}XmlAttrVal.Value;
+ return ifnil({self.}XmlAttrVal.Value) ? fallback_.XmlAttrVal.Value : {self.}XmlAttrVal.Value;
end;
-function FitText.WriteXmlAttrVal(_value);
+function FitText.WriteXmlAttrVal(_value: any);
begin
if ifnil({self.}XmlAttrVal) then
begin
{self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrVal;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "val" : "val"] := {self.}XmlAttrVal;
end
{self.}XmlAttrVal.Value := _value;
end;
@@ -7800,13 +10820,13 @@ end;
function EastAsianLayout.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function EastAsianLayout.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function EastAsianLayout.Init();override;
@@ -7843,77 +10863,82 @@ begin
tslassigning := tslassigning_backup;
end;
-function EastAsianLayout.ReadXmlAttrCombine();
+function EastAsianLayout.ConvertToPoint();override;
begin
- return {self.}XmlAttrCombine.Value;
+
end;
-function EastAsianLayout.WriteXmlAttrCombine(_value);
+function EastAsianLayout.ReadXmlAttrCombine();
+begin
+ return ifnil({self.}XmlAttrCombine.Value) ? fallback_.XmlAttrCombine.Value : {self.}XmlAttrCombine.Value;
+end;
+
+function EastAsianLayout.WriteXmlAttrCombine(_value: any);
begin
if ifnil({self.}XmlAttrCombine) then
begin
{self.}XmlAttrCombine := new OpenXmlAttribute({self.}Prefix, "combine", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrCombine;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "combine" : "combine"] := {self.}XmlAttrCombine;
end
{self.}XmlAttrCombine.Value := _value;
end;
function EastAsianLayout.ReadXmlAttrCombineBrackets();
begin
- return {self.}XmlAttrCombineBrackets.Value;
+ return ifnil({self.}XmlAttrCombineBrackets.Value) ? fallback_.XmlAttrCombineBrackets.Value : {self.}XmlAttrCombineBrackets.Value;
end;
-function EastAsianLayout.WriteXmlAttrCombineBrackets(_value);
+function EastAsianLayout.WriteXmlAttrCombineBrackets(_value: any);
begin
if ifnil({self.}XmlAttrCombineBrackets) then
begin
{self.}XmlAttrCombineBrackets := new OpenXmlAttribute({self.}Prefix, "combineBrackets", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrCombineBrackets;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "combineBrackets" : "combineBrackets"] := {self.}XmlAttrCombineBrackets;
end
{self.}XmlAttrCombineBrackets.Value := _value;
end;
function EastAsianLayout.ReadXmlAttrId();
begin
- return {self.}XmlAttrId.Value;
+ return ifnil({self.}XmlAttrId.Value) ? fallback_.XmlAttrId.Value : {self.}XmlAttrId.Value;
end;
-function EastAsianLayout.WriteXmlAttrId(_value);
+function EastAsianLayout.WriteXmlAttrId(_value: any);
begin
if ifnil({self.}XmlAttrId) then
begin
{self.}XmlAttrId := new OpenXmlAttribute({self.}Prefix, "id", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrId;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "id" : "id"] := {self.}XmlAttrId;
end
{self.}XmlAttrId.Value := _value;
end;
function EastAsianLayout.ReadXmlAttrVert();
begin
- return {self.}XmlAttrVert.Value;
+ return ifnil({self.}XmlAttrVert.Value) ? fallback_.XmlAttrVert.Value : {self.}XmlAttrVert.Value;
end;
-function EastAsianLayout.WriteXmlAttrVert(_value);
+function EastAsianLayout.WriteXmlAttrVert(_value: any);
begin
if ifnil({self.}XmlAttrVert) then
begin
{self.}XmlAttrVert := new OpenXmlAttribute({self.}Prefix, "vert", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrVert;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "vert" : "vert"] := {self.}XmlAttrVert;
end
{self.}XmlAttrVert.Value := _value;
end;
function EastAsianLayout.ReadXmlAttrVertCompress();
begin
- return {self.}XmlAttrVertCompress.Value;
+ return ifnil({self.}XmlAttrVertCompress.Value) ? fallback_.XmlAttrVertCompress.Value : {self.}XmlAttrVertCompress.Value;
end;
-function EastAsianLayout.WriteXmlAttrVertCompress(_value);
+function EastAsianLayout.WriteXmlAttrVertCompress(_value: any);
begin
if ifnil({self.}XmlAttrVertCompress) then
begin
{self.}XmlAttrVertCompress := new OpenXmlAttribute({self.}Prefix, "vertCompress", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrVertCompress;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "vertCompress" : "vertCompress"] := {self.}XmlAttrVertCompress;
end
{self.}XmlAttrVertCompress.Value := _value;
end;
@@ -7925,13 +10950,13 @@ end;
function Del.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Del.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Del.Init();override;
@@ -7980,137 +11005,142 @@ begin
tslassigning := tslassigning_backup;
end;
-function Del.ReadXmlAttrAuthor();
+function Del.ConvertToPoint();override;
begin
- return {self.}XmlAttrAuthor.Value;
+
end;
-function Del.WriteXmlAttrAuthor(_value);
+function Del.ReadXmlAttrAuthor();
+begin
+ return ifnil({self.}XmlAttrAuthor.Value) ? fallback_.XmlAttrAuthor.Value : {self.}XmlAttrAuthor.Value;
+end;
+
+function Del.WriteXmlAttrAuthor(_value: any);
begin
if ifnil({self.}XmlAttrAuthor) then
begin
{self.}XmlAttrAuthor := new OpenXmlAttribute({self.}Prefix, "author", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrAuthor;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "author" : "author"] := {self.}XmlAttrAuthor;
end
{self.}XmlAttrAuthor.Value := _value;
end;
function Del.ReadXmlAttrDate();
begin
- return {self.}XmlAttrDate.Value;
+ return ifnil({self.}XmlAttrDate.Value) ? fallback_.XmlAttrDate.Value : {self.}XmlAttrDate.Value;
end;
-function Del.WriteXmlAttrDate(_value);
+function Del.WriteXmlAttrDate(_value: any);
begin
if ifnil({self.}XmlAttrDate) then
begin
{self.}XmlAttrDate := new OpenXmlAttribute({self.}Prefix, "date", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrDate;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "date" : "date"] := {self.}XmlAttrDate;
end
{self.}XmlAttrDate.Value := _value;
end;
function Del.ReadXmlAttrId();
begin
- return {self.}XmlAttrId.Value;
+ return ifnil({self.}XmlAttrId.Value) ? fallback_.XmlAttrId.Value : {self.}XmlAttrId.Value;
end;
-function Del.WriteXmlAttrId(_value);
+function Del.WriteXmlAttrId(_value: any);
begin
if ifnil({self.}XmlAttrId) then
begin
{self.}XmlAttrId := new OpenXmlAttribute({self.}Prefix, "id", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrId;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "id" : "id"] := {self.}XmlAttrId;
end
{self.}XmlAttrId.Value := _value;
end;
function Del.ReadXmlAttrColor();
begin
- return {self.}XmlAttrColor.Value;
+ return ifnil({self.}XmlAttrColor.Value) ? fallback_.XmlAttrColor.Value : {self.}XmlAttrColor.Value;
end;
-function Del.WriteXmlAttrColor(_value);
+function Del.WriteXmlAttrColor(_value: any);
begin
if ifnil({self.}XmlAttrColor) then
begin
{self.}XmlAttrColor := new OpenXmlAttribute({self.}Prefix, "color", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrColor;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "color" : "color"] := {self.}XmlAttrColor;
end
{self.}XmlAttrColor.Value := _value;
end;
function Del.ReadXmlAttrThemeColor();
begin
- return {self.}XmlAttrThemeColor.Value;
+ return ifnil({self.}XmlAttrThemeColor.Value) ? fallback_.XmlAttrThemeColor.Value : {self.}XmlAttrThemeColor.Value;
end;
-function Del.WriteXmlAttrThemeColor(_value);
+function Del.WriteXmlAttrThemeColor(_value: any);
begin
if ifnil({self.}XmlAttrThemeColor) then
begin
{self.}XmlAttrThemeColor := new OpenXmlAttribute({self.}Prefix, "themeColor", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrThemeColor;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "themeColor" : "themeColor"] := {self.}XmlAttrThemeColor;
end
{self.}XmlAttrThemeColor.Value := _value;
end;
function Del.ReadXmlAttrThemeShade();
begin
- return {self.}XmlAttrThemeShade.Value;
+ return ifnil({self.}XmlAttrThemeShade.Value) ? fallback_.XmlAttrThemeShade.Value : {self.}XmlAttrThemeShade.Value;
end;
-function Del.WriteXmlAttrThemeShade(_value);
+function Del.WriteXmlAttrThemeShade(_value: any);
begin
if ifnil({self.}XmlAttrThemeShade) then
begin
{self.}XmlAttrThemeShade := new OpenXmlAttribute({self.}Prefix, "themeShade", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrThemeShade;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "themeShade" : "themeShade"] := {self.}XmlAttrThemeShade;
end
{self.}XmlAttrThemeShade.Value := _value;
end;
function Del.ReadXmlAttrThemeTint();
begin
- return {self.}XmlAttrThemeTint.Value;
+ return ifnil({self.}XmlAttrThemeTint.Value) ? fallback_.XmlAttrThemeTint.Value : {self.}XmlAttrThemeTint.Value;
end;
-function Del.WriteXmlAttrThemeTint(_value);
+function Del.WriteXmlAttrThemeTint(_value: any);
begin
if ifnil({self.}XmlAttrThemeTint) then
begin
{self.}XmlAttrThemeTint := new OpenXmlAttribute({self.}Prefix, "themeTint", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrThemeTint;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "themeTint" : "themeTint"] := {self.}XmlAttrThemeTint;
end
{self.}XmlAttrThemeTint.Value := _value;
end;
function Del.ReadXmlAttrFrame();
begin
- return {self.}XmlAttrFrame.Value;
+ return ifnil({self.}XmlAttrFrame.Value) ? fallback_.XmlAttrFrame.Value : {self.}XmlAttrFrame.Value;
end;
-function Del.WriteXmlAttrFrame(_value);
+function Del.WriteXmlAttrFrame(_value: any);
begin
if ifnil({self.}XmlAttrFrame) then
begin
{self.}XmlAttrFrame := new OpenXmlAttribute({self.}Prefix, "frame", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrFrame;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "frame" : "frame"] := {self.}XmlAttrFrame;
end
{self.}XmlAttrFrame.Value := _value;
end;
function Del.ReadXmlAttrShadow();
begin
- return {self.}XmlAttrShadow.Value;
+ return ifnil({self.}XmlAttrShadow.Value) ? fallback_.XmlAttrShadow.Value : {self.}XmlAttrShadow.Value;
end;
-function Del.WriteXmlAttrShadow(_value);
+function Del.WriteXmlAttrShadow(_value: any);
begin
if ifnil({self.}XmlAttrShadow) then
begin
{self.}XmlAttrShadow := new OpenXmlAttribute({self.}Prefix, "shadow", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrShadow;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "shadow" : "shadow"] := {self.}XmlAttrShadow;
end
{self.}XmlAttrShadow.Value := _value;
end;
@@ -8122,13 +11152,13 @@ end;
function Bdr.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Bdr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Bdr.Init();override;
@@ -8177,137 +11207,142 @@ begin
tslassigning := tslassigning_backup;
end;
-function Bdr.ReadXmlAttrVal();
+function Bdr.ConvertToPoint();override;
begin
- return {self.}XmlAttrVal.Value;
+
end;
-function Bdr.WriteXmlAttrVal(_value);
+function Bdr.ReadXmlAttrVal();
+begin
+ return ifnil({self.}XmlAttrVal.Value) ? fallback_.XmlAttrVal.Value : {self.}XmlAttrVal.Value;
+end;
+
+function Bdr.WriteXmlAttrVal(_value: any);
begin
if ifnil({self.}XmlAttrVal) then
begin
{self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrVal;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "val" : "val"] := {self.}XmlAttrVal;
end
{self.}XmlAttrVal.Value := _value;
end;
function Bdr.ReadXmlAttrSz();
begin
- return {self.}XmlAttrSz.Value;
+ return ifnil({self.}XmlAttrSz.Value) ? fallback_.XmlAttrSz.Value : {self.}XmlAttrSz.Value;
end;
-function Bdr.WriteXmlAttrSz(_value);
+function Bdr.WriteXmlAttrSz(_value: any);
begin
if ifnil({self.}XmlAttrSz) then
begin
{self.}XmlAttrSz := new OpenXmlAttribute({self.}Prefix, "sz", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrSz;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "sz" : "sz"] := {self.}XmlAttrSz;
end
{self.}XmlAttrSz.Value := _value;
end;
function Bdr.ReadXmlAttrSpace();
begin
- return {self.}XmlAttrSpace.Value;
+ return ifnil({self.}XmlAttrSpace.Value) ? fallback_.XmlAttrSpace.Value : {self.}XmlAttrSpace.Value;
end;
-function Bdr.WriteXmlAttrSpace(_value);
+function Bdr.WriteXmlAttrSpace(_value: any);
begin
if ifnil({self.}XmlAttrSpace) then
begin
{self.}XmlAttrSpace := new OpenXmlAttribute({self.}Prefix, "space", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrSpace;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "space" : "space"] := {self.}XmlAttrSpace;
end
{self.}XmlAttrSpace.Value := _value;
end;
function Bdr.ReadXmlAttrColor();
begin
- return {self.}XmlAttrColor.Value;
+ return ifnil({self.}XmlAttrColor.Value) ? fallback_.XmlAttrColor.Value : {self.}XmlAttrColor.Value;
end;
-function Bdr.WriteXmlAttrColor(_value);
+function Bdr.WriteXmlAttrColor(_value: any);
begin
if ifnil({self.}XmlAttrColor) then
begin
{self.}XmlAttrColor := new OpenXmlAttribute({self.}Prefix, "color", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrColor;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "color" : "color"] := {self.}XmlAttrColor;
end
{self.}XmlAttrColor.Value := _value;
end;
function Bdr.ReadXmlAttrThemeColor();
begin
- return {self.}XmlAttrThemeColor.Value;
+ return ifnil({self.}XmlAttrThemeColor.Value) ? fallback_.XmlAttrThemeColor.Value : {self.}XmlAttrThemeColor.Value;
end;
-function Bdr.WriteXmlAttrThemeColor(_value);
+function Bdr.WriteXmlAttrThemeColor(_value: any);
begin
if ifnil({self.}XmlAttrThemeColor) then
begin
{self.}XmlAttrThemeColor := new OpenXmlAttribute({self.}Prefix, "themeColor", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrThemeColor;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "themeColor" : "themeColor"] := {self.}XmlAttrThemeColor;
end
{self.}XmlAttrThemeColor.Value := _value;
end;
function Bdr.ReadXmlAttrThemeShade();
begin
- return {self.}XmlAttrThemeShade.Value;
+ return ifnil({self.}XmlAttrThemeShade.Value) ? fallback_.XmlAttrThemeShade.Value : {self.}XmlAttrThemeShade.Value;
end;
-function Bdr.WriteXmlAttrThemeShade(_value);
+function Bdr.WriteXmlAttrThemeShade(_value: any);
begin
if ifnil({self.}XmlAttrThemeShade) then
begin
{self.}XmlAttrThemeShade := new OpenXmlAttribute({self.}Prefix, "themeShade", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrThemeShade;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "themeShade" : "themeShade"] := {self.}XmlAttrThemeShade;
end
{self.}XmlAttrThemeShade.Value := _value;
end;
function Bdr.ReadXmlAttrThemeTint();
begin
- return {self.}XmlAttrThemeTint.Value;
+ return ifnil({self.}XmlAttrThemeTint.Value) ? fallback_.XmlAttrThemeTint.Value : {self.}XmlAttrThemeTint.Value;
end;
-function Bdr.WriteXmlAttrThemeTint(_value);
+function Bdr.WriteXmlAttrThemeTint(_value: any);
begin
if ifnil({self.}XmlAttrThemeTint) then
begin
{self.}XmlAttrThemeTint := new OpenXmlAttribute({self.}Prefix, "themeTint", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrThemeTint;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "themeTint" : "themeTint"] := {self.}XmlAttrThemeTint;
end
{self.}XmlAttrThemeTint.Value := _value;
end;
function Bdr.ReadXmlAttrFrame();
begin
- return {self.}XmlAttrFrame.Value;
+ return ifnil({self.}XmlAttrFrame.Value) ? fallback_.XmlAttrFrame.Value : {self.}XmlAttrFrame.Value;
end;
-function Bdr.WriteXmlAttrFrame(_value);
+function Bdr.WriteXmlAttrFrame(_value: any);
begin
if ifnil({self.}XmlAttrFrame) then
begin
{self.}XmlAttrFrame := new OpenXmlAttribute({self.}Prefix, "frame", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrFrame;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "frame" : "frame"] := {self.}XmlAttrFrame;
end
{self.}XmlAttrFrame.Value := _value;
end;
function Bdr.ReadXmlAttrShadow();
begin
- return {self.}XmlAttrShadow.Value;
+ return ifnil({self.}XmlAttrShadow.Value) ? fallback_.XmlAttrShadow.Value : {self.}XmlAttrShadow.Value;
end;
-function Bdr.WriteXmlAttrShadow(_value);
+function Bdr.WriteXmlAttrShadow(_value: any);
begin
if ifnil({self.}XmlAttrShadow) then
begin
{self.}XmlAttrShadow := new OpenXmlAttribute({self.}Prefix, "shadow", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrShadow;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "shadow" : "shadow"] := {self.}XmlAttrShadow;
end
{self.}XmlAttrShadow.Value := _value;
end;
@@ -8319,13 +11354,13 @@ end;
function RFonts.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function RFonts.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function RFonts.Init();override;
@@ -8374,137 +11409,142 @@ begin
tslassigning := tslassigning_backup;
end;
-function RFonts.ReadXmlAttrHint();
+function RFonts.ConvertToPoint();override;
begin
- return {self.}XmlAttrHint.Value;
+
end;
-function RFonts.WriteXmlAttrHint(_value);
+function RFonts.ReadXmlAttrHint();
+begin
+ return ifnil({self.}XmlAttrHint.Value) ? fallback_.XmlAttrHint.Value : {self.}XmlAttrHint.Value;
+end;
+
+function RFonts.WriteXmlAttrHint(_value: any);
begin
if ifnil({self.}XmlAttrHint) then
begin
{self.}XmlAttrHint := new OpenXmlAttribute({self.}Prefix, "hint", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrHint;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "hint" : "hint"] := {self.}XmlAttrHint;
end
{self.}XmlAttrHint.Value := _value;
end;
function RFonts.ReadXmlAttrAscii();
begin
- return {self.}XmlAttrAscii.Value;
+ return ifnil({self.}XmlAttrAscii.Value) ? fallback_.XmlAttrAscii.Value : {self.}XmlAttrAscii.Value;
end;
-function RFonts.WriteXmlAttrAscii(_value);
+function RFonts.WriteXmlAttrAscii(_value: any);
begin
if ifnil({self.}XmlAttrAscii) then
begin
{self.}XmlAttrAscii := new OpenXmlAttribute({self.}Prefix, "ascii", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrAscii;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "ascii" : "ascii"] := {self.}XmlAttrAscii;
end
{self.}XmlAttrAscii.Value := _value;
end;
function RFonts.ReadXmlAttrAsciiTheme();
begin
- return {self.}XmlAttrAsciiTheme.Value;
+ return ifnil({self.}XmlAttrAsciiTheme.Value) ? fallback_.XmlAttrAsciiTheme.Value : {self.}XmlAttrAsciiTheme.Value;
end;
-function RFonts.WriteXmlAttrAsciiTheme(_value);
+function RFonts.WriteXmlAttrAsciiTheme(_value: any);
begin
if ifnil({self.}XmlAttrAsciiTheme) then
begin
{self.}XmlAttrAsciiTheme := new OpenXmlAttribute({self.}Prefix, "asciiTheme", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrAsciiTheme;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "asciiTheme" : "asciiTheme"] := {self.}XmlAttrAsciiTheme;
end
{self.}XmlAttrAsciiTheme.Value := _value;
end;
function RFonts.ReadXmlAttrEastAsia();
begin
- return {self.}XmlAttrEastAsia.Value;
+ return ifnil({self.}XmlAttrEastAsia.Value) ? fallback_.XmlAttrEastAsia.Value : {self.}XmlAttrEastAsia.Value;
end;
-function RFonts.WriteXmlAttrEastAsia(_value);
+function RFonts.WriteXmlAttrEastAsia(_value: any);
begin
if ifnil({self.}XmlAttrEastAsia) then
begin
{self.}XmlAttrEastAsia := new OpenXmlAttribute({self.}Prefix, "eastAsia", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrEastAsia;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "eastAsia" : "eastAsia"] := {self.}XmlAttrEastAsia;
end
{self.}XmlAttrEastAsia.Value := _value;
end;
function RFonts.ReadXmlAttrEastAsiaTheme();
begin
- return {self.}XmlAttrEastAsiaTheme.Value;
+ return ifnil({self.}XmlAttrEastAsiaTheme.Value) ? fallback_.XmlAttrEastAsiaTheme.Value : {self.}XmlAttrEastAsiaTheme.Value;
end;
-function RFonts.WriteXmlAttrEastAsiaTheme(_value);
+function RFonts.WriteXmlAttrEastAsiaTheme(_value: any);
begin
if ifnil({self.}XmlAttrEastAsiaTheme) then
begin
{self.}XmlAttrEastAsiaTheme := new OpenXmlAttribute({self.}Prefix, "eastAsiaTheme", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrEastAsiaTheme;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "eastAsiaTheme" : "eastAsiaTheme"] := {self.}XmlAttrEastAsiaTheme;
end
{self.}XmlAttrEastAsiaTheme.Value := _value;
end;
function RFonts.ReadXmlAttrHAnsi();
begin
- return {self.}XmlAttrHAnsi.Value;
+ return ifnil({self.}XmlAttrHAnsi.Value) ? fallback_.XmlAttrHAnsi.Value : {self.}XmlAttrHAnsi.Value;
end;
-function RFonts.WriteXmlAttrHAnsi(_value);
+function RFonts.WriteXmlAttrHAnsi(_value: any);
begin
if ifnil({self.}XmlAttrHAnsi) then
begin
{self.}XmlAttrHAnsi := new OpenXmlAttribute({self.}Prefix, "hAnsi", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrHAnsi;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "hAnsi" : "hAnsi"] := {self.}XmlAttrHAnsi;
end
{self.}XmlAttrHAnsi.Value := _value;
end;
function RFonts.ReadXmlAttrHAnsiTheme();
begin
- return {self.}XmlAttrHAnsiTheme.Value;
+ return ifnil({self.}XmlAttrHAnsiTheme.Value) ? fallback_.XmlAttrHAnsiTheme.Value : {self.}XmlAttrHAnsiTheme.Value;
end;
-function RFonts.WriteXmlAttrHAnsiTheme(_value);
+function RFonts.WriteXmlAttrHAnsiTheme(_value: any);
begin
if ifnil({self.}XmlAttrHAnsiTheme) then
begin
{self.}XmlAttrHAnsiTheme := new OpenXmlAttribute({self.}Prefix, "hAnsiTheme", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrHAnsiTheme;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "hAnsiTheme" : "hAnsiTheme"] := {self.}XmlAttrHAnsiTheme;
end
{self.}XmlAttrHAnsiTheme.Value := _value;
end;
function RFonts.ReadXmlAttrCs();
begin
- return {self.}XmlAttrCs.Value;
+ return ifnil({self.}XmlAttrCs.Value) ? fallback_.XmlAttrCs.Value : {self.}XmlAttrCs.Value;
end;
-function RFonts.WriteXmlAttrCs(_value);
+function RFonts.WriteXmlAttrCs(_value: any);
begin
if ifnil({self.}XmlAttrCs) then
begin
{self.}XmlAttrCs := new OpenXmlAttribute({self.}Prefix, "cs", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrCs;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "cs" : "cs"] := {self.}XmlAttrCs;
end
{self.}XmlAttrCs.Value := _value;
end;
function RFonts.ReadXmlAttrCsTheme();
begin
- return {self.}XmlAttrCsTheme.Value;
+ return ifnil({self.}XmlAttrCsTheme.Value) ? fallback_.XmlAttrCsTheme.Value : {self.}XmlAttrCsTheme.Value;
end;
-function RFonts.WriteXmlAttrCsTheme(_value);
+function RFonts.WriteXmlAttrCsTheme(_value: any);
begin
if ifnil({self.}XmlAttrCsTheme) then
begin
{self.}XmlAttrCsTheme := new OpenXmlAttribute({self.}Prefix, "cstheme", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrCsTheme;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "cstheme" : "cstheme"] := {self.}XmlAttrCsTheme;
end
{self.}XmlAttrCsTheme.Value := _value;
end;
@@ -8516,13 +11556,13 @@ end;
function SzCs.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function SzCs.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function SzCs.Init();override;
@@ -8547,17 +11587,23 @@ begin
tslassigning := tslassigning_backup;
end;
-function SzCs.ReadXmlAttrVal();
+function SzCs.ConvertToPoint();override;
begin
- return {self.}XmlAttrVal.Value;
+ if not ifnil({self.}XmlAttrVal) then
+ {self.}Val := TSSafeUnitConverter.HalfPointToPoints({self.}XmlAttrVal.Value);
end;
-function SzCs.WriteXmlAttrVal(_value);
+function SzCs.ReadXmlAttrVal();
+begin
+ return ifnil({self.}XmlAttrVal.Value) ? fallback_.XmlAttrVal.Value : {self.}XmlAttrVal.Value;
+end;
+
+function SzCs.WriteXmlAttrVal(_value: any);
begin
if ifnil({self.}XmlAttrVal) then
begin
{self.}XmlAttrVal := new OpenXmlAttribute("w", "val", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrVal;
+ attributes_["w:val"] := {self.}XmlAttrVal;
end
{self.}XmlAttrVal.Value := _value;
end;
@@ -8569,13 +11615,13 @@ end;
function Sz.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Sz.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Sz.Init();override;
@@ -8600,17 +11646,23 @@ begin
tslassigning := tslassigning_backup;
end;
-function Sz.ReadXmlAttrVal();
+function Sz.ConvertToPoint();override;
begin
- return {self.}XmlAttrVal.Value;
+ if not ifnil({self.}XmlAttrVal) then
+ {self.}Val := TSSafeUnitConverter.HalfPointToPoints({self.}XmlAttrVal.Value);
end;
-function Sz.WriteXmlAttrVal(_value);
+function Sz.ReadXmlAttrVal();
+begin
+ return ifnil({self.}XmlAttrVal.Value) ? fallback_.XmlAttrVal.Value : {self.}XmlAttrVal.Value;
+end;
+
+function Sz.WriteXmlAttrVal(_value: any);
begin
if ifnil({self.}XmlAttrVal) then
begin
{self.}XmlAttrVal := new OpenXmlAttribute("w", "val", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrVal;
+ attributes_["w:val"] := {self.}XmlAttrVal;
end
{self.}XmlAttrVal.Value := _value;
end;
@@ -8622,13 +11674,13 @@ end;
function PureVal.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function PureVal.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function PureVal.Init();override;
@@ -8653,17 +11705,22 @@ begin
tslassigning := tslassigning_backup;
end;
-function PureVal.ReadXmlAttrVal();
+function PureVal.ConvertToPoint();override;
begin
- return {self.}XmlAttrVal.Value;
+
end;
-function PureVal.WriteXmlAttrVal(_value);
+function PureVal.ReadXmlAttrVal();
+begin
+ return ifnil({self.}XmlAttrVal.Value) ? fallback_.XmlAttrVal.Value : {self.}XmlAttrVal.Value;
+end;
+
+function PureVal.WriteXmlAttrVal(_value: any);
begin
if ifnil({self.}XmlAttrVal) then
begin
{self.}XmlAttrVal := new OpenXmlAttribute("", "val", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrVal;
+ attributes_["val"] := {self.}XmlAttrVal;
end
{self.}XmlAttrVal.Value := _value;
end;
@@ -8675,13 +11732,13 @@ end;
function PureWVal.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function PureWVal.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function PureWVal.Init();override;
@@ -8706,17 +11763,22 @@ begin
tslassigning := tslassigning_backup;
end;
-function PureWVal.ReadXmlAttrVal();
+function PureWVal.ConvertToPoint();override;
begin
- return {self.}XmlAttrVal.Value;
+
end;
-function PureWVal.WriteXmlAttrVal(_value);
+function PureWVal.ReadXmlAttrVal();
+begin
+ return ifnil({self.}XmlAttrVal.Value) ? fallback_.XmlAttrVal.Value : {self.}XmlAttrVal.Value;
+end;
+
+function PureWVal.WriteXmlAttrVal(_value: any);
begin
if ifnil({self.}XmlAttrVal) then
begin
{self.}XmlAttrVal := new OpenXmlAttribute("w", "val", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrVal;
+ attributes_["w:val"] := {self.}XmlAttrVal;
end
{self.}XmlAttrVal.Value := _value;
end;
@@ -8728,13 +11790,13 @@ end;
function Color.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Color.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Color.Init();override;
@@ -8762,32 +11824,37 @@ begin
tslassigning := tslassigning_backup;
end;
-function Color.ReadXmlAttrVal();
+function Color.ConvertToPoint();override;
begin
- return {self.}XmlAttrVal.Value;
+
end;
-function Color.WriteXmlAttrVal(_value);
+function Color.ReadXmlAttrVal();
+begin
+ return ifnil({self.}XmlAttrVal.Value) ? fallback_.XmlAttrVal.Value : {self.}XmlAttrVal.Value;
+end;
+
+function Color.WriteXmlAttrVal(_value: any);
begin
if ifnil({self.}XmlAttrVal) then
begin
{self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrVal;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "val" : "val"] := {self.}XmlAttrVal;
end
{self.}XmlAttrVal.Value := _value;
end;
function Color.ReadXmlAttrThemeColor();
begin
- return {self.}XmlAttrThemeColor.Value;
+ return ifnil({self.}XmlAttrThemeColor.Value) ? fallback_.XmlAttrThemeColor.Value : {self.}XmlAttrThemeColor.Value;
end;
-function Color.WriteXmlAttrThemeColor(_value);
+function Color.WriteXmlAttrThemeColor(_value: any);
begin
if ifnil({self.}XmlAttrThemeColor) then
begin
{self.}XmlAttrThemeColor := new OpenXmlAttribute({self.}Prefix, "themeColor", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrThemeColor;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "themeColor" : "themeColor"] := {self.}XmlAttrThemeColor;
end
{self.}XmlAttrThemeColor.Value := _value;
end;
@@ -8799,13 +11866,13 @@ end;
function Lang.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Lang.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Lang.Init();override;
@@ -8836,47 +11903,52 @@ begin
tslassigning := tslassigning_backup;
end;
-function Lang.ReadXmlAttrVal();
+function Lang.ConvertToPoint();override;
begin
- return {self.}XmlAttrVal.Value;
+
end;
-function Lang.WriteXmlAttrVal(_value);
+function Lang.ReadXmlAttrVal();
+begin
+ return ifnil({self.}XmlAttrVal.Value) ? fallback_.XmlAttrVal.Value : {self.}XmlAttrVal.Value;
+end;
+
+function Lang.WriteXmlAttrVal(_value: any);
begin
if ifnil({self.}XmlAttrVal) then
begin
{self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrVal;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "val" : "val"] := {self.}XmlAttrVal;
end
{self.}XmlAttrVal.Value := _value;
end;
function Lang.ReadXmlAttrEastAsia();
begin
- return {self.}XmlAttrEastAsia.Value;
+ return ifnil({self.}XmlAttrEastAsia.Value) ? fallback_.XmlAttrEastAsia.Value : {self.}XmlAttrEastAsia.Value;
end;
-function Lang.WriteXmlAttrEastAsia(_value);
+function Lang.WriteXmlAttrEastAsia(_value: any);
begin
if ifnil({self.}XmlAttrEastAsia) then
begin
{self.}XmlAttrEastAsia := new OpenXmlAttribute({self.}Prefix, "eastAsia", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrEastAsia;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "eastAsia" : "eastAsia"] := {self.}XmlAttrEastAsia;
end
{self.}XmlAttrEastAsia.Value := _value;
end;
function Lang.ReadXmlAttrBidi();
begin
- return {self.}XmlAttrBidi.Value;
+ return ifnil({self.}XmlAttrBidi.Value) ? fallback_.XmlAttrBidi.Value : {self.}XmlAttrBidi.Value;
end;
-function Lang.WriteXmlAttrBidi(_value);
+function Lang.WriteXmlAttrBidi(_value: any);
begin
if ifnil({self.}XmlAttrBidi) then
begin
{self.}XmlAttrBidi := new OpenXmlAttribute({self.}Prefix, "bidi", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrBidi;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "bidi" : "bidi"] := {self.}XmlAttrBidi;
end
{self.}XmlAttrBidi.Value := _value;
end;
@@ -8888,13 +11960,13 @@ end;
function R.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function R.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function R.Init();override;
@@ -8922,6 +11994,7 @@ begin
pre + "object": array(12, makeweakref(thisFunction(ReadXmlChildObject))),
pre + "footnoteReference": array(13, makeweakref(thisFunction(ReadXmlChildFootnoteReference))),
pre + "footnoteRef": array(14, makeweakref(thisFunction(ReadXmlChildFootnoteRef))),
+ pre + "commentReference": array(15, makeweakref(thisFunction(ReadXmlChildCommentReference))),
);
container_ := new TSOfficeContainer(sorted_child_);
end;
@@ -8965,50 +12038,81 @@ begin
{self.}FootnoteReference.Copy(_obj.XmlChildFootnoteReference);
if not ifnil(_obj.XmlChildFootnoteRef) then
ifnil({self.}XmlChildFootnoteRef) ? {self.}FootnoteRef.Copy(_obj.XmlChildFootnoteRef) : {self.}XmlChildFootnoteRef.Copy(_obj.XmlChildFootnoteRef);
+ if not ifnil(_obj.XmlChildCommentReference) then
+ {self.}CommentReference.Copy(_obj.XmlChildCommentReference);
tslassigning := tslassigning_backup;
end;
+function R.ConvertToPoint();override;
+begin
+ elems := {self.}Rs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ if not ifnil({self.}XmlChildRPr) then
+ {self.}XmlChildRPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildBr) then
+ {self.}XmlChildBr.ConvertToPoint();
+ if not ifnil({self.}XmlChildFldChar) then
+ {self.}XmlChildFldChar.ConvertToPoint();
+ if not ifnil({self.}XmlChildInstrText) then
+ {self.}XmlChildInstrText.ConvertToPoint();
+ if not ifnil({self.}XmlChildAlternateContent) then
+ {self.}XmlChildAlternateContent.ConvertToPoint();
+ if not ifnil({self.}XmlChildDrawing) then
+ {self.}XmlChildDrawing.ConvertToPoint();
+ if not ifnil({self.}XmlChildPict) then
+ {self.}XmlChildPict.ConvertToPoint();
+ if not ifnil({self.}XmlChildT) then
+ {self.}XmlChildT.ConvertToPoint();
+ if not ifnil({self.}XmlChildObject) then
+ {self.}XmlChildObject.ConvertToPoint();
+ if not ifnil({self.}XmlChildFootnoteReference) then
+ {self.}XmlChildFootnoteReference.ConvertToPoint();
+ if not ifnil({self.}XmlChildCommentReference) then
+ {self.}XmlChildCommentReference.ConvertToPoint();
+end;
+
function R.ReadXmlAttrRsidRPr();
begin
- return {self.}XmlAttrRsidRPr.Value;
+ return ifnil({self.}XmlAttrRsidRPr.Value) ? fallback_.XmlAttrRsidRPr.Value : {self.}XmlAttrRsidRPr.Value;
end;
-function R.WriteXmlAttrRsidRPr(_value);
+function R.WriteXmlAttrRsidRPr(_value: any);
begin
if ifnil({self.}XmlAttrRsidRPr) then
begin
{self.}XmlAttrRsidRPr := new OpenXmlAttribute({self.}Prefix, "rsidRPr", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrRsidRPr;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "rsidRPr" : "rsidRPr"] := {self.}XmlAttrRsidRPr;
end
{self.}XmlAttrRsidRPr.Value := _value;
end;
function R.ReadXmlAttrAnchor();
begin
- return {self.}XmlAttrAnchor.Value;
+ return ifnil({self.}XmlAttrAnchor.Value) ? fallback_.XmlAttrAnchor.Value : {self.}XmlAttrAnchor.Value;
end;
-function R.WriteXmlAttrAnchor(_value);
+function R.WriteXmlAttrAnchor(_value: any);
begin
if ifnil({self.}XmlAttrAnchor) then
begin
{self.}XmlAttrAnchor := new OpenXmlAttribute({self.}Prefix, "anchor", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrAnchor;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "anchor" : "anchor"] := {self.}XmlAttrAnchor;
end
{self.}XmlAttrAnchor.Value := _value;
end;
function R.ReadXmlAttrHistory();
begin
- return {self.}XmlAttrHistory.Value;
+ return ifnil({self.}XmlAttrHistory.Value) ? fallback_.XmlAttrHistory.Value : {self.}XmlAttrHistory.Value;
end;
-function R.WriteXmlAttrHistory(_value);
+function R.WriteXmlAttrHistory(_value: any);
begin
if ifnil({self.}XmlAttrHistory) then
begin
{self.}XmlAttrHistory := new OpenXmlAttribute({self.}Prefix, "history", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrHistory;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "history" : "history"] := {self.}XmlAttrHistory;
end
{self.}XmlAttrHistory.Value := _value;
end;
@@ -9020,7 +12124,24 @@ begin
{self.}XmlChildSeparator := new OpenXmlSimpleType(self, {self.}Prefix, "separator");
container_.Set({self.}XmlChildSeparator);
end
- return {self.}XmlChildSeparator;
+ return {self.}XmlChildSeparator and not {self.}XmlChildSeparator.Removed ? {self.}XmlChildSeparator : fallback_.XmlChildSeparator;
+end;
+
+function R.WriteXmlChildSeparator(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildSeparator) then
+ {self.}RemoveChild({self.}XmlChildSeparator);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildSeparator := _value;
+ container_.Set({self.}XmlChildSeparator);
+ end
+ else begin
+ raise "Invalid assignment: Separator expects nil or OpenXmlSimpleType";
+ end
end;
function R.ReadXmlChildContinuationSeparator();
@@ -9030,7 +12151,24 @@ begin
{self.}XmlChildContinuationSeparator := new OpenXmlSimpleType(self, {self.}Prefix, "continuationSeparator");
container_.Set({self.}XmlChildContinuationSeparator);
end
- return {self.}XmlChildContinuationSeparator;
+ return {self.}XmlChildContinuationSeparator and not {self.}XmlChildContinuationSeparator.Removed ? {self.}XmlChildContinuationSeparator : fallback_.XmlChildContinuationSeparator;
+end;
+
+function R.WriteXmlChildContinuationSeparator(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildContinuationSeparator) then
+ {self.}RemoveChild({self.}XmlChildContinuationSeparator);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildContinuationSeparator := _value;
+ container_.Set({self.}XmlChildContinuationSeparator);
+ end
+ else begin
+ raise "Invalid assignment: ContinuationSeparator expects nil or OpenXmlSimpleType";
+ end
end;
function R.ReadXmlChildLastRenderedPageBreak();
@@ -9040,7 +12178,24 @@ begin
{self.}XmlChildLastRenderedPageBreak := new OpenXmlSimpleType(self, {self.}Prefix, "lastRenderedPageBreak");
container_.Set({self.}XmlChildLastRenderedPageBreak);
end
- return {self.}XmlChildLastRenderedPageBreak;
+ return {self.}XmlChildLastRenderedPageBreak and not {self.}XmlChildLastRenderedPageBreak.Removed ? {self.}XmlChildLastRenderedPageBreak : fallback_.XmlChildLastRenderedPageBreak;
+end;
+
+function R.WriteXmlChildLastRenderedPageBreak(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildLastRenderedPageBreak) then
+ {self.}RemoveChild({self.}XmlChildLastRenderedPageBreak);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildLastRenderedPageBreak := _value;
+ container_.Set({self.}XmlChildLastRenderedPageBreak);
+ end
+ else begin
+ raise "Invalid assignment: LastRenderedPageBreak expects nil or OpenXmlSimpleType";
+ end
end;
function R.ReadXmlChildFootnoteRef();
@@ -9050,7 +12205,24 @@ begin
{self.}XmlChildFootnoteRef := new OpenXmlSimpleType(self, {self.}Prefix, "footnoteRef");
container_.Set({self.}XmlChildFootnoteRef);
end
- return {self.}XmlChildFootnoteRef;
+ return {self.}XmlChildFootnoteRef and not {self.}XmlChildFootnoteRef.Removed ? {self.}XmlChildFootnoteRef : fallback_.XmlChildFootnoteRef;
+end;
+
+function R.WriteXmlChildFootnoteRef(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildFootnoteRef) then
+ {self.}RemoveChild({self.}XmlChildFootnoteRef);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildFootnoteRef := _value;
+ container_.Set({self.}XmlChildFootnoteRef);
+ end
+ else begin
+ raise "Invalid assignment: FootnoteRef expects nil or OpenXmlSimpleType";
+ end
end;
function R.ReadXmlChildRPr(): RPr;
@@ -9060,7 +12232,25 @@ begin
{self.}XmlChildRPr := new RPr(self, {self.}Prefix, "rPr");
container_.Set({self.}XmlChildRPr);
end
- return {self.}XmlChildRPr;
+ return {self.}XmlChildRPr and not {self.}XmlChildRPr.Removed ? {self.}XmlChildRPr : fallback_.XmlChildRPr;
+end;
+
+function R.WriteXmlChildRPr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildRPr) then
+ {self.}RemoveChild({self.}XmlChildRPr);
+ end
+ else if v is class(RPr) then
+ begin
+ {self.}XmlChildRPr := v;
+ container_.Set({self.}XmlChildRPr);
+ end
+ else begin
+ raise "Invalid assignment: RPr expects RPr or nil";
+ end
end;
function R.ReadXmlChildBr(): Br;
@@ -9070,7 +12260,25 @@ begin
{self.}XmlChildBr := new Br(self, {self.}Prefix, "br");
container_.Set({self.}XmlChildBr);
end
- return {self.}XmlChildBr;
+ return {self.}XmlChildBr and not {self.}XmlChildBr.Removed ? {self.}XmlChildBr : fallback_.XmlChildBr;
+end;
+
+function R.WriteXmlChildBr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildBr) then
+ {self.}RemoveChild({self.}XmlChildBr);
+ end
+ else if v is class(Br) then
+ begin
+ {self.}XmlChildBr := v;
+ container_.Set({self.}XmlChildBr);
+ end
+ else begin
+ raise "Invalid assignment: Br expects Br or nil";
+ end
end;
function R.ReadXmlChildFldChar(): FldChar;
@@ -9080,7 +12288,25 @@ begin
{self.}XmlChildFldChar := new FldChar(self, {self.}Prefix, "fldChar");
container_.Set({self.}XmlChildFldChar);
end
- return {self.}XmlChildFldChar;
+ return {self.}XmlChildFldChar and not {self.}XmlChildFldChar.Removed ? {self.}XmlChildFldChar : fallback_.XmlChildFldChar;
+end;
+
+function R.WriteXmlChildFldChar(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildFldChar) then
+ {self.}RemoveChild({self.}XmlChildFldChar);
+ end
+ else if v is class(FldChar) then
+ begin
+ {self.}XmlChildFldChar := v;
+ container_.Set({self.}XmlChildFldChar);
+ end
+ else begin
+ raise "Invalid assignment: FldChar expects FldChar or nil";
+ end
end;
function R.ReadXmlChildInstrText(): InstrText;
@@ -9090,7 +12316,25 @@ begin
{self.}XmlChildInstrText := new InstrText(self, {self.}Prefix, "instrText");
container_.Set({self.}XmlChildInstrText);
end
- return {self.}XmlChildInstrText;
+ return {self.}XmlChildInstrText and not {self.}XmlChildInstrText.Removed ? {self.}XmlChildInstrText : fallback_.XmlChildInstrText;
+end;
+
+function R.WriteXmlChildInstrText(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildInstrText) then
+ {self.}RemoveChild({self.}XmlChildInstrText);
+ end
+ else if v is class(InstrText) then
+ begin
+ {self.}XmlChildInstrText := v;
+ container_.Set({self.}XmlChildInstrText);
+ end
+ else begin
+ raise "Invalid assignment: InstrText expects InstrText or nil";
+ end
end;
function R.ReadXmlChildAlternateContent(): AlternateContent;
@@ -9100,7 +12344,25 @@ begin
{self.}XmlChildAlternateContent := new AlternateContent(self, "mc", "AlternateContent");
container_.Set({self.}XmlChildAlternateContent);
end
- return {self.}XmlChildAlternateContent;
+ return {self.}XmlChildAlternateContent and not {self.}XmlChildAlternateContent.Removed ? {self.}XmlChildAlternateContent : fallback_.XmlChildAlternateContent;
+end;
+
+function R.WriteXmlChildAlternateContent(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildAlternateContent) then
+ {self.}RemoveChild({self.}XmlChildAlternateContent);
+ end
+ else if v is class(AlternateContent) then
+ begin
+ {self.}XmlChildAlternateContent := v;
+ container_.Set({self.}XmlChildAlternateContent);
+ end
+ else begin
+ raise "Invalid assignment: AlternateContent expects AlternateContent or nil";
+ end
end;
function R.ReadXmlChildDrawing(): Drawing;
@@ -9110,7 +12372,25 @@ begin
{self.}XmlChildDrawing := new Drawing(self, {self.}Prefix, "drawing");
container_.Set({self.}XmlChildDrawing);
end
- return {self.}XmlChildDrawing;
+ return {self.}XmlChildDrawing and not {self.}XmlChildDrawing.Removed ? {self.}XmlChildDrawing : fallback_.XmlChildDrawing;
+end;
+
+function R.WriteXmlChildDrawing(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildDrawing) then
+ {self.}RemoveChild({self.}XmlChildDrawing);
+ end
+ else if v is class(Drawing) then
+ begin
+ {self.}XmlChildDrawing := v;
+ container_.Set({self.}XmlChildDrawing);
+ end
+ else begin
+ raise "Invalid assignment: Drawing expects Drawing or nil";
+ end
end;
function R.ReadXmlChildPict(): Pict;
@@ -9120,7 +12400,25 @@ begin
{self.}XmlChildPict := new Pict(self, {self.}Prefix, "pict");
container_.Set({self.}XmlChildPict);
end
- return {self.}XmlChildPict;
+ return {self.}XmlChildPict and not {self.}XmlChildPict.Removed ? {self.}XmlChildPict : fallback_.XmlChildPict;
+end;
+
+function R.WriteXmlChildPict(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildPict) then
+ {self.}RemoveChild({self.}XmlChildPict);
+ end
+ else if v is class(Pict) then
+ begin
+ {self.}XmlChildPict := v;
+ container_.Set({self.}XmlChildPict);
+ end
+ else begin
+ raise "Invalid assignment: Pict expects Pict or nil";
+ end
end;
function R.ReadXmlChildT(): T;
@@ -9130,7 +12428,25 @@ begin
{self.}XmlChildT := new T(self, {self.}Prefix, "t");
container_.Set({self.}XmlChildT);
end
- return {self.}XmlChildT;
+ return {self.}XmlChildT and not {self.}XmlChildT.Removed ? {self.}XmlChildT : fallback_.XmlChildT;
+end;
+
+function R.WriteXmlChildT(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildT) then
+ {self.}RemoveChild({self.}XmlChildT);
+ end
+ else if v is class(T) then
+ begin
+ {self.}XmlChildT := v;
+ container_.Set({self.}XmlChildT);
+ end
+ else begin
+ raise "Invalid assignment: T expects T or nil";
+ end
end;
function R.ReadXmlChildObject(): Object;
@@ -9140,7 +12456,25 @@ begin
{self.}XmlChildObject := new Object(self, {self.}Prefix, "object");
container_.Set({self.}XmlChildObject);
end
- return {self.}XmlChildObject;
+ return {self.}XmlChildObject and not {self.}XmlChildObject.Removed ? {self.}XmlChildObject : fallback_.XmlChildObject;
+end;
+
+function R.WriteXmlChildObject(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildObject) then
+ {self.}RemoveChild({self.}XmlChildObject);
+ end
+ else if v is class(Object) then
+ begin
+ {self.}XmlChildObject := v;
+ container_.Set({self.}XmlChildObject);
+ end
+ else begin
+ raise "Invalid assignment: Object expects Object or nil";
+ end
end;
function R.ReadXmlChildFootnoteReference(): FootnoteReference;
@@ -9150,16 +12484,81 @@ begin
{self.}XmlChildFootnoteReference := new FootnoteReference(self, {self.}Prefix, "footnoteReference");
container_.Set({self.}XmlChildFootnoteReference);
end
- return {self.}XmlChildFootnoteReference;
+ return {self.}XmlChildFootnoteReference and not {self.}XmlChildFootnoteReference.Removed ? {self.}XmlChildFootnoteReference : fallback_.XmlChildFootnoteReference;
end;
-function R.ReadRs(_index);
+function R.WriteXmlChildFootnoteReference(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildFootnoteReference) then
+ {self.}RemoveChild({self.}XmlChildFootnoteReference);
+ end
+ else if v is class(FootnoteReference) then
+ begin
+ {self.}XmlChildFootnoteReference := v;
+ container_.Set({self.}XmlChildFootnoteReference);
+ end
+ else begin
+ raise "Invalid assignment: FootnoteReference expects FootnoteReference or nil";
+ end
+end;
+
+function R.ReadXmlChildCommentReference(): CommentReference;
+begin
+ if tslassigning and (ifnil({self.}XmlChildCommentReference) or {self.}XmlChildCommentReference.Removed) then
+ begin
+ {self.}XmlChildCommentReference := new CommentReference(self, {self.}Prefix, "commentReference");
+ container_.Set({self.}XmlChildCommentReference);
+ end
+ return {self.}XmlChildCommentReference and not {self.}XmlChildCommentReference.Removed ? {self.}XmlChildCommentReference : fallback_.XmlChildCommentReference;
+end;
+
+function R.WriteXmlChildCommentReference(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildCommentReference) then
+ {self.}RemoveChild({self.}XmlChildCommentReference);
+ end
+ else if v is class(CommentReference) then
+ begin
+ {self.}XmlChildCommentReference := v;
+ container_.Set({self.}XmlChildCommentReference);
+ end
+ else begin
+ raise "Invalid assignment: CommentReference expects CommentReference or nil";
+ end
+end;
+
+function R.ReadRs(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "r", ind);
end;
+function R.WriteRs(_index: integer; _value: nil_OR_R);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadRs(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "r", ind, _value) then
+ raise format("Index out of range: Rs[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Rs expects nil or R";
+ end
+end;
+
function R.AddR(): R;
begin
obj := new R(self, {self.}Prefix, "r");
@@ -9174,6 +12573,64 @@ begin
return obj;
end;
+function CommentReference.Create();overload;
+begin
+ {self.}Create(nil, "w", "commentReference");
+end;
+
+function CommentReference.Create(_node: XmlNode);overload;
+begin
+ inherited Create(_node: XmlNode);
+end;
+
+function CommentReference.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
+begin
+ setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
+ inherited Create(_parent, _prefix, _local_name);
+end;
+
+function CommentReference.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 CommentReference.Copy(_obj: CommentReference);override;
+begin
+ tslassigning_backup := tslassigning;
+ tslassigning := 1;
+ class(OpenXmlCompositeElement).Copy(_obj);
+ if not ifnil(_obj.Id) then
+ {self.}Id := _obj.Id;
+ tslassigning := tslassigning_backup;
+end;
+
+function CommentReference.ConvertToPoint();override;
+begin
+
+end;
+
+function CommentReference.ReadXmlAttrId();
+begin
+ return ifnil({self.}XmlAttrId.Value) ? fallback_.XmlAttrId.Value : {self.}XmlAttrId.Value;
+end;
+
+function CommentReference.WriteXmlAttrId(_value: any);
+begin
+ if ifnil({self.}XmlAttrId) then
+ begin
+ {self.}XmlAttrId := new OpenXmlAttribute({self.}Prefix, "id", nil);
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "id" : "id"] := {self.}XmlAttrId;
+ end
+ {self.}XmlAttrId.Value := _value;
+end;
+
function Object.Create();overload;
begin
{self.}Create(nil, "w", "object");
@@ -9181,13 +12638,13 @@ end;
function Object.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Object.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Object.Init();override;
@@ -9227,47 +12684,61 @@ begin
tslassigning := tslassigning_backup;
end;
-function Object.ReadXmlAttrDxaOrig();
+function Object.ConvertToPoint();override;
begin
- return {self.}XmlAttrDxaOrig.Value;
+ if not ifnil({self.}XmlAttrDxaOrig) then
+ {self.}DxaOrig := TSSafeUnitConverter.TwipsToPoints({self.}XmlAttrDxaOrig.Value);
+ if not ifnil({self.}XmlAttrDyaOrig) then
+ {self.}DyaOrig := TSSafeUnitConverter.TwipsToPoints({self.}XmlAttrDyaOrig.Value);
+ if not ifnil({self.}XmlChildShapetype) then
+ {self.}XmlChildShapetype.ConvertToPoint();
+ if not ifnil({self.}XmlChildShape) then
+ {self.}XmlChildShape.ConvertToPoint();
+ if not ifnil({self.}XmlChildOLEObject) then
+ {self.}XmlChildOLEObject.ConvertToPoint();
end;
-function Object.WriteXmlAttrDxaOrig(_value);
+function Object.ReadXmlAttrDxaOrig();
+begin
+ return ifnil({self.}XmlAttrDxaOrig.Value) ? fallback_.XmlAttrDxaOrig.Value : {self.}XmlAttrDxaOrig.Value;
+end;
+
+function Object.WriteXmlAttrDxaOrig(_value: any);
begin
if ifnil({self.}XmlAttrDxaOrig) then
begin
{self.}XmlAttrDxaOrig := new OpenXmlAttribute({self.}Prefix, "dxaOrig", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrDxaOrig;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "dxaOrig" : "dxaOrig"] := {self.}XmlAttrDxaOrig;
end
{self.}XmlAttrDxaOrig.Value := _value;
end;
function Object.ReadXmlAttrDyaOrig();
begin
- return {self.}XmlAttrDyaOrig.Value;
+ return ifnil({self.}XmlAttrDyaOrig.Value) ? fallback_.XmlAttrDyaOrig.Value : {self.}XmlAttrDyaOrig.Value;
end;
-function Object.WriteXmlAttrDyaOrig(_value);
+function Object.WriteXmlAttrDyaOrig(_value: any);
begin
if ifnil({self.}XmlAttrDyaOrig) then
begin
{self.}XmlAttrDyaOrig := new OpenXmlAttribute({self.}Prefix, "dyaOrig", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrDyaOrig;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "dyaOrig" : "dyaOrig"] := {self.}XmlAttrDyaOrig;
end
{self.}XmlAttrDyaOrig.Value := _value;
end;
function Object.ReadXmlAttrAnchorId();
begin
- return {self.}XmlAttrAnchorId.Value;
+ return ifnil({self.}XmlAttrAnchorId.Value) ? fallback_.XmlAttrAnchorId.Value : {self.}XmlAttrAnchorId.Value;
end;
-function Object.WriteXmlAttrAnchorId(_value);
+function Object.WriteXmlAttrAnchorId(_value: any);
begin
if ifnil({self.}XmlAttrAnchorId) then
begin
{self.}XmlAttrAnchorId := new OpenXmlAttribute("w14", "anchorId", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrAnchorId;
+ attributes_["w14:anchorId"] := {self.}XmlAttrAnchorId;
end
{self.}XmlAttrAnchorId.Value := _value;
end;
@@ -9279,7 +12750,25 @@ begin
{self.}XmlChildShapetype := new VML.Shapetype(self, "v", "shapetype");
container_.Set({self.}XmlChildShapetype);
end
- return {self.}XmlChildShapetype;
+ return {self.}XmlChildShapetype and not {self.}XmlChildShapetype.Removed ? {self.}XmlChildShapetype : fallback_.XmlChildShapetype;
+end;
+
+function Object.WriteXmlChildShapetype(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildShapetype) then
+ {self.}RemoveChild({self.}XmlChildShapetype);
+ end
+ else if v is class(Shapetype) then
+ begin
+ {self.}XmlChildShapetype := v;
+ container_.Set({self.}XmlChildShapetype);
+ end
+ else begin
+ raise "Invalid assignment: Shapetype expects Shapetype or nil";
+ end
end;
function Object.ReadXmlChildShape(): Shape;
@@ -9289,7 +12778,25 @@ begin
{self.}XmlChildShape := new VML.Shape(self, "v", "shape");
container_.Set({self.}XmlChildShape);
end
- return {self.}XmlChildShape;
+ return {self.}XmlChildShape and not {self.}XmlChildShape.Removed ? {self.}XmlChildShape : fallback_.XmlChildShape;
+end;
+
+function Object.WriteXmlChildShape(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildShape) then
+ {self.}RemoveChild({self.}XmlChildShape);
+ end
+ else if v is class(Shape) then
+ begin
+ {self.}XmlChildShape := v;
+ container_.Set({self.}XmlChildShape);
+ end
+ else begin
+ raise "Invalid assignment: Shape expects Shape or nil";
+ end
end;
function Object.ReadXmlChildOLEObject(): OLEObject;
@@ -9299,7 +12806,25 @@ begin
{self.}XmlChildOLEObject := new VML.OLEObject(self, "o", "OLEObject");
container_.Set({self.}XmlChildOLEObject);
end
- return {self.}XmlChildOLEObject;
+ return {self.}XmlChildOLEObject and not {self.}XmlChildOLEObject.Removed ? {self.}XmlChildOLEObject : fallback_.XmlChildOLEObject;
+end;
+
+function Object.WriteXmlChildOLEObject(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildOLEObject) then
+ {self.}RemoveChild({self.}XmlChildOLEObject);
+ end
+ else if v is class(OLEObject) then
+ begin
+ {self.}XmlChildOLEObject := v;
+ container_.Set({self.}XmlChildOLEObject);
+ end
+ else begin
+ raise "Invalid assignment: OLEObject expects OLEObject or nil";
+ end
end;
function FootnoteReference.Create();overload;
@@ -9309,13 +12834,13 @@ end;
function FootnoteReference.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function FootnoteReference.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function FootnoteReference.Init();override;
@@ -9340,17 +12865,22 @@ begin
tslassigning := tslassigning_backup;
end;
-function FootnoteReference.ReadXmlAttrId();
+function FootnoteReference.ConvertToPoint();override;
begin
- return {self.}XmlAttrId.Value;
+
end;
-function FootnoteReference.WriteXmlAttrId(_value);
+function FootnoteReference.ReadXmlAttrId();
+begin
+ return ifnil({self.}XmlAttrId.Value) ? fallback_.XmlAttrId.Value : {self.}XmlAttrId.Value;
+end;
+
+function FootnoteReference.WriteXmlAttrId(_value: any);
begin
if ifnil({self.}XmlAttrId) then
begin
{self.}XmlAttrId := new OpenXmlAttribute({self.}Prefix, "id", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrId;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "id" : "id"] := {self.}XmlAttrId;
end
{self.}XmlAttrId.Value := _value;
end;
@@ -9362,13 +12892,13 @@ end;
function FldChar.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function FldChar.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function FldChar.Init();override;
@@ -9399,47 +12929,52 @@ begin
tslassigning := tslassigning_backup;
end;
-function FldChar.ReadXmlAttrFldCharType();
+function FldChar.ConvertToPoint();override;
begin
- return {self.}XmlAttrFldCharType.Value;
+
end;
-function FldChar.WriteXmlAttrFldCharType(_value);
+function FldChar.ReadXmlAttrFldCharType();
+begin
+ return ifnil({self.}XmlAttrFldCharType.Value) ? fallback_.XmlAttrFldCharType.Value : {self.}XmlAttrFldCharType.Value;
+end;
+
+function FldChar.WriteXmlAttrFldCharType(_value: any);
begin
if ifnil({self.}XmlAttrFldCharType) then
begin
{self.}XmlAttrFldCharType := new OpenXmlAttribute({self.}Prefix, "fldCharType", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrFldCharType;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "fldCharType" : "fldCharType"] := {self.}XmlAttrFldCharType;
end
{self.}XmlAttrFldCharType.Value := _value;
end;
function FldChar.ReadXmlAttrFldLock();
begin
- return {self.}XmlAttrFldLock.Value;
+ return ifnil({self.}XmlAttrFldLock.Value) ? fallback_.XmlAttrFldLock.Value : {self.}XmlAttrFldLock.Value;
end;
-function FldChar.WriteXmlAttrFldLock(_value);
+function FldChar.WriteXmlAttrFldLock(_value: any);
begin
if ifnil({self.}XmlAttrFldLock) then
begin
{self.}XmlAttrFldLock := new OpenXmlAttribute({self.}Prefix, "fldLock", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrFldLock;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "fldLock" : "fldLock"] := {self.}XmlAttrFldLock;
end
{self.}XmlAttrFldLock.Value := _value;
end;
function FldChar.ReadXmlAttrDirty();
begin
- return {self.}XmlAttrDirty.Value;
+ return ifnil({self.}XmlAttrDirty.Value) ? fallback_.XmlAttrDirty.Value : {self.}XmlAttrDirty.Value;
end;
-function FldChar.WriteXmlAttrDirty(_value);
+function FldChar.WriteXmlAttrDirty(_value: any);
begin
if ifnil({self.}XmlAttrDirty) then
begin
{self.}XmlAttrDirty := new OpenXmlAttribute({self.}Prefix, "dirty", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrDirty;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "dirty" : "dirty"] := {self.}XmlAttrDirty;
end
{self.}XmlAttrDirty.Value := _value;
end;
@@ -9451,13 +12986,13 @@ end;
function InstrText.Create(_node: XmlNode);overload;
begin
- class(OpenXmlTextElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function InstrText.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlTextElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function InstrText.Init();override;
@@ -9479,17 +13014,22 @@ begin
tslassigning := tslassigning_backup;
end;
-function InstrText.ReadXmlAttrSpace();
+function InstrText.ConvertToPoint();override;
begin
- return {self.}XmlAttrSpace.Value;
+
end;
-function InstrText.WriteXmlAttrSpace(_value);
+function InstrText.ReadXmlAttrSpace();
+begin
+ return ifnil({self.}XmlAttrSpace.Value) ? fallback_.XmlAttrSpace.Value : {self.}XmlAttrSpace.Value;
+end;
+
+function InstrText.WriteXmlAttrSpace(_value: any);
begin
if ifnil({self.}XmlAttrSpace) then
begin
{self.}XmlAttrSpace := new OpenXmlAttribute("xml", "Space", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrSpace;
+ attributes_["xml:Space"] := {self.}XmlAttrSpace;
end
{self.}XmlAttrSpace.Value := _value;
end;
@@ -9501,13 +13041,13 @@ end;
function Br.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Br.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Br.Init();override;
@@ -9532,17 +13072,22 @@ begin
tslassigning := tslassigning_backup;
end;
-function Br.ReadXmlAttrType();
+function Br.ConvertToPoint();override;
begin
- return {self.}XmlAttrType.Value;
+
end;
-function Br.WriteXmlAttrType(_value);
+function Br.ReadXmlAttrType();
+begin
+ return ifnil({self.}XmlAttrType.Value) ? fallback_.XmlAttrType.Value : {self.}XmlAttrType.Value;
+end;
+
+function Br.WriteXmlAttrType(_value: any);
begin
if ifnil({self.}XmlAttrType) then
begin
{self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrType;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "type" : "type"] := {self.}XmlAttrType;
end
{self.}XmlAttrType.Value := _value;
end;
@@ -9554,13 +13099,13 @@ end;
function TxbxContent.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function TxbxContent.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function TxbxContent.Init();override;
@@ -9583,13 +13128,39 @@ begin
tslassigning := tslassigning_backup;
end;
-function TxbxContent.ReadPs(_index);
+function TxbxContent.ConvertToPoint();override;
+begin
+ elems := {self.}Ps();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+end;
+
+function TxbxContent.ReadPs(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "p", ind);
end;
+function TxbxContent.WritePs(_index: integer; _value: nil_OR_P);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadPs(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "p", ind, _value) then
+ raise format("Index out of range: Ps[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Ps expects nil or P";
+ end
+end;
+
function TxbxContent.AddP(): P;
begin
obj := new P(self, {self.}Prefix, "p");
@@ -9611,13 +13182,13 @@ end;
function Drawing.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Drawing.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Drawing.Init();override;
@@ -9645,6 +13216,14 @@ begin
tslassigning := tslassigning_backup;
end;
+function Drawing.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChild_Inline) then
+ {self.}XmlChild_Inline.ConvertToPoint();
+ if not ifnil({self.}XmlChildAnchor) then
+ {self.}XmlChildAnchor.ConvertToPoint();
+end;
+
function Drawing.ReadXmlChild_Inline(): _Inline;
begin
if tslassigning and (ifnil({self.}XmlChild_Inline) or {self.}XmlChild_Inline.Removed) then
@@ -9652,7 +13231,25 @@ begin
{self.}XmlChild_Inline := new DrawingML._Inline(self, "wp", "inline");
container_.Set({self.}XmlChild_Inline);
end
- return {self.}XmlChild_Inline;
+ return {self.}XmlChild_Inline and not {self.}XmlChild_Inline.Removed ? {self.}XmlChild_Inline : fallback_.XmlChild_Inline;
+end;
+
+function Drawing.WriteXmlChild_Inline(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChild_Inline) then
+ {self.}RemoveChild({self.}XmlChild_Inline);
+ end
+ else if v is class(_Inline) then
+ begin
+ {self.}XmlChild_Inline := v;
+ container_.Set({self.}XmlChild_Inline);
+ end
+ else begin
+ raise "Invalid assignment: _Inline expects _Inline or nil";
+ end
end;
function Drawing.ReadXmlChildAnchor(): Anchor;
@@ -9662,7 +13259,25 @@ begin
{self.}XmlChildAnchor := new DrawingML.Anchor(self, "wp", "anchor");
container_.Set({self.}XmlChildAnchor);
end
- return {self.}XmlChildAnchor;
+ return {self.}XmlChildAnchor and not {self.}XmlChildAnchor.Removed ? {self.}XmlChildAnchor : fallback_.XmlChildAnchor;
+end;
+
+function Drawing.WriteXmlChildAnchor(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildAnchor) then
+ {self.}RemoveChild({self.}XmlChildAnchor);
+ end
+ else if v is class(Anchor) then
+ begin
+ {self.}XmlChildAnchor := v;
+ container_.Set({self.}XmlChildAnchor);
+ end
+ else begin
+ raise "Invalid assignment: Anchor expects Anchor or nil";
+ end
end;
function T.Create();overload;
@@ -9672,13 +13287,13 @@ end;
function T.Create(_node: XmlNode);overload;
begin
- class(OpenXmlTextElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function T.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlTextElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function T.Init();override;
@@ -9700,17 +13315,22 @@ begin
tslassigning := tslassigning_backup;
end;
-function T.ReadXmlAttrSpace();
+function T.ConvertToPoint();override;
begin
- return {self.}XmlAttrSpace.Value;
+
end;
-function T.WriteXmlAttrSpace(_value);
+function T.ReadXmlAttrSpace();
+begin
+ return ifnil({self.}XmlAttrSpace.Value) ? fallback_.XmlAttrSpace.Value : {self.}XmlAttrSpace.Value;
+end;
+
+function T.WriteXmlAttrSpace(_value: any);
begin
if ifnil({self.}XmlAttrSpace) then
begin
{self.}XmlAttrSpace := new OpenXmlAttribute("xml", "space", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrSpace;
+ attributes_["xml:space"] := {self.}XmlAttrSpace;
end
{self.}XmlAttrSpace.Value := _value;
end;
@@ -9722,13 +13342,13 @@ end;
function Tbl.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Tbl.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Tbl.Init();override;
@@ -9758,6 +13378,20 @@ begin
tslassigning := tslassigning_backup;
end;
+function Tbl.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildTblPr) then
+ {self.}XmlChildTblPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildTblGrid) then
+ {self.}XmlChildTblGrid.ConvertToPoint();
+ elems := {self.}Trs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Sdts();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+end;
+
function Tbl.ReadXmlChildTblPr(): TblPr;
begin
if tslassigning and (ifnil({self.}XmlChildTblPr) or {self.}XmlChildTblPr.Removed) then
@@ -9765,7 +13399,25 @@ begin
{self.}XmlChildTblPr := new TblPr(self, {self.}Prefix, "tblPr");
container_.Set({self.}XmlChildTblPr);
end
- return {self.}XmlChildTblPr;
+ return {self.}XmlChildTblPr and not {self.}XmlChildTblPr.Removed ? {self.}XmlChildTblPr : fallback_.XmlChildTblPr;
+end;
+
+function Tbl.WriteXmlChildTblPr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTblPr) then
+ {self.}RemoveChild({self.}XmlChildTblPr);
+ end
+ else if v is class(TblPr) then
+ begin
+ {self.}XmlChildTblPr := v;
+ container_.Set({self.}XmlChildTblPr);
+ end
+ else begin
+ raise "Invalid assignment: TblPr expects TblPr or nil";
+ end
end;
function Tbl.ReadXmlChildTblGrid(): TblGrid;
@@ -9775,23 +13427,79 @@ begin
{self.}XmlChildTblGrid := new TblGrid(self, {self.}Prefix, "tblGrid");
container_.Set({self.}XmlChildTblGrid);
end
- return {self.}XmlChildTblGrid;
+ return {self.}XmlChildTblGrid and not {self.}XmlChildTblGrid.Removed ? {self.}XmlChildTblGrid : fallback_.XmlChildTblGrid;
end;
-function Tbl.ReadTrs(_index);
+function Tbl.WriteXmlChildTblGrid(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTblGrid) then
+ {self.}RemoveChild({self.}XmlChildTblGrid);
+ end
+ else if v is class(TblGrid) then
+ begin
+ {self.}XmlChildTblGrid := v;
+ container_.Set({self.}XmlChildTblGrid);
+ end
+ else begin
+ raise "Invalid assignment: TblGrid expects TblGrid or nil";
+ end
+end;
+
+function Tbl.ReadTrs(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "tr", ind);
end;
-function Tbl.ReadSdts(_index);
+function Tbl.WriteTrs(_index: integer; _value: nil_OR_Tr);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadTrs(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "tr", ind, _value) then
+ raise format("Index out of range: Trs[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Trs expects nil or Tr";
+ end
+end;
+
+function Tbl.ReadSdts(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "sdt", ind);
end;
+function Tbl.WriteSdts(_index: integer; _value: nil_OR_Sdt);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadSdts(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "sdt", ind, _value) then
+ raise format("Index out of range: Sdts[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Sdts expects nil or Sdt";
+ end
+end;
+
function Tbl.AddTr(): Tr;
begin
obj := new Tr(self, {self.}Prefix, "tr");
@@ -9827,13 +13535,13 @@ end;
function TblPr.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function TblPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function TblPr.Init();override;
@@ -9897,6 +13605,38 @@ begin
tslassigning := tslassigning_backup;
end;
+function TblPr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildJc) then
+ {self.}XmlChildJc.ConvertToPoint();
+ if not ifnil({self.}XmlChildShd) then
+ {self.}XmlChildShd.ConvertToPoint();
+ if not ifnil({self.}XmlChildTblStyle) then
+ {self.}XmlChildTblStyle.ConvertToPoint();
+ if not ifnil({self.}XmlChildTblW) then
+ {self.}XmlChildTblW.ConvertToPoint();
+ if not ifnil({self.}XmlChildTblInd) then
+ {self.}XmlChildTblInd.ConvertToPoint();
+ if not ifnil({self.}XmlChildTblLayout) then
+ {self.}XmlChildTblLayout.ConvertToPoint();
+ if not ifnil({self.}XmlChildTblLook) then
+ {self.}XmlChildTblLook.ConvertToPoint();
+ if not ifnil({self.}XmlChildTblBorders) then
+ {self.}XmlChildTblBorders.ConvertToPoint();
+ if not ifnil({self.}XmlChildTblCellMar) then
+ {self.}XmlChildTblCellMar.ConvertToPoint();
+ if not ifnil({self.}XmlChildTblCellSpacing) then
+ {self.}XmlChildTblCellSpacing.ConvertToPoint();
+ if not ifnil({self.}XmlChildTblCaption) then
+ {self.}XmlChildTblCaption.ConvertToPoint();
+ if not ifnil({self.}XmlChildTblDescription) then
+ {self.}XmlChildTblDescription.ConvertToPoint();
+ if not ifnil({self.}XmlChildTblStyleRowBandSize) then
+ {self.}XmlChildTblStyleRowBandSize.ConvertToPoint();
+ if not ifnil({self.}XmlChildTblStyleColBandSize) then
+ {self.}XmlChildTblStyleColBandSize.ConvertToPoint();
+end;
+
function TblPr.ReadXmlChildJc(): PureWVal;
begin
if tslassigning and (ifnil({self.}XmlChildJc) or {self.}XmlChildJc.Removed) then
@@ -9904,7 +13644,25 @@ begin
{self.}XmlChildJc := new PureWVal(self, {self.}Prefix, "jc");
container_.Set({self.}XmlChildJc);
end
- return {self.}XmlChildJc;
+ return {self.}XmlChildJc and not {self.}XmlChildJc.Removed ? {self.}XmlChildJc : fallback_.XmlChildJc;
+end;
+
+function TblPr.WriteXmlChildJc(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildJc) then
+ {self.}RemoveChild({self.}XmlChildJc);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildJc := v;
+ container_.Set({self.}XmlChildJc);
+ end
+ else begin
+ raise "Invalid assignment: Jc expects PureWVal or nil";
+ end
end;
function TblPr.ReadXmlChildShd(): Shd;
@@ -9914,7 +13672,25 @@ begin
{self.}XmlChildShd := new Shd(self, {self.}Prefix, "shd");
container_.Set({self.}XmlChildShd);
end
- return {self.}XmlChildShd;
+ return {self.}XmlChildShd and not {self.}XmlChildShd.Removed ? {self.}XmlChildShd : fallback_.XmlChildShd;
+end;
+
+function TblPr.WriteXmlChildShd(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildShd) then
+ {self.}RemoveChild({self.}XmlChildShd);
+ end
+ else if v is class(Shd) then
+ begin
+ {self.}XmlChildShd := v;
+ container_.Set({self.}XmlChildShd);
+ end
+ else begin
+ raise "Invalid assignment: Shd expects Shd or nil";
+ end
end;
function TblPr.ReadXmlChildTblStyle(): PureWVal;
@@ -9924,7 +13700,25 @@ begin
{self.}XmlChildTblStyle := new PureWVal(self, {self.}Prefix, "tblStyle");
container_.Set({self.}XmlChildTblStyle);
end
- return {self.}XmlChildTblStyle;
+ return {self.}XmlChildTblStyle and not {self.}XmlChildTblStyle.Removed ? {self.}XmlChildTblStyle : fallback_.XmlChildTblStyle;
+end;
+
+function TblPr.WriteXmlChildTblStyle(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTblStyle) then
+ {self.}RemoveChild({self.}XmlChildTblStyle);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildTblStyle := v;
+ container_.Set({self.}XmlChildTblStyle);
+ end
+ else begin
+ raise "Invalid assignment: TblStyle expects PureWVal or nil";
+ end
end;
function TblPr.ReadXmlChildTblW(): TblW;
@@ -9934,7 +13728,25 @@ begin
{self.}XmlChildTblW := new TblW(self, {self.}Prefix, "tblW");
container_.Set({self.}XmlChildTblW);
end
- return {self.}XmlChildTblW;
+ return {self.}XmlChildTblW and not {self.}XmlChildTblW.Removed ? {self.}XmlChildTblW : fallback_.XmlChildTblW;
+end;
+
+function TblPr.WriteXmlChildTblW(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTblW) then
+ {self.}RemoveChild({self.}XmlChildTblW);
+ end
+ else if v is class(TblW) then
+ begin
+ {self.}XmlChildTblW := v;
+ container_.Set({self.}XmlChildTblW);
+ end
+ else begin
+ raise "Invalid assignment: TblW expects TblW or nil";
+ end
end;
function TblPr.ReadXmlChildTblInd(): TblW;
@@ -9944,7 +13756,25 @@ begin
{self.}XmlChildTblInd := new TblW(self, {self.}Prefix, "tblInd");
container_.Set({self.}XmlChildTblInd);
end
- return {self.}XmlChildTblInd;
+ return {self.}XmlChildTblInd and not {self.}XmlChildTblInd.Removed ? {self.}XmlChildTblInd : fallback_.XmlChildTblInd;
+end;
+
+function TblPr.WriteXmlChildTblInd(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTblInd) then
+ {self.}RemoveChild({self.}XmlChildTblInd);
+ end
+ else if v is class(TblW) then
+ begin
+ {self.}XmlChildTblInd := v;
+ container_.Set({self.}XmlChildTblInd);
+ end
+ else begin
+ raise "Invalid assignment: TblInd expects TblW or nil";
+ end
end;
function TblPr.ReadXmlChildTblLayout(): TblLayout;
@@ -9954,7 +13784,25 @@ begin
{self.}XmlChildTblLayout := new TblLayout(self, {self.}Prefix, "tblLayout");
container_.Set({self.}XmlChildTblLayout);
end
- return {self.}XmlChildTblLayout;
+ return {self.}XmlChildTblLayout and not {self.}XmlChildTblLayout.Removed ? {self.}XmlChildTblLayout : fallback_.XmlChildTblLayout;
+end;
+
+function TblPr.WriteXmlChildTblLayout(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTblLayout) then
+ {self.}RemoveChild({self.}XmlChildTblLayout);
+ end
+ else if v is class(TblLayout) then
+ begin
+ {self.}XmlChildTblLayout := v;
+ container_.Set({self.}XmlChildTblLayout);
+ end
+ else begin
+ raise "Invalid assignment: TblLayout expects TblLayout or nil";
+ end
end;
function TblPr.ReadXmlChildTblLook(): TblLook;
@@ -9964,7 +13812,25 @@ begin
{self.}XmlChildTblLook := new TblLook(self, {self.}Prefix, "tblLook");
container_.Set({self.}XmlChildTblLook);
end
- return {self.}XmlChildTblLook;
+ return {self.}XmlChildTblLook and not {self.}XmlChildTblLook.Removed ? {self.}XmlChildTblLook : fallback_.XmlChildTblLook;
+end;
+
+function TblPr.WriteXmlChildTblLook(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTblLook) then
+ {self.}RemoveChild({self.}XmlChildTblLook);
+ end
+ else if v is class(TblLook) then
+ begin
+ {self.}XmlChildTblLook := v;
+ container_.Set({self.}XmlChildTblLook);
+ end
+ else begin
+ raise "Invalid assignment: TblLook expects TblLook or nil";
+ end
end;
function TblPr.ReadXmlChildTblBorders(): TblBorders;
@@ -9974,7 +13840,25 @@ begin
{self.}XmlChildTblBorders := new TblBorders(self, {self.}Prefix, "tblBorders");
container_.Set({self.}XmlChildTblBorders);
end
- return {self.}XmlChildTblBorders;
+ return {self.}XmlChildTblBorders and not {self.}XmlChildTblBorders.Removed ? {self.}XmlChildTblBorders : fallback_.XmlChildTblBorders;
+end;
+
+function TblPr.WriteXmlChildTblBorders(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTblBorders) then
+ {self.}RemoveChild({self.}XmlChildTblBorders);
+ end
+ else if v is class(TblBorders) then
+ begin
+ {self.}XmlChildTblBorders := v;
+ container_.Set({self.}XmlChildTblBorders);
+ end
+ else begin
+ raise "Invalid assignment: TblBorders expects TblBorders or nil";
+ end
end;
function TblPr.ReadXmlChildTblCellMar(): TblCellMar;
@@ -9984,7 +13868,25 @@ begin
{self.}XmlChildTblCellMar := new TblCellMar(self, {self.}Prefix, "tblCellMar");
container_.Set({self.}XmlChildTblCellMar);
end
- return {self.}XmlChildTblCellMar;
+ return {self.}XmlChildTblCellMar and not {self.}XmlChildTblCellMar.Removed ? {self.}XmlChildTblCellMar : fallback_.XmlChildTblCellMar;
+end;
+
+function TblPr.WriteXmlChildTblCellMar(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTblCellMar) then
+ {self.}RemoveChild({self.}XmlChildTblCellMar);
+ end
+ else if v is class(TblCellMar) then
+ begin
+ {self.}XmlChildTblCellMar := v;
+ container_.Set({self.}XmlChildTblCellMar);
+ end
+ else begin
+ raise "Invalid assignment: TblCellMar expects TblCellMar or nil";
+ end
end;
function TblPr.ReadXmlChildTblCellSpacing(): TblCellSpacing;
@@ -9994,7 +13896,25 @@ begin
{self.}XmlChildTblCellSpacing := new TblCellSpacing(self, {self.}Prefix, "tblCellSpacing");
container_.Set({self.}XmlChildTblCellSpacing);
end
- return {self.}XmlChildTblCellSpacing;
+ return {self.}XmlChildTblCellSpacing and not {self.}XmlChildTblCellSpacing.Removed ? {self.}XmlChildTblCellSpacing : fallback_.XmlChildTblCellSpacing;
+end;
+
+function TblPr.WriteXmlChildTblCellSpacing(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTblCellSpacing) then
+ {self.}RemoveChild({self.}XmlChildTblCellSpacing);
+ end
+ else if v is class(TblCellSpacing) then
+ begin
+ {self.}XmlChildTblCellSpacing := v;
+ container_.Set({self.}XmlChildTblCellSpacing);
+ end
+ else begin
+ raise "Invalid assignment: TblCellSpacing expects TblCellSpacing or nil";
+ end
end;
function TblPr.ReadXmlChildTblCaption(): PureWVal;
@@ -10004,7 +13924,25 @@ begin
{self.}XmlChildTblCaption := new PureWVal(self, {self.}Prefix, "tblCaption");
container_.Set({self.}XmlChildTblCaption);
end
- return {self.}XmlChildTblCaption;
+ return {self.}XmlChildTblCaption and not {self.}XmlChildTblCaption.Removed ? {self.}XmlChildTblCaption : fallback_.XmlChildTblCaption;
+end;
+
+function TblPr.WriteXmlChildTblCaption(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTblCaption) then
+ {self.}RemoveChild({self.}XmlChildTblCaption);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildTblCaption := v;
+ container_.Set({self.}XmlChildTblCaption);
+ end
+ else begin
+ raise "Invalid assignment: TblCaption expects PureWVal or nil";
+ end
end;
function TblPr.ReadXmlChildTblDescription(): PureWVal;
@@ -10014,7 +13952,25 @@ begin
{self.}XmlChildTblDescription := new PureWVal(self, {self.}Prefix, "tblDescription");
container_.Set({self.}XmlChildTblDescription);
end
- return {self.}XmlChildTblDescription;
+ return {self.}XmlChildTblDescription and not {self.}XmlChildTblDescription.Removed ? {self.}XmlChildTblDescription : fallback_.XmlChildTblDescription;
+end;
+
+function TblPr.WriteXmlChildTblDescription(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTblDescription) then
+ {self.}RemoveChild({self.}XmlChildTblDescription);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildTblDescription := v;
+ container_.Set({self.}XmlChildTblDescription);
+ end
+ else begin
+ raise "Invalid assignment: TblDescription expects PureWVal or nil";
+ end
end;
function TblPr.ReadXmlChildTblStyleRowBandSize(): PureWVal;
@@ -10024,7 +13980,25 @@ begin
{self.}XmlChildTblStyleRowBandSize := new PureWVal(self, {self.}Prefix, "tblStyleRowBandSize");
container_.Set({self.}XmlChildTblStyleRowBandSize);
end
- return {self.}XmlChildTblStyleRowBandSize;
+ return {self.}XmlChildTblStyleRowBandSize and not {self.}XmlChildTblStyleRowBandSize.Removed ? {self.}XmlChildTblStyleRowBandSize : fallback_.XmlChildTblStyleRowBandSize;
+end;
+
+function TblPr.WriteXmlChildTblStyleRowBandSize(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTblStyleRowBandSize) then
+ {self.}RemoveChild({self.}XmlChildTblStyleRowBandSize);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildTblStyleRowBandSize := v;
+ container_.Set({self.}XmlChildTblStyleRowBandSize);
+ end
+ else begin
+ raise "Invalid assignment: TblStyleRowBandSize expects PureWVal or nil";
+ end
end;
function TblPr.ReadXmlChildTblStyleColBandSize(): PureWVal;
@@ -10034,7 +14008,25 @@ begin
{self.}XmlChildTblStyleColBandSize := new PureWVal(self, {self.}Prefix, "tblStyleColBandSize");
container_.Set({self.}XmlChildTblStyleColBandSize);
end
- return {self.}XmlChildTblStyleColBandSize;
+ return {self.}XmlChildTblStyleColBandSize and not {self.}XmlChildTblStyleColBandSize.Removed ? {self.}XmlChildTblStyleColBandSize : fallback_.XmlChildTblStyleColBandSize;
+end;
+
+function TblPr.WriteXmlChildTblStyleColBandSize(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTblStyleColBandSize) then
+ {self.}RemoveChild({self.}XmlChildTblStyleColBandSize);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildTblStyleColBandSize := v;
+ container_.Set({self.}XmlChildTblStyleColBandSize);
+ end
+ else begin
+ raise "Invalid assignment: TblStyleColBandSize expects PureWVal or nil";
+ end
end;
function TblCellSpacing.Create();overload;
@@ -10044,13 +14036,13 @@ end;
function TblCellSpacing.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function TblCellSpacing.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function TblCellSpacing.Init();override;
@@ -10078,32 +14070,38 @@ begin
tslassigning := tslassigning_backup;
end;
-function TblCellSpacing.ReadXmlAttrW();
+function TblCellSpacing.ConvertToPoint();override;
begin
- return {self.}XmlAttrW.Value;
+ if not ifnil({self.}XmlAttrW) then
+ {self.}W := TSSafeUnitConverter.TwipsToPoints({self.}XmlAttrW.Value);
end;
-function TblCellSpacing.WriteXmlAttrW(_value);
+function TblCellSpacing.ReadXmlAttrW();
+begin
+ return ifnil({self.}XmlAttrW.Value) ? fallback_.XmlAttrW.Value : {self.}XmlAttrW.Value;
+end;
+
+function TblCellSpacing.WriteXmlAttrW(_value: any);
begin
if ifnil({self.}XmlAttrW) then
begin
{self.}XmlAttrW := new OpenXmlAttribute({self.}Prefix, "w", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrW;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "w" : "w"] := {self.}XmlAttrW;
end
{self.}XmlAttrW.Value := _value;
end;
function TblCellSpacing.ReadXmlAttrType();
begin
- return {self.}XmlAttrType.Value;
+ return ifnil({self.}XmlAttrType.Value) ? fallback_.XmlAttrType.Value : {self.}XmlAttrType.Value;
end;
-function TblCellSpacing.WriteXmlAttrType(_value);
+function TblCellSpacing.WriteXmlAttrType(_value: any);
begin
if ifnil({self.}XmlAttrType) then
begin
{self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrType;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "type" : "type"] := {self.}XmlAttrType;
end
{self.}XmlAttrType.Value := _value;
end;
@@ -10115,13 +14113,13 @@ end;
function TblW.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function TblW.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function TblW.Init();override;
@@ -10149,32 +14147,38 @@ begin
tslassigning := tslassigning_backup;
end;
-function TblW.ReadXmlAttrW();
+function TblW.ConvertToPoint();override;
begin
- return {self.}XmlAttrW.Value;
+ if not ifnil({self.}XmlAttrW) then
+ {self.}W := TSSafeUnitConverter.TwipsToPoints({self.}XmlAttrW.Value);
end;
-function TblW.WriteXmlAttrW(_value);
+function TblW.ReadXmlAttrW();
+begin
+ return ifnil({self.}XmlAttrW.Value) ? fallback_.XmlAttrW.Value : {self.}XmlAttrW.Value;
+end;
+
+function TblW.WriteXmlAttrW(_value: any);
begin
if ifnil({self.}XmlAttrW) then
begin
{self.}XmlAttrW := new OpenXmlAttribute({self.}Prefix, "w", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrW;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "w" : "w"] := {self.}XmlAttrW;
end
{self.}XmlAttrW.Value := _value;
end;
function TblW.ReadXmlAttrType();
begin
- return {self.}XmlAttrType.Value;
+ return ifnil({self.}XmlAttrType.Value) ? fallback_.XmlAttrType.Value : {self.}XmlAttrType.Value;
end;
-function TblW.WriteXmlAttrType(_value);
+function TblW.WriteXmlAttrType(_value: any);
begin
if ifnil({self.}XmlAttrType) then
begin
{self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrType;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "type" : "type"] := {self.}XmlAttrType;
end
{self.}XmlAttrType.Value := _value;
end;
@@ -10186,13 +14190,13 @@ end;
function TblLayout.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function TblLayout.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function TblLayout.Init();override;
@@ -10217,17 +14221,22 @@ begin
tslassigning := tslassigning_backup;
end;
-function TblLayout.ReadXmlAttrType();
+function TblLayout.ConvertToPoint();override;
begin
- return {self.}XmlAttrType.Value;
+
end;
-function TblLayout.WriteXmlAttrType(_value);
+function TblLayout.ReadXmlAttrType();
+begin
+ return ifnil({self.}XmlAttrType.Value) ? fallback_.XmlAttrType.Value : {self.}XmlAttrType.Value;
+end;
+
+function TblLayout.WriteXmlAttrType(_value: any);
begin
if ifnil({self.}XmlAttrType) then
begin
{self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrType;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "type" : "type"] := {self.}XmlAttrType;
end
{self.}XmlAttrType.Value := _value;
end;
@@ -10239,13 +14248,13 @@ end;
function TblLook.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function TblLook.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function TblLook.Init();override;
@@ -10288,107 +14297,112 @@ begin
tslassigning := tslassigning_backup;
end;
-function TblLook.ReadXmlAttrVal();
+function TblLook.ConvertToPoint();override;
begin
- return {self.}XmlAttrVal.Value;
+
end;
-function TblLook.WriteXmlAttrVal(_value);
+function TblLook.ReadXmlAttrVal();
+begin
+ return ifnil({self.}XmlAttrVal.Value) ? fallback_.XmlAttrVal.Value : {self.}XmlAttrVal.Value;
+end;
+
+function TblLook.WriteXmlAttrVal(_value: any);
begin
if ifnil({self.}XmlAttrVal) then
begin
{self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrVal;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "val" : "val"] := {self.}XmlAttrVal;
end
{self.}XmlAttrVal.Value := _value;
end;
function TblLook.ReadXmlAttrFirstRow();
begin
- return {self.}XmlAttrFirstRow.Value;
+ return ifnil({self.}XmlAttrFirstRow.Value) ? fallback_.XmlAttrFirstRow.Value : {self.}XmlAttrFirstRow.Value;
end;
-function TblLook.WriteXmlAttrFirstRow(_value);
+function TblLook.WriteXmlAttrFirstRow(_value: any);
begin
if ifnil({self.}XmlAttrFirstRow) then
begin
{self.}XmlAttrFirstRow := new OpenXmlAttribute({self.}Prefix, "firstRow", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrFirstRow;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "firstRow" : "firstRow"] := {self.}XmlAttrFirstRow;
end
{self.}XmlAttrFirstRow.Value := _value;
end;
function TblLook.ReadXmlAttrLastRow();
begin
- return {self.}XmlAttrLastRow.Value;
+ return ifnil({self.}XmlAttrLastRow.Value) ? fallback_.XmlAttrLastRow.Value : {self.}XmlAttrLastRow.Value;
end;
-function TblLook.WriteXmlAttrLastRow(_value);
+function TblLook.WriteXmlAttrLastRow(_value: any);
begin
if ifnil({self.}XmlAttrLastRow) then
begin
{self.}XmlAttrLastRow := new OpenXmlAttribute({self.}Prefix, "lastRow", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrLastRow;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "lastRow" : "lastRow"] := {self.}XmlAttrLastRow;
end
{self.}XmlAttrLastRow.Value := _value;
end;
function TblLook.ReadXmlAttrFirstColumn();
begin
- return {self.}XmlAttrFirstColumn.Value;
+ return ifnil({self.}XmlAttrFirstColumn.Value) ? fallback_.XmlAttrFirstColumn.Value : {self.}XmlAttrFirstColumn.Value;
end;
-function TblLook.WriteXmlAttrFirstColumn(_value);
+function TblLook.WriteXmlAttrFirstColumn(_value: any);
begin
if ifnil({self.}XmlAttrFirstColumn) then
begin
{self.}XmlAttrFirstColumn := new OpenXmlAttribute({self.}Prefix, "firstColumn", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrFirstColumn;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "firstColumn" : "firstColumn"] := {self.}XmlAttrFirstColumn;
end
{self.}XmlAttrFirstColumn.Value := _value;
end;
function TblLook.ReadXmlAttrLastColumn();
begin
- return {self.}XmlAttrLastColumn.Value;
+ return ifnil({self.}XmlAttrLastColumn.Value) ? fallback_.XmlAttrLastColumn.Value : {self.}XmlAttrLastColumn.Value;
end;
-function TblLook.WriteXmlAttrLastColumn(_value);
+function TblLook.WriteXmlAttrLastColumn(_value: any);
begin
if ifnil({self.}XmlAttrLastColumn) then
begin
{self.}XmlAttrLastColumn := new OpenXmlAttribute({self.}Prefix, "lastColumn", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrLastColumn;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "lastColumn" : "lastColumn"] := {self.}XmlAttrLastColumn;
end
{self.}XmlAttrLastColumn.Value := _value;
end;
function TblLook.ReadXmlAttrNoHBand();
begin
- return {self.}XmlAttrNoHBand.Value;
+ return ifnil({self.}XmlAttrNoHBand.Value) ? fallback_.XmlAttrNoHBand.Value : {self.}XmlAttrNoHBand.Value;
end;
-function TblLook.WriteXmlAttrNoHBand(_value);
+function TblLook.WriteXmlAttrNoHBand(_value: any);
begin
if ifnil({self.}XmlAttrNoHBand) then
begin
{self.}XmlAttrNoHBand := new OpenXmlAttribute({self.}Prefix, "noHBand", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrNoHBand;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "noHBand" : "noHBand"] := {self.}XmlAttrNoHBand;
end
{self.}XmlAttrNoHBand.Value := _value;
end;
function TblLook.ReadXmlAttrNoVBand();
begin
- return {self.}XmlAttrNoVBand.Value;
+ return ifnil({self.}XmlAttrNoVBand.Value) ? fallback_.XmlAttrNoVBand.Value : {self.}XmlAttrNoVBand.Value;
end;
-function TblLook.WriteXmlAttrNoVBand(_value);
+function TblLook.WriteXmlAttrNoVBand(_value: any);
begin
if ifnil({self.}XmlAttrNoVBand) then
begin
{self.}XmlAttrNoVBand := new OpenXmlAttribute({self.}Prefix, "noVBand", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrNoVBand;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "noVBand" : "noVBand"] := {self.}XmlAttrNoVBand;
end
{self.}XmlAttrNoVBand.Value := _value;
end;
@@ -10400,13 +14414,13 @@ end;
function TblBorders.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function TblBorders.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function TblBorders.Init();override;
@@ -10446,6 +14460,22 @@ begin
tslassigning := tslassigning_backup;
end;
+function TblBorders.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildTop) then
+ {self.}XmlChildTop.ConvertToPoint();
+ if not ifnil({self.}XmlChildLeft) then
+ {self.}XmlChildLeft.ConvertToPoint();
+ if not ifnil({self.}XmlChildBottom) then
+ {self.}XmlChildBottom.ConvertToPoint();
+ if not ifnil({self.}XmlChildRight) then
+ {self.}XmlChildRight.ConvertToPoint();
+ if not ifnil({self.}XmlChildInsideH) then
+ {self.}XmlChildInsideH.ConvertToPoint();
+ if not ifnil({self.}XmlChildInsideV) then
+ {self.}XmlChildInsideV.ConvertToPoint();
+end;
+
function TblBorders.ReadXmlChildTop(): TblBorder;
begin
if tslassigning and (ifnil({self.}XmlChildTop) or {self.}XmlChildTop.Removed) then
@@ -10453,7 +14483,25 @@ begin
{self.}XmlChildTop := new TblBorder(self, {self.}Prefix, "top");
container_.Set({self.}XmlChildTop);
end
- return {self.}XmlChildTop;
+ return {self.}XmlChildTop and not {self.}XmlChildTop.Removed ? {self.}XmlChildTop : fallback_.XmlChildTop;
+end;
+
+function TblBorders.WriteXmlChildTop(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTop) then
+ {self.}RemoveChild({self.}XmlChildTop);
+ end
+ else if v is class(TblBorder) then
+ begin
+ {self.}XmlChildTop := v;
+ container_.Set({self.}XmlChildTop);
+ end
+ else begin
+ raise "Invalid assignment: Top expects TblBorder or nil";
+ end
end;
function TblBorders.ReadXmlChildLeft(): TblBorder;
@@ -10463,7 +14511,25 @@ begin
{self.}XmlChildLeft := new TblBorder(self, {self.}Prefix, "left");
container_.Set({self.}XmlChildLeft);
end
- return {self.}XmlChildLeft;
+ return {self.}XmlChildLeft and not {self.}XmlChildLeft.Removed ? {self.}XmlChildLeft : fallback_.XmlChildLeft;
+end;
+
+function TblBorders.WriteXmlChildLeft(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildLeft) then
+ {self.}RemoveChild({self.}XmlChildLeft);
+ end
+ else if v is class(TblBorder) then
+ begin
+ {self.}XmlChildLeft := v;
+ container_.Set({self.}XmlChildLeft);
+ end
+ else begin
+ raise "Invalid assignment: Left expects TblBorder or nil";
+ end
end;
function TblBorders.ReadXmlChildBottom(): TblBorder;
@@ -10473,7 +14539,25 @@ begin
{self.}XmlChildBottom := new TblBorder(self, {self.}Prefix, "bottom");
container_.Set({self.}XmlChildBottom);
end
- return {self.}XmlChildBottom;
+ return {self.}XmlChildBottom and not {self.}XmlChildBottom.Removed ? {self.}XmlChildBottom : fallback_.XmlChildBottom;
+end;
+
+function TblBorders.WriteXmlChildBottom(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildBottom) then
+ {self.}RemoveChild({self.}XmlChildBottom);
+ end
+ else if v is class(TblBorder) then
+ begin
+ {self.}XmlChildBottom := v;
+ container_.Set({self.}XmlChildBottom);
+ end
+ else begin
+ raise "Invalid assignment: Bottom expects TblBorder or nil";
+ end
end;
function TblBorders.ReadXmlChildRight(): TblBorder;
@@ -10483,7 +14567,25 @@ begin
{self.}XmlChildRight := new TblBorder(self, {self.}Prefix, "right");
container_.Set({self.}XmlChildRight);
end
- return {self.}XmlChildRight;
+ return {self.}XmlChildRight and not {self.}XmlChildRight.Removed ? {self.}XmlChildRight : fallback_.XmlChildRight;
+end;
+
+function TblBorders.WriteXmlChildRight(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildRight) then
+ {self.}RemoveChild({self.}XmlChildRight);
+ end
+ else if v is class(TblBorder) then
+ begin
+ {self.}XmlChildRight := v;
+ container_.Set({self.}XmlChildRight);
+ end
+ else begin
+ raise "Invalid assignment: Right expects TblBorder or nil";
+ end
end;
function TblBorders.ReadXmlChildInsideH(): TblBorder;
@@ -10493,7 +14595,25 @@ begin
{self.}XmlChildInsideH := new TblBorder(self, {self.}Prefix, "insideH");
container_.Set({self.}XmlChildInsideH);
end
- return {self.}XmlChildInsideH;
+ return {self.}XmlChildInsideH and not {self.}XmlChildInsideH.Removed ? {self.}XmlChildInsideH : fallback_.XmlChildInsideH;
+end;
+
+function TblBorders.WriteXmlChildInsideH(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildInsideH) then
+ {self.}RemoveChild({self.}XmlChildInsideH);
+ end
+ else if v is class(TblBorder) then
+ begin
+ {self.}XmlChildInsideH := v;
+ container_.Set({self.}XmlChildInsideH);
+ end
+ else begin
+ raise "Invalid assignment: InsideH expects TblBorder or nil";
+ end
end;
function TblBorders.ReadXmlChildInsideV(): TblBorder;
@@ -10503,7 +14623,25 @@ begin
{self.}XmlChildInsideV := new TblBorder(self, {self.}Prefix, "insideV");
container_.Set({self.}XmlChildInsideV);
end
- return {self.}XmlChildInsideV;
+ return {self.}XmlChildInsideV and not {self.}XmlChildInsideV.Removed ? {self.}XmlChildInsideV : fallback_.XmlChildInsideV;
+end;
+
+function TblBorders.WriteXmlChildInsideV(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildInsideV) then
+ {self.}RemoveChild({self.}XmlChildInsideV);
+ end
+ else if v is class(TblBorder) then
+ begin
+ {self.}XmlChildInsideV := v;
+ container_.Set({self.}XmlChildInsideV);
+ end
+ else begin
+ raise "Invalid assignment: InsideV expects TblBorder or nil";
+ end
end;
function TblBorder.Create();overload;
@@ -10513,13 +14651,13 @@ end;
function TblBorder.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function TblBorder.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function TblBorder.Init();override;
@@ -10559,92 +14697,98 @@ begin
tslassigning := tslassigning_backup;
end;
-function TblBorder.ReadXmlAttrVal();
+function TblBorder.ConvertToPoint();override;
begin
- return {self.}XmlAttrVal.Value;
+ if not ifnil({self.}XmlAttrSz) then
+ {self.}Sz := TSSafeUnitConverter.EighthPointToPoints({self.}XmlAttrSz.Value);
end;
-function TblBorder.WriteXmlAttrVal(_value);
+function TblBorder.ReadXmlAttrVal();
+begin
+ return ifnil({self.}XmlAttrVal.Value) ? fallback_.XmlAttrVal.Value : {self.}XmlAttrVal.Value;
+end;
+
+function TblBorder.WriteXmlAttrVal(_value: any);
begin
if ifnil({self.}XmlAttrVal) then
begin
{self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrVal;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "val" : "val"] := {self.}XmlAttrVal;
end
{self.}XmlAttrVal.Value := _value;
end;
function TblBorder.ReadXmlAttrColor();
begin
- return {self.}XmlAttrColor.Value;
+ return ifnil({self.}XmlAttrColor.Value) ? fallback_.XmlAttrColor.Value : {self.}XmlAttrColor.Value;
end;
-function TblBorder.WriteXmlAttrColor(_value);
+function TblBorder.WriteXmlAttrColor(_value: any);
begin
if ifnil({self.}XmlAttrColor) then
begin
{self.}XmlAttrColor := new OpenXmlAttribute({self.}Prefix, "color", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrColor;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "color" : "color"] := {self.}XmlAttrColor;
end
{self.}XmlAttrColor.Value := _value;
end;
function TblBorder.ReadXmlAttrSpace();
begin
- return {self.}XmlAttrSpace.Value;
+ return ifnil({self.}XmlAttrSpace.Value) ? fallback_.XmlAttrSpace.Value : {self.}XmlAttrSpace.Value;
end;
-function TblBorder.WriteXmlAttrSpace(_value);
+function TblBorder.WriteXmlAttrSpace(_value: any);
begin
if ifnil({self.}XmlAttrSpace) then
begin
{self.}XmlAttrSpace := new OpenXmlAttribute({self.}Prefix, "space", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrSpace;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "space" : "space"] := {self.}XmlAttrSpace;
end
{self.}XmlAttrSpace.Value := _value;
end;
function TblBorder.ReadXmlAttrThemeColor();
begin
- return {self.}XmlAttrThemeColor.Value;
+ return ifnil({self.}XmlAttrThemeColor.Value) ? fallback_.XmlAttrThemeColor.Value : {self.}XmlAttrThemeColor.Value;
end;
-function TblBorder.WriteXmlAttrThemeColor(_value);
+function TblBorder.WriteXmlAttrThemeColor(_value: any);
begin
if ifnil({self.}XmlAttrThemeColor) then
begin
{self.}XmlAttrThemeColor := new OpenXmlAttribute({self.}Prefix, "themeColor", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrThemeColor;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "themeColor" : "themeColor"] := {self.}XmlAttrThemeColor;
end
{self.}XmlAttrThemeColor.Value := _value;
end;
function TblBorder.ReadXmlAttrThemeTint();
begin
- return {self.}XmlAttrThemeTint.Value;
+ return ifnil({self.}XmlAttrThemeTint.Value) ? fallback_.XmlAttrThemeTint.Value : {self.}XmlAttrThemeTint.Value;
end;
-function TblBorder.WriteXmlAttrThemeTint(_value);
+function TblBorder.WriteXmlAttrThemeTint(_value: any);
begin
if ifnil({self.}XmlAttrThemeTint) then
begin
{self.}XmlAttrThemeTint := new OpenXmlAttribute({self.}Prefix, "themeTint", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrThemeTint;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "themeTint" : "themeTint"] := {self.}XmlAttrThemeTint;
end
{self.}XmlAttrThemeTint.Value := _value;
end;
function TblBorder.ReadXmlAttrSz();
begin
- return {self.}XmlAttrSz.Value;
+ return ifnil({self.}XmlAttrSz.Value) ? fallback_.XmlAttrSz.Value : {self.}XmlAttrSz.Value;
end;
-function TblBorder.WriteXmlAttrSz(_value);
+function TblBorder.WriteXmlAttrSz(_value: any);
begin
if ifnil({self.}XmlAttrSz) then
begin
{self.}XmlAttrSz := new OpenXmlAttribute({self.}Prefix, "sz", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrSz;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "sz" : "sz"] := {self.}XmlAttrSz;
end
{self.}XmlAttrSz.Value := _value;
end;
@@ -10656,13 +14800,13 @@ end;
function TblGrid.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function TblGrid.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function TblGrid.Init();override;
@@ -10685,13 +14829,39 @@ begin
tslassigning := tslassigning_backup;
end;
-function TblGrid.ReadGridCols(_index);
+function TblGrid.ConvertToPoint();override;
+begin
+ elems := {self.}GridCols();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+end;
+
+function TblGrid.ReadGridCols(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "gridCol", ind);
end;
+function TblGrid.WriteGridCols(_index: integer; _value: nil_OR_GridCol);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadGridCols(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "gridCol", ind, _value) then
+ raise format("Index out of range: GridCols[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: GridCols expects nil or GridCol";
+ end
+end;
+
function TblGrid.AddGridCol(): GridCol;
begin
obj := new GridCol(self, {self.}Prefix, "gridCol");
@@ -10713,13 +14883,13 @@ end;
function GridCol.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function GridCol.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function GridCol.Init();override;
@@ -10744,17 +14914,23 @@ begin
tslassigning := tslassigning_backup;
end;
-function GridCol.ReadXmlAttrw();
+function GridCol.ConvertToPoint();override;
begin
- return {self.}XmlAttrw.Value;
+ if not ifnil({self.}XmlAttrw) then
+ {self.}w := TSSafeUnitConverter.TwipsToPoints({self.}XmlAttrw.Value);
end;
-function GridCol.WriteXmlAttrw(_value);
+function GridCol.ReadXmlAttrw();
+begin
+ return ifnil({self.}XmlAttrw.Value) ? fallback_.XmlAttrw.Value : {self.}XmlAttrw.Value;
+end;
+
+function GridCol.WriteXmlAttrw(_value: any);
begin
if ifnil({self.}XmlAttrw) then
begin
{self.}XmlAttrw := new OpenXmlAttribute({self.}Prefix, "w", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrw;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "w" : "w"] := {self.}XmlAttrw;
end
{self.}XmlAttrw.Value := _value;
end;
@@ -10766,13 +14942,13 @@ end;
function Tr.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Tr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Tr.Init();override;
@@ -10811,62 +14987,74 @@ begin
tslassigning := tslassigning_backup;
end;
-function Tr.ReadXmlAttrRsidR();
+function Tr.ConvertToPoint();override;
begin
- return {self.}XmlAttrRsidR.Value;
+ if not ifnil({self.}XmlChildTrPr) then
+ {self.}XmlChildTrPr.ConvertToPoint();
+ elems := {self.}Sdts();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Tcs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
end;
-function Tr.WriteXmlAttrRsidR(_value);
+function Tr.ReadXmlAttrRsidR();
+begin
+ return ifnil({self.}XmlAttrRsidR.Value) ? fallback_.XmlAttrRsidR.Value : {self.}XmlAttrRsidR.Value;
+end;
+
+function Tr.WriteXmlAttrRsidR(_value: any);
begin
if ifnil({self.}XmlAttrRsidR) then
begin
{self.}XmlAttrRsidR := new OpenXmlAttribute("w", "rsidR", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrRsidR;
+ attributes_["w:rsidR"] := {self.}XmlAttrRsidR;
end
{self.}XmlAttrRsidR.Value := _value;
end;
function Tr.ReadXmlAttrParaId();
begin
- return {self.}XmlAttrParaId.Value;
+ return ifnil({self.}XmlAttrParaId.Value) ? fallback_.XmlAttrParaId.Value : {self.}XmlAttrParaId.Value;
end;
-function Tr.WriteXmlAttrParaId(_value);
+function Tr.WriteXmlAttrParaId(_value: any);
begin
if ifnil({self.}XmlAttrParaId) then
begin
{self.}XmlAttrParaId := new OpenXmlAttribute("w14", "paraId", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrParaId;
+ attributes_["w14:paraId"] := {self.}XmlAttrParaId;
end
{self.}XmlAttrParaId.Value := _value;
end;
function Tr.ReadXmlAttrTextId();
begin
- return {self.}XmlAttrTextId.Value;
+ return ifnil({self.}XmlAttrTextId.Value) ? fallback_.XmlAttrTextId.Value : {self.}XmlAttrTextId.Value;
end;
-function Tr.WriteXmlAttrTextId(_value);
+function Tr.WriteXmlAttrTextId(_value: any);
begin
if ifnil({self.}XmlAttrTextId) then
begin
{self.}XmlAttrTextId := new OpenXmlAttribute("w14", "textId", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrTextId;
+ attributes_["w14:textId"] := {self.}XmlAttrTextId;
end
{self.}XmlAttrTextId.Value := _value;
end;
function Tr.ReadXmlAttrRsidTr();
begin
- return {self.}XmlAttrRsidTr.Value;
+ return ifnil({self.}XmlAttrRsidTr.Value) ? fallback_.XmlAttrRsidTr.Value : {self.}XmlAttrRsidTr.Value;
end;
-function Tr.WriteXmlAttrRsidTr(_value);
+function Tr.WriteXmlAttrRsidTr(_value: any);
begin
if ifnil({self.}XmlAttrRsidTr) then
begin
{self.}XmlAttrRsidTr := new OpenXmlAttribute("w", "rsidTr", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrRsidTr;
+ attributes_["w:rsidTr"] := {self.}XmlAttrRsidTr;
end
{self.}XmlAttrRsidTr.Value := _value;
end;
@@ -10878,23 +15066,79 @@ begin
{self.}XmlChildTrPr := new TrPr(self, {self.}Prefix, "trPr");
container_.Set({self.}XmlChildTrPr);
end
- return {self.}XmlChildTrPr;
+ return {self.}XmlChildTrPr and not {self.}XmlChildTrPr.Removed ? {self.}XmlChildTrPr : fallback_.XmlChildTrPr;
end;
-function Tr.ReadSdts(_index);
+function Tr.WriteXmlChildTrPr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTrPr) then
+ {self.}RemoveChild({self.}XmlChildTrPr);
+ end
+ else if v is class(TrPr) then
+ begin
+ {self.}XmlChildTrPr := v;
+ container_.Set({self.}XmlChildTrPr);
+ end
+ else begin
+ raise "Invalid assignment: TrPr expects TrPr or nil";
+ end
+end;
+
+function Tr.ReadSdts(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "sdt", ind);
end;
-function Tr.ReadTcs(_index);
+function Tr.WriteSdts(_index: integer; _value: nil_OR_Sdt);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadSdts(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "sdt", ind, _value) then
+ raise format("Index out of range: Sdts[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Sdts expects nil or Sdt";
+ end
+end;
+
+function Tr.ReadTcs(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "tc", ind);
end;
+function Tr.WriteTcs(_index: integer; _value: nil_OR_Tc);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadTcs(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "tc", ind, _value) then
+ raise format("Index out of range: Tcs[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Tcs expects nil or Tc";
+ end
+end;
+
function Tr.AddSdt(): Sdt;
begin
obj := new Sdt(self, {self.}Prefix, "sdt");
@@ -10930,13 +15174,13 @@ end;
function TrPr.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function TrPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function TrPr.Init();override;
@@ -10965,7 +15209,7 @@ begin
if not ifnil(_obj.XmlChildTrHeight) then
{self.}TrHeight.Copy(_obj.XmlChildTrHeight);
if not ifnil(_obj.XmlChildTblHeader) then
- {self.}TblHeader.Copy(_obj.XmlChildTblHeader);
+ ifnil({self.}XmlChildTblHeader) ? {self.}TblHeader.Copy(_obj.XmlChildTblHeader) : {self.}XmlChildTblHeader.Copy(_obj.XmlChildTblHeader);
if not ifnil(_obj.XmlChildJc) then
{self.}Jc.Copy(_obj.XmlChildJc);
if not ifnil(_obj.XmlChildCantSplit) then
@@ -10979,6 +15223,47 @@ begin
tslassigning := tslassigning_backup;
end;
+function TrPr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildTrHeight) then
+ {self.}XmlChildTrHeight.ConvertToPoint();
+ if not ifnil({self.}XmlChildJc) then
+ {self.}XmlChildJc.ConvertToPoint();
+ if not ifnil({self.}XmlChildCnfStyle) then
+ {self.}XmlChildCnfStyle.ConvertToPoint();
+ if not ifnil({self.}XmlChildIns) then
+ {self.}XmlChildIns.ConvertToPoint();
+ if not ifnil({self.}XmlChildDel) then
+ {self.}XmlChildDel.ConvertToPoint();
+end;
+
+function TrPr.ReadXmlChildTblHeader();
+begin
+ if tslassigning and (ifnil({self.}XmlChildTblHeader) or {self.}XmlChildTblHeader.Removed) then
+ begin
+ {self.}XmlChildTblHeader := new OpenXmlSimpleType(self, {self.}Prefix, "tblHeader");
+ container_.Set({self.}XmlChildTblHeader);
+ end
+ return {self.}XmlChildTblHeader and not {self.}XmlChildTblHeader.Removed ? {self.}XmlChildTblHeader : fallback_.XmlChildTblHeader;
+end;
+
+function TrPr.WriteXmlChildTblHeader(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildTblHeader) then
+ {self.}RemoveChild({self.}XmlChildTblHeader);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildTblHeader := _value;
+ container_.Set({self.}XmlChildTblHeader);
+ end
+ else begin
+ raise "Invalid assignment: TblHeader expects nil or OpenXmlSimpleType";
+ end
+end;
+
function TrPr.ReadXmlChildCantSplit();
begin
if tslassigning and (ifnil({self.}XmlChildCantSplit) or {self.}XmlChildCantSplit.Removed) then
@@ -10986,7 +15271,24 @@ begin
{self.}XmlChildCantSplit := new OpenXmlSimpleType(self, {self.}Prefix, "cantSplit");
container_.Set({self.}XmlChildCantSplit);
end
- return {self.}XmlChildCantSplit;
+ return {self.}XmlChildCantSplit and not {self.}XmlChildCantSplit.Removed ? {self.}XmlChildCantSplit : fallback_.XmlChildCantSplit;
+end;
+
+function TrPr.WriteXmlChildCantSplit(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildCantSplit) then
+ {self.}RemoveChild({self.}XmlChildCantSplit);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildCantSplit := _value;
+ container_.Set({self.}XmlChildCantSplit);
+ end
+ else begin
+ raise "Invalid assignment: CantSplit expects nil or OpenXmlSimpleType";
+ end
end;
function TrPr.ReadXmlChildTrHeight(): TrHeight;
@@ -10996,17 +15298,25 @@ begin
{self.}XmlChildTrHeight := new TrHeight(self, {self.}Prefix, "trHeight");
container_.Set({self.}XmlChildTrHeight);
end
- return {self.}XmlChildTrHeight;
+ return {self.}XmlChildTrHeight and not {self.}XmlChildTrHeight.Removed ? {self.}XmlChildTrHeight : fallback_.XmlChildTrHeight;
end;
-function TrPr.ReadXmlChildTblHeader(): PureWVal;
+function TrPr.WriteXmlChildTrHeight(_p1: any; _p2: any);
begin
- if tslassigning and (ifnil({self.}XmlChildTblHeader) or {self.}XmlChildTblHeader.Removed) then
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
begin
- {self.}XmlChildTblHeader := new PureWVal(self, {self.}Prefix, "tblHeader");
- container_.Set({self.}XmlChildTblHeader);
+ if ifObj({self.}XmlChildTrHeight) then
+ {self.}RemoveChild({self.}XmlChildTrHeight);
+ end
+ else if v is class(TrHeight) then
+ begin
+ {self.}XmlChildTrHeight := v;
+ container_.Set({self.}XmlChildTrHeight);
+ end
+ else begin
+ raise "Invalid assignment: TrHeight expects TrHeight or nil";
end
- return {self.}XmlChildTblHeader;
end;
function TrPr.ReadXmlChildJc(): PureWVal;
@@ -11016,7 +15326,25 @@ begin
{self.}XmlChildJc := new PureWVal(self, {self.}Prefix, "jc");
container_.Set({self.}XmlChildJc);
end
- return {self.}XmlChildJc;
+ return {self.}XmlChildJc and not {self.}XmlChildJc.Removed ? {self.}XmlChildJc : fallback_.XmlChildJc;
+end;
+
+function TrPr.WriteXmlChildJc(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildJc) then
+ {self.}RemoveChild({self.}XmlChildJc);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildJc := v;
+ container_.Set({self.}XmlChildJc);
+ end
+ else begin
+ raise "Invalid assignment: Jc expects PureWVal or nil";
+ end
end;
function TrPr.ReadXmlChildCnfStyle(): CnfStyle;
@@ -11026,7 +15354,25 @@ begin
{self.}XmlChildCnfStyle := new CnfStyle(self, {self.}Prefix, "cnfStyle");
container_.Set({self.}XmlChildCnfStyle);
end
- return {self.}XmlChildCnfStyle;
+ return {self.}XmlChildCnfStyle and not {self.}XmlChildCnfStyle.Removed ? {self.}XmlChildCnfStyle : fallback_.XmlChildCnfStyle;
+end;
+
+function TrPr.WriteXmlChildCnfStyle(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildCnfStyle) then
+ {self.}RemoveChild({self.}XmlChildCnfStyle);
+ end
+ else if v is class(CnfStyle) then
+ begin
+ {self.}XmlChildCnfStyle := v;
+ container_.Set({self.}XmlChildCnfStyle);
+ end
+ else begin
+ raise "Invalid assignment: CnfStyle expects CnfStyle or nil";
+ end
end;
function TrPr.ReadXmlChildIns(): Ins;
@@ -11036,7 +15382,25 @@ begin
{self.}XmlChildIns := new Ins(self, {self.}Prefix, "ins");
container_.Set({self.}XmlChildIns);
end
- return {self.}XmlChildIns;
+ return {self.}XmlChildIns and not {self.}XmlChildIns.Removed ? {self.}XmlChildIns : fallback_.XmlChildIns;
+end;
+
+function TrPr.WriteXmlChildIns(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildIns) then
+ {self.}RemoveChild({self.}XmlChildIns);
+ end
+ else if v is class(Ins) then
+ begin
+ {self.}XmlChildIns := v;
+ container_.Set({self.}XmlChildIns);
+ end
+ else begin
+ raise "Invalid assignment: Ins expects Ins or nil";
+ end
end;
function TrPr.ReadXmlChildDel(): Del;
@@ -11046,7 +15410,25 @@ begin
{self.}XmlChildDel := new Del(self, {self.}Prefix, "del");
container_.Set({self.}XmlChildDel);
end
- return {self.}XmlChildDel;
+ return {self.}XmlChildDel and not {self.}XmlChildDel.Removed ? {self.}XmlChildDel : fallback_.XmlChildDel;
+end;
+
+function TrPr.WriteXmlChildDel(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildDel) then
+ {self.}RemoveChild({self.}XmlChildDel);
+ end
+ else if v is class(Del) then
+ begin
+ {self.}XmlChildDel := v;
+ container_.Set({self.}XmlChildDel);
+ end
+ else begin
+ raise "Invalid assignment: Del expects Del or nil";
+ end
end;
function Ins.Create();overload;
@@ -11056,13 +15438,13 @@ end;
function Ins.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Ins.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Ins.Init();override;
@@ -11097,73 +15479,99 @@ begin
tslassigning := tslassigning_backup;
end;
-function Ins.ReadXmlAttrId();
+function Ins.ConvertToPoint();override;
begin
- return {self.}XmlAttrId.Value;
+ elems := {self.}Rs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
end;
-function Ins.WriteXmlAttrId(_value);
+function Ins.ReadXmlAttrId();
+begin
+ return ifnil({self.}XmlAttrId.Value) ? fallback_.XmlAttrId.Value : {self.}XmlAttrId.Value;
+end;
+
+function Ins.WriteXmlAttrId(_value: any);
begin
if ifnil({self.}XmlAttrId) then
begin
{self.}XmlAttrId := new OpenXmlAttribute({self.}Prefix, "id", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrId;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "id" : "id"] := {self.}XmlAttrId;
end
{self.}XmlAttrId.Value := _value;
end;
function Ins.ReadXmlAttrAuthor();
begin
- return {self.}XmlAttrAuthor.Value;
+ return ifnil({self.}XmlAttrAuthor.Value) ? fallback_.XmlAttrAuthor.Value : {self.}XmlAttrAuthor.Value;
end;
-function Ins.WriteXmlAttrAuthor(_value);
+function Ins.WriteXmlAttrAuthor(_value: any);
begin
if ifnil({self.}XmlAttrAuthor) then
begin
{self.}XmlAttrAuthor := new OpenXmlAttribute({self.}Prefix, "author", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrAuthor;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "author" : "author"] := {self.}XmlAttrAuthor;
end
{self.}XmlAttrAuthor.Value := _value;
end;
function Ins.ReadXmlAttrDate();
begin
- return {self.}XmlAttrDate.Value;
+ return ifnil({self.}XmlAttrDate.Value) ? fallback_.XmlAttrDate.Value : {self.}XmlAttrDate.Value;
end;
-function Ins.WriteXmlAttrDate(_value);
+function Ins.WriteXmlAttrDate(_value: any);
begin
if ifnil({self.}XmlAttrDate) then
begin
{self.}XmlAttrDate := new OpenXmlAttribute({self.}Prefix, "date", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrDate;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "date" : "date"] := {self.}XmlAttrDate;
end
{self.}XmlAttrDate.Value := _value;
end;
function Ins.ReadXmlAttrDateUtc();
begin
- return {self.}XmlAttrDateUtc.Value;
+ return ifnil({self.}XmlAttrDateUtc.Value) ? fallback_.XmlAttrDateUtc.Value : {self.}XmlAttrDateUtc.Value;
end;
-function Ins.WriteXmlAttrDateUtc(_value);
+function Ins.WriteXmlAttrDateUtc(_value: any);
begin
if ifnil({self.}XmlAttrDateUtc) then
begin
{self.}XmlAttrDateUtc := new OpenXmlAttribute("w16du", "dateUtc", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrDateUtc;
+ attributes_["w16du:dateUtc"] := {self.}XmlAttrDateUtc;
end
{self.}XmlAttrDateUtc.Value := _value;
end;
-function Ins.ReadRs(_index);
+function Ins.ReadRs(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "r", ind);
end;
+function Ins.WriteRs(_index: integer; _value: nil_OR_R);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadRs(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "r", ind, _value) then
+ raise format("Index out of range: Rs[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Rs expects nil or R";
+ end
+end;
+
function Ins.AddR(): R;
begin
obj := new R(self, {self.}Prefix, "r");
@@ -11185,13 +15593,13 @@ end;
function CnfStyle.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function CnfStyle.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function CnfStyle.Init();override;
@@ -11252,197 +15660,202 @@ begin
tslassigning := tslassigning_backup;
end;
-function CnfStyle.ReadXmlAttrVal();
+function CnfStyle.ConvertToPoint();override;
begin
- return {self.}XmlAttrVal.Value;
+
end;
-function CnfStyle.WriteXmlAttrVal(_value);
+function CnfStyle.ReadXmlAttrVal();
+begin
+ return ifnil({self.}XmlAttrVal.Value) ? fallback_.XmlAttrVal.Value : {self.}XmlAttrVal.Value;
+end;
+
+function CnfStyle.WriteXmlAttrVal(_value: any);
begin
if ifnil({self.}XmlAttrVal) then
begin
{self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrVal;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "val" : "val"] := {self.}XmlAttrVal;
end
{self.}XmlAttrVal.Value := _value;
end;
function CnfStyle.ReadXmlAttrFirstRow();
begin
- return {self.}XmlAttrFirstRow.Value;
+ return ifnil({self.}XmlAttrFirstRow.Value) ? fallback_.XmlAttrFirstRow.Value : {self.}XmlAttrFirstRow.Value;
end;
-function CnfStyle.WriteXmlAttrFirstRow(_value);
+function CnfStyle.WriteXmlAttrFirstRow(_value: any);
begin
if ifnil({self.}XmlAttrFirstRow) then
begin
{self.}XmlAttrFirstRow := new OpenXmlAttribute({self.}Prefix, "firstRow", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrFirstRow;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "firstRow" : "firstRow"] := {self.}XmlAttrFirstRow;
end
{self.}XmlAttrFirstRow.Value := _value;
end;
function CnfStyle.ReadXmlAttrLastRow();
begin
- return {self.}XmlAttrLastRow.Value;
+ return ifnil({self.}XmlAttrLastRow.Value) ? fallback_.XmlAttrLastRow.Value : {self.}XmlAttrLastRow.Value;
end;
-function CnfStyle.WriteXmlAttrLastRow(_value);
+function CnfStyle.WriteXmlAttrLastRow(_value: any);
begin
if ifnil({self.}XmlAttrLastRow) then
begin
{self.}XmlAttrLastRow := new OpenXmlAttribute({self.}Prefix, "lastRow", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrLastRow;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "lastRow" : "lastRow"] := {self.}XmlAttrLastRow;
end
{self.}XmlAttrLastRow.Value := _value;
end;
function CnfStyle.ReadXmlAttrFirstColumn();
begin
- return {self.}XmlAttrFirstColumn.Value;
+ return ifnil({self.}XmlAttrFirstColumn.Value) ? fallback_.XmlAttrFirstColumn.Value : {self.}XmlAttrFirstColumn.Value;
end;
-function CnfStyle.WriteXmlAttrFirstColumn(_value);
+function CnfStyle.WriteXmlAttrFirstColumn(_value: any);
begin
if ifnil({self.}XmlAttrFirstColumn) then
begin
{self.}XmlAttrFirstColumn := new OpenXmlAttribute({self.}Prefix, "firstColumn", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrFirstColumn;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "firstColumn" : "firstColumn"] := {self.}XmlAttrFirstColumn;
end
{self.}XmlAttrFirstColumn.Value := _value;
end;
function CnfStyle.ReadXmlAttrLastColumn();
begin
- return {self.}XmlAttrLastColumn.Value;
+ return ifnil({self.}XmlAttrLastColumn.Value) ? fallback_.XmlAttrLastColumn.Value : {self.}XmlAttrLastColumn.Value;
end;
-function CnfStyle.WriteXmlAttrLastColumn(_value);
+function CnfStyle.WriteXmlAttrLastColumn(_value: any);
begin
if ifnil({self.}XmlAttrLastColumn) then
begin
{self.}XmlAttrLastColumn := new OpenXmlAttribute({self.}Prefix, "lastColumn", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrLastColumn;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "lastColumn" : "lastColumn"] := {self.}XmlAttrLastColumn;
end
{self.}XmlAttrLastColumn.Value := _value;
end;
function CnfStyle.ReadXmlAttrOddVBand();
begin
- return {self.}XmlAttrOddVBand.Value;
+ return ifnil({self.}XmlAttrOddVBand.Value) ? fallback_.XmlAttrOddVBand.Value : {self.}XmlAttrOddVBand.Value;
end;
-function CnfStyle.WriteXmlAttrOddVBand(_value);
+function CnfStyle.WriteXmlAttrOddVBand(_value: any);
begin
if ifnil({self.}XmlAttrOddVBand) then
begin
{self.}XmlAttrOddVBand := new OpenXmlAttribute({self.}Prefix, "oddVBand", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrOddVBand;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "oddVBand" : "oddVBand"] := {self.}XmlAttrOddVBand;
end
{self.}XmlAttrOddVBand.Value := _value;
end;
function CnfStyle.ReadXmlAttrEvenVBand();
begin
- return {self.}XmlAttrEvenVBand.Value;
+ return ifnil({self.}XmlAttrEvenVBand.Value) ? fallback_.XmlAttrEvenVBand.Value : {self.}XmlAttrEvenVBand.Value;
end;
-function CnfStyle.WriteXmlAttrEvenVBand(_value);
+function CnfStyle.WriteXmlAttrEvenVBand(_value: any);
begin
if ifnil({self.}XmlAttrEvenVBand) then
begin
{self.}XmlAttrEvenVBand := new OpenXmlAttribute({self.}Prefix, "evenVBand", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrEvenVBand;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "evenVBand" : "evenVBand"] := {self.}XmlAttrEvenVBand;
end
{self.}XmlAttrEvenVBand.Value := _value;
end;
function CnfStyle.ReadXmlAttrOddHBand();
begin
- return {self.}XmlAttrOddHBand.Value;
+ return ifnil({self.}XmlAttrOddHBand.Value) ? fallback_.XmlAttrOddHBand.Value : {self.}XmlAttrOddHBand.Value;
end;
-function CnfStyle.WriteXmlAttrOddHBand(_value);
+function CnfStyle.WriteXmlAttrOddHBand(_value: any);
begin
if ifnil({self.}XmlAttrOddHBand) then
begin
{self.}XmlAttrOddHBand := new OpenXmlAttribute({self.}Prefix, "oddHBand", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrOddHBand;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "oddHBand" : "oddHBand"] := {self.}XmlAttrOddHBand;
end
{self.}XmlAttrOddHBand.Value := _value;
end;
function CnfStyle.ReadXmlAttrEvenHBand();
begin
- return {self.}XmlAttrEvenHBand.Value;
+ return ifnil({self.}XmlAttrEvenHBand.Value) ? fallback_.XmlAttrEvenHBand.Value : {self.}XmlAttrEvenHBand.Value;
end;
-function CnfStyle.WriteXmlAttrEvenHBand(_value);
+function CnfStyle.WriteXmlAttrEvenHBand(_value: any);
begin
if ifnil({self.}XmlAttrEvenHBand) then
begin
{self.}XmlAttrEvenHBand := new OpenXmlAttribute({self.}Prefix, "evenHBand", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrEvenHBand;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "evenHBand" : "evenHBand"] := {self.}XmlAttrEvenHBand;
end
{self.}XmlAttrEvenHBand.Value := _value;
end;
function CnfStyle.ReadXmlAttrFirstRowFirstColumn();
begin
- return {self.}XmlAttrFirstRowFirstColumn.Value;
+ return ifnil({self.}XmlAttrFirstRowFirstColumn.Value) ? fallback_.XmlAttrFirstRowFirstColumn.Value : {self.}XmlAttrFirstRowFirstColumn.Value;
end;
-function CnfStyle.WriteXmlAttrFirstRowFirstColumn(_value);
+function CnfStyle.WriteXmlAttrFirstRowFirstColumn(_value: any);
begin
if ifnil({self.}XmlAttrFirstRowFirstColumn) then
begin
{self.}XmlAttrFirstRowFirstColumn := new OpenXmlAttribute({self.}Prefix, "firstRowFirstColumn", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrFirstRowFirstColumn;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "firstRowFirstColumn" : "firstRowFirstColumn"] := {self.}XmlAttrFirstRowFirstColumn;
end
{self.}XmlAttrFirstRowFirstColumn.Value := _value;
end;
function CnfStyle.ReadXmlAttrFirstRowLastColumn();
begin
- return {self.}XmlAttrFirstRowLastColumn.Value;
+ return ifnil({self.}XmlAttrFirstRowLastColumn.Value) ? fallback_.XmlAttrFirstRowLastColumn.Value : {self.}XmlAttrFirstRowLastColumn.Value;
end;
-function CnfStyle.WriteXmlAttrFirstRowLastColumn(_value);
+function CnfStyle.WriteXmlAttrFirstRowLastColumn(_value: any);
begin
if ifnil({self.}XmlAttrFirstRowLastColumn) then
begin
{self.}XmlAttrFirstRowLastColumn := new OpenXmlAttribute({self.}Prefix, "firstRowLastColumn", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrFirstRowLastColumn;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "firstRowLastColumn" : "firstRowLastColumn"] := {self.}XmlAttrFirstRowLastColumn;
end
{self.}XmlAttrFirstRowLastColumn.Value := _value;
end;
function CnfStyle.ReadXmlAttrLastRowFirstColumn();
begin
- return {self.}XmlAttrLastRowFirstColumn.Value;
+ return ifnil({self.}XmlAttrLastRowFirstColumn.Value) ? fallback_.XmlAttrLastRowFirstColumn.Value : {self.}XmlAttrLastRowFirstColumn.Value;
end;
-function CnfStyle.WriteXmlAttrLastRowFirstColumn(_value);
+function CnfStyle.WriteXmlAttrLastRowFirstColumn(_value: any);
begin
if ifnil({self.}XmlAttrLastRowFirstColumn) then
begin
{self.}XmlAttrLastRowFirstColumn := new OpenXmlAttribute({self.}Prefix, "lastRowFirstColumn", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrLastRowFirstColumn;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "lastRowFirstColumn" : "lastRowFirstColumn"] := {self.}XmlAttrLastRowFirstColumn;
end
{self.}XmlAttrLastRowFirstColumn.Value := _value;
end;
function CnfStyle.ReadXmlAttrLastRowLastColumn();
begin
- return {self.}XmlAttrLastRowLastColumn.Value;
+ return ifnil({self.}XmlAttrLastRowLastColumn.Value) ? fallback_.XmlAttrLastRowLastColumn.Value : {self.}XmlAttrLastRowLastColumn.Value;
end;
-function CnfStyle.WriteXmlAttrLastRowLastColumn(_value);
+function CnfStyle.WriteXmlAttrLastRowLastColumn(_value: any);
begin
if ifnil({self.}XmlAttrLastRowLastColumn) then
begin
{self.}XmlAttrLastRowLastColumn := new OpenXmlAttribute({self.}Prefix, "lastRowLastColumn", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrLastRowLastColumn;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "lastRowLastColumn" : "lastRowLastColumn"] := {self.}XmlAttrLastRowLastColumn;
end
{self.}XmlAttrLastRowLastColumn.Value := _value;
end;
@@ -11454,13 +15867,13 @@ end;
function TrHeight.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function TrHeight.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function TrHeight.Init();override;
@@ -11488,32 +15901,38 @@ begin
tslassigning := tslassigning_backup;
end;
-function TrHeight.ReadXmlAttrHRule();
+function TrHeight.ConvertToPoint();override;
begin
- return {self.}XmlAttrHRule.Value;
+ if not ifnil({self.}XmlAttrval) then
+ {self.}val := TSSafeUnitConverter.TwipsToPoints({self.}XmlAttrval.Value);
end;
-function TrHeight.WriteXmlAttrHRule(_value);
+function TrHeight.ReadXmlAttrHRule();
+begin
+ return ifnil({self.}XmlAttrHRule.Value) ? fallback_.XmlAttrHRule.Value : {self.}XmlAttrHRule.Value;
+end;
+
+function TrHeight.WriteXmlAttrHRule(_value: any);
begin
if ifnil({self.}XmlAttrHRule) then
begin
{self.}XmlAttrHRule := new OpenXmlAttribute({self.}Prefix, "hRule", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrHRule;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "hRule" : "hRule"] := {self.}XmlAttrHRule;
end
{self.}XmlAttrHRule.Value := _value;
end;
function TrHeight.ReadXmlAttrval();
begin
- return {self.}XmlAttrval.Value;
+ return ifnil({self.}XmlAttrval.Value) ? fallback_.XmlAttrval.Value : {self.}XmlAttrval.Value;
end;
-function TrHeight.WriteXmlAttrval(_value);
+function TrHeight.WriteXmlAttrval(_value: any);
begin
if ifnil({self.}XmlAttrval) then
begin
{self.}XmlAttrval := new OpenXmlAttribute({self.}Prefix, "val", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrval;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "val" : "val"] := {self.}XmlAttrval;
end
{self.}XmlAttrval.Value := _value;
end;
@@ -11525,13 +15944,13 @@ end;
function Tc.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Tc.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Tc.Init();override;
@@ -11558,6 +15977,18 @@ begin
tslassigning := tslassigning_backup;
end;
+function Tc.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildTcPr) then
+ {self.}XmlChildTcPr.ConvertToPoint();
+ elems := {self.}Ps();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Tbls();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+end;
+
function Tc.ReadXmlChildTcPr(): TcPr;
begin
if tslassigning and (ifnil({self.}XmlChildTcPr) or {self.}XmlChildTcPr.Removed) then
@@ -11565,23 +15996,79 @@ begin
{self.}XmlChildTcPr := new TcPr(self, {self.}Prefix, "tcPr");
container_.Set({self.}XmlChildTcPr);
end
- return {self.}XmlChildTcPr;
+ return {self.}XmlChildTcPr and not {self.}XmlChildTcPr.Removed ? {self.}XmlChildTcPr : fallback_.XmlChildTcPr;
end;
-function Tc.ReadPs(_index);
+function Tc.WriteXmlChildTcPr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTcPr) then
+ {self.}RemoveChild({self.}XmlChildTcPr);
+ end
+ else if v is class(TcPr) then
+ begin
+ {self.}XmlChildTcPr := v;
+ container_.Set({self.}XmlChildTcPr);
+ end
+ else begin
+ raise "Invalid assignment: TcPr expects TcPr or nil";
+ end
+end;
+
+function Tc.ReadPs(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "p", ind);
end;
-function Tc.ReadTbls(_index);
+function Tc.WritePs(_index: integer; _value: nil_OR_P);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadPs(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "p", ind, _value) then
+ raise format("Index out of range: Ps[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Ps expects nil or P";
+ end
+end;
+
+function Tc.ReadTbls(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "tbl", ind);
end;
+function Tc.WriteTbls(_index: integer; _value: nil_OR_Tbl);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadTbls(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "tbl", ind, _value) then
+ raise format("Index out of range: Tbls[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Tbls expects nil or Tbl";
+ end
+end;
+
function Tc.AddP(): P;
begin
obj := new P(self, {self.}Prefix, "p");
@@ -11617,13 +16104,13 @@ end;
function TcPr.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function TcPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function TcPr.Init();override;
@@ -11669,6 +16156,22 @@ begin
tslassigning := tslassigning_backup;
end;
+function TcPr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildTcW) then
+ {self.}XmlChildTcW.ConvertToPoint();
+ if not ifnil({self.}XmlChildGridSpan) then
+ {self.}XmlChildGridSpan.ConvertToPoint();
+ if not ifnil({self.}XmlChildVAlign) then
+ {self.}XmlChildVAlign.ConvertToPoint();
+ if not ifnil({self.}XmlChildShd) then
+ {self.}XmlChildShd.ConvertToPoint();
+ if not ifnil({self.}XmlChildTcBorders) then
+ {self.}XmlChildTcBorders.ConvertToPoint();
+ if not ifnil({self.}XmlChildTextDirection) then
+ {self.}XmlChildTextDirection.ConvertToPoint();
+end;
+
function TcPr.ReadXmlChildVMerge();
begin
if tslassigning and (ifnil({self.}XmlChildVMerge) or {self.}XmlChildVMerge.Removed) then
@@ -11676,7 +16179,24 @@ begin
{self.}XmlChildVMerge := new OpenXmlSimpleType(self, {self.}Prefix, "vMerge");
container_.Set({self.}XmlChildVMerge);
end
- return {self.}XmlChildVMerge;
+ return {self.}XmlChildVMerge and not {self.}XmlChildVMerge.Removed ? {self.}XmlChildVMerge : fallback_.XmlChildVMerge;
+end;
+
+function TcPr.WriteXmlChildVMerge(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildVMerge) then
+ {self.}RemoveChild({self.}XmlChildVMerge);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildVMerge := _value;
+ container_.Set({self.}XmlChildVMerge);
+ end
+ else begin
+ raise "Invalid assignment: VMerge expects nil or OpenXmlSimpleType";
+ end
end;
function TcPr.ReadXmlChildHideMark();
@@ -11686,7 +16206,24 @@ begin
{self.}XmlChildHideMark := new OpenXmlSimpleType(self, {self.}Prefix, "hideMark");
container_.Set({self.}XmlChildHideMark);
end
- return {self.}XmlChildHideMark;
+ return {self.}XmlChildHideMark and not {self.}XmlChildHideMark.Removed ? {self.}XmlChildHideMark : fallback_.XmlChildHideMark;
+end;
+
+function TcPr.WriteXmlChildHideMark(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildHideMark) then
+ {self.}RemoveChild({self.}XmlChildHideMark);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildHideMark := _value;
+ container_.Set({self.}XmlChildHideMark);
+ end
+ else begin
+ raise "Invalid assignment: HideMark expects nil or OpenXmlSimpleType";
+ end
end;
function TcPr.ReadXmlChildTcW(): TblW;
@@ -11696,7 +16233,25 @@ begin
{self.}XmlChildTcW := new TblW(self, {self.}Prefix, "tcW");
container_.Set({self.}XmlChildTcW);
end
- return {self.}XmlChildTcW;
+ return {self.}XmlChildTcW and not {self.}XmlChildTcW.Removed ? {self.}XmlChildTcW : fallback_.XmlChildTcW;
+end;
+
+function TcPr.WriteXmlChildTcW(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTcW) then
+ {self.}RemoveChild({self.}XmlChildTcW);
+ end
+ else if v is class(TblW) then
+ begin
+ {self.}XmlChildTcW := v;
+ container_.Set({self.}XmlChildTcW);
+ end
+ else begin
+ raise "Invalid assignment: TcW expects TblW or nil";
+ end
end;
function TcPr.ReadXmlChildGridSpan(): GridSpan;
@@ -11706,7 +16261,25 @@ begin
{self.}XmlChildGridSpan := new GridSpan(self, {self.}Prefix, "gridSpan");
container_.Set({self.}XmlChildGridSpan);
end
- return {self.}XmlChildGridSpan;
+ return {self.}XmlChildGridSpan and not {self.}XmlChildGridSpan.Removed ? {self.}XmlChildGridSpan : fallback_.XmlChildGridSpan;
+end;
+
+function TcPr.WriteXmlChildGridSpan(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildGridSpan) then
+ {self.}RemoveChild({self.}XmlChildGridSpan);
+ end
+ else if v is class(GridSpan) then
+ begin
+ {self.}XmlChildGridSpan := v;
+ container_.Set({self.}XmlChildGridSpan);
+ end
+ else begin
+ raise "Invalid assignment: GridSpan expects GridSpan or nil";
+ end
end;
function TcPr.ReadXmlChildVAlign(): PureWVal;
@@ -11716,7 +16289,25 @@ begin
{self.}XmlChildVAlign := new PureWVal(self, {self.}Prefix, "vAlign");
container_.Set({self.}XmlChildVAlign);
end
- return {self.}XmlChildVAlign;
+ return {self.}XmlChildVAlign and not {self.}XmlChildVAlign.Removed ? {self.}XmlChildVAlign : fallback_.XmlChildVAlign;
+end;
+
+function TcPr.WriteXmlChildVAlign(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildVAlign) then
+ {self.}RemoveChild({self.}XmlChildVAlign);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildVAlign := v;
+ container_.Set({self.}XmlChildVAlign);
+ end
+ else begin
+ raise "Invalid assignment: VAlign expects PureWVal or nil";
+ end
end;
function TcPr.ReadXmlChildShd(): Shd;
@@ -11726,7 +16317,25 @@ begin
{self.}XmlChildShd := new Shd(self, {self.}Prefix, "shd");
container_.Set({self.}XmlChildShd);
end
- return {self.}XmlChildShd;
+ return {self.}XmlChildShd and not {self.}XmlChildShd.Removed ? {self.}XmlChildShd : fallback_.XmlChildShd;
+end;
+
+function TcPr.WriteXmlChildShd(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildShd) then
+ {self.}RemoveChild({self.}XmlChildShd);
+ end
+ else if v is class(Shd) then
+ begin
+ {self.}XmlChildShd := v;
+ container_.Set({self.}XmlChildShd);
+ end
+ else begin
+ raise "Invalid assignment: Shd expects Shd or nil";
+ end
end;
function TcPr.ReadXmlChildTcBorders(): TcBorders;
@@ -11736,7 +16345,25 @@ begin
{self.}XmlChildTcBorders := new TcBorders(self, {self.}Prefix, "tcBorders");
container_.Set({self.}XmlChildTcBorders);
end
- return {self.}XmlChildTcBorders;
+ return {self.}XmlChildTcBorders and not {self.}XmlChildTcBorders.Removed ? {self.}XmlChildTcBorders : fallback_.XmlChildTcBorders;
+end;
+
+function TcPr.WriteXmlChildTcBorders(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTcBorders) then
+ {self.}RemoveChild({self.}XmlChildTcBorders);
+ end
+ else if v is class(TcBorders) then
+ begin
+ {self.}XmlChildTcBorders := v;
+ container_.Set({self.}XmlChildTcBorders);
+ end
+ else begin
+ raise "Invalid assignment: TcBorders expects TcBorders or nil";
+ end
end;
function TcPr.ReadXmlChildTextDirection(): PureWVal;
@@ -11746,7 +16373,25 @@ begin
{self.}XmlChildTextDirection := new PureWVal(self, {self.}Prefix, "textDirection");
container_.Set({self.}XmlChildTextDirection);
end
- return {self.}XmlChildTextDirection;
+ return {self.}XmlChildTextDirection and not {self.}XmlChildTextDirection.Removed ? {self.}XmlChildTextDirection : fallback_.XmlChildTextDirection;
+end;
+
+function TcPr.WriteXmlChildTextDirection(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTextDirection) then
+ {self.}RemoveChild({self.}XmlChildTextDirection);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildTextDirection := v;
+ container_.Set({self.}XmlChildTextDirection);
+ end
+ else begin
+ raise "Invalid assignment: TextDirection expects PureWVal or nil";
+ end
end;
function TcBorders.Create();overload;
@@ -11756,13 +16401,13 @@ end;
function TcBorders.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function TcBorders.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function TcBorders.Init();override;
@@ -11808,6 +16453,26 @@ begin
tslassigning := tslassigning_backup;
end;
+function TcBorders.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildTop) then
+ {self.}XmlChildTop.ConvertToPoint();
+ if not ifnil({self.}XmlChildLeft) then
+ {self.}XmlChildLeft.ConvertToPoint();
+ if not ifnil({self.}XmlChildBottom) then
+ {self.}XmlChildBottom.ConvertToPoint();
+ if not ifnil({self.}XmlChildRight) then
+ {self.}XmlChildRight.ConvertToPoint();
+ if not ifnil({self.}XmlChildTl2Br) then
+ {self.}XmlChildTl2Br.ConvertToPoint();
+ if not ifnil({self.}XmlChildTr2Bl) then
+ {self.}XmlChildTr2Bl.ConvertToPoint();
+ if not ifnil({self.}XmlChildInsideH) then
+ {self.}XmlChildInsideH.ConvertToPoint();
+ if not ifnil({self.}XmlChildInsideV) then
+ {self.}XmlChildInsideV.ConvertToPoint();
+end;
+
function TcBorders.ReadXmlChildTop(): TcBorder;
begin
if tslassigning and (ifnil({self.}XmlChildTop) or {self.}XmlChildTop.Removed) then
@@ -11815,7 +16480,25 @@ begin
{self.}XmlChildTop := new TcBorder(self, {self.}Prefix, "top");
container_.Set({self.}XmlChildTop);
end
- return {self.}XmlChildTop;
+ return {self.}XmlChildTop and not {self.}XmlChildTop.Removed ? {self.}XmlChildTop : fallback_.XmlChildTop;
+end;
+
+function TcBorders.WriteXmlChildTop(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTop) then
+ {self.}RemoveChild({self.}XmlChildTop);
+ end
+ else if v is class(TcBorder) then
+ begin
+ {self.}XmlChildTop := v;
+ container_.Set({self.}XmlChildTop);
+ end
+ else begin
+ raise "Invalid assignment: Top expects TcBorder or nil";
+ end
end;
function TcBorders.ReadXmlChildLeft(): TcBorder;
@@ -11825,7 +16508,25 @@ begin
{self.}XmlChildLeft := new TcBorder(self, {self.}Prefix, "left");
container_.Set({self.}XmlChildLeft);
end
- return {self.}XmlChildLeft;
+ return {self.}XmlChildLeft and not {self.}XmlChildLeft.Removed ? {self.}XmlChildLeft : fallback_.XmlChildLeft;
+end;
+
+function TcBorders.WriteXmlChildLeft(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildLeft) then
+ {self.}RemoveChild({self.}XmlChildLeft);
+ end
+ else if v is class(TcBorder) then
+ begin
+ {self.}XmlChildLeft := v;
+ container_.Set({self.}XmlChildLeft);
+ end
+ else begin
+ raise "Invalid assignment: Left expects TcBorder or nil";
+ end
end;
function TcBorders.ReadXmlChildBottom(): TcBorder;
@@ -11835,7 +16536,25 @@ begin
{self.}XmlChildBottom := new TcBorder(self, {self.}Prefix, "bottom");
container_.Set({self.}XmlChildBottom);
end
- return {self.}XmlChildBottom;
+ return {self.}XmlChildBottom and not {self.}XmlChildBottom.Removed ? {self.}XmlChildBottom : fallback_.XmlChildBottom;
+end;
+
+function TcBorders.WriteXmlChildBottom(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildBottom) then
+ {self.}RemoveChild({self.}XmlChildBottom);
+ end
+ else if v is class(TcBorder) then
+ begin
+ {self.}XmlChildBottom := v;
+ container_.Set({self.}XmlChildBottom);
+ end
+ else begin
+ raise "Invalid assignment: Bottom expects TcBorder or nil";
+ end
end;
function TcBorders.ReadXmlChildRight(): TcBorder;
@@ -11845,7 +16564,25 @@ begin
{self.}XmlChildRight := new TcBorder(self, {self.}Prefix, "right");
container_.Set({self.}XmlChildRight);
end
- return {self.}XmlChildRight;
+ return {self.}XmlChildRight and not {self.}XmlChildRight.Removed ? {self.}XmlChildRight : fallback_.XmlChildRight;
+end;
+
+function TcBorders.WriteXmlChildRight(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildRight) then
+ {self.}RemoveChild({self.}XmlChildRight);
+ end
+ else if v is class(TcBorder) then
+ begin
+ {self.}XmlChildRight := v;
+ container_.Set({self.}XmlChildRight);
+ end
+ else begin
+ raise "Invalid assignment: Right expects TcBorder or nil";
+ end
end;
function TcBorders.ReadXmlChildTl2Br(): TcBorder;
@@ -11855,7 +16592,25 @@ begin
{self.}XmlChildTl2Br := new TcBorder(self, {self.}Prefix, "tl2br");
container_.Set({self.}XmlChildTl2Br);
end
- return {self.}XmlChildTl2Br;
+ return {self.}XmlChildTl2Br and not {self.}XmlChildTl2Br.Removed ? {self.}XmlChildTl2Br : fallback_.XmlChildTl2Br;
+end;
+
+function TcBorders.WriteXmlChildTl2Br(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTl2Br) then
+ {self.}RemoveChild({self.}XmlChildTl2Br);
+ end
+ else if v is class(TcBorder) then
+ begin
+ {self.}XmlChildTl2Br := v;
+ container_.Set({self.}XmlChildTl2Br);
+ end
+ else begin
+ raise "Invalid assignment: Tl2Br expects TcBorder or nil";
+ end
end;
function TcBorders.ReadXmlChildTr2Bl(): TcBorder;
@@ -11865,7 +16620,25 @@ begin
{self.}XmlChildTr2Bl := new TcBorder(self, {self.}Prefix, "tr2bl");
container_.Set({self.}XmlChildTr2Bl);
end
- return {self.}XmlChildTr2Bl;
+ return {self.}XmlChildTr2Bl and not {self.}XmlChildTr2Bl.Removed ? {self.}XmlChildTr2Bl : fallback_.XmlChildTr2Bl;
+end;
+
+function TcBorders.WriteXmlChildTr2Bl(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTr2Bl) then
+ {self.}RemoveChild({self.}XmlChildTr2Bl);
+ end
+ else if v is class(TcBorder) then
+ begin
+ {self.}XmlChildTr2Bl := v;
+ container_.Set({self.}XmlChildTr2Bl);
+ end
+ else begin
+ raise "Invalid assignment: Tr2Bl expects TcBorder or nil";
+ end
end;
function TcBorders.ReadXmlChildInsideH(): TcBorder;
@@ -11875,7 +16648,25 @@ begin
{self.}XmlChildInsideH := new TcBorder(self, {self.}Prefix, "insideH");
container_.Set({self.}XmlChildInsideH);
end
- return {self.}XmlChildInsideH;
+ return {self.}XmlChildInsideH and not {self.}XmlChildInsideH.Removed ? {self.}XmlChildInsideH : fallback_.XmlChildInsideH;
+end;
+
+function TcBorders.WriteXmlChildInsideH(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildInsideH) then
+ {self.}RemoveChild({self.}XmlChildInsideH);
+ end
+ else if v is class(TcBorder) then
+ begin
+ {self.}XmlChildInsideH := v;
+ container_.Set({self.}XmlChildInsideH);
+ end
+ else begin
+ raise "Invalid assignment: InsideH expects TcBorder or nil";
+ end
end;
function TcBorders.ReadXmlChildInsideV(): TcBorder;
@@ -11885,7 +16676,25 @@ begin
{self.}XmlChildInsideV := new TcBorder(self, {self.}Prefix, "insideV");
container_.Set({self.}XmlChildInsideV);
end
- return {self.}XmlChildInsideV;
+ return {self.}XmlChildInsideV and not {self.}XmlChildInsideV.Removed ? {self.}XmlChildInsideV : fallback_.XmlChildInsideV;
+end;
+
+function TcBorders.WriteXmlChildInsideV(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildInsideV) then
+ {self.}RemoveChild({self.}XmlChildInsideV);
+ end
+ else if v is class(TcBorder) then
+ begin
+ {self.}XmlChildInsideV := v;
+ container_.Set({self.}XmlChildInsideV);
+ end
+ else begin
+ raise "Invalid assignment: InsideV expects TcBorder or nil";
+ end
end;
function TcBorder.Create();overload;
@@ -11895,13 +16704,13 @@ end;
function TcBorder.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function TcBorder.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function TcBorder.Init();override;
@@ -11941,92 +16750,98 @@ begin
tslassigning := tslassigning_backup;
end;
-function TcBorder.ReadXmlAttrVal();
+function TcBorder.ConvertToPoint();override;
begin
- return {self.}XmlAttrVal.Value;
+ if not ifnil({self.}XmlAttrSz) then
+ {self.}Sz := TSSafeUnitConverter.EighthPointToPoints({self.}XmlAttrSz.Value);
end;
-function TcBorder.WriteXmlAttrVal(_value);
+function TcBorder.ReadXmlAttrVal();
+begin
+ return ifnil({self.}XmlAttrVal.Value) ? fallback_.XmlAttrVal.Value : {self.}XmlAttrVal.Value;
+end;
+
+function TcBorder.WriteXmlAttrVal(_value: any);
begin
if ifnil({self.}XmlAttrVal) then
begin
{self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrVal;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "val" : "val"] := {self.}XmlAttrVal;
end
{self.}XmlAttrVal.Value := _value;
end;
function TcBorder.ReadXmlAttrColor();
begin
- return {self.}XmlAttrColor.Value;
+ return ifnil({self.}XmlAttrColor.Value) ? fallback_.XmlAttrColor.Value : {self.}XmlAttrColor.Value;
end;
-function TcBorder.WriteXmlAttrColor(_value);
+function TcBorder.WriteXmlAttrColor(_value: any);
begin
if ifnil({self.}XmlAttrColor) then
begin
{self.}XmlAttrColor := new OpenXmlAttribute({self.}Prefix, "color", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrColor;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "color" : "color"] := {self.}XmlAttrColor;
end
{self.}XmlAttrColor.Value := _value;
end;
function TcBorder.ReadXmlAttrSpace();
begin
- return {self.}XmlAttrSpace.Value;
+ return ifnil({self.}XmlAttrSpace.Value) ? fallback_.XmlAttrSpace.Value : {self.}XmlAttrSpace.Value;
end;
-function TcBorder.WriteXmlAttrSpace(_value);
+function TcBorder.WriteXmlAttrSpace(_value: any);
begin
if ifnil({self.}XmlAttrSpace) then
begin
{self.}XmlAttrSpace := new OpenXmlAttribute({self.}Prefix, "space", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrSpace;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "space" : "space"] := {self.}XmlAttrSpace;
end
{self.}XmlAttrSpace.Value := _value;
end;
function TcBorder.ReadXmlAttrThemeColor();
begin
- return {self.}XmlAttrThemeColor.Value;
+ return ifnil({self.}XmlAttrThemeColor.Value) ? fallback_.XmlAttrThemeColor.Value : {self.}XmlAttrThemeColor.Value;
end;
-function TcBorder.WriteXmlAttrThemeColor(_value);
+function TcBorder.WriteXmlAttrThemeColor(_value: any);
begin
if ifnil({self.}XmlAttrThemeColor) then
begin
{self.}XmlAttrThemeColor := new OpenXmlAttribute({self.}Prefix, "themeColor", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrThemeColor;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "themeColor" : "themeColor"] := {self.}XmlAttrThemeColor;
end
{self.}XmlAttrThemeColor.Value := _value;
end;
function TcBorder.ReadXmlAttrThemeTint();
begin
- return {self.}XmlAttrThemeTint.Value;
+ return ifnil({self.}XmlAttrThemeTint.Value) ? fallback_.XmlAttrThemeTint.Value : {self.}XmlAttrThemeTint.Value;
end;
-function TcBorder.WriteXmlAttrThemeTint(_value);
+function TcBorder.WriteXmlAttrThemeTint(_value: any);
begin
if ifnil({self.}XmlAttrThemeTint) then
begin
{self.}XmlAttrThemeTint := new OpenXmlAttribute({self.}Prefix, "themeTint", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrThemeTint;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "themeTint" : "themeTint"] := {self.}XmlAttrThemeTint;
end
{self.}XmlAttrThemeTint.Value := _value;
end;
function TcBorder.ReadXmlAttrSz();
begin
- return {self.}XmlAttrSz.Value;
+ return ifnil({self.}XmlAttrSz.Value) ? fallback_.XmlAttrSz.Value : {self.}XmlAttrSz.Value;
end;
-function TcBorder.WriteXmlAttrSz(_value);
+function TcBorder.WriteXmlAttrSz(_value: any);
begin
if ifnil({self.}XmlAttrSz) then
begin
{self.}XmlAttrSz := new OpenXmlAttribute({self.}Prefix, "sz", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrSz;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "sz" : "sz"] := {self.}XmlAttrSz;
end
{self.}XmlAttrSz.Value := _value;
end;
@@ -12038,13 +16853,13 @@ end;
function GridSpan.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function GridSpan.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function GridSpan.Init();override;
@@ -12069,17 +16884,23 @@ begin
tslassigning := tslassigning_backup;
end;
-function GridSpan.ReadXmlAttrVal();
+function GridSpan.ConvertToPoint();override;
begin
- return {self.}XmlAttrVal.Value;
+ if not ifnil({self.}XmlAttrVal) then
+ {self.}Val := TSSafeUnitConverter.ToInt({self.}XmlAttrVal.Value);
end;
-function GridSpan.WriteXmlAttrVal(_value);
+function GridSpan.ReadXmlAttrVal();
+begin
+ return ifnil({self.}XmlAttrVal.Value) ? fallback_.XmlAttrVal.Value : {self.}XmlAttrVal.Value;
+end;
+
+function GridSpan.WriteXmlAttrVal(_value: any);
begin
if ifnil({self.}XmlAttrVal) then
begin
{self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrVal;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "val" : "val"] := {self.}XmlAttrVal;
end
{self.}XmlAttrVal.Value := _value;
end;
@@ -12091,13 +16912,13 @@ end;
function Sdt.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Sdt.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Sdt.Init();override;
@@ -12107,7 +16928,7 @@ begin
attributes_pf_ := array(
);
sorted_child_ := array(
- pre + "stdPr": array(0, makeweakref(thisFunction(ReadXmlChildSdtPr))),
+ pre + "sdtPr": array(0, makeweakref(thisFunction(ReadXmlChildSdtPr))),
pre + "sdtEndPr": array(1, makeweakref(thisFunction(ReadXmlChildSdtEndPr))),
pre + "sdtContent": array(2, makeweakref(thisFunction(ReadXmlChildSdtContent))),
);
@@ -12128,14 +16949,42 @@ begin
tslassigning := tslassigning_backup;
end;
+function Sdt.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildSdtPr) then
+ {self.}XmlChildSdtPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildSdtEndPr) then
+ {self.}XmlChildSdtEndPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildSdtContent) then
+ {self.}XmlChildSdtContent.ConvertToPoint();
+end;
+
function Sdt.ReadXmlChildSdtPr(): SdtPr;
begin
if tslassigning and (ifnil({self.}XmlChildSdtPr) or {self.}XmlChildSdtPr.Removed) then
begin
- {self.}XmlChildSdtPr := new SdtPr(self, {self.}Prefix, "stdPr");
+ {self.}XmlChildSdtPr := new SdtPr(self, {self.}Prefix, "sdtPr");
container_.Set({self.}XmlChildSdtPr);
end
- return {self.}XmlChildSdtPr;
+ return {self.}XmlChildSdtPr and not {self.}XmlChildSdtPr.Removed ? {self.}XmlChildSdtPr : fallback_.XmlChildSdtPr;
+end;
+
+function Sdt.WriteXmlChildSdtPr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildSdtPr) then
+ {self.}RemoveChild({self.}XmlChildSdtPr);
+ end
+ else if v is class(SdtPr) then
+ begin
+ {self.}XmlChildSdtPr := v;
+ container_.Set({self.}XmlChildSdtPr);
+ end
+ else begin
+ raise "Invalid assignment: SdtPr expects SdtPr or nil";
+ end
end;
function Sdt.ReadXmlChildSdtEndPr(): SdtEndPr;
@@ -12145,7 +16994,25 @@ begin
{self.}XmlChildSdtEndPr := new SdtEndPr(self, {self.}Prefix, "sdtEndPr");
container_.Set({self.}XmlChildSdtEndPr);
end
- return {self.}XmlChildSdtEndPr;
+ return {self.}XmlChildSdtEndPr and not {self.}XmlChildSdtEndPr.Removed ? {self.}XmlChildSdtEndPr : fallback_.XmlChildSdtEndPr;
+end;
+
+function Sdt.WriteXmlChildSdtEndPr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildSdtEndPr) then
+ {self.}RemoveChild({self.}XmlChildSdtEndPr);
+ end
+ else if v is class(SdtEndPr) then
+ begin
+ {self.}XmlChildSdtEndPr := v;
+ container_.Set({self.}XmlChildSdtEndPr);
+ end
+ else begin
+ raise "Invalid assignment: SdtEndPr expects SdtEndPr or nil";
+ end
end;
function Sdt.ReadXmlChildSdtContent(): SdtContent;
@@ -12155,7 +17022,25 @@ begin
{self.}XmlChildSdtContent := new SdtContent(self, {self.}Prefix, "sdtContent");
container_.Set({self.}XmlChildSdtContent);
end
- return {self.}XmlChildSdtContent;
+ return {self.}XmlChildSdtContent and not {self.}XmlChildSdtContent.Removed ? {self.}XmlChildSdtContent : fallback_.XmlChildSdtContent;
+end;
+
+function Sdt.WriteXmlChildSdtContent(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildSdtContent) then
+ {self.}RemoveChild({self.}XmlChildSdtContent);
+ end
+ else if v is class(SdtContent) then
+ begin
+ {self.}XmlChildSdtContent := v;
+ container_.Set({self.}XmlChildSdtContent);
+ end
+ else begin
+ raise "Invalid assignment: SdtContent expects SdtContent or nil";
+ end
end;
function SdtPr.Create();overload;
@@ -12165,13 +17050,13 @@ end;
function SdtPr.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function SdtPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function SdtPr.Init();override;
@@ -12202,6 +17087,16 @@ begin
tslassigning := tslassigning_backup;
end;
+function SdtPr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildRPr) then
+ {self.}XmlChildRPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildId) then
+ {self.}XmlChildId.ConvertToPoint();
+ if not ifnil({self.}XmlChildDocPartObj) then
+ {self.}XmlChildDocPartObj.ConvertToPoint();
+end;
+
function SdtPr.ReadXmlChildRPr(): RPr;
begin
if tslassigning and (ifnil({self.}XmlChildRPr) or {self.}XmlChildRPr.Removed) then
@@ -12209,7 +17104,25 @@ begin
{self.}XmlChildRPr := new RPr(self, {self.}Prefix, "rPr");
container_.Set({self.}XmlChildRPr);
end
- return {self.}XmlChildRPr;
+ return {self.}XmlChildRPr and not {self.}XmlChildRPr.Removed ? {self.}XmlChildRPr : fallback_.XmlChildRPr;
+end;
+
+function SdtPr.WriteXmlChildRPr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildRPr) then
+ {self.}RemoveChild({self.}XmlChildRPr);
+ end
+ else if v is class(RPr) then
+ begin
+ {self.}XmlChildRPr := v;
+ container_.Set({self.}XmlChildRPr);
+ end
+ else begin
+ raise "Invalid assignment: RPr expects RPr or nil";
+ end
end;
function SdtPr.ReadXmlChildId(): PureWVal;
@@ -12219,7 +17132,25 @@ begin
{self.}XmlChildId := new PureWVal(self, {self.}Prefix, "id");
container_.Set({self.}XmlChildId);
end
- return {self.}XmlChildId;
+ return {self.}XmlChildId and not {self.}XmlChildId.Removed ? {self.}XmlChildId : fallback_.XmlChildId;
+end;
+
+function SdtPr.WriteXmlChildId(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildId) then
+ {self.}RemoveChild({self.}XmlChildId);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildId := v;
+ container_.Set({self.}XmlChildId);
+ end
+ else begin
+ raise "Invalid assignment: Id expects PureWVal or nil";
+ end
end;
function SdtPr.ReadXmlChildDocPartObj(): DocPartObj;
@@ -12229,7 +17160,25 @@ begin
{self.}XmlChildDocPartObj := new DocPartObj(self, {self.}Prefix, "docPartObj");
container_.Set({self.}XmlChildDocPartObj);
end
- return {self.}XmlChildDocPartObj;
+ return {self.}XmlChildDocPartObj and not {self.}XmlChildDocPartObj.Removed ? {self.}XmlChildDocPartObj : fallback_.XmlChildDocPartObj;
+end;
+
+function SdtPr.WriteXmlChildDocPartObj(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildDocPartObj) then
+ {self.}RemoveChild({self.}XmlChildDocPartObj);
+ end
+ else if v is class(DocPartObj) then
+ begin
+ {self.}XmlChildDocPartObj := v;
+ container_.Set({self.}XmlChildDocPartObj);
+ end
+ else begin
+ raise "Invalid assignment: DocPartObj expects DocPartObj or nil";
+ end
end;
function DocPartObj.Create();overload;
@@ -12239,13 +17188,13 @@ end;
function DocPartObj.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function DocPartObj.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function DocPartObj.Init();override;
@@ -12273,6 +17222,14 @@ begin
tslassigning := tslassigning_backup;
end;
+function DocPartObj.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildDocPartGallery) then
+ {self.}XmlChildDocPartGallery.ConvertToPoint();
+ if not ifnil({self.}XmlChildDocPartUnique) then
+ {self.}XmlChildDocPartUnique.ConvertToPoint();
+end;
+
function DocPartObj.ReadXmlChildDocPartGallery(): PureWVal;
begin
if tslassigning and (ifnil({self.}XmlChildDocPartGallery) or {self.}XmlChildDocPartGallery.Removed) then
@@ -12280,7 +17237,25 @@ begin
{self.}XmlChildDocPartGallery := new PureWVal(self, {self.}Prefix, "docPartGallery");
container_.Set({self.}XmlChildDocPartGallery);
end
- return {self.}XmlChildDocPartGallery;
+ return {self.}XmlChildDocPartGallery and not {self.}XmlChildDocPartGallery.Removed ? {self.}XmlChildDocPartGallery : fallback_.XmlChildDocPartGallery;
+end;
+
+function DocPartObj.WriteXmlChildDocPartGallery(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildDocPartGallery) then
+ {self.}RemoveChild({self.}XmlChildDocPartGallery);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildDocPartGallery := v;
+ container_.Set({self.}XmlChildDocPartGallery);
+ end
+ else begin
+ raise "Invalid assignment: DocPartGallery expects PureWVal or nil";
+ end
end;
function DocPartObj.ReadXmlChildDocPartUnique(): PureVal;
@@ -12290,7 +17265,25 @@ begin
{self.}XmlChildDocPartUnique := new PureVal(self, {self.}Prefix, "docPartUnique");
container_.Set({self.}XmlChildDocPartUnique);
end
- return {self.}XmlChildDocPartUnique;
+ return {self.}XmlChildDocPartUnique and not {self.}XmlChildDocPartUnique.Removed ? {self.}XmlChildDocPartUnique : fallback_.XmlChildDocPartUnique;
+end;
+
+function DocPartObj.WriteXmlChildDocPartUnique(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildDocPartUnique) then
+ {self.}RemoveChild({self.}XmlChildDocPartUnique);
+ end
+ else if v is class(PureVal) then
+ begin
+ {self.}XmlChildDocPartUnique := v;
+ container_.Set({self.}XmlChildDocPartUnique);
+ end
+ else begin
+ raise "Invalid assignment: DocPartUnique expects PureVal or nil";
+ end
end;
function SdtEndPr.Create();overload;
@@ -12300,13 +17293,13 @@ end;
function SdtEndPr.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function SdtEndPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function SdtEndPr.Init();override;
@@ -12331,6 +17324,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function SdtEndPr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildRPr) then
+ {self.}XmlChildRPr.ConvertToPoint();
+end;
+
function SdtEndPr.ReadXmlChildRPr(): RPr;
begin
if tslassigning and (ifnil({self.}XmlChildRPr) or {self.}XmlChildRPr.Removed) then
@@ -12338,7 +17337,25 @@ begin
{self.}XmlChildRPr := new RPr(self, {self.}Prefix, "rPr");
container_.Set({self.}XmlChildRPr);
end
- return {self.}XmlChildRPr;
+ return {self.}XmlChildRPr and not {self.}XmlChildRPr.Removed ? {self.}XmlChildRPr : fallback_.XmlChildRPr;
+end;
+
+function SdtEndPr.WriteXmlChildRPr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildRPr) then
+ {self.}RemoveChild({self.}XmlChildRPr);
+ end
+ else if v is class(RPr) then
+ begin
+ {self.}XmlChildRPr := v;
+ container_.Set({self.}XmlChildRPr);
+ end
+ else begin
+ raise "Invalid assignment: RPr expects RPr or nil";
+ end
end;
function SdtContent.Create();overload;
@@ -12348,13 +17365,13 @@ end;
function SdtContent.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function SdtContent.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function SdtContent.Init();override;
@@ -12381,6 +17398,18 @@ begin
tslassigning := tslassigning_backup;
end;
+function SdtContent.ConvertToPoint();override;
+begin
+ elems := {self.}Ps();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Rs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ if not ifnil({self.}XmlChildSdt) then
+ {self.}XmlChildSdt.ConvertToPoint();
+end;
+
function SdtContent.ReadXmlChildSdt(): Sdt;
begin
if tslassigning and (ifnil({self.}XmlChildSdt) or {self.}XmlChildSdt.Removed) then
@@ -12388,23 +17417,79 @@ begin
{self.}XmlChildSdt := new Sdt(self, {self.}Prefix, "sdt");
container_.Set({self.}XmlChildSdt);
end
- return {self.}XmlChildSdt;
+ return {self.}XmlChildSdt and not {self.}XmlChildSdt.Removed ? {self.}XmlChildSdt : fallback_.XmlChildSdt;
end;
-function SdtContent.ReadPs(_index);
+function SdtContent.WriteXmlChildSdt(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildSdt) then
+ {self.}RemoveChild({self.}XmlChildSdt);
+ end
+ else if v is class(Sdt) then
+ begin
+ {self.}XmlChildSdt := v;
+ container_.Set({self.}XmlChildSdt);
+ end
+ else begin
+ raise "Invalid assignment: Sdt expects Sdt or nil";
+ end
+end;
+
+function SdtContent.ReadPs(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "p", ind);
end;
-function SdtContent.ReadRs(_index);
+function SdtContent.WritePs(_index: integer; _value: nil_OR_P);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadPs(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "p", ind, _value) then
+ raise format("Index out of range: Ps[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Ps expects nil or P";
+ end
+end;
+
+function SdtContent.ReadRs(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "r", ind);
end;
+function SdtContent.WriteRs(_index: integer; _value: nil_OR_R);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadRs(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "r", ind, _value) then
+ raise format("Index out of range: Rs[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Rs expects nil or R";
+ end
+end;
+
function SdtContent.AddP(): P;
begin
obj := new P(self, {self.}Prefix, "p");
@@ -12440,13 +17525,13 @@ end;
function SectPr.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function SectPr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function SectPr.Init();override;
@@ -12506,32 +17591,60 @@ begin
tslassigning := tslassigning_backup;
end;
-function SectPr.ReadXmlAttrRsidR();
+function SectPr.ConvertToPoint();override;
begin
- return {self.}XmlAttrRsidR.Value;
+ elems := {self.}HeaderReferences();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}FooterReferences();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ if not ifnil({self.}XmlChildFootnotePr) then
+ {self.}XmlChildFootnotePr.ConvertToPoint();
+ if not ifnil({self.}XmlChildEndnotePr) then
+ {self.}XmlChildEndnotePr.ConvertToPoint();
+ if not ifnil({self.}XmlChildType) then
+ {self.}XmlChildType.ConvertToPoint();
+ if not ifnil({self.}XmlChildPgSz) then
+ {self.}XmlChildPgSz.ConvertToPoint();
+ if not ifnil({self.}XmlChildPgMar) then
+ {self.}XmlChildPgMar.ConvertToPoint();
+ if not ifnil({self.}XmlChildPgNumType) then
+ {self.}XmlChildPgNumType.ConvertToPoint();
+ if not ifnil({self.}XmlChildCols) then
+ {self.}XmlChildCols.ConvertToPoint();
+ if not ifnil({self.}XmlChildDocGrid) then
+ {self.}XmlChildDocGrid.ConvertToPoint();
+ if not ifnil({self.}XmlChildTextDirection) then
+ {self.}XmlChildTextDirection.ConvertToPoint();
end;
-function SectPr.WriteXmlAttrRsidR(_value);
+function SectPr.ReadXmlAttrRsidR();
+begin
+ return ifnil({self.}XmlAttrRsidR.Value) ? fallback_.XmlAttrRsidR.Value : {self.}XmlAttrRsidR.Value;
+end;
+
+function SectPr.WriteXmlAttrRsidR(_value: any);
begin
if ifnil({self.}XmlAttrRsidR) then
begin
{self.}XmlAttrRsidR := new OpenXmlAttribute({self.}Prefix, "rsidR", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrRsidR;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "rsidR" : "rsidR"] := {self.}XmlAttrRsidR;
end
{self.}XmlAttrRsidR.Value := _value;
end;
function SectPr.ReadXmlAttrRsidSect();
begin
- return {self.}XmlAttrRsidSect.Value;
+ return ifnil({self.}XmlAttrRsidSect.Value) ? fallback_.XmlAttrRsidSect.Value : {self.}XmlAttrRsidSect.Value;
end;
-function SectPr.WriteXmlAttrRsidSect(_value);
+function SectPr.WriteXmlAttrRsidSect(_value: any);
begin
if ifnil({self.}XmlAttrRsidSect) then
begin
{self.}XmlAttrRsidSect := new OpenXmlAttribute({self.}Prefix, "rsidSect", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrRsidSect;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "rsidSect" : "rsidSect"] := {self.}XmlAttrRsidSect;
end
{self.}XmlAttrRsidSect.Value := _value;
end;
@@ -12543,7 +17656,24 @@ begin
{self.}XmlChildTitlePg := new OpenXmlSimpleType(self, {self.}Prefix, "titlePg");
container_.Set({self.}XmlChildTitlePg);
end
- return {self.}XmlChildTitlePg;
+ return {self.}XmlChildTitlePg and not {self.}XmlChildTitlePg.Removed ? {self.}XmlChildTitlePg : fallback_.XmlChildTitlePg;
+end;
+
+function SectPr.WriteXmlChildTitlePg(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildTitlePg) then
+ {self.}RemoveChild({self.}XmlChildTitlePg);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildTitlePg := _value;
+ container_.Set({self.}XmlChildTitlePg);
+ end
+ else begin
+ raise "Invalid assignment: TitlePg expects nil or OpenXmlSimpleType";
+ end
end;
function SectPr.ReadXmlChildFootnotePr(): FootnotePr;
@@ -12553,7 +17683,25 @@ begin
{self.}XmlChildFootnotePr := new FootnotePr(self, {self.}Prefix, "footnotePr");
container_.Set({self.}XmlChildFootnotePr);
end
- return {self.}XmlChildFootnotePr;
+ return {self.}XmlChildFootnotePr and not {self.}XmlChildFootnotePr.Removed ? {self.}XmlChildFootnotePr : fallback_.XmlChildFootnotePr;
+end;
+
+function SectPr.WriteXmlChildFootnotePr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildFootnotePr) then
+ {self.}RemoveChild({self.}XmlChildFootnotePr);
+ end
+ else if v is class(FootnotePr) then
+ begin
+ {self.}XmlChildFootnotePr := v;
+ container_.Set({self.}XmlChildFootnotePr);
+ end
+ else begin
+ raise "Invalid assignment: FootnotePr expects FootnotePr or nil";
+ end
end;
function SectPr.ReadXmlChildEndnotePr(): EndnotePr;
@@ -12563,7 +17711,25 @@ begin
{self.}XmlChildEndnotePr := new EndnotePr(self, {self.}Prefix, "endnotePr");
container_.Set({self.}XmlChildEndnotePr);
end
- return {self.}XmlChildEndnotePr;
+ return {self.}XmlChildEndnotePr and not {self.}XmlChildEndnotePr.Removed ? {self.}XmlChildEndnotePr : fallback_.XmlChildEndnotePr;
+end;
+
+function SectPr.WriteXmlChildEndnotePr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildEndnotePr) then
+ {self.}RemoveChild({self.}XmlChildEndnotePr);
+ end
+ else if v is class(EndnotePr) then
+ begin
+ {self.}XmlChildEndnotePr := v;
+ container_.Set({self.}XmlChildEndnotePr);
+ end
+ else begin
+ raise "Invalid assignment: EndnotePr expects EndnotePr or nil";
+ end
end;
function SectPr.ReadXmlChildType(): PureWVal;
@@ -12573,7 +17739,25 @@ begin
{self.}XmlChildType := new PureWVal(self, {self.}Prefix, "type");
container_.Set({self.}XmlChildType);
end
- return {self.}XmlChildType;
+ return {self.}XmlChildType and not {self.}XmlChildType.Removed ? {self.}XmlChildType : fallback_.XmlChildType;
+end;
+
+function SectPr.WriteXmlChildType(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildType) then
+ {self.}RemoveChild({self.}XmlChildType);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildType := v;
+ container_.Set({self.}XmlChildType);
+ end
+ else begin
+ raise "Invalid assignment: Type expects PureWVal or nil";
+ end
end;
function SectPr.ReadXmlChildPgSz(): PgSz;
@@ -12583,7 +17767,25 @@ begin
{self.}XmlChildPgSz := new PgSz(self, {self.}Prefix, "pgSz");
container_.Set({self.}XmlChildPgSz);
end
- return {self.}XmlChildPgSz;
+ return {self.}XmlChildPgSz and not {self.}XmlChildPgSz.Removed ? {self.}XmlChildPgSz : fallback_.XmlChildPgSz;
+end;
+
+function SectPr.WriteXmlChildPgSz(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildPgSz) then
+ {self.}RemoveChild({self.}XmlChildPgSz);
+ end
+ else if v is class(PgSz) then
+ begin
+ {self.}XmlChildPgSz := v;
+ container_.Set({self.}XmlChildPgSz);
+ end
+ else begin
+ raise "Invalid assignment: PgSz expects PgSz or nil";
+ end
end;
function SectPr.ReadXmlChildPgMar(): PgMar;
@@ -12593,7 +17795,25 @@ begin
{self.}XmlChildPgMar := new PgMar(self, {self.}Prefix, "pgMar");
container_.Set({self.}XmlChildPgMar);
end
- return {self.}XmlChildPgMar;
+ return {self.}XmlChildPgMar and not {self.}XmlChildPgMar.Removed ? {self.}XmlChildPgMar : fallback_.XmlChildPgMar;
+end;
+
+function SectPr.WriteXmlChildPgMar(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildPgMar) then
+ {self.}RemoveChild({self.}XmlChildPgMar);
+ end
+ else if v is class(PgMar) then
+ begin
+ {self.}XmlChildPgMar := v;
+ container_.Set({self.}XmlChildPgMar);
+ end
+ else begin
+ raise "Invalid assignment: PgMar expects PgMar or nil";
+ end
end;
function SectPr.ReadXmlChildPgNumType(): PgNumType;
@@ -12603,7 +17823,25 @@ begin
{self.}XmlChildPgNumType := new PgNumType(self, {self.}Prefix, "pgNumType");
container_.Set({self.}XmlChildPgNumType);
end
- return {self.}XmlChildPgNumType;
+ return {self.}XmlChildPgNumType and not {self.}XmlChildPgNumType.Removed ? {self.}XmlChildPgNumType : fallback_.XmlChildPgNumType;
+end;
+
+function SectPr.WriteXmlChildPgNumType(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildPgNumType) then
+ {self.}RemoveChild({self.}XmlChildPgNumType);
+ end
+ else if v is class(PgNumType) then
+ begin
+ {self.}XmlChildPgNumType := v;
+ container_.Set({self.}XmlChildPgNumType);
+ end
+ else begin
+ raise "Invalid assignment: PgNumType expects PgNumType or nil";
+ end
end;
function SectPr.ReadXmlChildCols(): Cols;
@@ -12613,7 +17851,25 @@ begin
{self.}XmlChildCols := new Cols(self, {self.}Prefix, "cols");
container_.Set({self.}XmlChildCols);
end
- return {self.}XmlChildCols;
+ return {self.}XmlChildCols and not {self.}XmlChildCols.Removed ? {self.}XmlChildCols : fallback_.XmlChildCols;
+end;
+
+function SectPr.WriteXmlChildCols(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildCols) then
+ {self.}RemoveChild({self.}XmlChildCols);
+ end
+ else if v is class(Cols) then
+ begin
+ {self.}XmlChildCols := v;
+ container_.Set({self.}XmlChildCols);
+ end
+ else begin
+ raise "Invalid assignment: Cols expects Cols or nil";
+ end
end;
function SectPr.ReadXmlChildDocGrid(): DocGrid;
@@ -12623,7 +17879,25 @@ begin
{self.}XmlChildDocGrid := new DocGrid(self, {self.}Prefix, "docGrid");
container_.Set({self.}XmlChildDocGrid);
end
- return {self.}XmlChildDocGrid;
+ return {self.}XmlChildDocGrid and not {self.}XmlChildDocGrid.Removed ? {self.}XmlChildDocGrid : fallback_.XmlChildDocGrid;
+end;
+
+function SectPr.WriteXmlChildDocGrid(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildDocGrid) then
+ {self.}RemoveChild({self.}XmlChildDocGrid);
+ end
+ else if v is class(DocGrid) then
+ begin
+ {self.}XmlChildDocGrid := v;
+ container_.Set({self.}XmlChildDocGrid);
+ end
+ else begin
+ raise "Invalid assignment: DocGrid expects DocGrid or nil";
+ end
end;
function SectPr.ReadXmlChildTextDirection(): PureWVal;
@@ -12633,23 +17907,79 @@ begin
{self.}XmlChildTextDirection := new PureWVal(self, {self.}Prefix, "textDirection");
container_.Set({self.}XmlChildTextDirection);
end
- return {self.}XmlChildTextDirection;
+ return {self.}XmlChildTextDirection and not {self.}XmlChildTextDirection.Removed ? {self.}XmlChildTextDirection : fallback_.XmlChildTextDirection;
end;
-function SectPr.ReadHeaderReferences(_index);
+function SectPr.WriteXmlChildTextDirection(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTextDirection) then
+ {self.}RemoveChild({self.}XmlChildTextDirection);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildTextDirection := v;
+ container_.Set({self.}XmlChildTextDirection);
+ end
+ else begin
+ raise "Invalid assignment: TextDirection expects PureWVal or nil";
+ end
+end;
+
+function SectPr.ReadHeaderReferences(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "headerReference", ind);
end;
-function SectPr.ReadFooterReferences(_index);
+function SectPr.WriteHeaderReferences(_index: integer; _value: nil_OR_Reference);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadHeaderReferences(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "headerReference", ind, _value) then
+ raise format("Index out of range: HeaderReferences[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: HeaderReferences expects nil or Reference";
+ end
+end;
+
+function SectPr.ReadFooterReferences(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "footerReference", ind);
end;
+function SectPr.WriteFooterReferences(_index: integer; _value: nil_OR_Reference);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadFooterReferences(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "footerReference", ind, _value) then
+ raise format("Index out of range: FooterReferences[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: FooterReferences expects nil or Reference";
+ end
+end;
+
function SectPr.AddHeaderReference(): Reference;
begin
obj := new Reference(self, {self.}Prefix, "headerReference");
@@ -12685,13 +18015,13 @@ end;
function Reference.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Reference.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Reference.Init();override;
@@ -12719,32 +18049,37 @@ begin
tslassigning := tslassigning_backup;
end;
-function Reference.ReadXmlAttrType();
+function Reference.ConvertToPoint();override;
begin
- return {self.}XmlAttrType.Value;
+
end;
-function Reference.WriteXmlAttrType(_value);
+function Reference.ReadXmlAttrType();
+begin
+ return ifnil({self.}XmlAttrType.Value) ? fallback_.XmlAttrType.Value : {self.}XmlAttrType.Value;
+end;
+
+function Reference.WriteXmlAttrType(_value: any);
begin
if ifnil({self.}XmlAttrType) then
begin
{self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrType;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "type" : "type"] := {self.}XmlAttrType;
end
{self.}XmlAttrType.Value := _value;
end;
function Reference.ReadXmlAttrId();
begin
- return {self.}XmlAttrId.Value;
+ return ifnil({self.}XmlAttrId.Value) ? fallback_.XmlAttrId.Value : {self.}XmlAttrId.Value;
end;
-function Reference.WriteXmlAttrId(_value);
+function Reference.WriteXmlAttrId(_value: any);
begin
if ifnil({self.}XmlAttrId) then
begin
{self.}XmlAttrId := new OpenXmlAttribute("r", "id", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrId;
+ attributes_["r:id"] := {self.}XmlAttrId;
end
{self.}XmlAttrId.Value := _value;
end;
@@ -12756,13 +18091,13 @@ end;
function PgNumType.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function PgNumType.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function PgNumType.Init();override;
@@ -12787,17 +18122,23 @@ begin
tslassigning := tslassigning_backup;
end;
-function PgNumType.ReadXmlAttrStart();
+function PgNumType.ConvertToPoint();override;
begin
- return {self.}XmlAttrStart.Value;
+ if not ifnil({self.}XmlAttrStart) then
+ {self.}Start := TSSafeUnitConverter.ToInt({self.}XmlAttrStart.Value);
end;
-function PgNumType.WriteXmlAttrStart(_value);
+function PgNumType.ReadXmlAttrStart();
+begin
+ return ifnil({self.}XmlAttrStart.Value) ? fallback_.XmlAttrStart.Value : {self.}XmlAttrStart.Value;
+end;
+
+function PgNumType.WriteXmlAttrStart(_value: any);
begin
if ifnil({self.}XmlAttrStart) then
begin
{self.}XmlAttrStart := new OpenXmlAttribute({self.}Prefix, "start", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrStart;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "start" : "start"] := {self.}XmlAttrStart;
end
{self.}XmlAttrStart.Value := _value;
end;
@@ -12809,13 +18150,13 @@ end;
function PgSz.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function PgSz.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function PgSz.Init();override;
@@ -12849,62 +18190,70 @@ begin
tslassigning := tslassigning_backup;
end;
-function PgSz.ReadXmlAttrW();
+function PgSz.ConvertToPoint();override;
begin
- return {self.}XmlAttrW.Value;
+ if not ifnil({self.}XmlAttrW) then
+ {self.}W := TSSafeUnitConverter.TwipsToPoints({self.}XmlAttrW.Value);
+ if not ifnil({self.}XmlAttrH) then
+ {self.}H := TSSafeUnitConverter.TwipsToPoints({self.}XmlAttrH.Value);
end;
-function PgSz.WriteXmlAttrW(_value);
+function PgSz.ReadXmlAttrW();
+begin
+ return ifnil({self.}XmlAttrW.Value) ? fallback_.XmlAttrW.Value : {self.}XmlAttrW.Value;
+end;
+
+function PgSz.WriteXmlAttrW(_value: any);
begin
if ifnil({self.}XmlAttrW) then
begin
{self.}XmlAttrW := new OpenXmlAttribute({self.}Prefix, "w", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrW;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "w" : "w"] := {self.}XmlAttrW;
end
{self.}XmlAttrW.Value := _value;
end;
function PgSz.ReadXmlAttrH();
begin
- return {self.}XmlAttrH.Value;
+ return ifnil({self.}XmlAttrH.Value) ? fallback_.XmlAttrH.Value : {self.}XmlAttrH.Value;
end;
-function PgSz.WriteXmlAttrH(_value);
+function PgSz.WriteXmlAttrH(_value: any);
begin
if ifnil({self.}XmlAttrH) then
begin
{self.}XmlAttrH := new OpenXmlAttribute({self.}Prefix, "h", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrH;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "h" : "h"] := {self.}XmlAttrH;
end
{self.}XmlAttrH.Value := _value;
end;
function PgSz.ReadXmlAttrOrient();
begin
- return {self.}XmlAttrOrient.Value;
+ return ifnil({self.}XmlAttrOrient.Value) ? fallback_.XmlAttrOrient.Value : {self.}XmlAttrOrient.Value;
end;
-function PgSz.WriteXmlAttrOrient(_value);
+function PgSz.WriteXmlAttrOrient(_value: any);
begin
if ifnil({self.}XmlAttrOrient) then
begin
{self.}XmlAttrOrient := new OpenXmlAttribute({self.}Prefix, "orient", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrOrient;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "orient" : "orient"] := {self.}XmlAttrOrient;
end
{self.}XmlAttrOrient.Value := _value;
end;
function PgSz.ReadXmlAttrCode();
begin
- return {self.}XmlAttrCode.Value;
+ return ifnil({self.}XmlAttrCode.Value) ? fallback_.XmlAttrCode.Value : {self.}XmlAttrCode.Value;
end;
-function PgSz.WriteXmlAttrCode(_value);
+function PgSz.WriteXmlAttrCode(_value: any);
begin
if ifnil({self.}XmlAttrCode) then
begin
{self.}XmlAttrCode := new OpenXmlAttribute({self.}Prefix, "code", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrCode;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "code" : "code"] := {self.}XmlAttrCode;
end
{self.}XmlAttrCode.Value := _value;
end;
@@ -12916,13 +18265,13 @@ end;
function PgMar.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function PgMar.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function PgMar.Init();override;
@@ -12965,107 +18314,125 @@ begin
tslassigning := tslassigning_backup;
end;
-function PgMar.ReadXmlAttrTop();
+function PgMar.ConvertToPoint();override;
begin
- return {self.}XmlAttrTop.Value;
+ if not ifnil({self.}XmlAttrTop) then
+ {self.}Top := TSSafeUnitConverter.TwipsToPoints({self.}XmlAttrTop.Value);
+ if not ifnil({self.}XmlAttrRight) then
+ {self.}Right := TSSafeUnitConverter.TwipsToPoints({self.}XmlAttrRight.Value);
+ if not ifnil({self.}XmlAttrBottom) then
+ {self.}Bottom := TSSafeUnitConverter.TwipsToPoints({self.}XmlAttrBottom.Value);
+ if not ifnil({self.}XmlAttrLeft) then
+ {self.}Left := TSSafeUnitConverter.TwipsToPoints({self.}XmlAttrLeft.Value);
+ if not ifnil({self.}XmlAttrHeader) then
+ {self.}Header := TSSafeUnitConverter.TwipsToPoints({self.}XmlAttrHeader.Value);
+ if not ifnil({self.}XmlAttrFooter) then
+ {self.}Footer := TSSafeUnitConverter.TwipsToPoints({self.}XmlAttrFooter.Value);
+ if not ifnil({self.}XmlAttrGutter) then
+ {self.}Gutter := TSSafeUnitConverter.TwipsToPoints({self.}XmlAttrGutter.Value);
end;
-function PgMar.WriteXmlAttrTop(_value);
+function PgMar.ReadXmlAttrTop();
+begin
+ return ifnil({self.}XmlAttrTop.Value) ? fallback_.XmlAttrTop.Value : {self.}XmlAttrTop.Value;
+end;
+
+function PgMar.WriteXmlAttrTop(_value: any);
begin
if ifnil({self.}XmlAttrTop) then
begin
{self.}XmlAttrTop := new OpenXmlAttribute({self.}Prefix, "top", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrTop;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "top" : "top"] := {self.}XmlAttrTop;
end
{self.}XmlAttrTop.Value := _value;
end;
function PgMar.ReadXmlAttrRight();
begin
- return {self.}XmlAttrRight.Value;
+ return ifnil({self.}XmlAttrRight.Value) ? fallback_.XmlAttrRight.Value : {self.}XmlAttrRight.Value;
end;
-function PgMar.WriteXmlAttrRight(_value);
+function PgMar.WriteXmlAttrRight(_value: any);
begin
if ifnil({self.}XmlAttrRight) then
begin
{self.}XmlAttrRight := new OpenXmlAttribute({self.}Prefix, "right", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrRight;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "right" : "right"] := {self.}XmlAttrRight;
end
{self.}XmlAttrRight.Value := _value;
end;
function PgMar.ReadXmlAttrBottom();
begin
- return {self.}XmlAttrBottom.Value;
+ return ifnil({self.}XmlAttrBottom.Value) ? fallback_.XmlAttrBottom.Value : {self.}XmlAttrBottom.Value;
end;
-function PgMar.WriteXmlAttrBottom(_value);
+function PgMar.WriteXmlAttrBottom(_value: any);
begin
if ifnil({self.}XmlAttrBottom) then
begin
{self.}XmlAttrBottom := new OpenXmlAttribute({self.}Prefix, "bottom", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrBottom;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "bottom" : "bottom"] := {self.}XmlAttrBottom;
end
{self.}XmlAttrBottom.Value := _value;
end;
function PgMar.ReadXmlAttrLeft();
begin
- return {self.}XmlAttrLeft.Value;
+ return ifnil({self.}XmlAttrLeft.Value) ? fallback_.XmlAttrLeft.Value : {self.}XmlAttrLeft.Value;
end;
-function PgMar.WriteXmlAttrLeft(_value);
+function PgMar.WriteXmlAttrLeft(_value: any);
begin
if ifnil({self.}XmlAttrLeft) then
begin
{self.}XmlAttrLeft := new OpenXmlAttribute({self.}Prefix, "left", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrLeft;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "left" : "left"] := {self.}XmlAttrLeft;
end
{self.}XmlAttrLeft.Value := _value;
end;
function PgMar.ReadXmlAttrHeader();
begin
- return {self.}XmlAttrHeader.Value;
+ return ifnil({self.}XmlAttrHeader.Value) ? fallback_.XmlAttrHeader.Value : {self.}XmlAttrHeader.Value;
end;
-function PgMar.WriteXmlAttrHeader(_value);
+function PgMar.WriteXmlAttrHeader(_value: any);
begin
if ifnil({self.}XmlAttrHeader) then
begin
{self.}XmlAttrHeader := new OpenXmlAttribute({self.}Prefix, "header", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrHeader;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "header" : "header"] := {self.}XmlAttrHeader;
end
{self.}XmlAttrHeader.Value := _value;
end;
function PgMar.ReadXmlAttrFooter();
begin
- return {self.}XmlAttrFooter.Value;
+ return ifnil({self.}XmlAttrFooter.Value) ? fallback_.XmlAttrFooter.Value : {self.}XmlAttrFooter.Value;
end;
-function PgMar.WriteXmlAttrFooter(_value);
+function PgMar.WriteXmlAttrFooter(_value: any);
begin
if ifnil({self.}XmlAttrFooter) then
begin
{self.}XmlAttrFooter := new OpenXmlAttribute({self.}Prefix, "footer", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrFooter;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "footer" : "footer"] := {self.}XmlAttrFooter;
end
{self.}XmlAttrFooter.Value := _value;
end;
function PgMar.ReadXmlAttrGutter();
begin
- return {self.}XmlAttrGutter.Value;
+ return ifnil({self.}XmlAttrGutter.Value) ? fallback_.XmlAttrGutter.Value : {self.}XmlAttrGutter.Value;
end;
-function PgMar.WriteXmlAttrGutter(_value);
+function PgMar.WriteXmlAttrGutter(_value: any);
begin
if ifnil({self.}XmlAttrGutter) then
begin
{self.}XmlAttrGutter := new OpenXmlAttribute({self.}Prefix, "gutter", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrGutter;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "gutter" : "gutter"] := {self.}XmlAttrGutter;
end
{self.}XmlAttrGutter.Value := _value;
end;
@@ -13077,13 +18444,13 @@ end;
function Cols.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Cols.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Cols.Init();override;
@@ -13115,58 +18482,88 @@ begin
tslassigning := tslassigning_backup;
end;
-function Cols.ReadXmlAttrNum();
+function Cols.ConvertToPoint();override;
begin
- return {self.}XmlAttrNum.Value;
+ if not ifnil({self.}XmlAttrNum) then
+ {self.}Num := TSSafeUnitConverter.ToInt({self.}XmlAttrNum.Value);
+ if not ifnil({self.}XmlAttrSpace) then
+ {self.}Space := TSSafeUnitConverter.TwipsToPoints({self.}XmlAttrSpace.Value);
+ elems := {self.}Cols();
+ for _,elem in elems do
+ elem.ConvertToPoint();
end;
-function Cols.WriteXmlAttrNum(_value);
+function Cols.ReadXmlAttrNum();
+begin
+ return ifnil({self.}XmlAttrNum.Value) ? fallback_.XmlAttrNum.Value : {self.}XmlAttrNum.Value;
+end;
+
+function Cols.WriteXmlAttrNum(_value: any);
begin
if ifnil({self.}XmlAttrNum) then
begin
{self.}XmlAttrNum := new OpenXmlAttribute({self.}Prefix, "num", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrNum;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "num" : "num"] := {self.}XmlAttrNum;
end
{self.}XmlAttrNum.Value := _value;
end;
function Cols.ReadXmlAttrSpace();
begin
- return {self.}XmlAttrSpace.Value;
+ return ifnil({self.}XmlAttrSpace.Value) ? fallback_.XmlAttrSpace.Value : {self.}XmlAttrSpace.Value;
end;
-function Cols.WriteXmlAttrSpace(_value);
+function Cols.WriteXmlAttrSpace(_value: any);
begin
if ifnil({self.}XmlAttrSpace) then
begin
{self.}XmlAttrSpace := new OpenXmlAttribute({self.}Prefix, "space", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrSpace;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "space" : "space"] := {self.}XmlAttrSpace;
end
{self.}XmlAttrSpace.Value := _value;
end;
function Cols.ReadXmlAttrEqualWidth();
begin
- return {self.}XmlAttrEqualWidth.Value;
+ return ifnil({self.}XmlAttrEqualWidth.Value) ? fallback_.XmlAttrEqualWidth.Value : {self.}XmlAttrEqualWidth.Value;
end;
-function Cols.WriteXmlAttrEqualWidth(_value);
+function Cols.WriteXmlAttrEqualWidth(_value: any);
begin
if ifnil({self.}XmlAttrEqualWidth) then
begin
{self.}XmlAttrEqualWidth := new OpenXmlAttribute({self.}Prefix, "equalWidth", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrEqualWidth;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "equalWidth" : "equalWidth"] := {self.}XmlAttrEqualWidth;
end
{self.}XmlAttrEqualWidth.Value := _value;
end;
-function Cols.ReadCols(_index);
+function Cols.ReadCols(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "col", ind);
end;
+function Cols.WriteCols(_index: integer; _value: nil_OR_Col);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadCols(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "col", ind, _value) then
+ raise format("Index out of range: Cols[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Cols expects nil or Col";
+ end
+end;
+
function Cols.AddCol(): Col;
begin
obj := new Col(self, {self.}Prefix, "col");
@@ -13188,13 +18585,13 @@ end;
function Col.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Col.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Col.Init();override;
@@ -13222,32 +18619,40 @@ begin
tslassigning := tslassigning_backup;
end;
-function Col.ReadXmlAttrW();
+function Col.ConvertToPoint();override;
begin
- return {self.}XmlAttrW.Value;
+ if not ifnil({self.}XmlAttrW) then
+ {self.}W := TSSafeUnitConverter.TwipsToPoints({self.}XmlAttrW.Value);
+ if not ifnil({self.}XmlAttrSpace) then
+ {self.}Space := TSSafeUnitConverter.TwipsToPoints({self.}XmlAttrSpace.Value);
end;
-function Col.WriteXmlAttrW(_value);
+function Col.ReadXmlAttrW();
+begin
+ return ifnil({self.}XmlAttrW.Value) ? fallback_.XmlAttrW.Value : {self.}XmlAttrW.Value;
+end;
+
+function Col.WriteXmlAttrW(_value: any);
begin
if ifnil({self.}XmlAttrW) then
begin
{self.}XmlAttrW := new OpenXmlAttribute({self.}Prefix, "w", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrW;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "w" : "w"] := {self.}XmlAttrW;
end
{self.}XmlAttrW.Value := _value;
end;
function Col.ReadXmlAttrSpace();
begin
- return {self.}XmlAttrSpace.Value;
+ return ifnil({self.}XmlAttrSpace.Value) ? fallback_.XmlAttrSpace.Value : {self.}XmlAttrSpace.Value;
end;
-function Col.WriteXmlAttrSpace(_value);
+function Col.WriteXmlAttrSpace(_value: any);
begin
if ifnil({self.}XmlAttrSpace) then
begin
{self.}XmlAttrSpace := new OpenXmlAttribute({self.}Prefix, "space", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrSpace;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "space" : "space"] := {self.}XmlAttrSpace;
end
{self.}XmlAttrSpace.Value := _value;
end;
@@ -13259,13 +18664,13 @@ end;
function DocGrid.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function DocGrid.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function DocGrid.Init();override;
@@ -13293,32 +18698,38 @@ begin
tslassigning := tslassigning_backup;
end;
-function DocGrid.ReadXmlAttrType();
+function DocGrid.ConvertToPoint();override;
begin
- return {self.}XmlAttrType.Value;
+ if not ifnil({self.}XmlAttrLinePitch) then
+ {self.}LinePitch := TSSafeUnitConverter.TwipsToPoints({self.}XmlAttrLinePitch.Value);
end;
-function DocGrid.WriteXmlAttrType(_value);
+function DocGrid.ReadXmlAttrType();
+begin
+ return ifnil({self.}XmlAttrType.Value) ? fallback_.XmlAttrType.Value : {self.}XmlAttrType.Value;
+end;
+
+function DocGrid.WriteXmlAttrType(_value: any);
begin
if ifnil({self.}XmlAttrType) then
begin
{self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrType;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "type" : "type"] := {self.}XmlAttrType;
end
{self.}XmlAttrType.Value := _value;
end;
function DocGrid.ReadXmlAttrLinePitch();
begin
- return {self.}XmlAttrLinePitch.Value;
+ return ifnil({self.}XmlAttrLinePitch.Value) ? fallback_.XmlAttrLinePitch.Value : {self.}XmlAttrLinePitch.Value;
end;
-function DocGrid.WriteXmlAttrLinePitch(_value);
+function DocGrid.WriteXmlAttrLinePitch(_value: any);
begin
if ifnil({self.}XmlAttrLinePitch) then
begin
{self.}XmlAttrLinePitch := new OpenXmlAttribute({self.}Prefix, "linePitch", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrLinePitch;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "linePitch" : "linePitch"] := {self.}XmlAttrLinePitch;
end
{self.}XmlAttrLinePitch.Value := _value;
end;
@@ -13330,13 +18741,13 @@ end;
function Endnotes.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Endnotes.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Endnotes.Init();override;
@@ -13362,28 +18773,54 @@ begin
tslassigning := tslassigning_backup;
end;
-function Endnotes.ReadXmlAttrIgnorable();
+function Endnotes.ConvertToPoint();override;
begin
- return {self.}XmlAttrIgnorable.Value;
+ elems := {self.}Endnotes();
+ for _,elem in elems do
+ elem.ConvertToPoint();
end;
-function Endnotes.WriteXmlAttrIgnorable(_value);
+function Endnotes.ReadXmlAttrIgnorable();
+begin
+ return ifnil({self.}XmlAttrIgnorable.Value) ? fallback_.XmlAttrIgnorable.Value : {self.}XmlAttrIgnorable.Value;
+end;
+
+function Endnotes.WriteXmlAttrIgnorable(_value: any);
begin
if ifnil({self.}XmlAttrIgnorable) then
begin
{self.}XmlAttrIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrIgnorable;
+ attributes_["mc:Ignorable"] := {self.}XmlAttrIgnorable;
end
{self.}XmlAttrIgnorable.Value := _value;
end;
-function Endnotes.ReadEndnotes(_index);
+function Endnotes.ReadEndnotes(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "endnote", ind);
end;
+function Endnotes.WriteEndnotes(_index: integer; _value: nil_OR_Endnote);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadEndnotes(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "endnote", ind, _value) then
+ raise format("Index out of range: Endnotes[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Endnotes expects nil or Endnote";
+ end
+end;
+
function Endnotes.AddEndnote(): Endnote;
begin
obj := new Endnote(self, {self.}Prefix, "endnote");
@@ -13405,13 +18842,13 @@ end;
function Endnote.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Endnote.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Endnote.Init();override;
@@ -13440,43 +18877,69 @@ begin
tslassigning := tslassigning_backup;
end;
-function Endnote.ReadXmlAttrType();
+function Endnote.ConvertToPoint();override;
begin
- return {self.}XmlAttrType.Value;
+ elems := {self.}Ps();
+ for _,elem in elems do
+ elem.ConvertToPoint();
end;
-function Endnote.WriteXmlAttrType(_value);
+function Endnote.ReadXmlAttrType();
+begin
+ return ifnil({self.}XmlAttrType.Value) ? fallback_.XmlAttrType.Value : {self.}XmlAttrType.Value;
+end;
+
+function Endnote.WriteXmlAttrType(_value: any);
begin
if ifnil({self.}XmlAttrType) then
begin
{self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrType;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "type" : "type"] := {self.}XmlAttrType;
end
{self.}XmlAttrType.Value := _value;
end;
function Endnote.ReadXmlAttrId();
begin
- return {self.}XmlAttrId.Value;
+ return ifnil({self.}XmlAttrId.Value) ? fallback_.XmlAttrId.Value : {self.}XmlAttrId.Value;
end;
-function Endnote.WriteXmlAttrId(_value);
+function Endnote.WriteXmlAttrId(_value: any);
begin
if ifnil({self.}XmlAttrId) then
begin
{self.}XmlAttrId := new OpenXmlAttribute({self.}Prefix, "id", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrId;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "id" : "id"] := {self.}XmlAttrId;
end
{self.}XmlAttrId.Value := _value;
end;
-function Endnote.ReadPs(_index);
+function Endnote.ReadPs(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "p", ind);
end;
+function Endnote.WritePs(_index: integer; _value: nil_OR_P);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadPs(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "p", ind, _value) then
+ raise format("Index out of range: Ps[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Ps expects nil or P";
+ end
+end;
+
function Endnote.AddP(): P;
begin
obj := new P(self, {self.}Prefix, "p");
@@ -13498,13 +18961,13 @@ end;
function Footnotes.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Footnotes.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Footnotes.Init();override;
@@ -13530,28 +18993,54 @@ begin
tslassigning := tslassigning_backup;
end;
-function Footnotes.ReadXmlAttrIgnorable();
+function Footnotes.ConvertToPoint();override;
begin
- return {self.}XmlAttrIgnorable.Value;
+ elems := {self.}Footnotes();
+ for _,elem in elems do
+ elem.ConvertToPoint();
end;
-function Footnotes.WriteXmlAttrIgnorable(_value);
+function Footnotes.ReadXmlAttrIgnorable();
+begin
+ return ifnil({self.}XmlAttrIgnorable.Value) ? fallback_.XmlAttrIgnorable.Value : {self.}XmlAttrIgnorable.Value;
+end;
+
+function Footnotes.WriteXmlAttrIgnorable(_value: any);
begin
if ifnil({self.}XmlAttrIgnorable) then
begin
{self.}XmlAttrIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrIgnorable;
+ attributes_["mc:Ignorable"] := {self.}XmlAttrIgnorable;
end
{self.}XmlAttrIgnorable.Value := _value;
end;
-function Footnotes.ReadFootnotes(_index);
+function Footnotes.ReadFootnotes(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "footnote", ind);
end;
+function Footnotes.WriteFootnotes(_index: integer; _value: nil_OR_Footnote);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadFootnotes(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "footnote", ind, _value) then
+ raise format("Index out of range: Footnotes[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Footnotes expects nil or Footnote";
+ end
+end;
+
function Footnotes.AddFootnote(): Footnote;
begin
obj := new Footnote(self, {self.}Prefix, "footnote");
@@ -13573,13 +19062,13 @@ end;
function Footnote.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Footnote.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Footnote.Init();override;
@@ -13608,43 +19097,69 @@ begin
tslassigning := tslassigning_backup;
end;
-function Footnote.ReadXmlAttrType();
+function Footnote.ConvertToPoint();override;
begin
- return {self.}XmlAttrType.Value;
+ elems := {self.}Ps();
+ for _,elem in elems do
+ elem.ConvertToPoint();
end;
-function Footnote.WriteXmlAttrType(_value);
+function Footnote.ReadXmlAttrType();
+begin
+ return ifnil({self.}XmlAttrType.Value) ? fallback_.XmlAttrType.Value : {self.}XmlAttrType.Value;
+end;
+
+function Footnote.WriteXmlAttrType(_value: any);
begin
if ifnil({self.}XmlAttrType) then
begin
{self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrType;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "type" : "type"] := {self.}XmlAttrType;
end
{self.}XmlAttrType.Value := _value;
end;
function Footnote.ReadXmlAttrId();
begin
- return {self.}XmlAttrId.Value;
+ return ifnil({self.}XmlAttrId.Value) ? fallback_.XmlAttrId.Value : {self.}XmlAttrId.Value;
end;
-function Footnote.WriteXmlAttrId(_value);
+function Footnote.WriteXmlAttrId(_value: any);
begin
if ifnil({self.}XmlAttrId) then
begin
{self.}XmlAttrId := new OpenXmlAttribute({self.}Prefix, "id", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrId;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "id" : "id"] := {self.}XmlAttrId;
end
{self.}XmlAttrId.Value := _value;
end;
-function Footnote.ReadPs(_index);
+function Footnote.ReadPs(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "p", ind);
end;
+function Footnote.WritePs(_index: integer; _value: nil_OR_P);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadPs(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "p", ind, _value) then
+ raise format("Index out of range: Ps[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Ps expects nil or P";
+ end
+end;
+
function Footnote.AddP(): P;
begin
obj := new P(self, {self.}Prefix, "p");
@@ -13666,13 +19181,13 @@ end;
function Fonts.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Fonts.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Fonts.Init();override;
@@ -13698,28 +19213,54 @@ begin
tslassigning := tslassigning_backup;
end;
-function Fonts.ReadXmlAttrIgnorable();
+function Fonts.ConvertToPoint();override;
begin
- return {self.}XmlAttrIgnorable.Value;
+ elems := {self.}Fonts();
+ for _,elem in elems do
+ elem.ConvertToPoint();
end;
-function Fonts.WriteXmlAttrIgnorable(_value);
+function Fonts.ReadXmlAttrIgnorable();
+begin
+ return ifnil({self.}XmlAttrIgnorable.Value) ? fallback_.XmlAttrIgnorable.Value : {self.}XmlAttrIgnorable.Value;
+end;
+
+function Fonts.WriteXmlAttrIgnorable(_value: any);
begin
if ifnil({self.}XmlAttrIgnorable) then
begin
{self.}XmlAttrIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrIgnorable;
+ attributes_["mc:Ignorable"] := {self.}XmlAttrIgnorable;
end
{self.}XmlAttrIgnorable.Value := _value;
end;
-function Fonts.ReadFonts(_index);
+function Fonts.ReadFonts(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "font", ind);
end;
+function Fonts.WriteFonts(_index: integer; _value: nil_OR_Font);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadFonts(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "font", ind, _value) then
+ raise format("Index out of range: Fonts[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Fonts expects nil or Font";
+ end
+end;
+
function Fonts.AddFont(): Font;
begin
obj := new Font(self, {self.}Prefix, "font");
@@ -13741,13 +19282,13 @@ end;
function Font.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Font.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Font.Init();override;
@@ -13790,17 +19331,33 @@ begin
tslassigning := tslassigning_backup;
end;
-function Font.ReadXmlAttrName();
+function Font.ConvertToPoint();override;
begin
- return {self.}XmlAttrName.Value;
+ if not ifnil({self.}XmlChildAltName) then
+ {self.}XmlChildAltName.ConvertToPoint();
+ if not ifnil({self.}XmlChildPanosel) then
+ {self.}XmlChildPanosel.ConvertToPoint();
+ if not ifnil({self.}XmlChildCharset) then
+ {self.}XmlChildCharset.ConvertToPoint();
+ if not ifnil({self.}XmlChildFamily) then
+ {self.}XmlChildFamily.ConvertToPoint();
+ if not ifnil({self.}XmlChildPitch) then
+ {self.}XmlChildPitch.ConvertToPoint();
+ if not ifnil({self.}XmlChildSig) then
+ {self.}XmlChildSig.ConvertToPoint();
end;
-function Font.WriteXmlAttrName(_value);
+function Font.ReadXmlAttrName();
+begin
+ return ifnil({self.}XmlAttrName.Value) ? fallback_.XmlAttrName.Value : {self.}XmlAttrName.Value;
+end;
+
+function Font.WriteXmlAttrName(_value: any);
begin
if ifnil({self.}XmlAttrName) then
begin
{self.}XmlAttrName := new OpenXmlAttribute({self.}Prefix, "name", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrName;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "name" : "name"] := {self.}XmlAttrName;
end
{self.}XmlAttrName.Value := _value;
end;
@@ -13812,7 +19369,25 @@ begin
{self.}XmlChildAltName := new PureWVal(self, {self.}Prefix, "altName");
container_.Set({self.}XmlChildAltName);
end
- return {self.}XmlChildAltName;
+ return {self.}XmlChildAltName and not {self.}XmlChildAltName.Removed ? {self.}XmlChildAltName : fallback_.XmlChildAltName;
+end;
+
+function Font.WriteXmlChildAltName(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildAltName) then
+ {self.}RemoveChild({self.}XmlChildAltName);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildAltName := v;
+ container_.Set({self.}XmlChildAltName);
+ end
+ else begin
+ raise "Invalid assignment: AltName expects PureWVal or nil";
+ end
end;
function Font.ReadXmlChildPanosel(): PureWVal;
@@ -13822,7 +19397,25 @@ begin
{self.}XmlChildPanosel := new PureWVal(self, {self.}Prefix, "panosel");
container_.Set({self.}XmlChildPanosel);
end
- return {self.}XmlChildPanosel;
+ return {self.}XmlChildPanosel and not {self.}XmlChildPanosel.Removed ? {self.}XmlChildPanosel : fallback_.XmlChildPanosel;
+end;
+
+function Font.WriteXmlChildPanosel(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildPanosel) then
+ {self.}RemoveChild({self.}XmlChildPanosel);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildPanosel := v;
+ container_.Set({self.}XmlChildPanosel);
+ end
+ else begin
+ raise "Invalid assignment: Panosel expects PureWVal or nil";
+ end
end;
function Font.ReadXmlChildCharset(): PureWVal;
@@ -13832,7 +19425,25 @@ begin
{self.}XmlChildCharset := new PureWVal(self, {self.}Prefix, "charset");
container_.Set({self.}XmlChildCharset);
end
- return {self.}XmlChildCharset;
+ return {self.}XmlChildCharset and not {self.}XmlChildCharset.Removed ? {self.}XmlChildCharset : fallback_.XmlChildCharset;
+end;
+
+function Font.WriteXmlChildCharset(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildCharset) then
+ {self.}RemoveChild({self.}XmlChildCharset);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildCharset := v;
+ container_.Set({self.}XmlChildCharset);
+ end
+ else begin
+ raise "Invalid assignment: Charset expects PureWVal or nil";
+ end
end;
function Font.ReadXmlChildFamily(): PureWVal;
@@ -13842,7 +19453,25 @@ begin
{self.}XmlChildFamily := new PureWVal(self, {self.}Prefix, "family");
container_.Set({self.}XmlChildFamily);
end
- return {self.}XmlChildFamily;
+ return {self.}XmlChildFamily and not {self.}XmlChildFamily.Removed ? {self.}XmlChildFamily : fallback_.XmlChildFamily;
+end;
+
+function Font.WriteXmlChildFamily(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildFamily) then
+ {self.}RemoveChild({self.}XmlChildFamily);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildFamily := v;
+ container_.Set({self.}XmlChildFamily);
+ end
+ else begin
+ raise "Invalid assignment: Family expects PureWVal or nil";
+ end
end;
function Font.ReadXmlChildPitch(): PureWVal;
@@ -13852,7 +19481,25 @@ begin
{self.}XmlChildPitch := new PureWVal(self, {self.}Prefix, "pitch");
container_.Set({self.}XmlChildPitch);
end
- return {self.}XmlChildPitch;
+ return {self.}XmlChildPitch and not {self.}XmlChildPitch.Removed ? {self.}XmlChildPitch : fallback_.XmlChildPitch;
+end;
+
+function Font.WriteXmlChildPitch(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildPitch) then
+ {self.}RemoveChild({self.}XmlChildPitch);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildPitch := v;
+ container_.Set({self.}XmlChildPitch);
+ end
+ else begin
+ raise "Invalid assignment: Pitch expects PureWVal or nil";
+ end
end;
function Font.ReadXmlChildSig(): Sig;
@@ -13862,7 +19509,25 @@ begin
{self.}XmlChildSig := new Sig(self, {self.}Prefix, "sig");
container_.Set({self.}XmlChildSig);
end
- return {self.}XmlChildSig;
+ return {self.}XmlChildSig and not {self.}XmlChildSig.Removed ? {self.}XmlChildSig : fallback_.XmlChildSig;
+end;
+
+function Font.WriteXmlChildSig(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildSig) then
+ {self.}RemoveChild({self.}XmlChildSig);
+ end
+ else if v is class(Sig) then
+ begin
+ {self.}XmlChildSig := v;
+ container_.Set({self.}XmlChildSig);
+ end
+ else begin
+ raise "Invalid assignment: Sig expects Sig or nil";
+ end
end;
function Sig.Create();overload;
@@ -13872,13 +19537,13 @@ end;
function Sig.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Sig.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Sig.Init();override;
@@ -13890,8 +19555,8 @@ begin
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)),
+ pre + "csb0": makeweakref(thisFunction(WriteXmlAttrCsb0)),
+ pre + "csb1": makeweakref(thisFunction(WriteXmlAttrCsb1)),
);
sorted_child_ := array(
);
@@ -13911,101 +19576,106 @@ begin
{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;
+ 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.ConvertToPoint();override;
+begin
+
+end;
+
function Sig.ReadXmlAttrUsb0();
begin
- return {self.}XmlAttrUsb0.Value;
+ return ifnil({self.}XmlAttrUsb0.Value) ? fallback_.XmlAttrUsb0.Value : {self.}XmlAttrUsb0.Value;
end;
-function Sig.WriteXmlAttrUsb0(_value);
+function Sig.WriteXmlAttrUsb0(_value: any);
begin
if ifnil({self.}XmlAttrUsb0) then
begin
{self.}XmlAttrUsb0 := new OpenXmlAttribute({self.}Prefix, "usb0", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrUsb0;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "usb0" : "usb0"] := {self.}XmlAttrUsb0;
end
{self.}XmlAttrUsb0.Value := _value;
end;
function Sig.ReadXmlAttrUsb1();
begin
- return {self.}XmlAttrUsb1.Value;
+ return ifnil({self.}XmlAttrUsb1.Value) ? fallback_.XmlAttrUsb1.Value : {self.}XmlAttrUsb1.Value;
end;
-function Sig.WriteXmlAttrUsb1(_value);
+function Sig.WriteXmlAttrUsb1(_value: any);
begin
if ifnil({self.}XmlAttrUsb1) then
begin
{self.}XmlAttrUsb1 := new OpenXmlAttribute({self.}Prefix, "usb1", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrUsb1;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "usb1" : "usb1"] := {self.}XmlAttrUsb1;
end
{self.}XmlAttrUsb1.Value := _value;
end;
function Sig.ReadXmlAttrUsb2();
begin
- return {self.}XmlAttrUsb2.Value;
+ return ifnil({self.}XmlAttrUsb2.Value) ? fallback_.XmlAttrUsb2.Value : {self.}XmlAttrUsb2.Value;
end;
-function Sig.WriteXmlAttrUsb2(_value);
+function Sig.WriteXmlAttrUsb2(_value: any);
begin
if ifnil({self.}XmlAttrUsb2) then
begin
{self.}XmlAttrUsb2 := new OpenXmlAttribute({self.}Prefix, "usb2", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrUsb2;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "usb2" : "usb2"] := {self.}XmlAttrUsb2;
end
{self.}XmlAttrUsb2.Value := _value;
end;
function Sig.ReadXmlAttrUsb3();
begin
- return {self.}XmlAttrUsb3.Value;
+ return ifnil({self.}XmlAttrUsb3.Value) ? fallback_.XmlAttrUsb3.Value : {self.}XmlAttrUsb3.Value;
end;
-function Sig.WriteXmlAttrUsb3(_value);
+function Sig.WriteXmlAttrUsb3(_value: any);
begin
if ifnil({self.}XmlAttrUsb3) then
begin
{self.}XmlAttrUsb3 := new OpenXmlAttribute({self.}Prefix, "usb3", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrUsb3;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "usb3" : "usb3"] := {self.}XmlAttrUsb3;
end
{self.}XmlAttrUsb3.Value := _value;
end;
-function Sig.ReadXmlAttrcsb0();
+function Sig.ReadXmlAttrCsb0();
begin
- return {self.}XmlAttrcsb0.Value;
+ return ifnil({self.}XmlAttrCsb0.Value) ? fallback_.XmlAttrCsb0.Value : {self.}XmlAttrCsb0.Value;
end;
-function Sig.WriteXmlAttrcsb0(_value);
+function Sig.WriteXmlAttrCsb0(_value: any);
begin
- if ifnil({self.}XmlAttrcsb0) then
+ if ifnil({self.}XmlAttrCsb0) then
begin
- {self.}XmlAttrcsb0 := new OpenXmlAttribute({self.}Prefix, "csb0", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrcsb0;
+ {self.}XmlAttrCsb0 := new OpenXmlAttribute({self.}Prefix, "csb0", nil);
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "csb0" : "csb0"] := {self.}XmlAttrCsb0;
end
- {self.}XmlAttrcsb0.Value := _value;
+ {self.}XmlAttrCsb0.Value := _value;
end;
-function Sig.ReadXmlAttrcsb1();
+function Sig.ReadXmlAttrCsb1();
begin
- return {self.}XmlAttrcsb1.Value;
+ return ifnil({self.}XmlAttrCsb1.Value) ? fallback_.XmlAttrCsb1.Value : {self.}XmlAttrCsb1.Value;
end;
-function Sig.WriteXmlAttrcsb1(_value);
+function Sig.WriteXmlAttrCsb1(_value: any);
begin
- if ifnil({self.}XmlAttrcsb1) then
+ if ifnil({self.}XmlAttrCsb1) then
begin
- {self.}XmlAttrcsb1 := new OpenXmlAttribute({self.}Prefix, "csb1", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrcsb1;
+ {self.}XmlAttrCsb1 := new OpenXmlAttribute({self.}Prefix, "csb1", nil);
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "csb1" : "csb1"] := {self.}XmlAttrCsb1;
end
- {self.}XmlAttrcsb1.Value := _value;
+ {self.}XmlAttrCsb1.Value := _value;
end;
function Settings.Create();overload;
@@ -14015,13 +19685,13 @@ end;
function Settings.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Settings.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Settings.Init();override;
@@ -14029,34 +19699,20 @@ begin
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
attributes_ := array();
attributes_pf_ := array(
- "mc:Ignorable": makeweakref(thisFunction(WriteXmlAttrIgnorable)),
+ "mc:Ignorable": makeweakref(thisFunction(WriteXmlAttrMCIgnorable)),
+ "Ignorable": makeweakref(thisFunction(WriteXmlAttrIgnorableN)),
+ pre + "Ignorable": makeweakref(thisFunction(WriteXmlAttrIgnorable)),
+ "mc:pr": makeweakref(thisFunction(WriteXmlAttrMCPr)),
+ pre + "pr": makeweakref(thisFunction(WriteXmlAttrPr)),
+ "x:sig": makeweakref(thisFunction(WriteXmlAttrXSig)),
+ "mc:sig": makeweakref(thisFunction(WriteXmlAttrMCSig)),
+ "sig": makeweakref(thisFunction(WriteXmlAttrSigN)),
);
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))),
+ pre + "docId": array(0, makeweakref(thisFunction(ReadXmlChildDocId))),
+ "w14:docId": array(1, makeweakref(thisFunction(ReadXmlChildW14DocId))),
+ "w15:docId": array(2, makeweakref(thisFunction(ReadXmlChildW15DocId))),
+ "w15:chartTrackingRefBased": array(3, makeweakref(thisFunction(ReadXmlChildChartTrackingRefBased))),
);
container_ := new TSOfficeContainer(sorted_child_);
end;
@@ -14066,50 +19722,22 @@ begin
tslassigning_backup := tslassigning;
tslassigning := 1;
class(OpenXmlCompositeElement).Copy(_obj);
+ if not ifnil(_obj.MCIgnorable) then
+ {self.}MCIgnorable := _obj.MCIgnorable;
+ if not ifnil(_obj.IgnorableN) then
+ {self.}IgnorableN := _obj.IgnorableN;
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.MCPr) then
+ {self.}MCPr := _obj.MCPr;
+ if not ifnil(_obj.Pr) then
+ {self.}Pr := _obj.Pr;
+ if not ifnil(_obj.XSig) then
+ {self.}XSig := _obj.XSig;
+ if not ifnil(_obj.MCSig) then
+ {self.}MCSig := _obj.MCSig;
+ if not ifnil(_obj.SigN) then
+ {self.}SigN := _obj.SigN;
if not ifnil(_obj.XmlChildDocId) then
{self.}DocId.Copy(_obj.XmlChildDocId);
if not ifnil(_obj.XmlChildW14DocId) then
@@ -14121,59 +19749,152 @@ begin
tslassigning := tslassigning_backup;
end;
-function Settings.ReadXmlAttrIgnorable();
+function Settings.ConvertToPoint();override;
begin
- return {self.}XmlAttrIgnorable.Value;
+ if not ifnil({self.}XmlChildDocId) then
+ {self.}XmlChildDocId.ConvertToPoint();
+ if not ifnil({self.}XmlChildW14DocId) then
+ {self.}XmlChildW14DocId.ConvertToPoint();
+ if not ifnil({self.}XmlChildW15DocId) then
+ {self.}XmlChildW15DocId.ConvertToPoint();
end;
-function Settings.WriteXmlAttrIgnorable(_value);
+function Settings.ReadXmlAttrMCIgnorable();
begin
+ return ifnil({self.}XmlAttrMCIgnorable.Value) ? fallback_.XmlAttrMCIgnorable.Value : {self.}XmlAttrMCIgnorable.Value;
+end;
+
+function Settings.WriteXmlAttrMCIgnorable(_value: any);
+begin
+ if ifnil({self.}XmlAttrMCIgnorable) then
+ begin
+ {self.}XmlAttrMCIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil);
+ attributes_["mc:Ignorable"] := {self.}XmlAttrMCIgnorable;
+ end
+ {self.}XmlAttrMCIgnorable.Value := _value;
+end;
+
+function Settings.ReadXmlAttrIgnorableN();
+begin
+ return ifnil({self.}XmlAttrIgnorableN.Value) ? fallback_.XmlAttrIgnorableN.Value : {self.}XmlAttrIgnorableN.Value;
+end;
+
+function Settings.WriteXmlAttrIgnorableN(_value: any);
+begin
+ if ifnil({self.}XmlAttrIgnorableN) then
+ begin
+ {self.}XmlAttrIgnorableN := new OpenXmlAttribute("", "Ignorable", nil);
+ attributes_["Ignorable"] := {self.}XmlAttrIgnorableN;
+ end
+ {self.}XmlAttrIgnorableN.Value := _value;
+end;
+
+function Settings.ReadXmlAttrIgnorable(_ns: string);
+begin
+ if _ns = "mc" then
+ return {self.}ReadXmlAttrMCIgnorable();
+ if _ns = "" then
+ return {self.}ReadXmlAttrIgnorableN();
+ return ifnil({self.}XmlAttrIgnorable.Value) ? fallback_.XmlAttrIgnorable.Value : {self.}XmlAttrIgnorable.Value;
+end;
+
+function Settings.WriteXmlAttrIgnorable(_p1: any; _p2: any);
+begin
+ if realparamcount = 2 then
+ begin
+ if _p1 = "mc" then
+ return {self.}WriteXmlAttrMCIgnorable(_p2);
+ if _p1 = "" then
+ return {self.}WriteXmlAttrIgnorableN(_p2);
+ end
if ifnil({self.}XmlAttrIgnorable) then
begin
- {self.}XmlAttrIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrIgnorable;
+ {self.}XmlAttrIgnorable := new OpenXmlAttribute({self.}Prefix, "Ignorable", nil);
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "Ignorable" : "Ignorable"] := {self.}XmlAttrIgnorable;
end
- {self.}XmlAttrIgnorable.Value := _value;
+ {self.}XmlAttrIgnorable.Value := realparamcount = 1 ? _p1 : _p2;
end;
-function Settings.ReadXmlChildBordersDoNotSurroundHeader();
+function Settings.ReadXmlAttrMCPr();
begin
- if tslassigning and (ifnil({self.}XmlChildBordersDoNotSurroundHeader) or {self.}XmlChildBordersDoNotSurroundHeader.Removed) then
- begin
- {self.}XmlChildBordersDoNotSurroundHeader := new OpenXmlSimpleType(self, {self.}Prefix, "bordersDoNotSurroundHeader");
- container_.Set({self.}XmlChildBordersDoNotSurroundHeader);
- end
- return {self.}XmlChildBordersDoNotSurroundHeader;
+ return ifnil({self.}XmlAttrMCPr.Value) ? fallback_.XmlAttrMCPr.Value : {self.}XmlAttrMCPr.Value;
end;
-function Settings.ReadXmlChildBordersDoNotSurroundFooter();
+function Settings.WriteXmlAttrMCPr(_value: any);
begin
- if tslassigning and (ifnil({self.}XmlChildBordersDoNotSurroundFooter) or {self.}XmlChildBordersDoNotSurroundFooter.Removed) then
+ if ifnil({self.}XmlAttrMCPr) then
begin
- {self.}XmlChildBordersDoNotSurroundFooter := new OpenXmlSimpleType(self, {self.}Prefix, "bordersDoNotSurroundFooter");
- container_.Set({self.}XmlChildBordersDoNotSurroundFooter);
+ {self.}XmlAttrMCPr := new OpenXmlAttribute("mc", "pr", nil);
+ attributes_["mc:pr"] := {self.}XmlAttrMCPr;
end
- return {self.}XmlChildBordersDoNotSurroundFooter;
+ {self.}XmlAttrMCPr.Value := _value;
end;
-function Settings.ReadXmlChildEvenAndOddHeaders();
+function Settings.ReadXmlAttrPr(_ns: string);
begin
- if tslassigning and (ifnil({self.}XmlChildEvenAndOddHeaders) or {self.}XmlChildEvenAndOddHeaders.Removed) then
- begin
- {self.}XmlChildEvenAndOddHeaders := new OpenXmlSimpleType(self, {self.}Prefix, "evenAndOddHeaders");
- container_.Set({self.}XmlChildEvenAndOddHeaders);
- end
- return {self.}XmlChildEvenAndOddHeaders;
+ if _ns = "mc" then
+ return {self.}ReadXmlAttrMCPr();
+ return ifnil({self.}XmlAttrPr.Value) ? fallback_.XmlAttrPr.Value : {self.}XmlAttrPr.Value;
end;
-function Settings.ReadXmlChildDoNotIncludeSubdocsInStats();
+function Settings.WriteXmlAttrPr(_p1: any; _p2: any);
begin
- if tslassigning and (ifnil({self.}XmlChildDoNotIncludeSubdocsInStats) or {self.}XmlChildDoNotIncludeSubdocsInStats.Removed) then
+ if realparamcount = 2 then
begin
- {self.}XmlChildDoNotIncludeSubdocsInStats := new OpenXmlSimpleType(self, {self.}Prefix, "doNotIncludeSubdocsInStats");
- container_.Set({self.}XmlChildDoNotIncludeSubdocsInStats);
+ if _p1 = "mc" then
+ return {self.}WriteXmlAttrMCPr(_p2);
end
- return {self.}XmlChildDoNotIncludeSubdocsInStats;
+ if ifnil({self.}XmlAttrPr) then
+ begin
+ {self.}XmlAttrPr := new OpenXmlAttribute({self.}Prefix, "pr", nil);
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "pr" : "pr"] := {self.}XmlAttrPr;
+ end
+ {self.}XmlAttrPr.Value := realparamcount = 1 ? _p1 : _p2;
+end;
+
+function Settings.ReadXmlAttrXSig();
+begin
+ return ifnil({self.}XmlAttrXSig.Value) ? fallback_.XmlAttrXSig.Value : {self.}XmlAttrXSig.Value;
+end;
+
+function Settings.WriteXmlAttrXSig(_value: any);
+begin
+ if ifnil({self.}XmlAttrXSig) then
+ begin
+ {self.}XmlAttrXSig := new OpenXmlAttribute("x", "sig", nil);
+ attributes_["x:sig"] := {self.}XmlAttrXSig;
+ end
+ {self.}XmlAttrXSig.Value := _value;
+end;
+
+function Settings.ReadXmlAttrMCSig();
+begin
+ return ifnil({self.}XmlAttrMCSig.Value) ? fallback_.XmlAttrMCSig.Value : {self.}XmlAttrMCSig.Value;
+end;
+
+function Settings.WriteXmlAttrMCSig(_value: any);
+begin
+ if ifnil({self.}XmlAttrMCSig) then
+ begin
+ {self.}XmlAttrMCSig := new OpenXmlAttribute("mc", "sig", nil);
+ attributes_["mc:sig"] := {self.}XmlAttrMCSig;
+ end
+ {self.}XmlAttrMCSig.Value := _value;
+end;
+
+function Settings.ReadXmlAttrSigN();
+begin
+ return ifnil({self.}XmlAttrSigN.Value) ? fallback_.XmlAttrSigN.Value : {self.}XmlAttrSigN.Value;
+end;
+
+function Settings.WriteXmlAttrSigN(_value: any);
+begin
+ if ifnil({self.}XmlAttrSigN) then
+ begin
+ {self.}XmlAttrSigN := new OpenXmlAttribute("", "sig", nil);
+ attributes_["sig"] := {self.}XmlAttrSigN;
+ end
+ {self.}XmlAttrSigN.Value := _value;
end;
function Settings.ReadXmlChildChartTrackingRefBased();
@@ -14183,191 +19904,63 @@ begin
{self.}XmlChildChartTrackingRefBased := new OpenXmlSimpleType(self, "w15", "chartTrackingRefBased");
container_.Set({self.}XmlChildChartTrackingRefBased);
end
- return {self.}XmlChildChartTrackingRefBased;
+ return {self.}XmlChildChartTrackingRefBased and not {self.}XmlChildChartTrackingRefBased.Removed ? {self.}XmlChildChartTrackingRefBased : fallback_.XmlChildChartTrackingRefBased;
end;
-function Settings.ReadXmlChildZoom(): Zoom;
+function Settings.WriteXmlChildChartTrackingRefBased(_value: nil_or_OpenXmlSimpleType);
begin
- if tslassigning and (ifnil({self.}XmlChildZoom) or {self.}XmlChildZoom.Removed) then
+ if ifnil(_value) then
begin
- {self.}XmlChildZoom := new Zoom(self, {self.}Prefix, "zoom");
- container_.Set({self.}XmlChildZoom);
+ if ifObj({self.}XmlChildChartTrackingRefBased) then
+ {self.}RemoveChild({self.}XmlChildChartTrackingRefBased);
end
- return {self.}XmlChildZoom;
-end;
-
-function Settings.ReadXmlChildDefaultTabStop(): PureWVal;
-begin
- if tslassigning and (ifnil({self.}XmlChildDefaultTabStop) or {self.}XmlChildDefaultTabStop.Removed) then
+ else if _value is class(OpenXmlSimpleType) then
begin
- {self.}XmlChildDefaultTabStop := new PureWVal(self, {self.}Prefix, "defaultTabStop");
- container_.Set({self.}XmlChildDefaultTabStop);
+ {self.}XmlChildChartTrackingRefBased := _value;
+ container_.Set({self.}XmlChildChartTrackingRefBased);
end
- return {self.}XmlChildDefaultTabStop;
-end;
-
-function Settings.ReadXmlChildDrawingGridVerticalSpacing(): PureWVal;
-begin
- if tslassigning and (ifnil({self.}XmlChildDrawingGridVerticalSpacing) or {self.}XmlChildDrawingGridVerticalSpacing.Removed) then
- begin
- {self.}XmlChildDrawingGridVerticalSpacing := new PureWVal(self, {self.}Prefix, "drawingGridVerticalSpacing");
- container_.Set({self.}XmlChildDrawingGridVerticalSpacing);
+ else begin
+ raise "Invalid assignment: ChartTrackingRefBased expects nil or OpenXmlSimpleType";
end
- return {self.}XmlChildDrawingGridVerticalSpacing;
-end;
-
-function Settings.ReadXmlChildDisplayHorizontalDrawingGridEvery(): PureWVal;
-begin
- if tslassigning and (ifnil({self.}XmlChildDisplayHorizontalDrawingGridEvery) or {self.}XmlChildDisplayHorizontalDrawingGridEvery.Removed) 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) or {self.}XmlChildDisplayVerticalDrawingGridEvery.Removed) 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) or {self.}XmlChildCharacterSpacingControl.Removed) 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) or {self.}XmlChildHdrShapeDefaults.Removed) 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) or {self.}XmlChildFootnotePr.Removed) 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) or {self.}XmlChildEndnotePr.Removed) 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) or {self.}XmlChildCompat.Removed) 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) or {self.}XmlChildRsids.Removed) 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) or {self.}XmlChildMathPr.Removed) 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) or {self.}XmlChildThemeFontLang.Removed) 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) or {self.}XmlChildClrSchemeMapping.Removed) 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) or {self.}XmlChildShapeDefaults.Removed) 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) or {self.}XmlChildDecimalSymbol.Removed) 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) or {self.}XmlChildListSeparator.Removed) 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();
+ return {self.}ReadXmlChildW14DocId();
+ if _ns = "w15" then
+ return {self.}ReadXmlChildW15DocId();
if tslassigning and (ifnil({self.}XmlChildDocId) or {self.}XmlChildDocId.Removed) then
begin
{self.}XmlChildDocId := new PureWVal(self, {self.}Prefix, "docId");
container_.Set({self.}XmlChildDocId);
end
- return {self.}XmlChildDocId;
+ return {self.}XmlChildDocId and not {self.}XmlChildDocId.Removed ? {self.}XmlChildDocId : fallback_.XmlChildDocId;
+end;
+
+function Settings.WriteXmlChildDocId(_p1: any; _p2: any);
+begin
+ if realparamcount = 2 then
+ begin
+ if _p1 = "w14" then
+ return {self.}WriteXmlChildW14DocId(_p2);
+ if _p1 = "w15" then
+ return {self.}WriteXmlChildW15DocId(_p2);
+ end
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildDocId) then
+ {self.}RemoveChild({self.}XmlChildDocId);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildDocId := v;
+ container_.Set({self.}XmlChildDocId);
+ end
+ else begin
+ raise "Invalid assignment: DocId expects PureWVal or nil";
+ end
end;
function Settings.ReadXmlChildW14DocId(): PureWVal;
@@ -14377,7 +19970,25 @@ begin
{self.}XmlChildW14DocId := new PureWVal(self, "w14", "docId");
container_.Set({self.}XmlChildW14DocId);
end
- return {self.}XmlChildW14DocId;
+ return {self.}XmlChildW14DocId and not {self.}XmlChildW14DocId.Removed ? {self.}XmlChildW14DocId : fallback_.XmlChildW14DocId;
+end;
+
+function Settings.WriteXmlChildW14DocId(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildW14DocId) then
+ {self.}RemoveChild({self.}XmlChildW14DocId);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildW14DocId := v;
+ container_.Set({self.}XmlChildW14DocId);
+ end
+ else begin
+ raise "Invalid assignment: DocId expects PureWVal or nil";
+ end
end;
function Settings.ReadXmlChildW15DocId(): PureWVal;
@@ -14387,7 +19998,25 @@ begin
{self.}XmlChildW15DocId := new PureWVal(self, "w15", "docId");
container_.Set({self.}XmlChildW15DocId);
end
- return {self.}XmlChildW15DocId;
+ return {self.}XmlChildW15DocId and not {self.}XmlChildW15DocId.Removed ? {self.}XmlChildW15DocId : fallback_.XmlChildW15DocId;
+end;
+
+function Settings.WriteXmlChildW15DocId(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildW15DocId) then
+ {self.}RemoveChild({self.}XmlChildW15DocId);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildW15DocId := v;
+ container_.Set({self.}XmlChildW15DocId);
+ end
+ else begin
+ raise "Invalid assignment: DocId expects PureWVal or nil";
+ end
end;
function Zoom.Create();overload;
@@ -14397,13 +20026,13 @@ end;
function Zoom.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Zoom.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Zoom.Init();override;
@@ -14428,17 +20057,22 @@ begin
tslassigning := tslassigning_backup;
end;
-function Zoom.ReadXmlAttrPercent();
+function Zoom.ConvertToPoint();override;
begin
- return {self.}XmlAttrPercent.Value;
+
end;
-function Zoom.WriteXmlAttrPercent(_value);
+function Zoom.ReadXmlAttrPercent();
+begin
+ return ifnil({self.}XmlAttrPercent.Value) ? fallback_.XmlAttrPercent.Value : {self.}XmlAttrPercent.Value;
+end;
+
+function Zoom.WriteXmlAttrPercent(_value: any);
begin
if ifnil({self.}XmlAttrPercent) then
begin
{self.}XmlAttrPercent := new OpenXmlAttribute({self.}Prefix, "percent", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrPercent;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "percent" : "percent"] := {self.}XmlAttrPercent;
end
{self.}XmlAttrPercent.Value := _value;
end;
@@ -14450,13 +20084,13 @@ end;
function HdrShapeDefaults.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function HdrShapeDefaults.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function HdrShapeDefaults.Init();override;
@@ -14481,6 +20115,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function HdrShapeDefaults.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildShapeDefaults) then
+ {self.}XmlChildShapeDefaults.ConvertToPoint();
+end;
+
function HdrShapeDefaults.ReadXmlChildShapeDefaults(): ShapeDefaults;
begin
if tslassigning and (ifnil({self.}XmlChildShapeDefaults) or {self.}XmlChildShapeDefaults.Removed) then
@@ -14488,7 +20128,25 @@ begin
{self.}XmlChildShapeDefaults := new ShapeDefaults(self, "o", "shapeDefaults");
container_.Set({self.}XmlChildShapeDefaults);
end
- return {self.}XmlChildShapeDefaults;
+ return {self.}XmlChildShapeDefaults and not {self.}XmlChildShapeDefaults.Removed ? {self.}XmlChildShapeDefaults : fallback_.XmlChildShapeDefaults;
+end;
+
+function HdrShapeDefaults.WriteXmlChildShapeDefaults(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildShapeDefaults) then
+ {self.}RemoveChild({self.}XmlChildShapeDefaults);
+ end
+ else if v is class(ShapeDefaults) then
+ begin
+ {self.}XmlChildShapeDefaults := v;
+ container_.Set({self.}XmlChildShapeDefaults);
+ end
+ else begin
+ raise "Invalid assignment: ShapeDefaults expects ShapeDefaults or nil";
+ end
end;
function ShapeDefaults.Create();overload;
@@ -14498,13 +20156,13 @@ end;
function ShapeDefaults.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function ShapeDefaults.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function ShapeDefaults.Init();override;
@@ -14532,32 +20190,37 @@ begin
tslassigning := tslassigning_backup;
end;
-function ShapeDefaults.ReadXmlAttrExt();
+function ShapeDefaults.ConvertToPoint();override;
begin
- return {self.}XmlAttrExt.Value;
+
end;
-function ShapeDefaults.WriteXmlAttrExt(_value);
+function ShapeDefaults.ReadXmlAttrExt();
+begin
+ return ifnil({self.}XmlAttrExt.Value) ? fallback_.XmlAttrExt.Value : {self.}XmlAttrExt.Value;
+end;
+
+function ShapeDefaults.WriteXmlAttrExt(_value: any);
begin
if ifnil({self.}XmlAttrExt) then
begin
{self.}XmlAttrExt := new OpenXmlAttribute("v", "ext", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrExt;
+ attributes_["v:ext"] := {self.}XmlAttrExt;
end
{self.}XmlAttrExt.Value := _value;
end;
function ShapeDefaults.ReadXmlAttrSpidmax();
begin
- return {self.}XmlAttrSpidmax.Value;
+ return ifnil({self.}XmlAttrSpidmax.Value) ? fallback_.XmlAttrSpidmax.Value : {self.}XmlAttrSpidmax.Value;
end;
-function ShapeDefaults.WriteXmlAttrSpidmax(_value);
+function ShapeDefaults.WriteXmlAttrSpidmax(_value: any);
begin
if ifnil({self.}XmlAttrSpidmax) then
begin
{self.}XmlAttrSpidmax := new OpenXmlAttribute("", "spidmax", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrSpidmax;
+ attributes_["spidmax"] := {self.}XmlAttrSpidmax;
end
{self.}XmlAttrSpidmax.Value := _value;
end;
@@ -14569,13 +20232,13 @@ end;
function FootnotePr.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function FootnotePr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function FootnotePr.Init();override;
@@ -14610,6 +20273,21 @@ begin
tslassigning := tslassigning_backup;
end;
+function FootnotePr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildPos) then
+ {self.}XmlChildPos.ConvertToPoint();
+ if not ifnil({self.}XmlChildNumFmt) then
+ {self.}XmlChildNumFmt.ConvertToPoint();
+ if not ifnil({self.}XmlChildNumStart) then
+ {self.}XmlChildNumStart.ConvertToPoint();
+ if not ifnil({self.}XmlChildNumRestart) then
+ {self.}XmlChildNumRestart.ConvertToPoint();
+ elems := {self.}Footnotes();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+end;
+
function FootnotePr.ReadXmlChildPos(): PureWVal;
begin
if tslassigning and (ifnil({self.}XmlChildPos) or {self.}XmlChildPos.Removed) then
@@ -14617,7 +20295,25 @@ begin
{self.}XmlChildPos := new PureWVal(self, {self.}Prefix, "pos");
container_.Set({self.}XmlChildPos);
end
- return {self.}XmlChildPos;
+ return {self.}XmlChildPos and not {self.}XmlChildPos.Removed ? {self.}XmlChildPos : fallback_.XmlChildPos;
+end;
+
+function FootnotePr.WriteXmlChildPos(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildPos) then
+ {self.}RemoveChild({self.}XmlChildPos);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildPos := v;
+ container_.Set({self.}XmlChildPos);
+ end
+ else begin
+ raise "Invalid assignment: Pos expects PureWVal or nil";
+ end
end;
function FootnotePr.ReadXmlChildNumFmt(): PureWVal;
@@ -14627,7 +20323,25 @@ begin
{self.}XmlChildNumFmt := new PureWVal(self, {self.}Prefix, "numFmt");
container_.Set({self.}XmlChildNumFmt);
end
- return {self.}XmlChildNumFmt;
+ return {self.}XmlChildNumFmt and not {self.}XmlChildNumFmt.Removed ? {self.}XmlChildNumFmt : fallback_.XmlChildNumFmt;
+end;
+
+function FootnotePr.WriteXmlChildNumFmt(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildNumFmt) then
+ {self.}RemoveChild({self.}XmlChildNumFmt);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildNumFmt := v;
+ container_.Set({self.}XmlChildNumFmt);
+ end
+ else begin
+ raise "Invalid assignment: NumFmt expects PureWVal or nil";
+ end
end;
function FootnotePr.ReadXmlChildNumStart(): PureWVal;
@@ -14637,7 +20351,25 @@ begin
{self.}XmlChildNumStart := new PureWVal(self, {self.}Prefix, "numStart");
container_.Set({self.}XmlChildNumStart);
end
- return {self.}XmlChildNumStart;
+ return {self.}XmlChildNumStart and not {self.}XmlChildNumStart.Removed ? {self.}XmlChildNumStart : fallback_.XmlChildNumStart;
+end;
+
+function FootnotePr.WriteXmlChildNumStart(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildNumStart) then
+ {self.}RemoveChild({self.}XmlChildNumStart);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildNumStart := v;
+ container_.Set({self.}XmlChildNumStart);
+ end
+ else begin
+ raise "Invalid assignment: NumStart expects PureWVal or nil";
+ end
end;
function FootnotePr.ReadXmlChildNumRestart(): PureWVal;
@@ -14647,16 +20379,53 @@ begin
{self.}XmlChildNumRestart := new PureWVal(self, {self.}Prefix, "numRestart");
container_.Set({self.}XmlChildNumRestart);
end
- return {self.}XmlChildNumRestart;
+ return {self.}XmlChildNumRestart and not {self.}XmlChildNumRestart.Removed ? {self.}XmlChildNumRestart : fallback_.XmlChildNumRestart;
end;
-function FootnotePr.ReadFootnotes(_index);
+function FootnotePr.WriteXmlChildNumRestart(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildNumRestart) then
+ {self.}RemoveChild({self.}XmlChildNumRestart);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildNumRestart := v;
+ container_.Set({self.}XmlChildNumRestart);
+ end
+ else begin
+ raise "Invalid assignment: NumRestart expects PureWVal or nil";
+ end
+end;
+
+function FootnotePr.ReadFootnotes(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "footnote", ind);
end;
+function FootnotePr.WriteFootnotes(_index: integer; _value: nil_OR_Footnote);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadFootnotes(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "footnote", ind, _value) then
+ raise format("Index out of range: Footnotes[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Footnotes expects nil or Footnote";
+ end
+end;
+
function FootnotePr.AddFootnote(): Footnote;
begin
obj := new Footnote(self, {self.}Prefix, "footnote");
@@ -14678,13 +20447,13 @@ end;
function EndnotePr.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function EndnotePr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function EndnotePr.Init();override;
@@ -14719,6 +20488,21 @@ begin
tslassigning := tslassigning_backup;
end;
+function EndnotePr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildPos) then
+ {self.}XmlChildPos.ConvertToPoint();
+ if not ifnil({self.}XmlChildNumFmt) then
+ {self.}XmlChildNumFmt.ConvertToPoint();
+ if not ifnil({self.}XmlChildNumStart) then
+ {self.}XmlChildNumStart.ConvertToPoint();
+ if not ifnil({self.}XmlChildNumRestart) then
+ {self.}XmlChildNumRestart.ConvertToPoint();
+ elems := {self.}Footnotes();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+end;
+
function EndnotePr.ReadXmlChildPos(): PureWVal;
begin
if tslassigning and (ifnil({self.}XmlChildPos) or {self.}XmlChildPos.Removed) then
@@ -14726,7 +20510,25 @@ begin
{self.}XmlChildPos := new PureWVal(self, {self.}Prefix, "pos");
container_.Set({self.}XmlChildPos);
end
- return {self.}XmlChildPos;
+ return {self.}XmlChildPos and not {self.}XmlChildPos.Removed ? {self.}XmlChildPos : fallback_.XmlChildPos;
+end;
+
+function EndnotePr.WriteXmlChildPos(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildPos) then
+ {self.}RemoveChild({self.}XmlChildPos);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildPos := v;
+ container_.Set({self.}XmlChildPos);
+ end
+ else begin
+ raise "Invalid assignment: Pos expects PureWVal or nil";
+ end
end;
function EndnotePr.ReadXmlChildNumFmt(): PureWVal;
@@ -14736,7 +20538,25 @@ begin
{self.}XmlChildNumFmt := new PureWVal(self, {self.}Prefix, "numFmt");
container_.Set({self.}XmlChildNumFmt);
end
- return {self.}XmlChildNumFmt;
+ return {self.}XmlChildNumFmt and not {self.}XmlChildNumFmt.Removed ? {self.}XmlChildNumFmt : fallback_.XmlChildNumFmt;
+end;
+
+function EndnotePr.WriteXmlChildNumFmt(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildNumFmt) then
+ {self.}RemoveChild({self.}XmlChildNumFmt);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildNumFmt := v;
+ container_.Set({self.}XmlChildNumFmt);
+ end
+ else begin
+ raise "Invalid assignment: NumFmt expects PureWVal or nil";
+ end
end;
function EndnotePr.ReadXmlChildNumStart(): PureWVal;
@@ -14746,7 +20566,25 @@ begin
{self.}XmlChildNumStart := new PureWVal(self, {self.}Prefix, "numStart");
container_.Set({self.}XmlChildNumStart);
end
- return {self.}XmlChildNumStart;
+ return {self.}XmlChildNumStart and not {self.}XmlChildNumStart.Removed ? {self.}XmlChildNumStart : fallback_.XmlChildNumStart;
+end;
+
+function EndnotePr.WriteXmlChildNumStart(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildNumStart) then
+ {self.}RemoveChild({self.}XmlChildNumStart);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildNumStart := v;
+ container_.Set({self.}XmlChildNumStart);
+ end
+ else begin
+ raise "Invalid assignment: NumStart expects PureWVal or nil";
+ end
end;
function EndnotePr.ReadXmlChildNumRestart(): PureWVal;
@@ -14756,16 +20594,53 @@ begin
{self.}XmlChildNumRestart := new PureWVal(self, {self.}Prefix, "numRestart");
container_.Set({self.}XmlChildNumRestart);
end
- return {self.}XmlChildNumRestart;
+ return {self.}XmlChildNumRestart and not {self.}XmlChildNumRestart.Removed ? {self.}XmlChildNumRestart : fallback_.XmlChildNumRestart;
end;
-function EndnotePr.ReadFootnotes(_index);
+function EndnotePr.WriteXmlChildNumRestart(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildNumRestart) then
+ {self.}RemoveChild({self.}XmlChildNumRestart);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildNumRestart := v;
+ container_.Set({self.}XmlChildNumRestart);
+ end
+ else begin
+ raise "Invalid assignment: NumRestart expects PureWVal or nil";
+ end
+end;
+
+function EndnotePr.ReadFootnotes(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "footnote", ind);
end;
+function EndnotePr.WriteFootnotes(_index: integer; _value: nil_OR_Footnote);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadFootnotes(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "footnote", ind, _value) then
+ raise format("Index out of range: Footnotes[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Footnotes expects nil or Footnote";
+ end
+end;
+
function EndnotePr.AddFootnote(): Footnote;
begin
obj := new Footnote(self, {self.}Prefix, "footnote");
@@ -14787,13 +20662,13 @@ end;
function Compat.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Compat.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Compat.Init();override;
@@ -14837,6 +20712,13 @@ begin
tslassigning := tslassigning_backup;
end;
+function Compat.ConvertToPoint();override;
+begin
+ elems := {self.}CompatSettings();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+end;
+
function Compat.ReadXmlChildSpaceForUL();
begin
if tslassigning and (ifnil({self.}XmlChildSpaceForUL) or {self.}XmlChildSpaceForUL.Removed) then
@@ -14844,7 +20726,24 @@ begin
{self.}XmlChildSpaceForUL := new OpenXmlSimpleType(self, {self.}Prefix, "spaceForUL");
container_.Set({self.}XmlChildSpaceForUL);
end
- return {self.}XmlChildSpaceForUL;
+ return {self.}XmlChildSpaceForUL and not {self.}XmlChildSpaceForUL.Removed ? {self.}XmlChildSpaceForUL : fallback_.XmlChildSpaceForUL;
+end;
+
+function Compat.WriteXmlChildSpaceForUL(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildSpaceForUL) then
+ {self.}RemoveChild({self.}XmlChildSpaceForUL);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildSpaceForUL := _value;
+ container_.Set({self.}XmlChildSpaceForUL);
+ end
+ else begin
+ raise "Invalid assignment: SpaceForUL expects nil or OpenXmlSimpleType";
+ end
end;
function Compat.ReadXmlChildBalanceSingleByteDoubleByteWidth();
@@ -14854,7 +20753,24 @@ begin
{self.}XmlChildBalanceSingleByteDoubleByteWidth := new OpenXmlSimpleType(self, {self.}Prefix, "balanceSingleByteDoubleByteWidth");
container_.Set({self.}XmlChildBalanceSingleByteDoubleByteWidth);
end
- return {self.}XmlChildBalanceSingleByteDoubleByteWidth;
+ return {self.}XmlChildBalanceSingleByteDoubleByteWidth and not {self.}XmlChildBalanceSingleByteDoubleByteWidth.Removed ? {self.}XmlChildBalanceSingleByteDoubleByteWidth : fallback_.XmlChildBalanceSingleByteDoubleByteWidth;
+end;
+
+function Compat.WriteXmlChildBalanceSingleByteDoubleByteWidth(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildBalanceSingleByteDoubleByteWidth) then
+ {self.}RemoveChild({self.}XmlChildBalanceSingleByteDoubleByteWidth);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildBalanceSingleByteDoubleByteWidth := _value;
+ container_.Set({self.}XmlChildBalanceSingleByteDoubleByteWidth);
+ end
+ else begin
+ raise "Invalid assignment: BalanceSingleByteDoubleByteWidth expects nil or OpenXmlSimpleType";
+ end
end;
function Compat.ReadXmlChildDoNotLeaveBackslashAlone();
@@ -14864,7 +20780,24 @@ begin
{self.}XmlChildDoNotLeaveBackslashAlone := new OpenXmlSimpleType(self, {self.}Prefix, "doNotLeaveBackslashAlone");
container_.Set({self.}XmlChildDoNotLeaveBackslashAlone);
end
- return {self.}XmlChildDoNotLeaveBackslashAlone;
+ return {self.}XmlChildDoNotLeaveBackslashAlone and not {self.}XmlChildDoNotLeaveBackslashAlone.Removed ? {self.}XmlChildDoNotLeaveBackslashAlone : fallback_.XmlChildDoNotLeaveBackslashAlone;
+end;
+
+function Compat.WriteXmlChildDoNotLeaveBackslashAlone(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildDoNotLeaveBackslashAlone) then
+ {self.}RemoveChild({self.}XmlChildDoNotLeaveBackslashAlone);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildDoNotLeaveBackslashAlone := _value;
+ container_.Set({self.}XmlChildDoNotLeaveBackslashAlone);
+ end
+ else begin
+ raise "Invalid assignment: DoNotLeaveBackslashAlone expects nil or OpenXmlSimpleType";
+ end
end;
function Compat.ReadXmlChildUlTrailSpace();
@@ -14874,7 +20807,24 @@ begin
{self.}XmlChildUlTrailSpace := new OpenXmlSimpleType(self, {self.}Prefix, "ulTrailSpace");
container_.Set({self.}XmlChildUlTrailSpace);
end
- return {self.}XmlChildUlTrailSpace;
+ return {self.}XmlChildUlTrailSpace and not {self.}XmlChildUlTrailSpace.Removed ? {self.}XmlChildUlTrailSpace : fallback_.XmlChildUlTrailSpace;
+end;
+
+function Compat.WriteXmlChildUlTrailSpace(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildUlTrailSpace) then
+ {self.}RemoveChild({self.}XmlChildUlTrailSpace);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildUlTrailSpace := _value;
+ container_.Set({self.}XmlChildUlTrailSpace);
+ end
+ else begin
+ raise "Invalid assignment: UlTrailSpace expects nil or OpenXmlSimpleType";
+ end
end;
function Compat.ReadXmlChildDoNotExpandShiftReturn();
@@ -14884,7 +20834,24 @@ begin
{self.}XmlChildDoNotExpandShiftReturn := new OpenXmlSimpleType(self, {self.}Prefix, "doNotExpandShiftReturn");
container_.Set({self.}XmlChildDoNotExpandShiftReturn);
end
- return {self.}XmlChildDoNotExpandShiftReturn;
+ return {self.}XmlChildDoNotExpandShiftReturn and not {self.}XmlChildDoNotExpandShiftReturn.Removed ? {self.}XmlChildDoNotExpandShiftReturn : fallback_.XmlChildDoNotExpandShiftReturn;
+end;
+
+function Compat.WriteXmlChildDoNotExpandShiftReturn(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildDoNotExpandShiftReturn) then
+ {self.}RemoveChild({self.}XmlChildDoNotExpandShiftReturn);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildDoNotExpandShiftReturn := _value;
+ container_.Set({self.}XmlChildDoNotExpandShiftReturn);
+ end
+ else begin
+ raise "Invalid assignment: DoNotExpandShiftReturn expects nil or OpenXmlSimpleType";
+ end
end;
function Compat.ReadXmlChildAdjustLineHeightInTable();
@@ -14894,7 +20861,24 @@ begin
{self.}XmlChildAdjustLineHeightInTable := new OpenXmlSimpleType(self, {self.}Prefix, "adjustLineHeightInTable");
container_.Set({self.}XmlChildAdjustLineHeightInTable);
end
- return {self.}XmlChildAdjustLineHeightInTable;
+ return {self.}XmlChildAdjustLineHeightInTable and not {self.}XmlChildAdjustLineHeightInTable.Removed ? {self.}XmlChildAdjustLineHeightInTable : fallback_.XmlChildAdjustLineHeightInTable;
+end;
+
+function Compat.WriteXmlChildAdjustLineHeightInTable(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildAdjustLineHeightInTable) then
+ {self.}RemoveChild({self.}XmlChildAdjustLineHeightInTable);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildAdjustLineHeightInTable := _value;
+ container_.Set({self.}XmlChildAdjustLineHeightInTable);
+ end
+ else begin
+ raise "Invalid assignment: AdjustLineHeightInTable expects nil or OpenXmlSimpleType";
+ end
end;
function Compat.ReadXmlChildUseFELayout();
@@ -14904,7 +20888,24 @@ begin
{self.}XmlChildUseFELayout := new OpenXmlSimpleType(self, {self.}Prefix, "useFELayout");
container_.Set({self.}XmlChildUseFELayout);
end
- return {self.}XmlChildUseFELayout;
+ return {self.}XmlChildUseFELayout and not {self.}XmlChildUseFELayout.Removed ? {self.}XmlChildUseFELayout : fallback_.XmlChildUseFELayout;
+end;
+
+function Compat.WriteXmlChildUseFELayout(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildUseFELayout) then
+ {self.}RemoveChild({self.}XmlChildUseFELayout);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildUseFELayout := _value;
+ container_.Set({self.}XmlChildUseFELayout);
+ end
+ else begin
+ raise "Invalid assignment: UseFELayout expects nil or OpenXmlSimpleType";
+ end
end;
function Compat.ReadXmlChildCompatSetting();
@@ -14914,16 +20915,52 @@ begin
{self.}XmlChildCompatSetting := new OpenXmlSimpleType(self, {self.}Prefix, "compatSetting");
container_.Set({self.}XmlChildCompatSetting);
end
- return {self.}XmlChildCompatSetting;
+ return {self.}XmlChildCompatSetting and not {self.}XmlChildCompatSetting.Removed ? {self.}XmlChildCompatSetting : fallback_.XmlChildCompatSetting;
end;
-function Compat.ReadCompatSettings(_index);
+function Compat.WriteXmlChildCompatSetting(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildCompatSetting) then
+ {self.}RemoveChild({self.}XmlChildCompatSetting);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildCompatSetting := _value;
+ container_.Set({self.}XmlChildCompatSetting);
+ end
+ else begin
+ raise "Invalid assignment: CompatSetting expects nil or OpenXmlSimpleType";
+ end
+end;
+
+function Compat.ReadCompatSettings(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "compatSetting", ind);
end;
+function Compat.WriteCompatSettings(_index: integer; _value: nil_OR_CompatSetting);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadCompatSettings(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "compatSetting", ind, _value) then
+ raise format("Index out of range: CompatSettings[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: CompatSettings expects nil or CompatSetting";
+ end
+end;
+
function Compat.AddCompatSetting(): CompatSetting;
begin
obj := new CompatSetting(self, {self.}Prefix, "compatSetting");
@@ -14945,13 +20982,13 @@ end;
function CompatSetting.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function CompatSetting.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function CompatSetting.Init();override;
@@ -14982,47 +21019,52 @@ begin
tslassigning := tslassigning_backup;
end;
-function CompatSetting.ReadXmlAttrName();
+function CompatSetting.ConvertToPoint();override;
begin
- return {self.}XmlAttrName.Value;
+
end;
-function CompatSetting.WriteXmlAttrName(_value);
+function CompatSetting.ReadXmlAttrName();
+begin
+ return ifnil({self.}XmlAttrName.Value) ? fallback_.XmlAttrName.Value : {self.}XmlAttrName.Value;
+end;
+
+function CompatSetting.WriteXmlAttrName(_value: any);
begin
if ifnil({self.}XmlAttrName) then
begin
{self.}XmlAttrName := new OpenXmlAttribute({self.}Prefix, "name", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrName;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "name" : "name"] := {self.}XmlAttrName;
end
{self.}XmlAttrName.Value := _value;
end;
function CompatSetting.ReadXmlAttrUri();
begin
- return {self.}XmlAttrUri.Value;
+ return ifnil({self.}XmlAttrUri.Value) ? fallback_.XmlAttrUri.Value : {self.}XmlAttrUri.Value;
end;
-function CompatSetting.WriteXmlAttrUri(_value);
+function CompatSetting.WriteXmlAttrUri(_value: any);
begin
if ifnil({self.}XmlAttrUri) then
begin
{self.}XmlAttrUri := new OpenXmlAttribute({self.}Prefix, "uri", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrUri;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "uri" : "uri"] := {self.}XmlAttrUri;
end
{self.}XmlAttrUri.Value := _value;
end;
function CompatSetting.ReadXmlAttrVal();
begin
- return {self.}XmlAttrVal.Value;
+ return ifnil({self.}XmlAttrVal.Value) ? fallback_.XmlAttrVal.Value : {self.}XmlAttrVal.Value;
end;
-function CompatSetting.WriteXmlAttrVal(_value);
+function CompatSetting.WriteXmlAttrVal(_value: any);
begin
if ifnil({self.}XmlAttrVal) then
begin
{self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrVal;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "val" : "val"] := {self.}XmlAttrVal;
end
{self.}XmlAttrVal.Value := _value;
end;
@@ -15034,13 +21076,13 @@ end;
function Rsids.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Rsids.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Rsids.Init();override;
@@ -15066,6 +21108,15 @@ begin
tslassigning := tslassigning_backup;
end;
+function Rsids.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildRsidRoot) then
+ {self.}XmlChildRsidRoot.ConvertToPoint();
+ elems := {self.}Rsids();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+end;
+
function Rsids.ReadXmlChildRsidRoot(): PureWVal;
begin
if tslassigning and (ifnil({self.}XmlChildRsidRoot) or {self.}XmlChildRsidRoot.Removed) then
@@ -15073,16 +21124,53 @@ begin
{self.}XmlChildRsidRoot := new PureWVal(self, {self.}Prefix, "rsidRoot");
container_.Set({self.}XmlChildRsidRoot);
end
- return {self.}XmlChildRsidRoot;
+ return {self.}XmlChildRsidRoot and not {self.}XmlChildRsidRoot.Removed ? {self.}XmlChildRsidRoot : fallback_.XmlChildRsidRoot;
end;
-function Rsids.ReadRsids(_index);
+function Rsids.WriteXmlChildRsidRoot(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildRsidRoot) then
+ {self.}RemoveChild({self.}XmlChildRsidRoot);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildRsidRoot := v;
+ container_.Set({self.}XmlChildRsidRoot);
+ end
+ else begin
+ raise "Invalid assignment: RsidRoot expects PureWVal or nil";
+ end
+end;
+
+function Rsids.ReadRsids(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "rsid", ind);
end;
+function Rsids.WriteRsids(_index: integer; _value: nil_OR_PureWVal);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadRsids(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "rsid", ind, _value) then
+ raise format("Index out of range: Rsids[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Rsids expects nil or PureWVal";
+ end
+end;
+
function Rsids.AddRsid(): PureWVal;
begin
obj := new PureWVal(self, {self.}Prefix, "rsid");
@@ -15104,13 +21192,13 @@ end;
function ThemeFontLang.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function ThemeFontLang.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function ThemeFontLang.Init();override;
@@ -15138,32 +21226,37 @@ begin
tslassigning := tslassigning_backup;
end;
-function ThemeFontLang.ReadXmlAttrVal();
+function ThemeFontLang.ConvertToPoint();override;
begin
- return {self.}XmlAttrVal.Value;
+
end;
-function ThemeFontLang.WriteXmlAttrVal(_value);
+function ThemeFontLang.ReadXmlAttrVal();
+begin
+ return ifnil({self.}XmlAttrVal.Value) ? fallback_.XmlAttrVal.Value : {self.}XmlAttrVal.Value;
+end;
+
+function ThemeFontLang.WriteXmlAttrVal(_value: any);
begin
if ifnil({self.}XmlAttrVal) then
begin
{self.}XmlAttrVal := new OpenXmlAttribute({self.}Prefix, "val", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrVal;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "val" : "val"] := {self.}XmlAttrVal;
end
{self.}XmlAttrVal.Value := _value;
end;
function ThemeFontLang.ReadXmlAttrEastAsia();
begin
- return {self.}XmlAttrEastAsia.Value;
+ return ifnil({self.}XmlAttrEastAsia.Value) ? fallback_.XmlAttrEastAsia.Value : {self.}XmlAttrEastAsia.Value;
end;
-function ThemeFontLang.WriteXmlAttrEastAsia(_value);
+function ThemeFontLang.WriteXmlAttrEastAsia(_value: any);
begin
if ifnil({self.}XmlAttrEastAsia) then
begin
{self.}XmlAttrEastAsia := new OpenXmlAttribute({self.}Prefix, "eastAsia", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrEastAsia;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "eastAsia" : "eastAsia"] := {self.}XmlAttrEastAsia;
end
{self.}XmlAttrEastAsia.Value := _value;
end;
@@ -15175,13 +21268,13 @@ end;
function ClrSchemeMapping.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function ClrSchemeMapping.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function ClrSchemeMapping.Init();override;
@@ -15239,182 +21332,187 @@ begin
tslassigning := tslassigning_backup;
end;
-function ClrSchemeMapping.ReadXmlAttrBg1();
+function ClrSchemeMapping.ConvertToPoint();override;
begin
- return {self.}XmlAttrBg1.Value;
+
end;
-function ClrSchemeMapping.WriteXmlAttrBg1(_value);
+function ClrSchemeMapping.ReadXmlAttrBg1();
+begin
+ return ifnil({self.}XmlAttrBg1.Value) ? fallback_.XmlAttrBg1.Value : {self.}XmlAttrBg1.Value;
+end;
+
+function ClrSchemeMapping.WriteXmlAttrBg1(_value: any);
begin
if ifnil({self.}XmlAttrBg1) then
begin
{self.}XmlAttrBg1 := new OpenXmlAttribute({self.}Prefix, "bg1", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrBg1;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "bg1" : "bg1"] := {self.}XmlAttrBg1;
end
{self.}XmlAttrBg1.Value := _value;
end;
function ClrSchemeMapping.ReadXmlAttrT1();
begin
- return {self.}XmlAttrT1.Value;
+ return ifnil({self.}XmlAttrT1.Value) ? fallback_.XmlAttrT1.Value : {self.}XmlAttrT1.Value;
end;
-function ClrSchemeMapping.WriteXmlAttrT1(_value);
+function ClrSchemeMapping.WriteXmlAttrT1(_value: any);
begin
if ifnil({self.}XmlAttrT1) then
begin
{self.}XmlAttrT1 := new OpenXmlAttribute({self.}Prefix, "t1", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrT1;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "t1" : "t1"] := {self.}XmlAttrT1;
end
{self.}XmlAttrT1.Value := _value;
end;
function ClrSchemeMapping.ReadXmlAttrBg2();
begin
- return {self.}XmlAttrBg2.Value;
+ return ifnil({self.}XmlAttrBg2.Value) ? fallback_.XmlAttrBg2.Value : {self.}XmlAttrBg2.Value;
end;
-function ClrSchemeMapping.WriteXmlAttrBg2(_value);
+function ClrSchemeMapping.WriteXmlAttrBg2(_value: any);
begin
if ifnil({self.}XmlAttrBg2) then
begin
{self.}XmlAttrBg2 := new OpenXmlAttribute({self.}Prefix, "bg2", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrBg2;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "bg2" : "bg2"] := {self.}XmlAttrBg2;
end
{self.}XmlAttrBg2.Value := _value;
end;
function ClrSchemeMapping.ReadXmlAttrT2();
begin
- return {self.}XmlAttrT2.Value;
+ return ifnil({self.}XmlAttrT2.Value) ? fallback_.XmlAttrT2.Value : {self.}XmlAttrT2.Value;
end;
-function ClrSchemeMapping.WriteXmlAttrT2(_value);
+function ClrSchemeMapping.WriteXmlAttrT2(_value: any);
begin
if ifnil({self.}XmlAttrT2) then
begin
{self.}XmlAttrT2 := new OpenXmlAttribute({self.}Prefix, "t2", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrT2;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "t2" : "t2"] := {self.}XmlAttrT2;
end
{self.}XmlAttrT2.Value := _value;
end;
function ClrSchemeMapping.ReadXmlAttrAccent1();
begin
- return {self.}XmlAttrAccent1.Value;
+ return ifnil({self.}XmlAttrAccent1.Value) ? fallback_.XmlAttrAccent1.Value : {self.}XmlAttrAccent1.Value;
end;
-function ClrSchemeMapping.WriteXmlAttrAccent1(_value);
+function ClrSchemeMapping.WriteXmlAttrAccent1(_value: any);
begin
if ifnil({self.}XmlAttrAccent1) then
begin
{self.}XmlAttrAccent1 := new OpenXmlAttribute({self.}Prefix, "accent1", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrAccent1;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "accent1" : "accent1"] := {self.}XmlAttrAccent1;
end
{self.}XmlAttrAccent1.Value := _value;
end;
function ClrSchemeMapping.ReadXmlAttrAccent2();
begin
- return {self.}XmlAttrAccent2.Value;
+ return ifnil({self.}XmlAttrAccent2.Value) ? fallback_.XmlAttrAccent2.Value : {self.}XmlAttrAccent2.Value;
end;
-function ClrSchemeMapping.WriteXmlAttrAccent2(_value);
+function ClrSchemeMapping.WriteXmlAttrAccent2(_value: any);
begin
if ifnil({self.}XmlAttrAccent2) then
begin
{self.}XmlAttrAccent2 := new OpenXmlAttribute({self.}Prefix, "accent2", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrAccent2;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "accent2" : "accent2"] := {self.}XmlAttrAccent2;
end
{self.}XmlAttrAccent2.Value := _value;
end;
function ClrSchemeMapping.ReadXmlAttrAccent3();
begin
- return {self.}XmlAttrAccent3.Value;
+ return ifnil({self.}XmlAttrAccent3.Value) ? fallback_.XmlAttrAccent3.Value : {self.}XmlAttrAccent3.Value;
end;
-function ClrSchemeMapping.WriteXmlAttrAccent3(_value);
+function ClrSchemeMapping.WriteXmlAttrAccent3(_value: any);
begin
if ifnil({self.}XmlAttrAccent3) then
begin
{self.}XmlAttrAccent3 := new OpenXmlAttribute({self.}Prefix, "accent3", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrAccent3;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "accent3" : "accent3"] := {self.}XmlAttrAccent3;
end
{self.}XmlAttrAccent3.Value := _value;
end;
function ClrSchemeMapping.ReadXmlAttrAccent4();
begin
- return {self.}XmlAttrAccent4.Value;
+ return ifnil({self.}XmlAttrAccent4.Value) ? fallback_.XmlAttrAccent4.Value : {self.}XmlAttrAccent4.Value;
end;
-function ClrSchemeMapping.WriteXmlAttrAccent4(_value);
+function ClrSchemeMapping.WriteXmlAttrAccent4(_value: any);
begin
if ifnil({self.}XmlAttrAccent4) then
begin
{self.}XmlAttrAccent4 := new OpenXmlAttribute({self.}Prefix, "accent4", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrAccent4;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "accent4" : "accent4"] := {self.}XmlAttrAccent4;
end
{self.}XmlAttrAccent4.Value := _value;
end;
function ClrSchemeMapping.ReadXmlAttrAccent5();
begin
- return {self.}XmlAttrAccent5.Value;
+ return ifnil({self.}XmlAttrAccent5.Value) ? fallback_.XmlAttrAccent5.Value : {self.}XmlAttrAccent5.Value;
end;
-function ClrSchemeMapping.WriteXmlAttrAccent5(_value);
+function ClrSchemeMapping.WriteXmlAttrAccent5(_value: any);
begin
if ifnil({self.}XmlAttrAccent5) then
begin
{self.}XmlAttrAccent5 := new OpenXmlAttribute({self.}Prefix, "accent5", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrAccent5;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "accent5" : "accent5"] := {self.}XmlAttrAccent5;
end
{self.}XmlAttrAccent5.Value := _value;
end;
function ClrSchemeMapping.ReadXmlAttrAccent6();
begin
- return {self.}XmlAttrAccent6.Value;
+ return ifnil({self.}XmlAttrAccent6.Value) ? fallback_.XmlAttrAccent6.Value : {self.}XmlAttrAccent6.Value;
end;
-function ClrSchemeMapping.WriteXmlAttrAccent6(_value);
+function ClrSchemeMapping.WriteXmlAttrAccent6(_value: any);
begin
if ifnil({self.}XmlAttrAccent6) then
begin
{self.}XmlAttrAccent6 := new OpenXmlAttribute({self.}Prefix, "accent6", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrAccent6;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "accent6" : "accent6"] := {self.}XmlAttrAccent6;
end
{self.}XmlAttrAccent6.Value := _value;
end;
function ClrSchemeMapping.ReadXmlAttrHyperLink();
begin
- return {self.}XmlAttrHyperLink.Value;
+ return ifnil({self.}XmlAttrHyperLink.Value) ? fallback_.XmlAttrHyperLink.Value : {self.}XmlAttrHyperLink.Value;
end;
-function ClrSchemeMapping.WriteXmlAttrHyperLink(_value);
+function ClrSchemeMapping.WriteXmlAttrHyperLink(_value: any);
begin
if ifnil({self.}XmlAttrHyperLink) then
begin
{self.}XmlAttrHyperLink := new OpenXmlAttribute({self.}Prefix, "hyperlink", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrHyperLink;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "hyperlink" : "hyperlink"] := {self.}XmlAttrHyperLink;
end
{self.}XmlAttrHyperLink.Value := _value;
end;
function ClrSchemeMapping.ReadXmlAttrFollowedHyperlink();
begin
- return {self.}XmlAttrFollowedHyperlink.Value;
+ return ifnil({self.}XmlAttrFollowedHyperlink.Value) ? fallback_.XmlAttrFollowedHyperlink.Value : {self.}XmlAttrFollowedHyperlink.Value;
end;
-function ClrSchemeMapping.WriteXmlAttrFollowedHyperlink(_value);
+function ClrSchemeMapping.WriteXmlAttrFollowedHyperlink(_value: any);
begin
if ifnil({self.}XmlAttrFollowedHyperlink) then
begin
{self.}XmlAttrFollowedHyperlink := new OpenXmlAttribute({self.}Prefix, "followedHyperlink", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrFollowedHyperlink;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "followedHyperlink" : "followedHyperlink"] := {self.}XmlAttrFollowedHyperlink;
end
{self.}XmlAttrFollowedHyperlink.Value := _value;
end;
@@ -15426,13 +21524,13 @@ end;
function ShapeDefaults2.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function ShapeDefaults2.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function ShapeDefaults2.Init();override;
@@ -15460,6 +21558,14 @@ begin
tslassigning := tslassigning_backup;
end;
+function ShapeDefaults2.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildShapeDefaults) then
+ {self.}XmlChildShapeDefaults.ConvertToPoint();
+ if not ifnil({self.}XmlChildShapeLayout) then
+ {self.}XmlChildShapeLayout.ConvertToPoint();
+end;
+
function ShapeDefaults2.ReadXmlChildShapeDefaults(): ShapeDefaults;
begin
if tslassigning and (ifnil({self.}XmlChildShapeDefaults) or {self.}XmlChildShapeDefaults.Removed) then
@@ -15467,7 +21573,25 @@ begin
{self.}XmlChildShapeDefaults := new ShapeDefaults(self, "o", "shapeDefaults");
container_.Set({self.}XmlChildShapeDefaults);
end
- return {self.}XmlChildShapeDefaults;
+ return {self.}XmlChildShapeDefaults and not {self.}XmlChildShapeDefaults.Removed ? {self.}XmlChildShapeDefaults : fallback_.XmlChildShapeDefaults;
+end;
+
+function ShapeDefaults2.WriteXmlChildShapeDefaults(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildShapeDefaults) then
+ {self.}RemoveChild({self.}XmlChildShapeDefaults);
+ end
+ else if v is class(ShapeDefaults) then
+ begin
+ {self.}XmlChildShapeDefaults := v;
+ container_.Set({self.}XmlChildShapeDefaults);
+ end
+ else begin
+ raise "Invalid assignment: ShapeDefaults expects ShapeDefaults or nil";
+ end
end;
function ShapeDefaults2.ReadXmlChildShapeLayout(): ShapeLayout;
@@ -15477,7 +21601,25 @@ begin
{self.}XmlChildShapeLayout := new ShapeLayout(self, "o", "shapelayout");
container_.Set({self.}XmlChildShapeLayout);
end
- return {self.}XmlChildShapeLayout;
+ return {self.}XmlChildShapeLayout and not {self.}XmlChildShapeLayout.Removed ? {self.}XmlChildShapeLayout : fallback_.XmlChildShapeLayout;
+end;
+
+function ShapeDefaults2.WriteXmlChildShapeLayout(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildShapeLayout) then
+ {self.}RemoveChild({self.}XmlChildShapeLayout);
+ end
+ else if v is class(ShapeLayout) then
+ begin
+ {self.}XmlChildShapeLayout := v;
+ container_.Set({self.}XmlChildShapeLayout);
+ end
+ else begin
+ raise "Invalid assignment: ShapeLayout expects ShapeLayout or nil";
+ end
end;
function ShapeLayout.Create();overload;
@@ -15487,13 +21629,13 @@ end;
function ShapeLayout.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function ShapeLayout.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function ShapeLayout.Init();override;
@@ -15521,17 +21663,23 @@ begin
tslassigning := tslassigning_backup;
end;
-function ShapeLayout.ReadXmlAttrExt();
+function ShapeLayout.ConvertToPoint();override;
begin
- return {self.}XmlAttrExt.Value;
+ if not ifnil({self.}XmlChildIdMap) then
+ {self.}XmlChildIdMap.ConvertToPoint();
end;
-function ShapeLayout.WriteXmlAttrExt(_value);
+function ShapeLayout.ReadXmlAttrExt();
+begin
+ return ifnil({self.}XmlAttrExt.Value) ? fallback_.XmlAttrExt.Value : {self.}XmlAttrExt.Value;
+end;
+
+function ShapeLayout.WriteXmlAttrExt(_value: any);
begin
if ifnil({self.}XmlAttrExt) then
begin
{self.}XmlAttrExt := new OpenXmlAttribute("v", "ext", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrExt;
+ attributes_["v:ext"] := {self.}XmlAttrExt;
end
{self.}XmlAttrExt.Value := _value;
end;
@@ -15543,7 +21691,25 @@ begin
{self.}XmlChildIdMap := new IdMap(self, {self.}Prefix, "idmap");
container_.Set({self.}XmlChildIdMap);
end
- return {self.}XmlChildIdMap;
+ return {self.}XmlChildIdMap and not {self.}XmlChildIdMap.Removed ? {self.}XmlChildIdMap : fallback_.XmlChildIdMap;
+end;
+
+function ShapeLayout.WriteXmlChildIdMap(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildIdMap) then
+ {self.}RemoveChild({self.}XmlChildIdMap);
+ end
+ else if v is class(IdMap) then
+ begin
+ {self.}XmlChildIdMap := v;
+ container_.Set({self.}XmlChildIdMap);
+ end
+ else begin
+ raise "Invalid assignment: IdMap expects IdMap or nil";
+ end
end;
function IdMap.Create();overload;
@@ -15553,13 +21719,13 @@ end;
function IdMap.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function IdMap.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function IdMap.Init();override;
@@ -15587,32 +21753,37 @@ begin
tslassigning := tslassigning_backup;
end;
-function IdMap.ReadXmlAttrExt();
+function IdMap.ConvertToPoint();override;
begin
- return {self.}XmlAttrExt.Value;
+
end;
-function IdMap.WriteXmlAttrExt(_value);
+function IdMap.ReadXmlAttrExt();
+begin
+ return ifnil({self.}XmlAttrExt.Value) ? fallback_.XmlAttrExt.Value : {self.}XmlAttrExt.Value;
+end;
+
+function IdMap.WriteXmlAttrExt(_value: any);
begin
if ifnil({self.}XmlAttrExt) then
begin
{self.}XmlAttrExt := new OpenXmlAttribute("v", "ext", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrExt;
+ attributes_["v:ext"] := {self.}XmlAttrExt;
end
{self.}XmlAttrExt.Value := _value;
end;
function IdMap.ReadXmlAttrData();
begin
- return {self.}XmlAttrData.Value;
+ return ifnil({self.}XmlAttrData.Value) ? fallback_.XmlAttrData.Value : {self.}XmlAttrData.Value;
end;
-function IdMap.WriteXmlAttrData(_value);
+function IdMap.WriteXmlAttrData(_value: any);
begin
if ifnil({self.}XmlAttrData) then
begin
{self.}XmlAttrData := new OpenXmlAttribute("", "data", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrData;
+ attributes_["data"] := {self.}XmlAttrData;
end
{self.}XmlAttrData.Value := _value;
end;
@@ -15624,13 +21795,13 @@ end;
function Styles.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Styles.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Styles.Init();override;
@@ -15662,17 +21833,28 @@ begin
tslassigning := tslassigning_backup;
end;
-function Styles.ReadXmlAttrIgnorable();
+function Styles.ConvertToPoint();override;
begin
- return {self.}XmlAttrIgnorable.Value;
+ if not ifnil({self.}XmlChildDocDefaults) then
+ {self.}XmlChildDocDefaults.ConvertToPoint();
+ if not ifnil({self.}XmlChildLatenStyles) then
+ {self.}XmlChildLatenStyles.ConvertToPoint();
+ elems := {self.}Styles();
+ for _,elem in elems do
+ elem.ConvertToPoint();
end;
-function Styles.WriteXmlAttrIgnorable(_value);
+function Styles.ReadXmlAttrIgnorable();
+begin
+ return ifnil({self.}XmlAttrIgnorable.Value) ? fallback_.XmlAttrIgnorable.Value : {self.}XmlAttrIgnorable.Value;
+end;
+
+function Styles.WriteXmlAttrIgnorable(_value: any);
begin
if ifnil({self.}XmlAttrIgnorable) then
begin
{self.}XmlAttrIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrIgnorable;
+ attributes_["mc:Ignorable"] := {self.}XmlAttrIgnorable;
end
{self.}XmlAttrIgnorable.Value := _value;
end;
@@ -15684,7 +21866,25 @@ begin
{self.}XmlChildDocDefaults := new DocDefaults(self, {self.}Prefix, "docDefaults");
container_.Set({self.}XmlChildDocDefaults);
end
- return {self.}XmlChildDocDefaults;
+ return {self.}XmlChildDocDefaults and not {self.}XmlChildDocDefaults.Removed ? {self.}XmlChildDocDefaults : fallback_.XmlChildDocDefaults;
+end;
+
+function Styles.WriteXmlChildDocDefaults(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildDocDefaults) then
+ {self.}RemoveChild({self.}XmlChildDocDefaults);
+ end
+ else if v is class(DocDefaults) then
+ begin
+ {self.}XmlChildDocDefaults := v;
+ container_.Set({self.}XmlChildDocDefaults);
+ end
+ else begin
+ raise "Invalid assignment: DocDefaults expects DocDefaults or nil";
+ end
end;
function Styles.ReadXmlChildLatenStyles(): LatenStyles;
@@ -15694,16 +21894,53 @@ begin
{self.}XmlChildLatenStyles := new LatenStyles(self, {self.}Prefix, "latenStyles");
container_.Set({self.}XmlChildLatenStyles);
end
- return {self.}XmlChildLatenStyles;
+ return {self.}XmlChildLatenStyles and not {self.}XmlChildLatenStyles.Removed ? {self.}XmlChildLatenStyles : fallback_.XmlChildLatenStyles;
end;
-function Styles.ReadStyles(_index);
+function Styles.WriteXmlChildLatenStyles(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildLatenStyles) then
+ {self.}RemoveChild({self.}XmlChildLatenStyles);
+ end
+ else if v is class(LatenStyles) then
+ begin
+ {self.}XmlChildLatenStyles := v;
+ container_.Set({self.}XmlChildLatenStyles);
+ end
+ else begin
+ raise "Invalid assignment: LatenStyles expects LatenStyles or nil";
+ end
+end;
+
+function Styles.ReadStyles(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "style", ind);
end;
+function Styles.WriteStyles(_index: integer; _value: nil_OR_Style);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadStyles(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "style", ind, _value) then
+ raise format("Index out of range: Styles[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Styles expects nil or Style";
+ end
+end;
+
function Styles.AddStyle(): Style;
begin
obj := new Style(self, {self.}Prefix, "style");
@@ -15725,13 +21962,13 @@ end;
function DocDefaults.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function DocDefaults.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function DocDefaults.Init();override;
@@ -15759,6 +21996,14 @@ begin
tslassigning := tslassigning_backup;
end;
+function DocDefaults.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildRPrDefault) then
+ {self.}XmlChildRPrDefault.ConvertToPoint();
+ if not ifnil({self.}XmlChildPPrDefault) then
+ {self.}XmlChildPPrDefault.ConvertToPoint();
+end;
+
function DocDefaults.ReadXmlChildRPrDefault(): RPrDefault;
begin
if tslassigning and (ifnil({self.}XmlChildRPrDefault) or {self.}XmlChildRPrDefault.Removed) then
@@ -15766,7 +22011,25 @@ begin
{self.}XmlChildRPrDefault := new RPrDefault(self, {self.}Prefix, "rPrDefault");
container_.Set({self.}XmlChildRPrDefault);
end
- return {self.}XmlChildRPrDefault;
+ return {self.}XmlChildRPrDefault and not {self.}XmlChildRPrDefault.Removed ? {self.}XmlChildRPrDefault : fallback_.XmlChildRPrDefault;
+end;
+
+function DocDefaults.WriteXmlChildRPrDefault(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildRPrDefault) then
+ {self.}RemoveChild({self.}XmlChildRPrDefault);
+ end
+ else if v is class(RPrDefault) then
+ begin
+ {self.}XmlChildRPrDefault := v;
+ container_.Set({self.}XmlChildRPrDefault);
+ end
+ else begin
+ raise "Invalid assignment: RPrDefault expects RPrDefault or nil";
+ end
end;
function DocDefaults.ReadXmlChildPPrDefault(): PPrDefault;
@@ -15776,7 +22039,25 @@ begin
{self.}XmlChildPPrDefault := new PPrDefault(self, {self.}Prefix, "pPrDefault");
container_.Set({self.}XmlChildPPrDefault);
end
- return {self.}XmlChildPPrDefault;
+ return {self.}XmlChildPPrDefault and not {self.}XmlChildPPrDefault.Removed ? {self.}XmlChildPPrDefault : fallback_.XmlChildPPrDefault;
+end;
+
+function DocDefaults.WriteXmlChildPPrDefault(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildPPrDefault) then
+ {self.}RemoveChild({self.}XmlChildPPrDefault);
+ end
+ else if v is class(PPrDefault) then
+ begin
+ {self.}XmlChildPPrDefault := v;
+ container_.Set({self.}XmlChildPPrDefault);
+ end
+ else begin
+ raise "Invalid assignment: PPrDefault expects PPrDefault or nil";
+ end
end;
function RPrDefault.Create();overload;
@@ -15786,13 +22067,13 @@ end;
function RPrDefault.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function RPrDefault.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function RPrDefault.Init();override;
@@ -15817,6 +22098,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function RPrDefault.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildRPr) then
+ {self.}XmlChildRPr.ConvertToPoint();
+end;
+
function RPrDefault.ReadXmlChildRPr(): RPr;
begin
if tslassigning and (ifnil({self.}XmlChildRPr) or {self.}XmlChildRPr.Removed) then
@@ -15824,7 +22111,25 @@ begin
{self.}XmlChildRPr := new RPr(self, {self.}Prefix, "rPr");
container_.Set({self.}XmlChildRPr);
end
- return {self.}XmlChildRPr;
+ return {self.}XmlChildRPr and not {self.}XmlChildRPr.Removed ? {self.}XmlChildRPr : fallback_.XmlChildRPr;
+end;
+
+function RPrDefault.WriteXmlChildRPr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildRPr) then
+ {self.}RemoveChild({self.}XmlChildRPr);
+ end
+ else if v is class(RPr) then
+ begin
+ {self.}XmlChildRPr := v;
+ container_.Set({self.}XmlChildRPr);
+ end
+ else begin
+ raise "Invalid assignment: RPr expects RPr or nil";
+ end
end;
function PPrDefault.Create();overload;
@@ -15834,13 +22139,13 @@ end;
function PPrDefault.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function PPrDefault.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function PPrDefault.Init();override;
@@ -15865,6 +22170,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function PPrDefault.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildPPr) then
+ {self.}XmlChildPPr.ConvertToPoint();
+end;
+
function PPrDefault.ReadXmlChildPPr(): PPr;
begin
if tslassigning and (ifnil({self.}XmlChildPPr) or {self.}XmlChildPPr.Removed) then
@@ -15872,7 +22183,25 @@ begin
{self.}XmlChildPPr := new PPr(self, {self.}Prefix, "pPr");
container_.Set({self.}XmlChildPPr);
end
- return {self.}XmlChildPPr;
+ return {self.}XmlChildPPr and not {self.}XmlChildPPr.Removed ? {self.}XmlChildPPr : fallback_.XmlChildPPr;
+end;
+
+function PPrDefault.WriteXmlChildPPr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildPPr) then
+ {self.}RemoveChild({self.}XmlChildPPr);
+ end
+ else if v is class(PPr) then
+ begin
+ {self.}XmlChildPPr := v;
+ container_.Set({self.}XmlChildPPr);
+ end
+ else begin
+ raise "Invalid assignment: PPr expects PPr or nil";
+ end
end;
function LatenStyles.Create();overload;
@@ -15882,13 +22211,13 @@ end;
function LatenStyles.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function LatenStyles.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function LatenStyles.Init();override;
@@ -15929,103 +22258,129 @@ begin
tslassigning := tslassigning_backup;
end;
-function LatenStyles.ReadXmlAttrDefLickedState();
+function LatenStyles.ConvertToPoint();override;
begin
- return {self.}XmlAttrDefLickedState.Value;
+ elems := {self.}LsdExceptions();
+ for _,elem in elems do
+ elem.ConvertToPoint();
end;
-function LatenStyles.WriteXmlAttrDefLickedState(_value);
+function LatenStyles.ReadXmlAttrDefLickedState();
+begin
+ return ifnil({self.}XmlAttrDefLickedState.Value) ? fallback_.XmlAttrDefLickedState.Value : {self.}XmlAttrDefLickedState.Value;
+end;
+
+function LatenStyles.WriteXmlAttrDefLickedState(_value: any);
begin
if ifnil({self.}XmlAttrDefLickedState) then
begin
{self.}XmlAttrDefLickedState := new OpenXmlAttribute({self.}Prefix, "defLickedState", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrDefLickedState;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "defLickedState" : "defLickedState"] := {self.}XmlAttrDefLickedState;
end
{self.}XmlAttrDefLickedState.Value := _value;
end;
function LatenStyles.ReadXmlAttrDefUIPriority();
begin
- return {self.}XmlAttrDefUIPriority.Value;
+ return ifnil({self.}XmlAttrDefUIPriority.Value) ? fallback_.XmlAttrDefUIPriority.Value : {self.}XmlAttrDefUIPriority.Value;
end;
-function LatenStyles.WriteXmlAttrDefUIPriority(_value);
+function LatenStyles.WriteXmlAttrDefUIPriority(_value: any);
begin
if ifnil({self.}XmlAttrDefUIPriority) then
begin
{self.}XmlAttrDefUIPriority := new OpenXmlAttribute({self.}Prefix, "defUIPriority", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrDefUIPriority;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "defUIPriority" : "defUIPriority"] := {self.}XmlAttrDefUIPriority;
end
{self.}XmlAttrDefUIPriority.Value := _value;
end;
function LatenStyles.ReadXmlAttrDefSemiHidden();
begin
- return {self.}XmlAttrDefSemiHidden.Value;
+ return ifnil({self.}XmlAttrDefSemiHidden.Value) ? fallback_.XmlAttrDefSemiHidden.Value : {self.}XmlAttrDefSemiHidden.Value;
end;
-function LatenStyles.WriteXmlAttrDefSemiHidden(_value);
+function LatenStyles.WriteXmlAttrDefSemiHidden(_value: any);
begin
if ifnil({self.}XmlAttrDefSemiHidden) then
begin
{self.}XmlAttrDefSemiHidden := new OpenXmlAttribute({self.}Prefix, "defSemiHidden", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrDefSemiHidden;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "defSemiHidden" : "defSemiHidden"] := {self.}XmlAttrDefSemiHidden;
end
{self.}XmlAttrDefSemiHidden.Value := _value;
end;
function LatenStyles.ReadXmlAttrDefUnhideWhenUsed();
begin
- return {self.}XmlAttrDefUnhideWhenUsed.Value;
+ return ifnil({self.}XmlAttrDefUnhideWhenUsed.Value) ? fallback_.XmlAttrDefUnhideWhenUsed.Value : {self.}XmlAttrDefUnhideWhenUsed.Value;
end;
-function LatenStyles.WriteXmlAttrDefUnhideWhenUsed(_value);
+function LatenStyles.WriteXmlAttrDefUnhideWhenUsed(_value: any);
begin
if ifnil({self.}XmlAttrDefUnhideWhenUsed) then
begin
{self.}XmlAttrDefUnhideWhenUsed := new OpenXmlAttribute({self.}Prefix, "defUnhideWhenUsed", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrDefUnhideWhenUsed;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "defUnhideWhenUsed" : "defUnhideWhenUsed"] := {self.}XmlAttrDefUnhideWhenUsed;
end
{self.}XmlAttrDefUnhideWhenUsed.Value := _value;
end;
function LatenStyles.ReadXmlAttrDefQFormat();
begin
- return {self.}XmlAttrDefQFormat.Value;
+ return ifnil({self.}XmlAttrDefQFormat.Value) ? fallback_.XmlAttrDefQFormat.Value : {self.}XmlAttrDefQFormat.Value;
end;
-function LatenStyles.WriteXmlAttrDefQFormat(_value);
+function LatenStyles.WriteXmlAttrDefQFormat(_value: any);
begin
if ifnil({self.}XmlAttrDefQFormat) then
begin
{self.}XmlAttrDefQFormat := new OpenXmlAttribute({self.}Prefix, "defQFormat", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrDefQFormat;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "defQFormat" : "defQFormat"] := {self.}XmlAttrDefQFormat;
end
{self.}XmlAttrDefQFormat.Value := _value;
end;
function LatenStyles.ReadXmlAttrCount();
begin
- return {self.}XmlAttrCount.Value;
+ return ifnil({self.}XmlAttrCount.Value) ? fallback_.XmlAttrCount.Value : {self.}XmlAttrCount.Value;
end;
-function LatenStyles.WriteXmlAttrCount(_value);
+function LatenStyles.WriteXmlAttrCount(_value: any);
begin
if ifnil({self.}XmlAttrCount) then
begin
{self.}XmlAttrCount := new OpenXmlAttribute({self.}Prefix, "count", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrCount;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "count" : "count"] := {self.}XmlAttrCount;
end
{self.}XmlAttrCount.Value := _value;
end;
-function LatenStyles.ReadLsdExceptions(_index);
+function LatenStyles.ReadLsdExceptions(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "lsdException", ind);
end;
+function LatenStyles.WriteLsdExceptions(_index: integer; _value: nil_OR_LsdException);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadLsdExceptions(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "lsdException", ind, _value) then
+ raise format("Index out of range: LsdExceptions[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: LsdExceptions expects nil or LsdException";
+ end
+end;
+
function LatenStyles.AddLsdException(): LsdException;
begin
obj := new LsdException(self, {self.}Prefix, "lsdException");
@@ -16047,13 +22402,13 @@ end;
function LsdException.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function LsdException.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function LsdException.Init();override;
@@ -16090,77 +22445,82 @@ begin
tslassigning := tslassigning_backup;
end;
-function LsdException.ReadXmlAttrName();
+function LsdException.ConvertToPoint();override;
begin
- return {self.}XmlAttrName.Value;
+
end;
-function LsdException.WriteXmlAttrName(_value);
+function LsdException.ReadXmlAttrName();
+begin
+ return ifnil({self.}XmlAttrName.Value) ? fallback_.XmlAttrName.Value : {self.}XmlAttrName.Value;
+end;
+
+function LsdException.WriteXmlAttrName(_value: any);
begin
if ifnil({self.}XmlAttrName) then
begin
{self.}XmlAttrName := new OpenXmlAttribute({self.}Prefix, "name", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrName;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "name" : "name"] := {self.}XmlAttrName;
end
{self.}XmlAttrName.Value := _value;
end;
function LsdException.ReadXmlAttrUIPriority();
begin
- return {self.}XmlAttrUIPriority.Value;
+ return ifnil({self.}XmlAttrUIPriority.Value) ? fallback_.XmlAttrUIPriority.Value : {self.}XmlAttrUIPriority.Value;
end;
-function LsdException.WriteXmlAttrUIPriority(_value);
+function LsdException.WriteXmlAttrUIPriority(_value: any);
begin
if ifnil({self.}XmlAttrUIPriority) then
begin
{self.}XmlAttrUIPriority := new OpenXmlAttribute({self.}Prefix, "uiPriority", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrUIPriority;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "uiPriority" : "uiPriority"] := {self.}XmlAttrUIPriority;
end
{self.}XmlAttrUIPriority.Value := _value;
end;
function LsdException.ReadXmlAttrSemiHidden();
begin
- return {self.}XmlAttrSemiHidden.Value;
+ return ifnil({self.}XmlAttrSemiHidden.Value) ? fallback_.XmlAttrSemiHidden.Value : {self.}XmlAttrSemiHidden.Value;
end;
-function LsdException.WriteXmlAttrSemiHidden(_value);
+function LsdException.WriteXmlAttrSemiHidden(_value: any);
begin
if ifnil({self.}XmlAttrSemiHidden) then
begin
{self.}XmlAttrSemiHidden := new OpenXmlAttribute({self.}Prefix, "semiHidden", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrSemiHidden;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "semiHidden" : "semiHidden"] := {self.}XmlAttrSemiHidden;
end
{self.}XmlAttrSemiHidden.Value := _value;
end;
function LsdException.ReadXmlAttrUnhideWhenUsed();
begin
- return {self.}XmlAttrUnhideWhenUsed.Value;
+ return ifnil({self.}XmlAttrUnhideWhenUsed.Value) ? fallback_.XmlAttrUnhideWhenUsed.Value : {self.}XmlAttrUnhideWhenUsed.Value;
end;
-function LsdException.WriteXmlAttrUnhideWhenUsed(_value);
+function LsdException.WriteXmlAttrUnhideWhenUsed(_value: any);
begin
if ifnil({self.}XmlAttrUnhideWhenUsed) then
begin
{self.}XmlAttrUnhideWhenUsed := new OpenXmlAttribute({self.}Prefix, "unhideWhenUsed", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrUnhideWhenUsed;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "unhideWhenUsed" : "unhideWhenUsed"] := {self.}XmlAttrUnhideWhenUsed;
end
{self.}XmlAttrUnhideWhenUsed.Value := _value;
end;
function LsdException.ReadXmlAttrQFormat();
begin
- return {self.}XmlAttrQFormat.Value;
+ return ifnil({self.}XmlAttrQFormat.Value) ? fallback_.XmlAttrQFormat.Value : {self.}XmlAttrQFormat.Value;
end;
-function LsdException.WriteXmlAttrQFormat(_value);
+function LsdException.WriteXmlAttrQFormat(_value: any);
begin
if ifnil({self.}XmlAttrQFormat) then
begin
{self.}XmlAttrQFormat := new OpenXmlAttribute({self.}Prefix, "qFormat", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrQFormat;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "qFormat" : "qFormat"] := {self.}XmlAttrQFormat;
end
{self.}XmlAttrQFormat.Value := _value;
end;
@@ -16172,13 +22532,13 @@ end;
function Style.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Style.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Style.Init();override;
@@ -16255,47 +22615,76 @@ begin
tslassigning := tslassigning_backup;
end;
-function Style.ReadXmlAttrType();
+function Style.ConvertToPoint();override;
begin
- return {self.}XmlAttrType.Value;
+ if not ifnil({self.}XmlChildName) then
+ {self.}XmlChildName.ConvertToPoint();
+ if not ifnil({self.}XmlChildBasedOn) then
+ {self.}XmlChildBasedOn.ConvertToPoint();
+ if not ifnil({self.}XmlChildNext) then
+ {self.}XmlChildNext.ConvertToPoint();
+ if not ifnil({self.}XmlChildAutoRedefine) then
+ {self.}XmlChildAutoRedefine.ConvertToPoint();
+ if not ifnil({self.}XmlChildLink) then
+ {self.}XmlChildLink.ConvertToPoint();
+ if not ifnil({self.}XmlChildUIPriority) then
+ {self.}XmlChildUIPriority.ConvertToPoint();
+ if not ifnil({self.}XmlChildPPr) then
+ {self.}XmlChildPPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildRPr) then
+ {self.}XmlChildRPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildTblPr) then
+ {self.}XmlChildTblPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildTrPr) then
+ {self.}XmlChildTrPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildTcPr) then
+ {self.}XmlChildTcPr.ConvertToPoint();
+ elems := {self.}TblStylePrs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
end;
-function Style.WriteXmlAttrType(_value);
+function Style.ReadXmlAttrType();
+begin
+ return ifnil({self.}XmlAttrType.Value) ? fallback_.XmlAttrType.Value : {self.}XmlAttrType.Value;
+end;
+
+function Style.WriteXmlAttrType(_value: any);
begin
if ifnil({self.}XmlAttrType) then
begin
{self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrType;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "type" : "type"] := {self.}XmlAttrType;
end
{self.}XmlAttrType.Value := _value;
end;
function Style.ReadXmlAttrDefault();
begin
- return {self.}XmlAttrDefault.Value;
+ return ifnil({self.}XmlAttrDefault.Value) ? fallback_.XmlAttrDefault.Value : {self.}XmlAttrDefault.Value;
end;
-function Style.WriteXmlAttrDefault(_value);
+function Style.WriteXmlAttrDefault(_value: any);
begin
if ifnil({self.}XmlAttrDefault) then
begin
{self.}XmlAttrDefault := new OpenXmlAttribute({self.}Prefix, "default", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrDefault;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "default" : "default"] := {self.}XmlAttrDefault;
end
{self.}XmlAttrDefault.Value := _value;
end;
function Style.ReadXmlAttrStyleId();
begin
- return {self.}XmlAttrStyleId.Value;
+ return ifnil({self.}XmlAttrStyleId.Value) ? fallback_.XmlAttrStyleId.Value : {self.}XmlAttrStyleId.Value;
end;
-function Style.WriteXmlAttrStyleId(_value);
+function Style.WriteXmlAttrStyleId(_value: any);
begin
if ifnil({self.}XmlAttrStyleId) then
begin
{self.}XmlAttrStyleId := new OpenXmlAttribute({self.}Prefix, "styleId", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrStyleId;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "styleId" : "styleId"] := {self.}XmlAttrStyleId;
end
{self.}XmlAttrStyleId.Value := _value;
end;
@@ -16307,7 +22696,24 @@ begin
{self.}XmlChildSemiHidden := new OpenXmlSimpleType(self, {self.}Prefix, "semiHidden");
container_.Set({self.}XmlChildSemiHidden);
end
- return {self.}XmlChildSemiHidden;
+ return {self.}XmlChildSemiHidden and not {self.}XmlChildSemiHidden.Removed ? {self.}XmlChildSemiHidden : fallback_.XmlChildSemiHidden;
+end;
+
+function Style.WriteXmlChildSemiHidden(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildSemiHidden) then
+ {self.}RemoveChild({self.}XmlChildSemiHidden);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildSemiHidden := _value;
+ container_.Set({self.}XmlChildSemiHidden);
+ end
+ else begin
+ raise "Invalid assignment: SemiHidden expects nil or OpenXmlSimpleType";
+ end
end;
function Style.ReadXmlChildUnhideWhenUsed();
@@ -16317,7 +22723,24 @@ begin
{self.}XmlChildUnhideWhenUsed := new OpenXmlSimpleType(self, {self.}Prefix, "unhideWhenUsed");
container_.Set({self.}XmlChildUnhideWhenUsed);
end
- return {self.}XmlChildUnhideWhenUsed;
+ return {self.}XmlChildUnhideWhenUsed and not {self.}XmlChildUnhideWhenUsed.Removed ? {self.}XmlChildUnhideWhenUsed : fallback_.XmlChildUnhideWhenUsed;
+end;
+
+function Style.WriteXmlChildUnhideWhenUsed(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildUnhideWhenUsed) then
+ {self.}RemoveChild({self.}XmlChildUnhideWhenUsed);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildUnhideWhenUsed := _value;
+ container_.Set({self.}XmlChildUnhideWhenUsed);
+ end
+ else begin
+ raise "Invalid assignment: UnhideWhenUsed expects nil or OpenXmlSimpleType";
+ end
end;
function Style.ReadXmlChildQFormat();
@@ -16327,7 +22750,24 @@ begin
{self.}XmlChildQFormat := new OpenXmlSimpleType(self, {self.}Prefix, "qFormat");
container_.Set({self.}XmlChildQFormat);
end
- return {self.}XmlChildQFormat;
+ return {self.}XmlChildQFormat and not {self.}XmlChildQFormat.Removed ? {self.}XmlChildQFormat : fallback_.XmlChildQFormat;
+end;
+
+function Style.WriteXmlChildQFormat(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildQFormat) then
+ {self.}RemoveChild({self.}XmlChildQFormat);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildQFormat := _value;
+ container_.Set({self.}XmlChildQFormat);
+ end
+ else begin
+ raise "Invalid assignment: QFormat expects nil or OpenXmlSimpleType";
+ end
end;
function Style.ReadXmlChildRsid();
@@ -16337,7 +22777,24 @@ begin
{self.}XmlChildRsid := new OpenXmlSimpleType(self, {self.}Prefix, "rsid");
container_.Set({self.}XmlChildRsid);
end
- return {self.}XmlChildRsid;
+ return {self.}XmlChildRsid and not {self.}XmlChildRsid.Removed ? {self.}XmlChildRsid : fallback_.XmlChildRsid;
+end;
+
+function Style.WriteXmlChildRsid(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildRsid) then
+ {self.}RemoveChild({self.}XmlChildRsid);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildRsid := _value;
+ container_.Set({self.}XmlChildRsid);
+ end
+ else begin
+ raise "Invalid assignment: Rsid expects nil or OpenXmlSimpleType";
+ end
end;
function Style.ReadXmlChildName(): PureWVal;
@@ -16347,7 +22804,25 @@ begin
{self.}XmlChildName := new PureWVal(self, {self.}Prefix, "name");
container_.Set({self.}XmlChildName);
end
- return {self.}XmlChildName;
+ return {self.}XmlChildName and not {self.}XmlChildName.Removed ? {self.}XmlChildName : fallback_.XmlChildName;
+end;
+
+function Style.WriteXmlChildName(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildName) then
+ {self.}RemoveChild({self.}XmlChildName);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildName := v;
+ container_.Set({self.}XmlChildName);
+ end
+ else begin
+ raise "Invalid assignment: Name expects PureWVal or nil";
+ end
end;
function Style.ReadXmlChildBasedOn(): PureWVal;
@@ -16357,7 +22832,25 @@ begin
{self.}XmlChildBasedOn := new PureWVal(self, {self.}Prefix, "basedOn");
container_.Set({self.}XmlChildBasedOn);
end
- return {self.}XmlChildBasedOn;
+ return {self.}XmlChildBasedOn and not {self.}XmlChildBasedOn.Removed ? {self.}XmlChildBasedOn : fallback_.XmlChildBasedOn;
+end;
+
+function Style.WriteXmlChildBasedOn(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildBasedOn) then
+ {self.}RemoveChild({self.}XmlChildBasedOn);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildBasedOn := v;
+ container_.Set({self.}XmlChildBasedOn);
+ end
+ else begin
+ raise "Invalid assignment: BasedOn expects PureWVal or nil";
+ end
end;
function Style.ReadXmlChildNext(): PureWVal;
@@ -16367,7 +22860,25 @@ begin
{self.}XmlChildNext := new PureWVal(self, {self.}Prefix, "next");
container_.Set({self.}XmlChildNext);
end
- return {self.}XmlChildNext;
+ return {self.}XmlChildNext and not {self.}XmlChildNext.Removed ? {self.}XmlChildNext : fallback_.XmlChildNext;
+end;
+
+function Style.WriteXmlChildNext(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildNext) then
+ {self.}RemoveChild({self.}XmlChildNext);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildNext := v;
+ container_.Set({self.}XmlChildNext);
+ end
+ else begin
+ raise "Invalid assignment: Next expects PureWVal or nil";
+ end
end;
function Style.ReadXmlChildAutoRedefine(): PureWVal;
@@ -16377,7 +22888,25 @@ begin
{self.}XmlChildAutoRedefine := new PureWVal(self, {self.}Prefix, "autoRedefine");
container_.Set({self.}XmlChildAutoRedefine);
end
- return {self.}XmlChildAutoRedefine;
+ return {self.}XmlChildAutoRedefine and not {self.}XmlChildAutoRedefine.Removed ? {self.}XmlChildAutoRedefine : fallback_.XmlChildAutoRedefine;
+end;
+
+function Style.WriteXmlChildAutoRedefine(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildAutoRedefine) then
+ {self.}RemoveChild({self.}XmlChildAutoRedefine);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildAutoRedefine := v;
+ container_.Set({self.}XmlChildAutoRedefine);
+ end
+ else begin
+ raise "Invalid assignment: AutoRedefine expects PureWVal or nil";
+ end
end;
function Style.ReadXmlChildLink(): PureWVal;
@@ -16387,7 +22916,25 @@ begin
{self.}XmlChildLink := new PureWVal(self, {self.}Prefix, "link");
container_.Set({self.}XmlChildLink);
end
- return {self.}XmlChildLink;
+ return {self.}XmlChildLink and not {self.}XmlChildLink.Removed ? {self.}XmlChildLink : fallback_.XmlChildLink;
+end;
+
+function Style.WriteXmlChildLink(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildLink) then
+ {self.}RemoveChild({self.}XmlChildLink);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildLink := v;
+ container_.Set({self.}XmlChildLink);
+ end
+ else begin
+ raise "Invalid assignment: Link expects PureWVal or nil";
+ end
end;
function Style.ReadXmlChildUIPriority(): PureWVal;
@@ -16397,7 +22944,25 @@ begin
{self.}XmlChildUIPriority := new PureWVal(self, {self.}Prefix, "uiPriority");
container_.Set({self.}XmlChildUIPriority);
end
- return {self.}XmlChildUIPriority;
+ return {self.}XmlChildUIPriority and not {self.}XmlChildUIPriority.Removed ? {self.}XmlChildUIPriority : fallback_.XmlChildUIPriority;
+end;
+
+function Style.WriteXmlChildUIPriority(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildUIPriority) then
+ {self.}RemoveChild({self.}XmlChildUIPriority);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildUIPriority := v;
+ container_.Set({self.}XmlChildUIPriority);
+ end
+ else begin
+ raise "Invalid assignment: UIPriority expects PureWVal or nil";
+ end
end;
function Style.ReadXmlChildPPr(): PPr;
@@ -16407,7 +22972,25 @@ begin
{self.}XmlChildPPr := new PPr(self, {self.}Prefix, "pPr");
container_.Set({self.}XmlChildPPr);
end
- return {self.}XmlChildPPr;
+ return {self.}XmlChildPPr and not {self.}XmlChildPPr.Removed ? {self.}XmlChildPPr : fallback_.XmlChildPPr;
+end;
+
+function Style.WriteXmlChildPPr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildPPr) then
+ {self.}RemoveChild({self.}XmlChildPPr);
+ end
+ else if v is class(PPr) then
+ begin
+ {self.}XmlChildPPr := v;
+ container_.Set({self.}XmlChildPPr);
+ end
+ else begin
+ raise "Invalid assignment: PPr expects PPr or nil";
+ end
end;
function Style.ReadXmlChildRPr(): RPr;
@@ -16417,7 +23000,25 @@ begin
{self.}XmlChildRPr := new RPr(self, {self.}Prefix, "rPr");
container_.Set({self.}XmlChildRPr);
end
- return {self.}XmlChildRPr;
+ return {self.}XmlChildRPr and not {self.}XmlChildRPr.Removed ? {self.}XmlChildRPr : fallback_.XmlChildRPr;
+end;
+
+function Style.WriteXmlChildRPr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildRPr) then
+ {self.}RemoveChild({self.}XmlChildRPr);
+ end
+ else if v is class(RPr) then
+ begin
+ {self.}XmlChildRPr := v;
+ container_.Set({self.}XmlChildRPr);
+ end
+ else begin
+ raise "Invalid assignment: RPr expects RPr or nil";
+ end
end;
function Style.ReadXmlChildTblPr(): TblPr;
@@ -16427,7 +23028,25 @@ begin
{self.}XmlChildTblPr := new TblPr(self, {self.}Prefix, "tblPr");
container_.Set({self.}XmlChildTblPr);
end
- return {self.}XmlChildTblPr;
+ return {self.}XmlChildTblPr and not {self.}XmlChildTblPr.Removed ? {self.}XmlChildTblPr : fallback_.XmlChildTblPr;
+end;
+
+function Style.WriteXmlChildTblPr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTblPr) then
+ {self.}RemoveChild({self.}XmlChildTblPr);
+ end
+ else if v is class(TblPr) then
+ begin
+ {self.}XmlChildTblPr := v;
+ container_.Set({self.}XmlChildTblPr);
+ end
+ else begin
+ raise "Invalid assignment: TblPr expects TblPr or nil";
+ end
end;
function Style.ReadXmlChildTrPr(): TrPr;
@@ -16437,7 +23056,25 @@ begin
{self.}XmlChildTrPr := new TrPr(self, {self.}Prefix, "trPr");
container_.Set({self.}XmlChildTrPr);
end
- return {self.}XmlChildTrPr;
+ return {self.}XmlChildTrPr and not {self.}XmlChildTrPr.Removed ? {self.}XmlChildTrPr : fallback_.XmlChildTrPr;
+end;
+
+function Style.WriteXmlChildTrPr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTrPr) then
+ {self.}RemoveChild({self.}XmlChildTrPr);
+ end
+ else if v is class(TrPr) then
+ begin
+ {self.}XmlChildTrPr := v;
+ container_.Set({self.}XmlChildTrPr);
+ end
+ else begin
+ raise "Invalid assignment: TrPr expects TrPr or nil";
+ end
end;
function Style.ReadXmlChildTcPr(): TcPr;
@@ -16447,16 +23084,53 @@ begin
{self.}XmlChildTcPr := new TcPr(self, {self.}Prefix, "tcPr");
container_.Set({self.}XmlChildTcPr);
end
- return {self.}XmlChildTcPr;
+ return {self.}XmlChildTcPr and not {self.}XmlChildTcPr.Removed ? {self.}XmlChildTcPr : fallback_.XmlChildTcPr;
end;
-function Style.ReadTblStylePrs(_index);
+function Style.WriteXmlChildTcPr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTcPr) then
+ {self.}RemoveChild({self.}XmlChildTcPr);
+ end
+ else if v is class(TcPr) then
+ begin
+ {self.}XmlChildTcPr := v;
+ container_.Set({self.}XmlChildTcPr);
+ end
+ else begin
+ raise "Invalid assignment: TcPr expects TcPr or nil";
+ end
+end;
+
+function Style.ReadTblStylePrs(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "tblStylePr", ind);
end;
+function Style.WriteTblStylePrs(_index: integer; _value: nil_OR_TblStylePr);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadTblStylePrs(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "tblStylePr", ind, _value) then
+ raise format("Index out of range: TblStylePrs[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: TblStylePrs expects nil or TblStylePr";
+ end
+end;
+
function Style.AddTblStylePr(): TblStylePr;
begin
obj := new TblStylePr(self, {self.}Prefix, "tblStylePr");
@@ -16478,13 +23152,13 @@ end;
function TblStylePr.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function TblStylePr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function TblStylePr.Init();override;
@@ -16524,17 +23198,31 @@ begin
tslassigning := tslassigning_backup;
end;
-function TblStylePr.ReadXmlAttrType();
+function TblStylePr.ConvertToPoint();override;
begin
- return {self.}XmlAttrType.Value;
+ if not ifnil({self.}XmlChildPPr) then
+ {self.}XmlChildPPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildRPr) then
+ {self.}XmlChildRPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildTblPr) then
+ {self.}XmlChildTblPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildTrPr) then
+ {self.}XmlChildTrPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildTcPr) then
+ {self.}XmlChildTcPr.ConvertToPoint();
end;
-function TblStylePr.WriteXmlAttrType(_value);
+function TblStylePr.ReadXmlAttrType();
+begin
+ return ifnil({self.}XmlAttrType.Value) ? fallback_.XmlAttrType.Value : {self.}XmlAttrType.Value;
+end;
+
+function TblStylePr.WriteXmlAttrType(_value: any);
begin
if ifnil({self.}XmlAttrType) then
begin
{self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrType;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "type" : "type"] := {self.}XmlAttrType;
end
{self.}XmlAttrType.Value := _value;
end;
@@ -16546,7 +23234,25 @@ begin
{self.}XmlChildPPr := new PPr(self, {self.}Prefix, "pPr");
container_.Set({self.}XmlChildPPr);
end
- return {self.}XmlChildPPr;
+ return {self.}XmlChildPPr and not {self.}XmlChildPPr.Removed ? {self.}XmlChildPPr : fallback_.XmlChildPPr;
+end;
+
+function TblStylePr.WriteXmlChildPPr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildPPr) then
+ {self.}RemoveChild({self.}XmlChildPPr);
+ end
+ else if v is class(PPr) then
+ begin
+ {self.}XmlChildPPr := v;
+ container_.Set({self.}XmlChildPPr);
+ end
+ else begin
+ raise "Invalid assignment: PPr expects PPr or nil";
+ end
end;
function TblStylePr.ReadXmlChildRPr(): RPr;
@@ -16556,7 +23262,25 @@ begin
{self.}XmlChildRPr := new RPr(self, {self.}Prefix, "rPr");
container_.Set({self.}XmlChildRPr);
end
- return {self.}XmlChildRPr;
+ return {self.}XmlChildRPr and not {self.}XmlChildRPr.Removed ? {self.}XmlChildRPr : fallback_.XmlChildRPr;
+end;
+
+function TblStylePr.WriteXmlChildRPr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildRPr) then
+ {self.}RemoveChild({self.}XmlChildRPr);
+ end
+ else if v is class(RPr) then
+ begin
+ {self.}XmlChildRPr := v;
+ container_.Set({self.}XmlChildRPr);
+ end
+ else begin
+ raise "Invalid assignment: RPr expects RPr or nil";
+ end
end;
function TblStylePr.ReadXmlChildTblPr(): TblPr;
@@ -16566,7 +23290,25 @@ begin
{self.}XmlChildTblPr := new TblPr(self, {self.}Prefix, "tblPr");
container_.Set({self.}XmlChildTblPr);
end
- return {self.}XmlChildTblPr;
+ return {self.}XmlChildTblPr and not {self.}XmlChildTblPr.Removed ? {self.}XmlChildTblPr : fallback_.XmlChildTblPr;
+end;
+
+function TblStylePr.WriteXmlChildTblPr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTblPr) then
+ {self.}RemoveChild({self.}XmlChildTblPr);
+ end
+ else if v is class(TblPr) then
+ begin
+ {self.}XmlChildTblPr := v;
+ container_.Set({self.}XmlChildTblPr);
+ end
+ else begin
+ raise "Invalid assignment: TblPr expects TblPr or nil";
+ end
end;
function TblStylePr.ReadXmlChildTrPr(): TrPr;
@@ -16576,7 +23318,25 @@ begin
{self.}XmlChildTrPr := new TrPr(self, {self.}Prefix, "trPr");
container_.Set({self.}XmlChildTrPr);
end
- return {self.}XmlChildTrPr;
+ return {self.}XmlChildTrPr and not {self.}XmlChildTrPr.Removed ? {self.}XmlChildTrPr : fallback_.XmlChildTrPr;
+end;
+
+function TblStylePr.WriteXmlChildTrPr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTrPr) then
+ {self.}RemoveChild({self.}XmlChildTrPr);
+ end
+ else if v is class(TrPr) then
+ begin
+ {self.}XmlChildTrPr := v;
+ container_.Set({self.}XmlChildTrPr);
+ end
+ else begin
+ raise "Invalid assignment: TrPr expects TrPr or nil";
+ end
end;
function TblStylePr.ReadXmlChildTcPr(): TcPr;
@@ -16586,7 +23346,25 @@ begin
{self.}XmlChildTcPr := new TcPr(self, {self.}Prefix, "tcPr");
container_.Set({self.}XmlChildTcPr);
end
- return {self.}XmlChildTcPr;
+ return {self.}XmlChildTcPr and not {self.}XmlChildTcPr.Removed ? {self.}XmlChildTcPr : fallback_.XmlChildTcPr;
+end;
+
+function TblStylePr.WriteXmlChildTcPr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTcPr) then
+ {self.}RemoveChild({self.}XmlChildTcPr);
+ end
+ else if v is class(TcPr) then
+ begin
+ {self.}XmlChildTcPr := v;
+ container_.Set({self.}XmlChildTcPr);
+ end
+ else begin
+ raise "Invalid assignment: TcPr expects TcPr or nil";
+ end
end;
function TblInd.Create();overload;
@@ -16596,13 +23374,13 @@ end;
function TblInd.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function TblInd.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function TblInd.Init();override;
@@ -16630,32 +23408,38 @@ begin
tslassigning := tslassigning_backup;
end;
-function TblInd.ReadXmlAttrW();
+function TblInd.ConvertToPoint();override;
begin
- return {self.}XmlAttrW.Value;
+ if not ifnil({self.}XmlAttrW) then
+ {self.}W := TSSafeUnitConverter.TwipsToPoints({self.}XmlAttrW.Value);
end;
-function TblInd.WriteXmlAttrW(_value);
+function TblInd.ReadXmlAttrW();
+begin
+ return ifnil({self.}XmlAttrW.Value) ? fallback_.XmlAttrW.Value : {self.}XmlAttrW.Value;
+end;
+
+function TblInd.WriteXmlAttrW(_value: any);
begin
if ifnil({self.}XmlAttrW) then
begin
{self.}XmlAttrW := new OpenXmlAttribute({self.}Prefix, "w", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrW;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "w" : "w"] := {self.}XmlAttrW;
end
{self.}XmlAttrW.Value := _value;
end;
function TblInd.ReadXmlAttrType();
begin
- return {self.}XmlAttrType.Value;
+ return ifnil({self.}XmlAttrType.Value) ? fallback_.XmlAttrType.Value : {self.}XmlAttrType.Value;
end;
-function TblInd.WriteXmlAttrType(_value);
+function TblInd.WriteXmlAttrType(_value: any);
begin
if ifnil({self.}XmlAttrType) then
begin
{self.}XmlAttrType := new OpenXmlAttribute({self.}Prefix, "type", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrType;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "type" : "type"] := {self.}XmlAttrType;
end
{self.}XmlAttrType.Value := _value;
end;
@@ -16667,13 +23451,13 @@ end;
function TblCellMar.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function TblCellMar.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function TblCellMar.Init();override;
@@ -16707,6 +23491,18 @@ begin
tslassigning := tslassigning_backup;
end;
+function TblCellMar.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildTop) then
+ {self.}XmlChildTop.ConvertToPoint();
+ if not ifnil({self.}XmlChildLeft) then
+ {self.}XmlChildLeft.ConvertToPoint();
+ if not ifnil({self.}XmlChildBottom) then
+ {self.}XmlChildBottom.ConvertToPoint();
+ if not ifnil({self.}XmlChildRight) then
+ {self.}XmlChildRight.ConvertToPoint();
+end;
+
function TblCellMar.ReadXmlChildTop(): TblInd;
begin
if tslassigning and (ifnil({self.}XmlChildTop) or {self.}XmlChildTop.Removed) then
@@ -16714,7 +23510,25 @@ begin
{self.}XmlChildTop := new TblInd(self, {self.}Prefix, "top");
container_.Set({self.}XmlChildTop);
end
- return {self.}XmlChildTop;
+ return {self.}XmlChildTop and not {self.}XmlChildTop.Removed ? {self.}XmlChildTop : fallback_.XmlChildTop;
+end;
+
+function TblCellMar.WriteXmlChildTop(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTop) then
+ {self.}RemoveChild({self.}XmlChildTop);
+ end
+ else if v is class(TblInd) then
+ begin
+ {self.}XmlChildTop := v;
+ container_.Set({self.}XmlChildTop);
+ end
+ else begin
+ raise "Invalid assignment: Top expects TblInd or nil";
+ end
end;
function TblCellMar.ReadXmlChildLeft(): TblInd;
@@ -16724,7 +23538,25 @@ begin
{self.}XmlChildLeft := new TblInd(self, {self.}Prefix, "left");
container_.Set({self.}XmlChildLeft);
end
- return {self.}XmlChildLeft;
+ return {self.}XmlChildLeft and not {self.}XmlChildLeft.Removed ? {self.}XmlChildLeft : fallback_.XmlChildLeft;
+end;
+
+function TblCellMar.WriteXmlChildLeft(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildLeft) then
+ {self.}RemoveChild({self.}XmlChildLeft);
+ end
+ else if v is class(TblInd) then
+ begin
+ {self.}XmlChildLeft := v;
+ container_.Set({self.}XmlChildLeft);
+ end
+ else begin
+ raise "Invalid assignment: Left expects TblInd or nil";
+ end
end;
function TblCellMar.ReadXmlChildBottom(): TblInd;
@@ -16734,7 +23566,25 @@ begin
{self.}XmlChildBottom := new TblInd(self, {self.}Prefix, "bottom");
container_.Set({self.}XmlChildBottom);
end
- return {self.}XmlChildBottom;
+ return {self.}XmlChildBottom and not {self.}XmlChildBottom.Removed ? {self.}XmlChildBottom : fallback_.XmlChildBottom;
+end;
+
+function TblCellMar.WriteXmlChildBottom(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildBottom) then
+ {self.}RemoveChild({self.}XmlChildBottom);
+ end
+ else if v is class(TblInd) then
+ begin
+ {self.}XmlChildBottom := v;
+ container_.Set({self.}XmlChildBottom);
+ end
+ else begin
+ raise "Invalid assignment: Bottom expects TblInd or nil";
+ end
end;
function TblCellMar.ReadXmlChildRight(): TblInd;
@@ -16744,7 +23594,25 @@ begin
{self.}XmlChildRight := new TblInd(self, {self.}Prefix, "right");
container_.Set({self.}XmlChildRight);
end
- return {self.}XmlChildRight;
+ return {self.}XmlChildRight and not {self.}XmlChildRight.Removed ? {self.}XmlChildRight : fallback_.XmlChildRight;
+end;
+
+function TblCellMar.WriteXmlChildRight(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildRight) then
+ {self.}RemoveChild({self.}XmlChildRight);
+ end
+ else if v is class(TblInd) then
+ begin
+ {self.}XmlChildRight := v;
+ container_.Set({self.}XmlChildRight);
+ end
+ else begin
+ raise "Invalid assignment: Right expects TblInd or nil";
+ end
end;
function WebSettings.Create();overload;
@@ -16754,13 +23622,13 @@ end;
function WebSettings.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function WebSettings.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function WebSettings.Init();override;
@@ -16791,17 +23659,22 @@ begin
tslassigning := tslassigning_backup;
end;
-function WebSettings.ReadXmlAttrIgnorable();
+function WebSettings.ConvertToPoint();override;
begin
- return {self.}XmlAttrIgnorable.Value;
+
end;
-function WebSettings.WriteXmlAttrIgnorable(_value);
+function WebSettings.ReadXmlAttrIgnorable();
+begin
+ return ifnil({self.}XmlAttrIgnorable.Value) ? fallback_.XmlAttrIgnorable.Value : {self.}XmlAttrIgnorable.Value;
+end;
+
+function WebSettings.WriteXmlAttrIgnorable(_value: any);
begin
if ifnil({self.}XmlAttrIgnorable) then
begin
{self.}XmlAttrIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrIgnorable;
+ attributes_["mc:Ignorable"] := {self.}XmlAttrIgnorable;
end
{self.}XmlAttrIgnorable.Value := _value;
end;
@@ -16813,7 +23686,24 @@ begin
{self.}XmlChildOptimizeForBrowser := new OpenXmlSimpleType(self, {self.}Prefix, "optimizeForBrowser");
container_.Set({self.}XmlChildOptimizeForBrowser);
end
- return {self.}XmlChildOptimizeForBrowser;
+ return {self.}XmlChildOptimizeForBrowser and not {self.}XmlChildOptimizeForBrowser.Removed ? {self.}XmlChildOptimizeForBrowser : fallback_.XmlChildOptimizeForBrowser;
+end;
+
+function WebSettings.WriteXmlChildOptimizeForBrowser(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildOptimizeForBrowser) then
+ {self.}RemoveChild({self.}XmlChildOptimizeForBrowser);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildOptimizeForBrowser := _value;
+ container_.Set({self.}XmlChildOptimizeForBrowser);
+ end
+ else begin
+ raise "Invalid assignment: OptimizeForBrowser expects nil or OpenXmlSimpleType";
+ end
end;
function WebSettings.ReadXmlChildAllowPNG();
@@ -16823,7 +23713,24 @@ begin
{self.}XmlChildAllowPNG := new OpenXmlSimpleType(self, {self.}Prefix, "allowPNG");
container_.Set({self.}XmlChildAllowPNG);
end
- return {self.}XmlChildAllowPNG;
+ return {self.}XmlChildAllowPNG and not {self.}XmlChildAllowPNG.Removed ? {self.}XmlChildAllowPNG : fallback_.XmlChildAllowPNG;
+end;
+
+function WebSettings.WriteXmlChildAllowPNG(_value: nil_or_OpenXmlSimpleType);
+begin
+ if ifnil(_value) then
+ begin
+ if ifObj({self.}XmlChildAllowPNG) then
+ {self.}RemoveChild({self.}XmlChildAllowPNG);
+ end
+ else if _value is class(OpenXmlSimpleType) then
+ begin
+ {self.}XmlChildAllowPNG := _value;
+ container_.Set({self.}XmlChildAllowPNG);
+ end
+ else begin
+ raise "Invalid assignment: AllowPNG expects nil or OpenXmlSimpleType";
+ end
end;
function AlternateContent.Create();overload;
@@ -16833,13 +23740,13 @@ end;
function AlternateContent.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function AlternateContent.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function AlternateContent.Init();override;
@@ -16867,6 +23774,14 @@ begin
tslassigning := tslassigning_backup;
end;
+function AlternateContent.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildChoice) then
+ {self.}XmlChildChoice.ConvertToPoint();
+ if not ifnil({self.}XmlChildFallback) then
+ {self.}XmlChildFallback.ConvertToPoint();
+end;
+
function AlternateContent.ReadXmlChildChoice(): Choice;
begin
if tslassigning and (ifnil({self.}XmlChildChoice) or {self.}XmlChildChoice.Removed) then
@@ -16874,7 +23789,25 @@ begin
{self.}XmlChildChoice := new Choice(self, {self.}Prefix, "Choice");
container_.Set({self.}XmlChildChoice);
end
- return {self.}XmlChildChoice;
+ return {self.}XmlChildChoice and not {self.}XmlChildChoice.Removed ? {self.}XmlChildChoice : fallback_.XmlChildChoice;
+end;
+
+function AlternateContent.WriteXmlChildChoice(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildChoice) then
+ {self.}RemoveChild({self.}XmlChildChoice);
+ end
+ else if v is class(Choice) then
+ begin
+ {self.}XmlChildChoice := v;
+ container_.Set({self.}XmlChildChoice);
+ end
+ else begin
+ raise "Invalid assignment: Choice expects Choice or nil";
+ end
end;
function AlternateContent.ReadXmlChildFallback(): Fallback;
@@ -16884,7 +23817,25 @@ begin
{self.}XmlChildFallback := new Fallback(self, {self.}Prefix, "Fallback");
container_.Set({self.}XmlChildFallback);
end
- return {self.}XmlChildFallback;
+ return {self.}XmlChildFallback and not {self.}XmlChildFallback.Removed ? {self.}XmlChildFallback : fallback_.XmlChildFallback;
+end;
+
+function AlternateContent.WriteXmlChildFallback(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildFallback) then
+ {self.}RemoveChild({self.}XmlChildFallback);
+ end
+ else if v is class(Fallback) then
+ begin
+ {self.}XmlChildFallback := v;
+ container_.Set({self.}XmlChildFallback);
+ end
+ else begin
+ raise "Invalid assignment: Fallback expects Fallback or nil";
+ end
end;
function Choice.Create();overload;
@@ -16894,13 +23845,13 @@ end;
function Choice.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Choice.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Choice.Init();override;
@@ -16931,17 +23882,25 @@ begin
tslassigning := tslassigning_backup;
end;
-function Choice.ReadXmlAttrRequires();
+function Choice.ConvertToPoint();override;
begin
- return {self.}XmlAttrRequires.Value;
+ if not ifnil({self.}XmlChildStyle) then
+ {self.}XmlChildStyle.ConvertToPoint();
+ if not ifnil({self.}XmlChildDrawing) then
+ {self.}XmlChildDrawing.ConvertToPoint();
end;
-function Choice.WriteXmlAttrRequires(_value);
+function Choice.ReadXmlAttrRequires();
+begin
+ return ifnil({self.}XmlAttrRequires.Value) ? fallback_.XmlAttrRequires.Value : {self.}XmlAttrRequires.Value;
+end;
+
+function Choice.WriteXmlAttrRequires(_value: any);
begin
if ifnil({self.}XmlAttrRequires) then
begin
{self.}XmlAttrRequires := new OpenXmlAttribute("", "Requires", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrRequires;
+ attributes_["Requires"] := {self.}XmlAttrRequires;
end
{self.}XmlAttrRequires.Value := _value;
end;
@@ -16953,7 +23912,25 @@ begin
{self.}XmlChildStyle := new PureVal(self, "c14", "style");
container_.Set({self.}XmlChildStyle);
end
- return {self.}XmlChildStyle;
+ return {self.}XmlChildStyle and not {self.}XmlChildStyle.Removed ? {self.}XmlChildStyle : fallback_.XmlChildStyle;
+end;
+
+function Choice.WriteXmlChildStyle(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildStyle) then
+ {self.}RemoveChild({self.}XmlChildStyle);
+ end
+ else if v is class(PureVal) then
+ begin
+ {self.}XmlChildStyle := v;
+ container_.Set({self.}XmlChildStyle);
+ end
+ else begin
+ raise "Invalid assignment: Style expects PureVal or nil";
+ end
end;
function Choice.ReadXmlChildDrawing(): Drawing;
@@ -16963,7 +23940,25 @@ begin
{self.}XmlChildDrawing := new Drawing(self, "w", "drawing");
container_.Set({self.}XmlChildDrawing);
end
- return {self.}XmlChildDrawing;
+ return {self.}XmlChildDrawing and not {self.}XmlChildDrawing.Removed ? {self.}XmlChildDrawing : fallback_.XmlChildDrawing;
+end;
+
+function Choice.WriteXmlChildDrawing(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildDrawing) then
+ {self.}RemoveChild({self.}XmlChildDrawing);
+ end
+ else if v is class(Drawing) then
+ begin
+ {self.}XmlChildDrawing := v;
+ container_.Set({self.}XmlChildDrawing);
+ end
+ else begin
+ raise "Invalid assignment: Drawing expects Drawing or nil";
+ end
end;
function Fallback.Create();overload;
@@ -16973,13 +23968,13 @@ end;
function Fallback.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Fallback.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Fallback.Init();override;
@@ -17007,6 +24002,14 @@ begin
tslassigning := tslassigning_backup;
end;
+function Fallback.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildStyle) then
+ {self.}XmlChildStyle.ConvertToPoint();
+ if not ifnil({self.}XmlChildPict) then
+ {self.}XmlChildPict.ConvertToPoint();
+end;
+
function Fallback.ReadXmlChildStyle(): PureVal;
begin
if tslassigning and (ifnil({self.}XmlChildStyle) or {self.}XmlChildStyle.Removed) then
@@ -17014,7 +24017,25 @@ begin
{self.}XmlChildStyle := new PureVal(self, "c", "style");
container_.Set({self.}XmlChildStyle);
end
- return {self.}XmlChildStyle;
+ return {self.}XmlChildStyle and not {self.}XmlChildStyle.Removed ? {self.}XmlChildStyle : fallback_.XmlChildStyle;
+end;
+
+function Fallback.WriteXmlChildStyle(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildStyle) then
+ {self.}RemoveChild({self.}XmlChildStyle);
+ end
+ else if v is class(PureVal) then
+ begin
+ {self.}XmlChildStyle := v;
+ container_.Set({self.}XmlChildStyle);
+ end
+ else begin
+ raise "Invalid assignment: Style expects PureVal or nil";
+ end
end;
function Fallback.ReadXmlChildPict(): Pict;
@@ -17024,7 +24045,25 @@ begin
{self.}XmlChildPict := new Pict(self, "w", "pict");
container_.Set({self.}XmlChildPict);
end
- return {self.}XmlChildPict;
+ return {self.}XmlChildPict and not {self.}XmlChildPict.Removed ? {self.}XmlChildPict : fallback_.XmlChildPict;
+end;
+
+function Fallback.WriteXmlChildPict(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildPict) then
+ {self.}RemoveChild({self.}XmlChildPict);
+ end
+ else if v is class(Pict) then
+ begin
+ {self.}XmlChildPict := v;
+ container_.Set({self.}XmlChildPict);
+ end
+ else begin
+ raise "Invalid assignment: Pict expects Pict or nil";
+ end
end;
function Pict.Create();overload;
@@ -17034,13 +24073,13 @@ end;
function Pict.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Pict.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Pict.Init();override;
@@ -17071,6 +24110,16 @@ begin
tslassigning := tslassigning_backup;
end;
+function Pict.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildShapetype) then
+ {self.}XmlChildShapetype.ConvertToPoint();
+ if not ifnil({self.}XmlChildShape) then
+ {self.}XmlChildShape.ConvertToPoint();
+ if not ifnil({self.}XmlChildControl) then
+ {self.}XmlChildControl.ConvertToPoint();
+end;
+
function Pict.ReadXmlChildShapetype(): Shapetype;
begin
if tslassigning and (ifnil({self.}XmlChildShapetype) or {self.}XmlChildShapetype.Removed) then
@@ -17078,7 +24127,25 @@ begin
{self.}XmlChildShapetype := new VML.Shapetype(self, "v", "shapetype");
container_.Set({self.}XmlChildShapetype);
end
- return {self.}XmlChildShapetype;
+ return {self.}XmlChildShapetype and not {self.}XmlChildShapetype.Removed ? {self.}XmlChildShapetype : fallback_.XmlChildShapetype;
+end;
+
+function Pict.WriteXmlChildShapetype(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildShapetype) then
+ {self.}RemoveChild({self.}XmlChildShapetype);
+ end
+ else if v is class(Shapetype) then
+ begin
+ {self.}XmlChildShapetype := v;
+ container_.Set({self.}XmlChildShapetype);
+ end
+ else begin
+ raise "Invalid assignment: Shapetype expects Shapetype or nil";
+ end
end;
function Pict.ReadXmlChildShape(): Shape;
@@ -17088,7 +24155,25 @@ begin
{self.}XmlChildShape := new VML.Shape(self, "v", "shape");
container_.Set({self.}XmlChildShape);
end
- return {self.}XmlChildShape;
+ return {self.}XmlChildShape and not {self.}XmlChildShape.Removed ? {self.}XmlChildShape : fallback_.XmlChildShape;
+end;
+
+function Pict.WriteXmlChildShape(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildShape) then
+ {self.}RemoveChild({self.}XmlChildShape);
+ end
+ else if v is class(Shape) then
+ begin
+ {self.}XmlChildShape := v;
+ container_.Set({self.}XmlChildShape);
+ end
+ else begin
+ raise "Invalid assignment: Shape expects Shape or nil";
+ end
end;
function Pict.ReadXmlChildControl(): Control;
@@ -17098,7 +24183,25 @@ begin
{self.}XmlChildControl := new Control(self, "v", "control");
container_.Set({self.}XmlChildControl);
end
- return {self.}XmlChildControl;
+ return {self.}XmlChildControl and not {self.}XmlChildControl.Removed ? {self.}XmlChildControl : fallback_.XmlChildControl;
+end;
+
+function Pict.WriteXmlChildControl(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildControl) then
+ {self.}RemoveChild({self.}XmlChildControl);
+ end
+ else if v is class(Control) then
+ begin
+ {self.}XmlChildControl := v;
+ container_.Set({self.}XmlChildControl);
+ end
+ else begin
+ raise "Invalid assignment: Control expects Control or nil";
+ end
end;
function Control.Create();overload;
@@ -17108,13 +24211,13 @@ end;
function Control.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Control.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Control.Init();override;
@@ -17145,47 +24248,52 @@ begin
tslassigning := tslassigning_backup;
end;
-function Control.ReadXmlAttrId();
+function Control.ConvertToPoint();override;
begin
- return {self.}XmlAttrId.Value;
+
end;
-function Control.WriteXmlAttrId(_value);
+function Control.ReadXmlAttrId();
+begin
+ return ifnil({self.}XmlAttrId.Value) ? fallback_.XmlAttrId.Value : {self.}XmlAttrId.Value;
+end;
+
+function Control.WriteXmlAttrId(_value: any);
begin
if ifnil({self.}XmlAttrId) then
begin
{self.}XmlAttrId := new OpenXmlAttribute("r", "id", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrId;
+ attributes_["r:id"] := {self.}XmlAttrId;
end
{self.}XmlAttrId.Value := _value;
end;
function Control.ReadXmlAttrShapeid();
begin
- return {self.}XmlAttrShapeid.Value;
+ return ifnil({self.}XmlAttrShapeid.Value) ? fallback_.XmlAttrShapeid.Value : {self.}XmlAttrShapeid.Value;
end;
-function Control.WriteXmlAttrShapeid(_value);
+function Control.WriteXmlAttrShapeid(_value: any);
begin
if ifnil({self.}XmlAttrShapeid) then
begin
{self.}XmlAttrShapeid := new OpenXmlAttribute({self.}Prefix, "shapeid", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrShapeid;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "shapeid" : "shapeid"] := {self.}XmlAttrShapeid;
end
{self.}XmlAttrShapeid.Value := _value;
end;
function Control.ReadXmlAttrname();
begin
- return {self.}XmlAttrname.Value;
+ return ifnil({self.}XmlAttrname.Value) ? fallback_.XmlAttrname.Value : {self.}XmlAttrname.Value;
end;
-function Control.WriteXmlAttrname(_value);
+function Control.WriteXmlAttrname(_value: any);
begin
if ifnil({self.}XmlAttrname) then
begin
{self.}XmlAttrname := new OpenXmlAttribute({self.}Prefix, "name", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrname;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "name" : "name"] := {self.}XmlAttrname;
end
{self.}XmlAttrname.Value := _value;
end;
@@ -17197,13 +24305,13 @@ end;
function Ftr.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Ftr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Ftr.Init();override;
@@ -17232,17 +24340,26 @@ begin
tslassigning := tslassigning_backup;
end;
-function Ftr.ReadXmlAttrIgnorable();
+function Ftr.ConvertToPoint();override;
begin
- return {self.}XmlAttrIgnorable.Value;
+ elems := {self.}Ps();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ if not ifnil({self.}XmlChildSdt) then
+ {self.}XmlChildSdt.ConvertToPoint();
end;
-function Ftr.WriteXmlAttrIgnorable(_value);
+function Ftr.ReadXmlAttrIgnorable();
+begin
+ return ifnil({self.}XmlAttrIgnorable.Value) ? fallback_.XmlAttrIgnorable.Value : {self.}XmlAttrIgnorable.Value;
+end;
+
+function Ftr.WriteXmlAttrIgnorable(_value: any);
begin
if ifnil({self.}XmlAttrIgnorable) then
begin
{self.}XmlAttrIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrIgnorable;
+ attributes_["mc:Ignorable"] := {self.}XmlAttrIgnorable;
end
{self.}XmlAttrIgnorable.Value := _value;
end;
@@ -17254,16 +24371,53 @@ begin
{self.}XmlChildSdt := new Sdt(self, {self.}Prefix, "sdt");
container_.Set({self.}XmlChildSdt);
end
- return {self.}XmlChildSdt;
+ return {self.}XmlChildSdt and not {self.}XmlChildSdt.Removed ? {self.}XmlChildSdt : fallback_.XmlChildSdt;
end;
-function Ftr.ReadPs(_index);
+function Ftr.WriteXmlChildSdt(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildSdt) then
+ {self.}RemoveChild({self.}XmlChildSdt);
+ end
+ else if v is class(Sdt) then
+ begin
+ {self.}XmlChildSdt := v;
+ container_.Set({self.}XmlChildSdt);
+ end
+ else begin
+ raise "Invalid assignment: Sdt expects Sdt or nil";
+ end
+end;
+
+function Ftr.ReadPs(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "p", ind);
end;
+function Ftr.WritePs(_index: integer; _value: nil_OR_P);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadPs(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "p", ind, _value) then
+ raise format("Index out of range: Ps[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Ps expects nil or P";
+ end
+end;
+
function Ftr.AddP(): P;
begin
obj := new P(self, {self.}Prefix, "p");
@@ -17285,13 +24439,13 @@ end;
function Hdr.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Hdr.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Hdr.Init();override;
@@ -17320,17 +24474,26 @@ begin
tslassigning := tslassigning_backup;
end;
-function Hdr.ReadXmlAttrIgnorable();
+function Hdr.ConvertToPoint();override;
begin
- return {self.}XmlAttrIgnorable.Value;
+ elems := {self.}Ps();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ if not ifnil({self.}XmlChildSdt) then
+ {self.}XmlChildSdt.ConvertToPoint();
end;
-function Hdr.WriteXmlAttrIgnorable(_value);
+function Hdr.ReadXmlAttrIgnorable();
+begin
+ return ifnil({self.}XmlAttrIgnorable.Value) ? fallback_.XmlAttrIgnorable.Value : {self.}XmlAttrIgnorable.Value;
+end;
+
+function Hdr.WriteXmlAttrIgnorable(_value: any);
begin
if ifnil({self.}XmlAttrIgnorable) then
begin
{self.}XmlAttrIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrIgnorable;
+ attributes_["mc:Ignorable"] := {self.}XmlAttrIgnorable;
end
{self.}XmlAttrIgnorable.Value := _value;
end;
@@ -17342,16 +24505,53 @@ begin
{self.}XmlChildSdt := new Sdt(self, {self.}Prefix, "sdt");
container_.Set({self.}XmlChildSdt);
end
- return {self.}XmlChildSdt;
+ return {self.}XmlChildSdt and not {self.}XmlChildSdt.Removed ? {self.}XmlChildSdt : fallback_.XmlChildSdt;
end;
-function Hdr.ReadPs(_index);
+function Hdr.WriteXmlChildSdt(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildSdt) then
+ {self.}RemoveChild({self.}XmlChildSdt);
+ end
+ else if v is class(Sdt) then
+ begin
+ {self.}XmlChildSdt := v;
+ container_.Set({self.}XmlChildSdt);
+ end
+ else begin
+ raise "Invalid assignment: Sdt expects Sdt or nil";
+ end
+end;
+
+function Hdr.ReadPs(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "p", ind);
end;
+function Hdr.WritePs(_index: integer; _value: nil_OR_P);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadPs(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "p", ind, _value) then
+ raise format("Index out of range: Ps[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Ps expects nil or P";
+ end
+end;
+
function Hdr.AddP(): P;
begin
obj := new P(self, {self.}Prefix, "p");
@@ -17373,13 +24573,13 @@ end;
function Comments.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Comments.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Comments.Init();override;
@@ -17405,28 +24605,54 @@ begin
tslassigning := tslassigning_backup;
end;
-function Comments.ReadXmlAttrIgnorable();
+function Comments.ConvertToPoint();override;
begin
- return {self.}XmlAttrIgnorable.Value;
+ elems := {self.}Comments();
+ for _,elem in elems do
+ elem.ConvertToPoint();
end;
-function Comments.WriteXmlAttrIgnorable(_value);
+function Comments.ReadXmlAttrIgnorable();
+begin
+ return ifnil({self.}XmlAttrIgnorable.Value) ? fallback_.XmlAttrIgnorable.Value : {self.}XmlAttrIgnorable.Value;
+end;
+
+function Comments.WriteXmlAttrIgnorable(_value: any);
begin
if ifnil({self.}XmlAttrIgnorable) then
begin
{self.}XmlAttrIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrIgnorable;
+ attributes_["mc:Ignorable"] := {self.}XmlAttrIgnorable;
end
{self.}XmlAttrIgnorable.Value := _value;
end;
-function Comments.ReadComments(_index);
+function Comments.ReadComments(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "comment", ind);
end;
+function Comments.WriteComments(_index: integer; _value: nil_OR_Comment);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadComments(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "comment", ind, _value) then
+ raise format("Index out of range: Comments[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Comments expects nil or Comment";
+ end
+end;
+
function Comments.AddComment(): Comment;
begin
obj := new Comment(self, {self.}Prefix, "comment");
@@ -17448,13 +24674,13 @@ end;
function Comment.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Comment.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Comment.Init();override;
@@ -17486,58 +24712,84 @@ begin
tslassigning := tslassigning_backup;
end;
-function Comment.ReadXmlAttrAuthor();
+function Comment.ConvertToPoint();override;
begin
- return {self.}XmlAttrAuthor.Value;
+ elems := {self.}Ps();
+ for _,elem in elems do
+ elem.ConvertToPoint();
end;
-function Comment.WriteXmlAttrAuthor(_value);
+function Comment.ReadXmlAttrAuthor();
+begin
+ return ifnil({self.}XmlAttrAuthor.Value) ? fallback_.XmlAttrAuthor.Value : {self.}XmlAttrAuthor.Value;
+end;
+
+function Comment.WriteXmlAttrAuthor(_value: any);
begin
if ifnil({self.}XmlAttrAuthor) then
begin
{self.}XmlAttrAuthor := new OpenXmlAttribute({self.}Prefix, "author", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrAuthor;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "author" : "author"] := {self.}XmlAttrAuthor;
end
{self.}XmlAttrAuthor.Value := _value;
end;
function Comment.ReadXmlAttrDate();
begin
- return {self.}XmlAttrDate.Value;
+ return ifnil({self.}XmlAttrDate.Value) ? fallback_.XmlAttrDate.Value : {self.}XmlAttrDate.Value;
end;
-function Comment.WriteXmlAttrDate(_value);
+function Comment.WriteXmlAttrDate(_value: any);
begin
if ifnil({self.}XmlAttrDate) then
begin
{self.}XmlAttrDate := new OpenXmlAttribute({self.}Prefix, "date", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrDate;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "date" : "date"] := {self.}XmlAttrDate;
end
{self.}XmlAttrDate.Value := _value;
end;
function Comment.ReadXmlAttrId();
begin
- return {self.}XmlAttrId.Value;
+ return ifnil({self.}XmlAttrId.Value) ? fallback_.XmlAttrId.Value : {self.}XmlAttrId.Value;
end;
-function Comment.WriteXmlAttrId(_value);
+function Comment.WriteXmlAttrId(_value: any);
begin
if ifnil({self.}XmlAttrId) then
begin
{self.}XmlAttrId := new OpenXmlAttribute({self.}Prefix, "id", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrId;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "id" : "id"] := {self.}XmlAttrId;
end
{self.}XmlAttrId.Value := _value;
end;
-function Comment.ReadPs(_index);
+function Comment.ReadPs(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "p", ind);
end;
+function Comment.WritePs(_index: integer; _value: nil_OR_P);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadPs(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "p", ind, _value) then
+ raise format("Index out of range: Ps[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Ps expects nil or P";
+ end
+end;
+
function Comment.AddP(): P;
begin
obj := new P(self, {self.}Prefix, "p");
@@ -17559,13 +24811,13 @@ end;
function Numbering.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Numbering.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Numbering.Init();override;
@@ -17592,35 +24844,83 @@ begin
tslassigning := tslassigning_backup;
end;
-function Numbering.ReadXmlAttrIgnorable();
+function Numbering.ConvertToPoint();override;
begin
- return {self.}XmlAttrIgnorable.Value;
+ elems := {self.}AbstractNums();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Nums();
+ for _,elem in elems do
+ elem.ConvertToPoint();
end;
-function Numbering.WriteXmlAttrIgnorable(_value);
+function Numbering.ReadXmlAttrIgnorable();
+begin
+ return ifnil({self.}XmlAttrIgnorable.Value) ? fallback_.XmlAttrIgnorable.Value : {self.}XmlAttrIgnorable.Value;
+end;
+
+function Numbering.WriteXmlAttrIgnorable(_value: any);
begin
if ifnil({self.}XmlAttrIgnorable) then
begin
{self.}XmlAttrIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrIgnorable;
+ attributes_["mc:Ignorable"] := {self.}XmlAttrIgnorable;
end
{self.}XmlAttrIgnorable.Value := _value;
end;
-function Numbering.ReadAbstractNums(_index);
+function Numbering.ReadAbstractNums(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "abstractNum", ind);
end;
-function Numbering.ReadNums(_index);
+function Numbering.WriteAbstractNums(_index: integer; _value: nil_OR_AbstractNum);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadAbstractNums(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "abstractNum", ind, _value) then
+ raise format("Index out of range: AbstractNums[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: AbstractNums expects nil or AbstractNum";
+ end
+end;
+
+function Numbering.ReadNums(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "num", ind);
end;
+function Numbering.WriteNums(_index: integer; _value: nil_OR_Num);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadNums(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "num", ind, _value) then
+ raise format("Index out of range: Nums[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Nums expects nil or Num";
+ end
+end;
+
function Numbering.AddAbstractNum(): AbstractNum;
begin
obj := new AbstractNum(self, {self.}Prefix, "abstractNum");
@@ -17656,13 +24956,13 @@ end;
function Num.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Num.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Num.Init();override;
@@ -17690,17 +24990,23 @@ begin
tslassigning := tslassigning_backup;
end;
-function Num.ReadXmlAttrNumId();
+function Num.ConvertToPoint();override;
begin
- return {self.}XmlAttrNumId.Value;
+ if not ifnil({self.}XmlChildAbstractNumId) then
+ {self.}XmlChildAbstractNumId.ConvertToPoint();
end;
-function Num.WriteXmlAttrNumId(_value);
+function Num.ReadXmlAttrNumId();
+begin
+ return ifnil({self.}XmlAttrNumId.Value) ? fallback_.XmlAttrNumId.Value : {self.}XmlAttrNumId.Value;
+end;
+
+function Num.WriteXmlAttrNumId(_value: any);
begin
if ifnil({self.}XmlAttrNumId) then
begin
{self.}XmlAttrNumId := new OpenXmlAttribute({self.}Prefix, "numId", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrNumId;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "numId" : "numId"] := {self.}XmlAttrNumId;
end
{self.}XmlAttrNumId.Value := _value;
end;
@@ -17712,7 +25018,25 @@ begin
{self.}XmlChildAbstractNumId := new PureWVal(self, {self.}Prefix, "abstractNumId");
container_.Set({self.}XmlChildAbstractNumId);
end
- return {self.}XmlChildAbstractNumId;
+ return {self.}XmlChildAbstractNumId and not {self.}XmlChildAbstractNumId.Removed ? {self.}XmlChildAbstractNumId : fallback_.XmlChildAbstractNumId;
+end;
+
+function Num.WriteXmlChildAbstractNumId(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildAbstractNumId) then
+ {self.}RemoveChild({self.}XmlChildAbstractNumId);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildAbstractNumId := v;
+ container_.Set({self.}XmlChildAbstractNumId);
+ end
+ else begin
+ raise "Invalid assignment: AbstractNumId expects PureWVal or nil";
+ end
end;
function AbstractNum.Create();overload;
@@ -17722,13 +25046,13 @@ end;
function AbstractNum.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function AbstractNum.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function AbstractNum.Init();override;
@@ -17766,32 +25090,45 @@ begin
tslassigning := tslassigning_backup;
end;
-function AbstractNum.ReadXmlAttrAbstractNumId();
+function AbstractNum.ConvertToPoint();override;
begin
- return {self.}XmlAttrAbstractNumId.Value;
+ if not ifnil({self.}XmlChildNsid) then
+ {self.}XmlChildNsid.ConvertToPoint();
+ if not ifnil({self.}XmlChildMultiLevelType) then
+ {self.}XmlChildMultiLevelType.ConvertToPoint();
+ if not ifnil({self.}XmlChildTmpl) then
+ {self.}XmlChildTmpl.ConvertToPoint();
+ elems := {self.}Lvls();
+ for _,elem in elems do
+ elem.ConvertToPoint();
end;
-function AbstractNum.WriteXmlAttrAbstractNumId(_value);
+function AbstractNum.ReadXmlAttrAbstractNumId();
+begin
+ return ifnil({self.}XmlAttrAbstractNumId.Value) ? fallback_.XmlAttrAbstractNumId.Value : {self.}XmlAttrAbstractNumId.Value;
+end;
+
+function AbstractNum.WriteXmlAttrAbstractNumId(_value: any);
begin
if ifnil({self.}XmlAttrAbstractNumId) then
begin
{self.}XmlAttrAbstractNumId := new OpenXmlAttribute({self.}Prefix, "abstractNumId", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrAbstractNumId;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "abstractNumId" : "abstractNumId"] := {self.}XmlAttrAbstractNumId;
end
{self.}XmlAttrAbstractNumId.Value := _value;
end;
function AbstractNum.ReadXmlAttrRestartNumberingAfterBreak();
begin
- return {self.}XmlAttrRestartNumberingAfterBreak.Value;
+ return ifnil({self.}XmlAttrRestartNumberingAfterBreak.Value) ? fallback_.XmlAttrRestartNumberingAfterBreak.Value : {self.}XmlAttrRestartNumberingAfterBreak.Value;
end;
-function AbstractNum.WriteXmlAttrRestartNumberingAfterBreak(_value);
+function AbstractNum.WriteXmlAttrRestartNumberingAfterBreak(_value: any);
begin
if ifnil({self.}XmlAttrRestartNumberingAfterBreak) then
begin
{self.}XmlAttrRestartNumberingAfterBreak := new OpenXmlAttribute({self.}Prefix, "restartNumberingAfterBreak", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrRestartNumberingAfterBreak;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "restartNumberingAfterBreak" : "restartNumberingAfterBreak"] := {self.}XmlAttrRestartNumberingAfterBreak;
end
{self.}XmlAttrRestartNumberingAfterBreak.Value := _value;
end;
@@ -17803,7 +25140,25 @@ begin
{self.}XmlChildNsid := new PureWVal(self, {self.}Prefix, "nsid");
container_.Set({self.}XmlChildNsid);
end
- return {self.}XmlChildNsid;
+ return {self.}XmlChildNsid and not {self.}XmlChildNsid.Removed ? {self.}XmlChildNsid : fallback_.XmlChildNsid;
+end;
+
+function AbstractNum.WriteXmlChildNsid(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildNsid) then
+ {self.}RemoveChild({self.}XmlChildNsid);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildNsid := v;
+ container_.Set({self.}XmlChildNsid);
+ end
+ else begin
+ raise "Invalid assignment: Nsid expects PureWVal or nil";
+ end
end;
function AbstractNum.ReadXmlChildMultiLevelType(): PureWVal;
@@ -17813,7 +25168,25 @@ begin
{self.}XmlChildMultiLevelType := new PureWVal(self, {self.}Prefix, "multiLevelType");
container_.Set({self.}XmlChildMultiLevelType);
end
- return {self.}XmlChildMultiLevelType;
+ return {self.}XmlChildMultiLevelType and not {self.}XmlChildMultiLevelType.Removed ? {self.}XmlChildMultiLevelType : fallback_.XmlChildMultiLevelType;
+end;
+
+function AbstractNum.WriteXmlChildMultiLevelType(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildMultiLevelType) then
+ {self.}RemoveChild({self.}XmlChildMultiLevelType);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildMultiLevelType := v;
+ container_.Set({self.}XmlChildMultiLevelType);
+ end
+ else begin
+ raise "Invalid assignment: MultiLevelType expects PureWVal or nil";
+ end
end;
function AbstractNum.ReadXmlChildTmpl(): PureWVal;
@@ -17823,16 +25196,53 @@ begin
{self.}XmlChildTmpl := new PureWVal(self, {self.}Prefix, "tmpl");
container_.Set({self.}XmlChildTmpl);
end
- return {self.}XmlChildTmpl;
+ return {self.}XmlChildTmpl and not {self.}XmlChildTmpl.Removed ? {self.}XmlChildTmpl : fallback_.XmlChildTmpl;
end;
-function AbstractNum.ReadLvls(_index);
+function AbstractNum.WriteXmlChildTmpl(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildTmpl) then
+ {self.}RemoveChild({self.}XmlChildTmpl);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildTmpl := v;
+ container_.Set({self.}XmlChildTmpl);
+ end
+ else begin
+ raise "Invalid assignment: Tmpl expects PureWVal or nil";
+ end
+end;
+
+function AbstractNum.ReadLvls(_index: integer);
begin
ind := ifnil(_index) ? -2 : _index;
pre := {self.}Prefix ? {self.}Prefix + ":" : "";
return container_.Get(pre + "lvl", ind);
end;
+function AbstractNum.WriteLvls(_index: integer; _value: nil_OR_Lvl);
+begin
+ if ifnil(_value) then
+ begin
+ obj := {self.}ReadLvls(_index);
+ {self.}RemoveChild(obj);
+ end
+ else if ifInt(_index) or ifInt64(_index) then
+ begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ if not container_.Set(pre + "lvl", ind, _value) then
+ raise format("Index out of range: Lvls[%d] is invalid or out of bounds", _index);
+ end
+ else begin
+ raise "Invalid assignment: Lvls expects nil or Lvl";
+ end
+end;
+
function AbstractNum.AddLvl(): Lvl;
begin
obj := new Lvl(self, {self.}Prefix, "lvl");
@@ -17854,13 +25264,13 @@ end;
function Lvl.Create(_node: XmlNode);overload;
begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
+ inherited Create(_node: XmlNode);
end;
function Lvl.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
begin
setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+ inherited Create(_parent, _prefix, _local_name);
end;
function Lvl.Init();override;
@@ -17912,32 +25322,52 @@ begin
tslassigning := tslassigning_backup;
end;
-function Lvl.ReadXmlAttrIlvl();
+function Lvl.ConvertToPoint();override;
begin
- return {self.}XmlAttrIlvl.Value;
+ if not ifnil({self.}XmlChildStart) then
+ {self.}XmlChildStart.ConvertToPoint();
+ if not ifnil({self.}XmlChildNumFmt) then
+ {self.}XmlChildNumFmt.ConvertToPoint();
+ if not ifnil({self.}XmlChildPStyle) then
+ {self.}XmlChildPStyle.ConvertToPoint();
+ if not ifnil({self.}XmlChildSuff) then
+ {self.}XmlChildSuff.ConvertToPoint();
+ if not ifnil({self.}XmlChildLvlText) then
+ {self.}XmlChildLvlText.ConvertToPoint();
+ if not ifnil({self.}XmlChildLvlJc) then
+ {self.}XmlChildLvlJc.ConvertToPoint();
+ if not ifnil({self.}XmlChildPPr) then
+ {self.}XmlChildPPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildRPr) then
+ {self.}XmlChildRPr.ConvertToPoint();
end;
-function Lvl.WriteXmlAttrIlvl(_value);
+function Lvl.ReadXmlAttrIlvl();
+begin
+ return ifnil({self.}XmlAttrIlvl.Value) ? fallback_.XmlAttrIlvl.Value : {self.}XmlAttrIlvl.Value;
+end;
+
+function Lvl.WriteXmlAttrIlvl(_value: any);
begin
if ifnil({self.}XmlAttrIlvl) then
begin
{self.}XmlAttrIlvl := new OpenXmlAttribute({self.}Prefix, "ilvl", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrIlvl;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "ilvl" : "ilvl"] := {self.}XmlAttrIlvl;
end
{self.}XmlAttrIlvl.Value := _value;
end;
function Lvl.ReadXmlAttrTentative();
begin
- return {self.}XmlAttrTentative.Value;
+ return ifnil({self.}XmlAttrTentative.Value) ? fallback_.XmlAttrTentative.Value : {self.}XmlAttrTentative.Value;
end;
-function Lvl.WriteXmlAttrTentative(_value);
+function Lvl.WriteXmlAttrTentative(_value: any);
begin
if ifnil({self.}XmlAttrTentative) then
begin
{self.}XmlAttrTentative := new OpenXmlAttribute({self.}Prefix, "tentative", nil);
- attributes_[length(attributes_)] := {self.}XmlAttrTentative;
+ attributes_[{self.}Prefix ? {self.}Prefix + ":" + "tentative" : "tentative"] := {self.}XmlAttrTentative;
end
{self.}XmlAttrTentative.Value := _value;
end;
@@ -17949,7 +25379,25 @@ begin
{self.}XmlChildStart := new PureWVal(self, {self.}Prefix, "start");
container_.Set({self.}XmlChildStart);
end
- return {self.}XmlChildStart;
+ return {self.}XmlChildStart and not {self.}XmlChildStart.Removed ? {self.}XmlChildStart : fallback_.XmlChildStart;
+end;
+
+function Lvl.WriteXmlChildStart(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildStart) then
+ {self.}RemoveChild({self.}XmlChildStart);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildStart := v;
+ container_.Set({self.}XmlChildStart);
+ end
+ else begin
+ raise "Invalid assignment: Start expects PureWVal or nil";
+ end
end;
function Lvl.ReadXmlChildNumFmt(): PureWVal;
@@ -17959,7 +25407,25 @@ begin
{self.}XmlChildNumFmt := new PureWVal(self, {self.}Prefix, "numFmt");
container_.Set({self.}XmlChildNumFmt);
end
- return {self.}XmlChildNumFmt;
+ return {self.}XmlChildNumFmt and not {self.}XmlChildNumFmt.Removed ? {self.}XmlChildNumFmt : fallback_.XmlChildNumFmt;
+end;
+
+function Lvl.WriteXmlChildNumFmt(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildNumFmt) then
+ {self.}RemoveChild({self.}XmlChildNumFmt);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildNumFmt := v;
+ container_.Set({self.}XmlChildNumFmt);
+ end
+ else begin
+ raise "Invalid assignment: NumFmt expects PureWVal or nil";
+ end
end;
function Lvl.ReadXmlChildPStyle(): PureWVal;
@@ -17969,7 +25435,25 @@ begin
{self.}XmlChildPStyle := new PureWVal(self, {self.}Prefix, "pStyle");
container_.Set({self.}XmlChildPStyle);
end
- return {self.}XmlChildPStyle;
+ return {self.}XmlChildPStyle and not {self.}XmlChildPStyle.Removed ? {self.}XmlChildPStyle : fallback_.XmlChildPStyle;
+end;
+
+function Lvl.WriteXmlChildPStyle(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildPStyle) then
+ {self.}RemoveChild({self.}XmlChildPStyle);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildPStyle := v;
+ container_.Set({self.}XmlChildPStyle);
+ end
+ else begin
+ raise "Invalid assignment: PStyle expects PureWVal or nil";
+ end
end;
function Lvl.ReadXmlChildSuff(): PureWVal;
@@ -17979,7 +25463,25 @@ begin
{self.}XmlChildSuff := new PureWVal(self, {self.}Prefix, "suff");
container_.Set({self.}XmlChildSuff);
end
- return {self.}XmlChildSuff;
+ return {self.}XmlChildSuff and not {self.}XmlChildSuff.Removed ? {self.}XmlChildSuff : fallback_.XmlChildSuff;
+end;
+
+function Lvl.WriteXmlChildSuff(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildSuff) then
+ {self.}RemoveChild({self.}XmlChildSuff);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildSuff := v;
+ container_.Set({self.}XmlChildSuff);
+ end
+ else begin
+ raise "Invalid assignment: Suff expects PureWVal or nil";
+ end
end;
function Lvl.ReadXmlChildLvlText(): PureWVal;
@@ -17989,7 +25491,25 @@ begin
{self.}XmlChildLvlText := new PureWVal(self, {self.}Prefix, "lvlText");
container_.Set({self.}XmlChildLvlText);
end
- return {self.}XmlChildLvlText;
+ return {self.}XmlChildLvlText and not {self.}XmlChildLvlText.Removed ? {self.}XmlChildLvlText : fallback_.XmlChildLvlText;
+end;
+
+function Lvl.WriteXmlChildLvlText(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildLvlText) then
+ {self.}RemoveChild({self.}XmlChildLvlText);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildLvlText := v;
+ container_.Set({self.}XmlChildLvlText);
+ end
+ else begin
+ raise "Invalid assignment: LvlText expects PureWVal or nil";
+ end
end;
function Lvl.ReadXmlChildLvlJc(): PureWVal;
@@ -17999,7 +25519,25 @@ begin
{self.}XmlChildLvlJc := new PureWVal(self, {self.}Prefix, "lvlJc");
container_.Set({self.}XmlChildLvlJc);
end
- return {self.}XmlChildLvlJc;
+ return {self.}XmlChildLvlJc and not {self.}XmlChildLvlJc.Removed ? {self.}XmlChildLvlJc : fallback_.XmlChildLvlJc;
+end;
+
+function Lvl.WriteXmlChildLvlJc(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildLvlJc) then
+ {self.}RemoveChild({self.}XmlChildLvlJc);
+ end
+ else if v is class(PureWVal) then
+ begin
+ {self.}XmlChildLvlJc := v;
+ container_.Set({self.}XmlChildLvlJc);
+ end
+ else begin
+ raise "Invalid assignment: LvlJc expects PureWVal or nil";
+ end
end;
function Lvl.ReadXmlChildPPr(): PPr;
@@ -18009,7 +25547,25 @@ begin
{self.}XmlChildPPr := new PPr(self, {self.}Prefix, "pPr");
container_.Set({self.}XmlChildPPr);
end
- return {self.}XmlChildPPr;
+ return {self.}XmlChildPPr and not {self.}XmlChildPPr.Removed ? {self.}XmlChildPPr : fallback_.XmlChildPPr;
+end;
+
+function Lvl.WriteXmlChildPPr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildPPr) then
+ {self.}RemoveChild({self.}XmlChildPPr);
+ end
+ else if v is class(PPr) then
+ begin
+ {self.}XmlChildPPr := v;
+ container_.Set({self.}XmlChildPPr);
+ end
+ else begin
+ raise "Invalid assignment: PPr expects PPr or nil";
+ end
end;
function Lvl.ReadXmlChildRPr(): RPr;
@@ -18019,7 +25575,25 @@ begin
{self.}XmlChildRPr := new RPr(self, {self.}Prefix, "rPr");
container_.Set({self.}XmlChildRPr);
end
- return {self.}XmlChildRPr;
+ return {self.}XmlChildRPr and not {self.}XmlChildRPr.Removed ? {self.}XmlChildRPr : fallback_.XmlChildRPr;
+end;
+
+function Lvl.WriteXmlChildRPr(_p1: any; _p2: any);
+begin
+ v := realparamcount = 1 ? _p1 : _p2;
+ if ifnil(v) then
+ begin
+ if ifObj({self.}XmlChildRPr) then
+ {self.}RemoveChild({self.}XmlChildRPr);
+ end
+ else if v is class(RPr) then
+ begin
+ {self.}XmlChildRPr := v;
+ container_.Set({self.}XmlChildRPr);
+ end
+ else begin
+ raise "Invalid assignment: RPr expects RPr or nil";
+ end
end;
end.
\ No newline at end of file
diff --git a/autounit/DocxMLUnitDecorator.tsf b/autounit/DocxMLUnitDecorator.tsf
index f8733f5..8639620 100644
--- a/autounit/DocxMLUnitDecorator.tsf
+++ b/autounit/DocxMLUnitDecorator.tsf
@@ -290,6 +290,15 @@ private
object_: R;
end;
+type CommentReferenceUnitDecorator = class(CommentReference)
+public
+ function Create(_obj: CommentReference);
+ function GetObject();
+ function Convert();
+private
+ object_: CommentReference;
+end;
+
type ObjectUnitDecorator = class(Object)
public
function Create(_obj: Object);
@@ -1340,11 +1349,11 @@ begin
if not ifnil(object_.XmlChildTabs) then
{self.}XmlChildTabs := new TabsUnitDecorator(object_.XmlChildTabs);
if not ifnil(object_.XmlChildBidi) then
- {self.}XmlChildBidi.Copy(object_.XmlChildBidi);
+ {self.}Bidi.Copy(object_.XmlChildBidi);
if not ifnil(object_.XmlChildWidowControl) then
- {self.}XmlChildWidowControl.Copy(object_.XmlChildWidowControl);
+ {self.}WidowControl.Copy(object_.XmlChildWidowControl);
if not ifnil(object_.XmlChildSnapToGrid) then
- {self.}XmlChildSnapToGrid.Copy(object_.XmlChildSnapToGrid);
+ {self.}SnapToGrid.Copy(object_.XmlChildSnapToGrid);
if not ifnil(object_.XmlChildPStyle) then
{self.}XmlChildPStyle := new PureWValUnitDecorator(object_.XmlChildPStyle);
if not ifnil(object_.XmlChildNumPr) then
@@ -1354,21 +1363,21 @@ begin
if not ifnil(object_.XmlChildInd) then
{self.}XmlChildInd := new IndUnitDecorator(object_.XmlChildInd);
if not ifnil(object_.XmlChildKeepNext) then
- {self.}XmlChildKeepNext.Copy(object_.XmlChildKeepNext);
+ {self.}KeepNext.Copy(object_.XmlChildKeepNext);
if not ifnil(object_.XmlChildKeepLines) then
- {self.}XmlChildKeepLines.Copy(object_.XmlChildKeepLines);
+ {self.}KeepLines.Copy(object_.XmlChildKeepLines);
if not ifnil(object_.XmlChildMirrorIndents) then
- {self.}XmlChildMirrorIndents.Copy(object_.XmlChildMirrorIndents);
+ {self.}MirrorIndents.Copy(object_.XmlChildMirrorIndents);
if not ifnil(object_.XmlChildKinsoku) then
{self.}XmlChildKinsoku := new PureWValUnitDecorator(object_.XmlChildKinsoku);
if not ifnil(object_.XmlChildPageBreakBefore) then
- {self.}XmlChildPageBreakBefore.Copy(object_.XmlChildPageBreakBefore);
+ {self.}PageBreakBefore.Copy(object_.XmlChildPageBreakBefore);
if not ifnil(object_.XmlChildSuppressAutoHyphens) then
- {self.}XmlChildSuppressAutoHyphens.Copy(object_.XmlChildSuppressAutoHyphens);
+ {self.}SuppressAutoHyphens.Copy(object_.XmlChildSuppressAutoHyphens);
if not ifnil(object_.XmlChildSuppressLineNumbers) then
- {self.}XmlChildSuppressLineNumbers.Copy(object_.XmlChildSuppressLineNumbers);
+ {self.}SuppressLineNumbers.Copy(object_.XmlChildSuppressLineNumbers);
if not ifnil(object_.XmlChildSuppressOverlap) then
- {self.}XmlChildSuppressOverlap.Copy(object_.XmlChildSuppressOverlap);
+ {self.}SuppressOverlap.Copy(object_.XmlChildSuppressOverlap);
if not ifnil(object_.XmlChildOverflowPunct) then
{self.}XmlChildOverflowPunct := new PureWValUnitDecorator(object_.XmlChildOverflowPunct);
if not ifnil(object_.XmlChildAdjustRightInd) then
@@ -1386,7 +1395,7 @@ begin
if not ifnil(object_.XmlChildPBdr) then
{self.}XmlChildPBdr := new PBdrUnitDecorator(object_.XmlChildPBdr);
if not ifnil(object_.XmlChildContextualSpacing) then
- {self.}XmlChildContextualSpacing.Copy(object_.XmlChildContextualSpacing);
+ {self.}ContextualSpacing.Copy(object_.XmlChildContextualSpacing);
if not ifnil(object_.XmlChildShd) then
{self.}XmlChildShd := new ShdUnitDecorator(object_.XmlChildShd);
if not ifnil(object_.XmlChildWordWrap) then
@@ -1405,6 +1414,8 @@ begin
{self.}XmlChildTextAlignment := new PureWValUnitDecorator(object_.XmlChildTextAlignment);
if not ifnil(object_.XmlChildTextDirection) then
{self.}XmlChildTextDirection := new PureWValUnitDecorator(object_.XmlChildTextDirection);
+ if not ifnil(object_.XmlChildCollapsed) then
+ {self.}XmlChildCollapsed := new PureWValUnitDecorator(object_.XmlChildCollapsed);
tslassigning := tslassigning_backup;
end;
@@ -1698,13 +1709,13 @@ begin
if not ifnil(object_.XmlChildKern) then
{self.}XmlChildKern := new PureWValUnitDecorator(object_.XmlChildKern);
if not ifnil(object_.XmlChildI) then
- {self.}XmlChildI.Copy(object_.XmlChildI);
+ {self.}I.Copy(object_.XmlChildI);
if not ifnil(object_.XmlChildICs) then
- {self.}XmlChildICs.Copy(object_.XmlChildICs);
+ {self.}ICs.Copy(object_.XmlChildICs);
if not ifnil(object_.XmlChildB) then
- {self.}XmlChildB.Copy(object_.XmlChildB);
+ {self.}B.Copy(object_.XmlChildB);
if not ifnil(object_.XmlChildBCs) then
- {self.}XmlChildBCs.Copy(object_.XmlChildBCs);
+ {self.}BCs.Copy(object_.XmlChildBCs);
if not ifnil(object_.XmlChildBdr) then
{self.}XmlChildBdr := new BdrUnitDecorator(object_.XmlChildBdr);
if not ifnil(object_.XmlChildCaps) then
@@ -1712,7 +1723,7 @@ begin
if not ifnil(object_.XmlChildDel) then
{self.}XmlChildDel := new DelUnitDecorator(object_.XmlChildDel);
if not ifnil(object_.XmlChildStrike) then
- {self.}XmlChildStrike.Copy(object_.XmlChildStrike);
+ {self.}Strike.Copy(object_.XmlChildStrike);
if not ifnil(object_.XmlChildDStrike) then
{self.}XmlChildDStrike := new PureWValUnitDecorator(object_.XmlChildDStrike);
if not ifnil(object_.XmlChildEffect) then
@@ -1730,13 +1741,13 @@ begin
if not ifnil(object_.XmlChildEastAsianLayout) then
{self.}XmlChildEastAsianLayout := new EastAsianLayoutUnitDecorator(object_.XmlChildEastAsianLayout);
if not ifnil(object_.XmlChildCs) then
- {self.}XmlChildCs.Copy(object_.XmlChildCs);
+ {self.}Cs.Copy(object_.XmlChildCs);
if not ifnil(object_.XmlChildSz) then
{self.}XmlChildSz := new SzUnitDecorator(object_.XmlChildSz);
if not ifnil(object_.XmlChildSzCs) then
{self.}XmlChildSzCs := new SzCsUnitDecorator(object_.XmlChildSzCs);
if not ifnil(object_.XmlChildU) then
- {self.}XmlChildU.Copy(object_.XmlChildU);
+ {self.}U.Copy(object_.XmlChildU);
if not ifnil(object_.XmlChildLang) then
{self.}XmlChildLang := new LangUnitDecorator(object_.XmlChildLang);
if not ifnil(object_.XmlChildImprint) then
@@ -1748,13 +1759,13 @@ begin
if not ifnil(object_.XmlChildRtl) then
{self.}XmlChildRtl := new PureWValUnitDecorator(object_.XmlChildRtl);
if not ifnil(object_.XmlChildOMath) then
- {self.}XmlChildOMath.Copy(object_.XmlChildOMath);
+ {self.}OMath.Copy(object_.XmlChildOMath);
if not ifnil(object_.XmlChildShadow) then
- {self.}XmlChildShadow.Copy(object_.XmlChildShadow);
+ {self.}Shadow.Copy(object_.XmlChildShadow);
if not ifnil(object_.XmlChildSpecVanish) then
- {self.}XmlChildSpecVanish.Copy(object_.XmlChildSpecVanish);
+ {self.}SpecVanish.Copy(object_.XmlChildSpecVanish);
if not ifnil(object_.XmlChildVanish) then
- {self.}XmlChildVanish.Copy(object_.XmlChildVanish);
+ {self.}Vanish.Copy(object_.XmlChildVanish);
if not ifnil(object_.XmlChildShd) then
{self.}XmlChildShd := new ShdUnitDecorator(object_.XmlChildShd);
if not ifnil(object_.XmlChildSmallCaps) then
@@ -2151,11 +2162,11 @@ begin
if not ifnil(object_.XmlChildInstrText) then
{self.}XmlChildInstrText := new InstrTextUnitDecorator(object_.XmlChildInstrText);
if not ifnil(object_.XmlChildSeparator) then
- {self.}XmlChildSeparator.Copy(object_.XmlChildSeparator);
+ {self.}Separator.Copy(object_.XmlChildSeparator);
if not ifnil(object_.XmlChildContinuationSeparator) then
- {self.}XmlChildContinuationSeparator.Copy(object_.XmlChildContinuationSeparator);
+ {self.}ContinuationSeparator.Copy(object_.XmlChildContinuationSeparator);
if not ifnil(object_.XmlChildLastRenderedPageBreak) then
- {self.}XmlChildLastRenderedPageBreak.Copy(object_.XmlChildLastRenderedPageBreak);
+ {self.}LastRenderedPageBreak.Copy(object_.XmlChildLastRenderedPageBreak);
if not ifnil(object_.XmlChildAlternateContent) then
{self.}XmlChildAlternateContent := new AlternateContentUnitDecorator(object_.XmlChildAlternateContent);
if not ifnil(object_.XmlChildDrawing) then
@@ -2169,7 +2180,30 @@ begin
if not ifnil(object_.XmlChildFootnoteReference) then
{self.}XmlChildFootnoteReference := new FootnoteReferenceUnitDecorator(object_.XmlChildFootnoteReference);
if not ifnil(object_.XmlChildFootnoteRef) then
- {self.}XmlChildFootnoteRef.Copy(object_.XmlChildFootnoteRef);
+ {self.}FootnoteRef.Copy(object_.XmlChildFootnoteRef);
+ if not ifnil(object_.XmlChildCommentReference) then
+ {self.}XmlChildCommentReference := new CommentReferenceUnitDecorator(object_.XmlChildCommentReference);
+ tslassigning := tslassigning_backup;
+end;
+
+function CommentReferenceUnitDecorator.Create(_obj: CommentReference);
+begin
+ class(CommentReference).Create();
+ object_ := _obj;
+ {self.}Convert();
+end;
+
+function CommentReferenceUnitDecorator.GetObject();
+begin
+ return object_;
+end;
+
+function CommentReferenceUnitDecorator.Convert();
+begin
+ tslassigning_backup := tslassigning;
+ tslassigning := 1;
+ if not ifnil(object_.XmlAttrId) then
+ {self.}Id := object_.XmlAttrId.Value;
tslassigning := tslassigning_backup;
end;
@@ -2697,7 +2731,7 @@ begin
if not ifnil(object_.XmlChildJc) then
{self.}XmlChildJc := new PureWValUnitDecorator(object_.XmlChildJc);
if not ifnil(object_.XmlChildCantSplit) then
- {self.}XmlChildCantSplit.Copy(object_.XmlChildCantSplit);
+ {self.}CantSplit.Copy(object_.XmlChildCantSplit);
if not ifnil(object_.XmlChildCnfStyle) then
{self.}XmlChildCnfStyle := new CnfStyleUnitDecorator(object_.XmlChildCnfStyle);
if not ifnil(object_.XmlChildIns) then
@@ -2853,11 +2887,11 @@ begin
if not ifnil(object_.XmlChildGridSpan) then
{self.}XmlChildGridSpan := new GridSpanUnitDecorator(object_.XmlChildGridSpan);
if not ifnil(object_.XmlChildVMerge) then
- {self.}XmlChildVMerge.Copy(object_.XmlChildVMerge);
+ {self.}VMerge.Copy(object_.XmlChildVMerge);
if not ifnil(object_.XmlChildVAlign) then
{self.}XmlChildVAlign := new PureWValUnitDecorator(object_.XmlChildVAlign);
if not ifnil(object_.XmlChildHideMark) then
- {self.}XmlChildHideMark.Copy(object_.XmlChildHideMark);
+ {self.}HideMark.Copy(object_.XmlChildHideMark);
if not ifnil(object_.XmlChildShd) then
{self.}XmlChildShd := new ShdUnitDecorator(object_.XmlChildShd);
if not ifnil(object_.XmlChildTcBorders) then
@@ -3116,7 +3150,7 @@ begin
if not ifnil(object_.XmlChildCols) then
{self.}XmlChildCols := new ColsUnitDecorator(object_.XmlChildCols);
if not ifnil(object_.XmlChildTitlePg) then
- {self.}XmlChildTitlePg.Copy(object_.XmlChildTitlePg);
+ {self.}TitlePg.Copy(object_.XmlChildTitlePg);
if not ifnil(object_.XmlChildDocGrid) then
{self.}XmlChildDocGrid := new DocGridUnitDecorator(object_.XmlChildDocGrid);
if not ifnil(object_.XmlChildTextDirection) then
@@ -3483,10 +3517,10 @@ begin
{self.}Usb2 := object_.XmlAttrUsb2.Value;
if not ifnil(object_.XmlAttrUsb3) then
{self.}Usb3 := object_.XmlAttrUsb3.Value;
- if not ifnil(object_.XmlAttrcsb0) then
- {self.}csb0 := object_.XmlAttrcsb0.Value;
- if not ifnil(object_.XmlAttrcsb1) then
- {self.}csb1 := object_.XmlAttrcsb1.Value;
+ if not ifnil(object_.XmlAttrCsb0) then
+ {self.}Csb0 := object_.XmlAttrCsb0.Value;
+ if not ifnil(object_.XmlAttrCsb1) then
+ {self.}Csb1 := object_.XmlAttrCsb1.Value;
tslassigning := tslassigning_backup;
end;
@@ -3508,48 +3542,20 @@ begin
tslassigning := 1;
if not ifnil(object_.XmlAttrIgnorable) then
{self.}Ignorable := object_.XmlAttrIgnorable.Value;
- if not ifnil(object_.XmlChildZoom) then
- {self.}XmlChildZoom := new ZoomUnitDecorator(object_.XmlChildZoom);
- if not ifnil(object_.XmlChildBordersDoNotSurroundHeader) then
- {self.}XmlChildBordersDoNotSurroundHeader.Copy(object_.XmlChildBordersDoNotSurroundHeader);
- if not ifnil(object_.XmlChildBordersDoNotSurroundFooter) then
- {self.}XmlChildBordersDoNotSurroundFooter.Copy(object_.XmlChildBordersDoNotSurroundFooter);
- if not ifnil(object_.XmlChildDefaultTabStop) then
- {self.}XmlChildDefaultTabStop := new PureWValUnitDecorator(object_.XmlChildDefaultTabStop);
- if not ifnil(object_.XmlChildEvenAndOddHeaders) then
- {self.}XmlChildEvenAndOddHeaders.Copy(object_.XmlChildEvenAndOddHeaders);
- if not ifnil(object_.XmlChildDrawingGridVerticalSpacing) then
- {self.}XmlChildDrawingGridVerticalSpacing := new PureWValUnitDecorator(object_.XmlChildDrawingGridVerticalSpacing);
- if not ifnil(object_.XmlChildDisplayHorizontalDrawingGridEvery) then
- {self.}XmlChildDisplayHorizontalDrawingGridEvery := new PureWValUnitDecorator(object_.XmlChildDisplayHorizontalDrawingGridEvery);
- if not ifnil(object_.XmlChildDisplayVerticalDrawingGridEvery) then
- {self.}XmlChildDisplayVerticalDrawingGridEvery := new PureWValUnitDecorator(object_.XmlChildDisplayVerticalDrawingGridEvery);
- if not ifnil(object_.XmlChildCharacterSpacingControl) then
- {self.}XmlChildCharacterSpacingControl := new PureWValUnitDecorator(object_.XmlChildCharacterSpacingControl);
- if not ifnil(object_.XmlChildHdrShapeDefaults) then
- {self.}XmlChildHdrShapeDefaults := new HdrShapeDefaultsUnitDecorator(object_.XmlChildHdrShapeDefaults);
- if not ifnil(object_.XmlChildFootnotePr) then
- {self.}XmlChildFootnotePr := new FootnotePrUnitDecorator(object_.XmlChildFootnotePr);
- if not ifnil(object_.XmlChildEndnotePr) then
- {self.}XmlChildEndnotePr := new EndnotePrUnitDecorator(object_.XmlChildEndnotePr);
- if not ifnil(object_.XmlChildCompat) then
- {self.}XmlChildCompat := new CompatUnitDecorator(object_.XmlChildCompat);
- if not ifnil(object_.XmlChildRsids) then
- {self.}XmlChildRsids := new RsidsUnitDecorator(object_.XmlChildRsids);
- if not ifnil(object_.XmlChildMathPr) then
- {self.}XmlChildMathPr := new MathPrUnitDecorator(object_.XmlChildMathPr);
- if not ifnil(object_.XmlChildThemeFontLang) then
- {self.}XmlChildThemeFontLang := new ThemeFontLangUnitDecorator(object_.XmlChildThemeFontLang);
- if not ifnil(object_.XmlChildClrSchemeMapping) then
- {self.}XmlChildClrSchemeMapping := new ClrSchemeMappingUnitDecorator(object_.XmlChildClrSchemeMapping);
- if not ifnil(object_.XmlChildDoNotIncludeSubdocsInStats) then
- {self.}XmlChildDoNotIncludeSubdocsInStats.Copy(object_.XmlChildDoNotIncludeSubdocsInStats);
- if not ifnil(object_.XmlChildShapeDefaults) then
- {self.}XmlChildShapeDefaults := new ShapeDefaults2UnitDecorator(object_.XmlChildShapeDefaults);
- if not ifnil(object_.XmlChildDecimalSymbol) then
- {self.}XmlChildDecimalSymbol := new PureWValUnitDecorator(object_.XmlChildDecimalSymbol);
- if not ifnil(object_.XmlChildListSeparator) then
- {self.}XmlChildListSeparator := new PureWValUnitDecorator(object_.XmlChildListSeparator);
+ if not ifnil(object_.XmlAttrIgnorable) then
+ {self.}Ignorable := object_.XmlAttrIgnorable.Value;
+ if not ifnil(object_.XmlAttrIgnorable) then
+ {self.}Ignorable := object_.XmlAttrIgnorable.Value;
+ if not ifnil(object_.XmlAttrPr) then
+ {self.}Pr := object_.XmlAttrPr.Value;
+ if not ifnil(object_.XmlAttrPr) then
+ {self.}Pr := object_.XmlAttrPr.Value;
+ if not ifnil(object_.XmlAttrSig) then
+ {self.}Sig := object_.XmlAttrSig.Value;
+ if not ifnil(object_.XmlAttrSig) then
+ {self.}Sig := object_.XmlAttrSig.Value;
+ if not ifnil(object_.XmlAttrSig) then
+ {self.}Sig := object_.XmlAttrSig.Value;
if not ifnil(object_.XmlChildDocId) then
{self.}XmlChildDocId := new PureWValUnitDecorator(object_.XmlChildDocId);
if not ifnil(object_.XmlChildDocId) then
@@ -3557,7 +3563,7 @@ begin
if not ifnil(object_.XmlChildDocId) then
{self.}XmlChildDocId := new PureWValUnitDecorator(object_.XmlChildDocId);
if not ifnil(object_.XmlChildChartTrackingRefBased) then
- {self.}XmlChildChartTrackingRefBased.Copy(object_.XmlChildChartTrackingRefBased);
+ {self.}ChartTrackingRefBased.Copy(object_.XmlChildChartTrackingRefBased);
tslassigning := tslassigning_backup;
end;
@@ -3703,19 +3709,19 @@ begin
tslassigning_backup := tslassigning;
tslassigning := 1;
if not ifnil(object_.XmlChildSpaceForUL) then
- {self.}XmlChildSpaceForUL.Copy(object_.XmlChildSpaceForUL);
+ {self.}SpaceForUL.Copy(object_.XmlChildSpaceForUL);
if not ifnil(object_.XmlChildBalanceSingleByteDoubleByteWidth) then
- {self.}XmlChildBalanceSingleByteDoubleByteWidth.Copy(object_.XmlChildBalanceSingleByteDoubleByteWidth);
+ {self.}BalanceSingleByteDoubleByteWidth.Copy(object_.XmlChildBalanceSingleByteDoubleByteWidth);
if not ifnil(object_.XmlChildDoNotLeaveBackslashAlone) then
- {self.}XmlChildDoNotLeaveBackslashAlone.Copy(object_.XmlChildDoNotLeaveBackslashAlone);
+ {self.}DoNotLeaveBackslashAlone.Copy(object_.XmlChildDoNotLeaveBackslashAlone);
if not ifnil(object_.XmlChildUlTrailSpace) then
- {self.}XmlChildUlTrailSpace.Copy(object_.XmlChildUlTrailSpace);
+ {self.}UlTrailSpace.Copy(object_.XmlChildUlTrailSpace);
if not ifnil(object_.XmlChildDoNotExpandShiftReturn) then
- {self.}XmlChildDoNotExpandShiftReturn.Copy(object_.XmlChildDoNotExpandShiftReturn);
+ {self.}DoNotExpandShiftReturn.Copy(object_.XmlChildDoNotExpandShiftReturn);
if not ifnil(object_.XmlChildAdjustLineHeightInTable) then
- {self.}XmlChildAdjustLineHeightInTable.Copy(object_.XmlChildAdjustLineHeightInTable);
+ {self.}AdjustLineHeightInTable.Copy(object_.XmlChildAdjustLineHeightInTable);
if not ifnil(object_.XmlChildUseFELayout) then
- {self.}XmlChildUseFELayout.Copy(object_.XmlChildUseFELayout);
+ {self.}UseFELayout.Copy(object_.XmlChildUseFELayout);
elems := object_.CompatSettings();
for _,elem in elems do
{self.}AppendChild(new CompatSettingUnitDecorator(elem));
@@ -4097,11 +4103,11 @@ begin
if not ifnil(object_.XmlChildUIPriority) then
{self.}XmlChildUIPriority := new PureWValUnitDecorator(object_.XmlChildUIPriority);
if not ifnil(object_.XmlChildSemiHidden) then
- {self.}XmlChildSemiHidden.Copy(object_.XmlChildSemiHidden);
+ {self.}SemiHidden.Copy(object_.XmlChildSemiHidden);
if not ifnil(object_.XmlChildUnhideWhenUsed) then
- {self.}XmlChildUnhideWhenUsed.Copy(object_.XmlChildUnhideWhenUsed);
+ {self.}UnhideWhenUsed.Copy(object_.XmlChildUnhideWhenUsed);
if not ifnil(object_.XmlChildQFormat) then
- {self.}XmlChildQFormat.Copy(object_.XmlChildQFormat);
+ {self.}QFormat.Copy(object_.XmlChildQFormat);
if not ifnil(object_.XmlChildRsid) then
{self.}XmlChildRsid := new PureWValUnitDecorator(object_.XmlChildRsid);
if not ifnil(object_.XmlChildPPr) then
@@ -4220,9 +4226,9 @@ begin
if not ifnil(object_.XmlAttrIgnorable) then
{self.}Ignorable := object_.XmlAttrIgnorable.Value;
if not ifnil(object_.XmlChildOptimizeForBrowser) then
- {self.}XmlChildOptimizeForBrowser.Copy(object_.XmlChildOptimizeForBrowser);
+ {self.}OptimizeForBrowser.Copy(object_.XmlChildOptimizeForBrowser);
if not ifnil(object_.XmlChildAllowPNG) then
- {self.}XmlChildAllowPNG.Copy(object_.XmlChildAllowPNG);
+ {self.}AllowPNG.Copy(object_.XmlChildAllowPNG);
tslassigning := tslassigning_backup;
end;
diff --git a/autounit/DrawingML.tsf b/autounit/DrawingML.tsf
index 590a285..3cbf09a 100644
--- a/autounit/DrawingML.tsf
+++ b/autounit/DrawingML.tsf
@@ -1,6 +1,6 @@
unit DrawingML;
interface
-uses DocxML;
+uses TSSafeUnitConverter, DocxML;
type Theme = class(OpenXmlCompositeElement)
public
@@ -9,6 +9,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Theme);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Name read ReadXmlAttrName write WriteXmlAttrName;
@@ -45,6 +47,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: ThemeElements);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Name read ReadXmlAttrName write WriteXmlAttrName;
@@ -76,6 +80,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: ClrScheme);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Name read ReadXmlAttrName write WriteXmlAttrName;
@@ -134,6 +140,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Clr1);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -152,6 +160,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: SysClr);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Val read ReadXmlAttrVal write WriteXmlAttrVal;
@@ -175,6 +185,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Clr2);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -193,6 +205,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: SrgbClr);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Val read ReadXmlAttrVal write WriteXmlAttrVal;
@@ -218,6 +232,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: PureVal);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Val read ReadXmlAttrVal write WriteXmlAttrVal;
@@ -237,6 +253,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: FontScheme);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Name read ReadXmlAttrName write WriteXmlAttrName;
@@ -265,6 +283,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: MFont);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -295,6 +315,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Font);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Script read ReadXmlAttrScript write WriteXmlAttrScript;
@@ -318,6 +340,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: FmtScheme);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Name read ReadXmlAttrName write WriteXmlAttrName;
@@ -352,6 +376,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: FillStyleLst);override;
+ function ConvertToPoint();override;
+
public
// multi property
@@ -375,6 +401,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: SolidFill);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -393,6 +421,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: SchemeClr);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Val read ReadXmlAttrVal write WriteXmlAttrVal;
@@ -424,6 +454,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: GradFill);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property RotWithShape read ReadXmlAttrRotWithShape write WriteXmlAttrRotWithShape;
@@ -452,6 +484,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: GsLst);override;
+ function ConvertToPoint();override;
+
public
// multi property
@@ -471,6 +505,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Gs);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Pos read ReadXmlAttrPos write WriteXmlAttrPos;
@@ -496,6 +532,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Lin);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Ang read ReadXmlAttrAng write WriteXmlAttrAng;
@@ -519,6 +557,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: LnStyleLst);override;
+ function ConvertToPoint();override;
+
public
// multi property
@@ -538,6 +578,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: EffectStyleLst);override;
+ function ConvertToPoint();override;
+
public
// multi property
@@ -557,6 +599,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: EffectStyle);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -575,6 +619,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: OuterShdw);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property BlurRad read ReadXmlAttrBlurRad write WriteXmlAttrBlurRad;
@@ -616,6 +662,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: ExtLst);override;
+ function ConvertToPoint();override;
+
public
// multi property
@@ -635,6 +683,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Ext);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Uri read ReadXmlAttrUri write WriteXmlAttrUri;
@@ -669,6 +719,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: SlicerStyles);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property DefaultSlicerStyle read ReadXmlAttrDefaultSlicerStyle write WriteXmlAttrDefaultSlicerStyle;
@@ -688,6 +740,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: TimelineStyles);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property DefaultTimelineStyle read ReadXmlAttrDefaultTimelineStyle write WriteXmlAttrDefaultTimelineStyle;
@@ -707,6 +761,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: ThemeFamily);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Name read ReadXmlAttrName write WriteXmlAttrName;
@@ -734,6 +790,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: ChartSpace);override;
+ function ConvertToPoint();override;
+
public
// simple_type property
@@ -769,6 +827,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Chart);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Id read ReadXmlAttrId write WriteXmlAttrId;
@@ -815,6 +875,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Legend);override;
+ function ConvertToPoint();override;
+
public
// simple_type property
@@ -844,6 +906,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: View3D);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -868,6 +932,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: PlotArea);override;
+ function ConvertToPoint();override;
+
public
// simple_type property
@@ -903,6 +969,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: BarChart);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -940,6 +1008,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Ser);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -979,6 +1049,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: DLbls);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -1021,6 +1093,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Cat);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -1039,6 +1113,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: StrRef);override;
+ function ConvertToPoint();override;
+
public
// pcdata property
@@ -1062,6 +1138,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Val);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -1080,6 +1158,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: NumRef);override;
+ function ConvertToPoint();override;
+
public
// pcdata property
@@ -1103,6 +1183,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: StrCache);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -1127,6 +1209,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: NumCache);override;
+ function ConvertToPoint();override;
+
public
// pcdata property
@@ -1156,6 +1240,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Pt);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Idx read ReadXmlAttrIdx write WriteXmlAttrIdx;
@@ -1181,6 +1267,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Ax);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -1247,6 +1335,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: NumFmt);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property FormatCode read ReadXmlAttrFormatCode write WriteXmlAttrFormatCode;
@@ -1270,6 +1360,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Scaling);override;
+ function ConvertToPoint();override;
+
public
// simple_type property
@@ -1288,6 +1380,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: DTable);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -1318,6 +1412,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: TxPr);override;
+ function ConvertToPoint();override;
+
public
// simple_type property
@@ -1347,6 +1443,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Title);override;
+ function ConvertToPoint();override;
+
public
// simple_type property
@@ -1373,6 +1471,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Tx);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -1394,6 +1494,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Rich);override;
+ function ConvertToPoint();override;
+
public
// simple_type property
@@ -1423,6 +1525,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: BodyPr);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Rot read ReadXmlAttrRot write WriteXmlAttrRot;
@@ -1521,6 +1625,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: PrstTxWrap);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Prst read ReadXmlAttrPrst write WriteXmlAttrPrst;
@@ -1546,6 +1652,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: P);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -1573,6 +1681,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: RPr);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Lang read ReadXmlAttrLang write WriteXmlAttrLang;
@@ -1643,6 +1753,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: PPr);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -1661,6 +1773,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Latin);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Typeface read ReadXmlAttrTypeface write WriteXmlAttrTypeface;
@@ -1680,6 +1794,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: R);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -1701,6 +1817,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: ExternalData);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Id read ReadXmlAttrId write WriteXmlAttrId;
@@ -1726,6 +1844,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: _Inline);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property DistT read ReadXmlAttrDistT write WriteXmlAttrDistT;
@@ -1783,6 +1903,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: EffectExtent);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property L read ReadXmlAttrL write WriteXmlAttrL;
@@ -1814,6 +1936,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: DocPr);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Id read ReadXmlAttrId write WriteXmlAttrId;
@@ -1847,6 +1971,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: CNvGraphicFramePr);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -1865,6 +1991,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: GraphicFrameLocks);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property NoChangeAspect read ReadXmlAttrNoChangeAspect write WriteXmlAttrNoChangeAspect;
@@ -1884,6 +2012,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Graphic);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -1902,6 +2032,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: GraphicData);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Uri read ReadXmlAttrUri write WriteXmlAttrUri;
@@ -1933,6 +2065,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Wsp);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -1963,6 +2097,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: WpsStyle);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -1990,6 +2126,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: XRef);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Idx read ReadXmlAttrIdx write WriteXmlAttrIdx;
@@ -2015,6 +2153,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Txbx);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -2033,6 +2173,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: CNvSpPr);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property TxBox read ReadXmlAttrTxBox write WriteXmlAttrTxBox;
@@ -2058,6 +2200,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: SpLocks);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property NoChangeArrowheads read ReadXmlAttrNoChangeArrowheads write WriteXmlAttrNoChangeArrowheads;
@@ -2077,6 +2221,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Pic);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -2101,6 +2247,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: NvPicPr);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -2122,6 +2270,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: CNvPr);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Id read ReadXmlAttrId write WriteXmlAttrId;
@@ -2149,6 +2299,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: CNvPicPr);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -2167,6 +2319,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: PicLocks);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property NoChangeAspect read ReadXmlAttrNoChangeAspect write WriteXmlAttrNoChangeAspect;
@@ -2186,6 +2340,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: BlipFill);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -2207,6 +2363,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Blip);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Embed read ReadXmlAttrEmbed write WriteXmlAttrEmbed;
@@ -2230,6 +2388,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Stretch);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -2248,6 +2408,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: SpPr);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property BwMode read ReadXmlAttrBwMode write WriteXmlAttrBwMode;
@@ -2290,6 +2452,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: EffectLst);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -2308,6 +2472,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Ln);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property W read ReadXmlAttrW write WriteXmlAttrW;
@@ -2362,6 +2528,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Miter);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Lim read ReadXmlAttrLim write WriteXmlAttrLim;
@@ -2381,6 +2549,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Xfrm);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property FlipH read ReadXmlAttrFlipH write WriteXmlAttrFlipH;
@@ -2417,6 +2587,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: XY);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property X read ReadXmlAttrX write WriteXmlAttrX;
@@ -2440,6 +2612,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: CXY);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Cx read ReadXmlAttrCx write WriteXmlAttrCx;
@@ -2463,6 +2637,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: PrstGeom);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Prst read ReadXmlAttrPrst write WriteXmlAttrPrst;
@@ -2488,6 +2664,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Anchor);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property DistT read ReadXmlAttrDistT write WriteXmlAttrDistT;
@@ -2593,6 +2771,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: PositionV);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property RelativeFrom read ReadXmlAttrRelativeFrom write WriteXmlAttrRelativeFrom;
@@ -2618,6 +2798,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: PositionH);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property RelativeFrom read ReadXmlAttrRelativeFrom write WriteXmlAttrRelativeFrom;
@@ -2643,6 +2825,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: SizeRelH);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property RelativeFrom read ReadXmlAttrRelativeFrom write WriteXmlAttrRelativeFrom;
@@ -2668,6 +2852,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: SizeRelV);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property RelativeFrom read ReadXmlAttrRelativeFrom write WriteXmlAttrRelativeFrom;
@@ -2738,6 +2924,14 @@ begin
tslassigning := tslassigning_backup;
end;
+function Theme.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildThemeElements) then
+ {self.}XmlChildThemeElements.ConvertToPoint();
+ if not ifnil({self.}XmlChildExtLst) then
+ {self.}XmlChildExtLst.ConvertToPoint();
+end;
+
function Theme.ReadXmlAttrName();
begin
return {self.}XmlAttrName.Value;
@@ -2840,6 +3034,16 @@ begin
tslassigning := tslassigning_backup;
end;
+function ThemeElements.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildClrScheme) then
+ {self.}XmlChildClrScheme.ConvertToPoint();
+ if not ifnil({self.}XmlChildFontScheme) then
+ {self.}XmlChildFontScheme.ConvertToPoint();
+ if not ifnil({self.}XmlChildFmtScheme) then
+ {self.}XmlChildFmtScheme.ConvertToPoint();
+end;
+
function ThemeElements.ReadXmlAttrName();
begin
return {self.}XmlAttrName.Value;
@@ -2959,6 +3163,34 @@ begin
tslassigning := tslassigning_backup;
end;
+function ClrScheme.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildDk1) then
+ {self.}XmlChildDk1.ConvertToPoint();
+ if not ifnil({self.}XmlChildLt1) then
+ {self.}XmlChildLt1.ConvertToPoint();
+ if not ifnil({self.}XmlChildDk2) then
+ {self.}XmlChildDk2.ConvertToPoint();
+ if not ifnil({self.}XmlChildLt2) then
+ {self.}XmlChildLt2.ConvertToPoint();
+ if not ifnil({self.}XmlChildAccent1) then
+ {self.}XmlChildAccent1.ConvertToPoint();
+ if not ifnil({self.}XmlChildAccent2) then
+ {self.}XmlChildAccent2.ConvertToPoint();
+ if not ifnil({self.}XmlChildAccent3) then
+ {self.}XmlChildAccent3.ConvertToPoint();
+ if not ifnil({self.}XmlChildAccent4) then
+ {self.}XmlChildAccent4.ConvertToPoint();
+ if not ifnil({self.}XmlChildAccent5) then
+ {self.}XmlChildAccent5.ConvertToPoint();
+ if not ifnil({self.}XmlChildAccent6) then
+ {self.}XmlChildAccent6.ConvertToPoint();
+ if not ifnil({self.}XmlChildHlink) then
+ {self.}XmlChildHlink.ConvertToPoint();
+ if not ifnil({self.}XmlChildFolHlink) then
+ {self.}XmlChildFolHlink.ConvertToPoint();
+end;
+
function ClrScheme.ReadXmlAttrName();
begin
return {self.}XmlAttrName.Value;
@@ -3132,6 +3364,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function Clr1.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildSysClr) then
+ {self.}XmlChildSysClr.ConvertToPoint();
+end;
+
function Clr1.ReadXmlChildSysClr(): SysClr;
begin
if tslassigning and (ifnil({self.}XmlChildSysClr) or {self.}XmlChildSysClr.Removed) then
@@ -3183,6 +3421,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function SysClr.ConvertToPoint();override;
+begin
+
+end;
+
function SysClr.ReadXmlAttrVal();
begin
return {self.}XmlAttrVal.Value;
@@ -3251,6 +3494,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function Clr2.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildSrgbClr) then
+ {self.}XmlChildSrgbClr.ConvertToPoint();
+end;
+
function Clr2.ReadXmlChildSrgbClr(): SrgbClr;
begin
if tslassigning and (ifnil({self.}XmlChildSrgbClr) or {self.}XmlChildSrgbClr.Removed) then
@@ -3302,6 +3551,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function SrgbClr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildAlpha) then
+ {self.}XmlChildAlpha.ConvertToPoint();
+end;
+
function SrgbClr.ReadXmlAttrVal();
begin
return {self.}XmlAttrVal.Value;
@@ -3365,6 +3620,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function PureVal.ConvertToPoint();override;
+begin
+
+end;
+
function PureVal.ReadXmlAttrVal();
begin
return {self.}XmlAttrVal.Value;
@@ -3424,6 +3684,14 @@ begin
tslassigning := tslassigning_backup;
end;
+function FontScheme.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildMajorfont) then
+ {self.}XmlChildMajorfont.ConvertToPoint();
+ if not ifnil({self.}XmlChildMinorfont) then
+ {self.}XmlChildMinorfont.ConvertToPoint();
+end;
+
function FontScheme.ReadXmlAttrName();
begin
return {self.}XmlAttrName.Value;
@@ -3504,6 +3772,19 @@ begin
tslassigning := tslassigning_backup;
end;
+function MFont.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildLatin) then
+ {self.}XmlChildLatin.ConvertToPoint();
+ if not ifnil({self.}XmlChildEa) then
+ {self.}XmlChildEa.ConvertToPoint();
+ if not ifnil({self.}XmlChildCs) then
+ {self.}XmlChildCs.ConvertToPoint();
+ elems := {self.}Fonts();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+end;
+
function MFont.ReadXmlChildLatin(): Latin;
begin
if tslassigning and (ifnil({self.}XmlChildLatin) or {self.}XmlChildLatin.Removed) then
@@ -3596,6 +3877,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function Font.ConvertToPoint();override;
+begin
+
+end;
+
function Font.ReadXmlAttrScript();
begin
return {self.}XmlAttrScript.Value;
@@ -3676,6 +3962,18 @@ begin
tslassigning := tslassigning_backup;
end;
+function FmtScheme.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildFillStyleLst) then
+ {self.}XmlChildFillStyleLst.ConvertToPoint();
+ if not ifnil({self.}XmlChildLnStyleLst) then
+ {self.}XmlChildLnStyleLst.ConvertToPoint();
+ if not ifnil({self.}XmlChildEffectStyleLst) then
+ {self.}XmlChildEffectStyleLst.ConvertToPoint();
+ if not ifnil({self.}XmlChildBgFillStyleLst) then
+ {self.}XmlChildBgFillStyleLst.ConvertToPoint();
+end;
+
function FmtScheme.ReadXmlAttrName();
begin
return {self.}XmlAttrName.Value;
@@ -3768,6 +4066,16 @@ begin
tslassigning := tslassigning_backup;
end;
+function FillStyleLst.ConvertToPoint();override;
+begin
+ elems := {self.}SolidFills();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}GradFills();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+end;
+
function FillStyleLst.ReadSolidFills(_index);
begin
ind := ifnil(_index) ? -2 : _index;
@@ -3848,6 +4156,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function SolidFill.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildSchemeClr) then
+ {self.}XmlChildSchemeClr.ConvertToPoint();
+end;
+
function SolidFill.ReadXmlChildSchemeClr(): SchemeClr;
begin
if tslassigning and (ifnil({self.}XmlChildSchemeClr) or {self.}XmlChildSchemeClr.Removed) then
@@ -3905,6 +4219,16 @@ begin
tslassigning := tslassigning_backup;
end;
+function SchemeClr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildLumMod) then
+ {self.}XmlChildLumMod.ConvertToPoint();
+ if not ifnil({self.}XmlChildSatMod) then
+ {self.}XmlChildSatMod.ConvertToPoint();
+ if not ifnil({self.}XmlChildTint) then
+ {self.}XmlChildTint.ConvertToPoint();
+end;
+
function SchemeClr.ReadXmlAttrVal();
begin
return {self.}XmlAttrVal.Value;
@@ -3994,6 +4318,14 @@ begin
tslassigning := tslassigning_backup;
end;
+function GradFill.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildGsLst) then
+ {self.}XmlChildGsLst.ConvertToPoint();
+ if not ifnil({self.}XmlChildLin) then
+ {self.}XmlChildLin.ConvertToPoint();
+end;
+
function GradFill.ReadXmlAttrRotWithShape();
begin
return {self.}XmlAttrRotWithShape.Value;
@@ -4065,6 +4397,13 @@ begin
tslassigning := tslassigning_backup;
end;
+function GsLst.ConvertToPoint();override;
+begin
+ elems := {self.}Gses();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+end;
+
function GsLst.ReadGses(_index);
begin
ind := ifnil(_index) ? -2 : _index;
@@ -4127,6 +4466,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function Gs.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildSchemeClr) then
+ {self.}XmlChildSchemeClr.ConvertToPoint();
+end;
+
function Gs.ReadXmlAttrPos();
begin
return {self.}XmlAttrPos.Value;
@@ -4193,6 +4538,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function Lin.ConvertToPoint();override;
+begin
+
+end;
+
function Lin.ReadXmlAttrAng();
begin
return {self.}XmlAttrAng.Value;
@@ -4259,6 +4609,13 @@ begin
tslassigning := tslassigning_backup;
end;
+function LnStyleLst.ConvertToPoint();override;
+begin
+ elems := {self.}Lns();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+end;
+
function LnStyleLst.ReadLns(_index);
begin
ind := ifnil(_index) ? -2 : _index;
@@ -4316,6 +4673,13 @@ begin
tslassigning := tslassigning_backup;
end;
+function EffectStyleLst.ConvertToPoint();override;
+begin
+ elems := {self.}EffectStyles();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+end;
+
function EffectStyleLst.ReadEffectStyles(_index);
begin
ind := ifnil(_index) ? -2 : _index;
@@ -4375,6 +4739,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function EffectStyle.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildEffectLst) then
+ {self.}XmlChildEffectLst.ConvertToPoint();
+end;
+
function EffectStyle.ReadXmlChildEffectLst(): EffectLst;
begin
if tslassigning and (ifnil({self.}XmlChildEffectLst) or {self.}XmlChildEffectLst.Removed) then
@@ -4438,6 +4808,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function OuterShdw.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildSrgbClr) then
+ {self.}XmlChildSrgbClr.ConvertToPoint();
+end;
+
function OuterShdw.ReadXmlAttrBlurRad();
begin
return {self.}XmlAttrBlurRad.Value;
@@ -4559,6 +4935,13 @@ begin
tslassigning := tslassigning_backup;
end;
+function ExtLst.ConvertToPoint();override;
+begin
+ elems := {self.}Exts();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+end;
+
function ExtLst.ReadExts(_index);
begin
ind := ifnil(_index) ? -2 : _index;
@@ -4630,6 +5013,18 @@ begin
tslassigning := tslassigning_backup;
end;
+function Ext.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildThm15ThemeFamily) then
+ {self.}XmlChildThm15ThemeFamily.ConvertToPoint();
+ if not ifnil({self.}XmlChildUniqueId) then
+ {self.}XmlChildUniqueId.ConvertToPoint();
+ if not ifnil({self.}XmlChildSlicerStyles) then
+ {self.}XmlChildSlicerStyles.ConvertToPoint();
+ if not ifnil({self.}XmlChildTimelineStyles) then
+ {self.}XmlChildTimelineStyles.ConvertToPoint();
+end;
+
function Ext.ReadXmlAttrUri();
begin
return {self.}XmlAttrUri.Value;
@@ -4723,6 +5118,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function SlicerStyles.ConvertToPoint();override;
+begin
+
+end;
+
function SlicerStyles.ReadXmlAttrDefaultSlicerStyle();
begin
return {self.}XmlAttrDefaultSlicerStyle.Value;
@@ -4776,6 +5176,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function TimelineStyles.ConvertToPoint();override;
+begin
+
+end;
+
function TimelineStyles.ReadXmlAttrDefaultTimelineStyle();
begin
return {self.}XmlAttrDefaultTimelineStyle.Value;
@@ -4835,6 +5240,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function ThemeFamily.ConvertToPoint();override;
+begin
+
+end;
+
function ThemeFamily.ReadXmlAttrName();
begin
return {self.}XmlAttrName.Value;
@@ -4933,6 +5343,20 @@ begin
tslassigning := tslassigning_backup;
end;
+function ChartSpace.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildDate1904) then
+ {self.}XmlChildDate1904.ConvertToPoint();
+ if not ifnil({self.}XmlChildAlternateContent) then
+ {self.}XmlChildAlternateContent.ConvertToPoint();
+ if not ifnil({self.}XmlChildChart) then
+ {self.}XmlChildChart.ConvertToPoint();
+ if not ifnil({self.}XmlChildSpPr) then
+ {self.}XmlChildSpPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildExternalData) then
+ {self.}XmlChildExternalData.ConvertToPoint();
+end;
+
function ChartSpace.ReadXmlChildLang();
begin
if tslassigning and (ifnil({self.}XmlChildLang) or {self.}XmlChildLang.Removed) then
@@ -5055,6 +5479,26 @@ begin
tslassigning := tslassigning_backup;
end;
+function Chart.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildTitle) then
+ {self.}XmlChildTitle.ConvertToPoint();
+ if not ifnil({self.}XmlChildAutoTitleDeleted) then
+ {self.}XmlChildAutoTitleDeleted.ConvertToPoint();
+ if not ifnil({self.}XmlChildView3D) then
+ {self.}XmlChildView3D.ConvertToPoint();
+ if not ifnil({self.}XmlChildPlotArea) then
+ {self.}XmlChildPlotArea.ConvertToPoint();
+ if not ifnil({self.}XmlChildLegend) then
+ {self.}XmlChildLegend.ConvertToPoint();
+ if not ifnil({self.}XmlChildPlotVisOnly) then
+ {self.}XmlChildPlotVisOnly.ConvertToPoint();
+ if not ifnil({self.}XmlChildDispBlanksAs) then
+ {self.}XmlChildDispBlanksAs.ConvertToPoint();
+ if not ifnil({self.}XmlChildShowDLblsOverMax) then
+ {self.}XmlChildShowDLblsOverMax.ConvertToPoint();
+end;
+
function Chart.ReadXmlAttrId();
begin
return {self.}XmlAttrId.Value;
@@ -5197,6 +5641,16 @@ begin
tslassigning := tslassigning_backup;
end;
+function Legend.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildLegendPos) then
+ {self.}XmlChildLegendPos.ConvertToPoint();
+ if not ifnil({self.}XmlChildOverlay) then
+ {self.}XmlChildOverlay.ConvertToPoint();
+ if not ifnil({self.}XmlChildTxPr) then
+ {self.}XmlChildTxPr.ConvertToPoint();
+end;
+
function Legend.ReadXmlChildLayout();
begin
if tslassigning and (ifnil({self.}XmlChildLayout) or {self.}XmlChildLayout.Removed) then
@@ -5281,6 +5735,16 @@ begin
tslassigning := tslassigning_backup;
end;
+function View3D.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildRotX) then
+ {self.}XmlChildRotX.ConvertToPoint();
+ if not ifnil({self.}XmlChildRotY) then
+ {self.}XmlChildRotY.ConvertToPoint();
+ if not ifnil({self.}XmlChildRAngAx) then
+ {self.}XmlChildRAngAx.ConvertToPoint();
+end;
+
function View3D.ReadXmlChildRotX(): PureVal;
begin
if tslassigning and (ifnil({self.}XmlChildRotX) or {self.}XmlChildRotX.Removed) then
@@ -5364,6 +5828,20 @@ begin
tslassigning := tslassigning_backup;
end;
+function PlotArea.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildBarChart) then
+ {self.}XmlChildBarChart.ConvertToPoint();
+ if not ifnil({self.}XmlChildCatAx) then
+ {self.}XmlChildCatAx.ConvertToPoint();
+ if not ifnil({self.}XmlChildValAx) then
+ {self.}XmlChildValAx.ConvertToPoint();
+ if not ifnil({self.}XmlChildDTable) then
+ {self.}XmlChildDTable.ConvertToPoint();
+ if not ifnil({self.}XmlChildSpPr) then
+ {self.}XmlChildSpPr.ConvertToPoint();
+end;
+
function PlotArea.ReadXmlChildLayout();
begin
if tslassigning and (ifnil({self.}XmlChildLayout) or {self.}XmlChildLayout.Removed) then
@@ -5473,6 +5951,24 @@ begin
tslassigning := tslassigning_backup;
end;
+function BarChart.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildBarDir) then
+ {self.}XmlChildBarDir.ConvertToPoint();
+ if not ifnil({self.}XmlChildGrouping) then
+ {self.}XmlChildGrouping.ConvertToPoint();
+ if not ifnil({self.}XmlChildVaryColors) then
+ {self.}XmlChildVaryColors.ConvertToPoint();
+ if not ifnil({self.}XmlChildGapWidth) then
+ {self.}XmlChildGapWidth.ConvertToPoint();
+ elems := {self.}Sers();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}AxIds();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+end;
+
function BarChart.ReadXmlChildBarDir(): PureVal;
begin
if tslassigning and (ifnil({self.}XmlChildBarDir) or {self.}XmlChildBarDir.Removed) then
@@ -5614,6 +6110,26 @@ begin
tslassigning := tslassigning_backup;
end;
+function Ser.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildIdx) then
+ {self.}XmlChildIdx.ConvertToPoint();
+ if not ifnil({self.}XmlChild_Order) then
+ {self.}XmlChild_Order.ConvertToPoint();
+ if not ifnil({self.}XmlChildTx) then
+ {self.}XmlChildTx.ConvertToPoint();
+ if not ifnil({self.}XmlChildInvertIfNegative) then
+ {self.}XmlChildInvertIfNegative.ConvertToPoint();
+ if not ifnil({self.}XmlChildDLbls) then
+ {self.}XmlChildDLbls.ConvertToPoint();
+ if not ifnil({self.}XmlChildCat) then
+ {self.}XmlChildCat.ConvertToPoint();
+ if not ifnil({self.}XmlChildVal) then
+ {self.}XmlChildVal.ConvertToPoint();
+ if not ifnil({self.}XmlChildExtLst) then
+ {self.}XmlChildExtLst.ConvertToPoint();
+end;
+
function Ser.ReadXmlChildIdx(): PureVal;
begin
if tslassigning and (ifnil({self.}XmlChildIdx) or {self.}XmlChildIdx.Removed) then
@@ -5756,6 +6272,28 @@ begin
tslassigning := tslassigning_backup;
end;
+function DLbls.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildSpPr) then
+ {self.}XmlChildSpPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildShowLegendKey) then
+ {self.}XmlChildShowLegendKey.ConvertToPoint();
+ if not ifnil({self.}XmlChildShowVal) then
+ {self.}XmlChildShowVal.ConvertToPoint();
+ if not ifnil({self.}XmlChildShowCatName) then
+ {self.}XmlChildShowCatName.ConvertToPoint();
+ if not ifnil({self.}XmlChildShowSerName) then
+ {self.}XmlChildShowSerName.ConvertToPoint();
+ if not ifnil({self.}XmlChildShowPercent) then
+ {self.}XmlChildShowPercent.ConvertToPoint();
+ if not ifnil({self.}XmlChildShowBubbleSize) then
+ {self.}XmlChildShowBubbleSize.ConvertToPoint();
+ if not ifnil({self.}XmlChildShowLeaderLines) then
+ {self.}XmlChildShowLeaderLines.ConvertToPoint();
+ if not ifnil({self.}XmlChildExtLst) then
+ {self.}XmlChildExtLst.ConvertToPoint();
+end;
+
function DLbls.ReadXmlChildSpPr(): SpPr;
begin
if tslassigning and (ifnil({self.}XmlChildSpPr) or {self.}XmlChildSpPr.Removed) then
@@ -5884,6 +6422,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function Cat.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildStrRef) then
+ {self.}XmlChildStrRef.ConvertToPoint();
+end;
+
function Cat.ReadXmlChildStrRef(): StrRef;
begin
if tslassigning and (ifnil({self.}XmlChildStrRef) or {self.}XmlChildStrRef.Removed) then
@@ -5935,6 +6479,13 @@ begin
tslassigning := tslassigning_backup;
end;
+function StrRef.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildF) then
+ if not ifnil({self.}XmlChildStrCache) then
+ {self.}XmlChildStrCache.ConvertToPoint();
+end;
+
function StrRef.ReadXmlChildF();
begin
if tslassigning and (ifnil({self.}XmlChildF) or {self.}XmlChildF.Removed) then
@@ -5993,6 +6544,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function Val.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildNumRef) then
+ {self.}XmlChildNumRef.ConvertToPoint();
+end;
+
function Val.ReadXmlChildNumRef(): NumRef;
begin
if tslassigning and (ifnil({self.}XmlChildNumRef) or {self.}XmlChildNumRef.Removed) then
@@ -6044,6 +6601,13 @@ begin
tslassigning := tslassigning_backup;
end;
+function NumRef.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildF) then
+ if not ifnil({self.}XmlChildNumCache) then
+ {self.}XmlChildNumCache.ConvertToPoint();
+end;
+
function NumRef.ReadXmlChildF();
begin
if tslassigning and (ifnil({self.}XmlChildF) or {self.}XmlChildF.Removed) then
@@ -6103,6 +6667,15 @@ begin
tslassigning := tslassigning_backup;
end;
+function StrCache.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildPtCount) then
+ {self.}XmlChildPtCount.ConvertToPoint();
+ elems := {self.}Pts();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+end;
+
function StrCache.ReadXmlChildPtCount(): PureVal;
begin
if tslassigning and (ifnil({self.}XmlChildPtCount) or {self.}XmlChildPtCount.Removed) then
@@ -6176,6 +6749,16 @@ begin
tslassigning := tslassigning_backup;
end;
+function NumCache.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildFormatCode) then
+ if not ifnil({self.}XmlChildPtCount) then
+ {self.}XmlChildPtCount.ConvertToPoint();
+ elems := {self.}Pts();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+end;
+
function NumCache.ReadXmlChildFormatCode();
begin
if tslassigning and (ifnil({self.}XmlChildFormatCode) or {self.}XmlChildFormatCode.Removed) then
@@ -6258,6 +6841,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function Pt.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildV) then
+end;
+
function Pt.ReadXmlAttrIdx();
begin
return {self.}XmlAttrIdx.Value;
@@ -6369,6 +6957,44 @@ begin
tslassigning := tslassigning_backup;
end;
+function Ax.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildAxId) then
+ {self.}XmlChildAxId.ConvertToPoint();
+ if not ifnil({self.}XmlChildScaling) then
+ {self.}XmlChildScaling.ConvertToPoint();
+ if not ifnil({self.}XmlChild_Delete) then
+ {self.}XmlChild_Delete.ConvertToPoint();
+ if not ifnil({self.}XmlChildAxPos) then
+ {self.}XmlChildAxPos.ConvertToPoint();
+ if not ifnil({self.}XmlChildNumFmt) then
+ {self.}XmlChildNumFmt.ConvertToPoint();
+ if not ifnil({self.}XmlChildMajorTickMark) then
+ {self.}XmlChildMajorTickMark.ConvertToPoint();
+ if not ifnil({self.}XmlChildMinorTickMark) then
+ {self.}XmlChildMinorTickMark.ConvertToPoint();
+ if not ifnil({self.}XmlChildTickLblPos) then
+ {self.}XmlChildTickLblPos.ConvertToPoint();
+ if not ifnil({self.}XmlChildSpPr) then
+ {self.}XmlChildSpPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildTxPr) then
+ {self.}XmlChildTxPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildCrossAx) then
+ {self.}XmlChildCrossAx.ConvertToPoint();
+ if not ifnil({self.}XmlChildCrosses) then
+ {self.}XmlChildCrosses.ConvertToPoint();
+ if not ifnil({self.}XmlChildCrossBetween) then
+ {self.}XmlChildCrossBetween.ConvertToPoint();
+ if not ifnil({self.}XmlChildAuto) then
+ {self.}XmlChildAuto.ConvertToPoint();
+ if not ifnil({self.}XmlChildLblAlgn) then
+ {self.}XmlChildLblAlgn.ConvertToPoint();
+ if not ifnil({self.}XmlChildLblOffset) then
+ {self.}XmlChildLblOffset.ConvertToPoint();
+ if not ifnil({self.}XmlChildNoMultiLvlLbl) then
+ {self.}XmlChildNoMultiLvlLbl.ConvertToPoint();
+end;
+
function Ax.ReadXmlChildAxId(): PureVal;
begin
if tslassigning and (ifnil({self.}XmlChildAxId) or {self.}XmlChildAxId.Removed) then
@@ -6580,6 +7206,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function NumFmt.ConvertToPoint();override;
+begin
+
+end;
+
function NumFmt.ReadXmlAttrFormatCode();
begin
return {self.}XmlAttrFormatCode.Value;
@@ -6648,6 +7279,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function Scaling.ConvertToPoint();override;
+begin
+
+end;
+
function Scaling.ReadXmlChildOrientation();
begin
if tslassigning and (ifnil({self.}XmlChildOrientation) or {self.}XmlChildOrientation.Removed) then
@@ -6708,6 +7344,20 @@ begin
tslassigning := tslassigning_backup;
end;
+function DTable.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildShowHorzBorder) then
+ {self.}XmlChildShowHorzBorder.ConvertToPoint();
+ if not ifnil({self.}XmlChildShowVertBorder) then
+ {self.}XmlChildShowVertBorder.ConvertToPoint();
+ if not ifnil({self.}XmlChildShowOutline) then
+ {self.}XmlChildShowOutline.ConvertToPoint();
+ if not ifnil({self.}XmlChildShowKeys) then
+ {self.}XmlChildShowKeys.ConvertToPoint();
+ if not ifnil({self.}XmlChildTxPr) then
+ {self.}XmlChildTxPr.ConvertToPoint();
+end;
+
function DTable.ReadXmlChildShowHorzBorder(): PureVal;
begin
if tslassigning and (ifnil({self.}XmlChildShowHorzBorder) or {self.}XmlChildShowHorzBorder.Removed) then
@@ -6800,6 +7450,15 @@ begin
tslassigning := tslassigning_backup;
end;
+function TxPr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildBodyPr) then
+ {self.}XmlChildBodyPr.ConvertToPoint();
+ elems := {self.}Ps();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+end;
+
function TxPr.ReadXmlChildLstStyle();
begin
if tslassigning and (ifnil({self.}XmlChildLstStyle) or {self.}XmlChildLstStyle.Removed) then
@@ -6885,6 +7544,14 @@ begin
tslassigning := tslassigning_backup;
end;
+function Title.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildTx) then
+ {self.}XmlChildTx.ConvertToPoint();
+ if not ifnil({self.}XmlChildOverlay) then
+ {self.}XmlChildOverlay.ConvertToPoint();
+end;
+
function Title.ReadXmlChildLayout();
begin
if tslassigning and (ifnil({self.}XmlChildLayout) or {self.}XmlChildLayout.Removed) then
@@ -6956,6 +7623,14 @@ begin
tslassigning := tslassigning_backup;
end;
+function Tx.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildStrRef) then
+ {self.}XmlChildStrRef.ConvertToPoint();
+ if not ifnil({self.}XmlChildRich) then
+ {self.}XmlChildRich.ConvertToPoint();
+end;
+
function Tx.ReadXmlChildStrRef(): StrRef;
begin
if tslassigning and (ifnil({self.}XmlChildStrRef) or {self.}XmlChildStrRef.Removed) then
@@ -7018,6 +7693,15 @@ begin
tslassigning := tslassigning_backup;
end;
+function Rich.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildBodyPr) then
+ {self.}XmlChildBodyPr.ConvertToPoint();
+ elems := {self.}Ps();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+end;
+
function Rich.ReadXmlChildLstStyle();
begin
if tslassigning and (ifnil({self.}XmlChildLstStyle) or {self.}XmlChildLstStyle.Removed) then
@@ -7154,6 +7838,20 @@ begin
tslassigning := tslassigning_backup;
end;
+function BodyPr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlAttrLIns) then
+ {self.}LIns := TSSafeUnitConverter.EmusToPoints({self.}XmlAttrLIns.Value);
+ if not ifnil({self.}XmlAttrTIns) then
+ {self.}TIns := TSSafeUnitConverter.EmusToPoints({self.}XmlAttrTIns.Value);
+ if not ifnil({self.}XmlAttrRIns) then
+ {self.}RIns := TSSafeUnitConverter.EmusToPoints({self.}XmlAttrRIns.Value);
+ if not ifnil({self.}XmlAttrBIns) then
+ {self.}BIns := TSSafeUnitConverter.EmusToPoints({self.}XmlAttrBIns.Value);
+ if not ifnil({self.}XmlChildPrstTxWrap) then
+ {self.}XmlChildPrstTxWrap.ConvertToPoint();
+end;
+
function BodyPr.ReadXmlAttrRot();
begin
return {self.}XmlAttrRot.Value;
@@ -7485,6 +8183,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function PrstTxWrap.ConvertToPoint();override;
+begin
+
+end;
+
function PrstTxWrap.ReadXmlAttrPrst();
begin
return {self.}XmlAttrPrst.Value;
@@ -7552,6 +8255,17 @@ begin
tslassigning := tslassigning_backup;
end;
+function P.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildPPr) then
+ {self.}XmlChildPPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildEndParaRPr) then
+ {self.}XmlChildEndParaRPr.ConvertToPoint();
+ elems := {self.}Rs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+end;
+
function P.ReadXmlChildPPr(): PPr;
begin
if tslassigning and (ifnil({self.}XmlChildPPr) or {self.}XmlChildPPr.Removed) then
@@ -7670,6 +8384,18 @@ begin
tslassigning := tslassigning_backup;
end;
+function RPr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildSolidFill) then
+ {self.}XmlChildSolidFill.ConvertToPoint();
+ if not ifnil({self.}XmlChildLatin) then
+ {self.}XmlChildLatin.ConvertToPoint();
+ if not ifnil({self.}XmlChildEa) then
+ {self.}XmlChildEa.ConvertToPoint();
+ if not ifnil({self.}XmlChildCs) then
+ {self.}XmlChildCs.ConvertToPoint();
+end;
+
function RPr.ReadXmlAttrLang();
begin
return {self.}XmlAttrLang.Value;
@@ -7898,6 +8624,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function PPr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildDefRPr) then
+ {self.}XmlChildDefRPr.ConvertToPoint();
+end;
+
function PPr.ReadXmlChildDefRPr(): RPr;
begin
if tslassigning and (ifnil({self.}XmlChildDefRPr) or {self.}XmlChildDefRPr.Removed) then
@@ -7946,6 +8678,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function Latin.ConvertToPoint();override;
+begin
+
+end;
+
function Latin.ReadXmlAttrTypeface();
begin
return {self.}XmlAttrTypeface.Value;
@@ -8002,6 +8739,14 @@ begin
tslassigning := tslassigning_backup;
end;
+function R.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildRPr) then
+ {self.}XmlChildRPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildT) then
+ {self.}XmlChildT.ConvertToPoint();
+end;
+
function R.ReadXmlChildRPr(): RPr;
begin
if tslassigning and (ifnil({self.}XmlChildRPr) or {self.}XmlChildRPr.Removed) then
@@ -8063,6 +8808,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function ExternalData.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildAutoUpdate) then
+ {self.}XmlChildAutoUpdate.ConvertToPoint();
+end;
+
function ExternalData.ReadXmlAttrId();
begin
return {self.}XmlAttrId.Value;
@@ -8156,6 +8907,20 @@ begin
tslassigning := tslassigning_backup;
end;
+function _Inline.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildExtent) then
+ {self.}XmlChildExtent.ConvertToPoint();
+ if not ifnil({self.}XmlChildEffectExtent) then
+ {self.}XmlChildEffectExtent.ConvertToPoint();
+ if not ifnil({self.}XmlChildDocPr) then
+ {self.}XmlChildDocPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildCNvGraphicFramePr) then
+ {self.}XmlChildCNvGraphicFramePr.ConvertToPoint();
+ if not ifnil({self.}XmlChildGraphic) then
+ {self.}XmlChildGraphic.ConvertToPoint();
+end;
+
function _Inline.ReadXmlAttrDistT();
begin
return {self.}XmlAttrDistT.Value;
@@ -8343,6 +9108,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function EffectExtent.ConvertToPoint();override;
+begin
+
+end;
+
function EffectExtent.ReadXmlAttrL();
begin
return {self.}XmlAttrL.Value;
@@ -8450,6 +9220,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function DocPr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildExtLst) then
+ {self.}XmlChildExtLst.ConvertToPoint();
+end;
+
function DocPr.ReadXmlAttrId();
begin
return {self.}XmlAttrId.Value;
@@ -8543,6 +9319,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function CNvGraphicFramePr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildGraphicFrameLocks) then
+ {self.}XmlChildGraphicFrameLocks.ConvertToPoint();
+end;
+
function CNvGraphicFramePr.ReadXmlChildGraphicFrameLocks(): GraphicFrameLocks;
begin
if tslassigning and (ifnil({self.}XmlChildGraphicFrameLocks) or {self.}XmlChildGraphicFrameLocks.Removed) then
@@ -8591,6 +9373,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function GraphicFrameLocks.ConvertToPoint();override;
+begin
+
+end;
+
function GraphicFrameLocks.ReadXmlAttrNoChangeAspect();
begin
return {self.}XmlAttrNoChangeAspect.Value;
@@ -8644,6 +9431,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function Graphic.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildGraphicData) then
+ {self.}XmlChildGraphicData.ConvertToPoint();
+end;
+
function Graphic.ReadXmlChildGraphicData(): GraphicData;
begin
if tslassigning and (ifnil({self.}XmlChildGraphicData) or {self.}XmlChildGraphicData.Removed) then
@@ -8701,6 +9494,16 @@ begin
tslassigning := tslassigning_backup;
end;
+function GraphicData.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildPic) then
+ {self.}XmlChildPic.ConvertToPoint();
+ if not ifnil({self.}XmlChildChart) then
+ {self.}XmlChildChart.ConvertToPoint();
+ if not ifnil({self.}XmlChildWsp) then
+ {self.}XmlChildWsp.ConvertToPoint();
+end;
+
function GraphicData.ReadXmlAttrUri();
begin
return {self.}XmlAttrUri.Value;
@@ -8796,6 +9599,20 @@ begin
tslassigning := tslassigning_backup;
end;
+function Wsp.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildCNvSpPr) then
+ {self.}XmlChildCNvSpPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildSpPr) then
+ {self.}XmlChildSpPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildTxbx) then
+ {self.}XmlChildTxbx.ConvertToPoint();
+ if not ifnil({self.}XmlChildStyle) then
+ {self.}XmlChildStyle.ConvertToPoint();
+ if not ifnil({self.}XmlChildBodyPr) then
+ {self.}XmlChildBodyPr.ConvertToPoint();
+end;
+
function Wsp.ReadXmlChildCNvSpPr(): CNvSpPr;
begin
if tslassigning and (ifnil({self.}XmlChildCNvSpPr) or {self.}XmlChildCNvSpPr.Removed) then
@@ -8893,6 +9710,18 @@ begin
tslassigning := tslassigning_backup;
end;
+function WpsStyle.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildLnRef) then
+ {self.}XmlChildLnRef.ConvertToPoint();
+ if not ifnil({self.}XmlChildFillRef) then
+ {self.}XmlChildFillRef.ConvertToPoint();
+ if not ifnil({self.}XmlChildEffectRef) then
+ {self.}XmlChildEffectRef.ConvertToPoint();
+ if not ifnil({self.}XmlChildFontRef) then
+ {self.}XmlChildFontRef.ConvertToPoint();
+end;
+
function WpsStyle.ReadXmlChildLnRef(): XRef;
begin
if tslassigning and (ifnil({self.}XmlChildLnRef) or {self.}XmlChildLnRef.Removed) then
@@ -8974,6 +9803,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function XRef.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildSchemeClr) then
+ {self.}XmlChildSchemeClr.ConvertToPoint();
+end;
+
function XRef.ReadXmlAttrIdx();
begin
return {self.}XmlAttrIdx.Value;
@@ -9037,6 +9872,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function Txbx.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildTxbxContent) then
+ {self.}XmlChildTxbxContent.ConvertToPoint();
+end;
+
function Txbx.ReadXmlChildTxbxContent(): TxbxContent;
begin
if tslassigning and (ifnil({self.}XmlChildTxbxContent) or {self.}XmlChildTxbxContent.Removed) then
@@ -9088,6 +9929,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function CNvSpPr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildSpLocks) then
+ {self.}XmlChildSpLocks.ConvertToPoint();
+end;
+
function CNvSpPr.ReadXmlAttrTxBox();
begin
return {self.}XmlAttrTxBox.Value;
@@ -9151,6 +9998,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function SpLocks.ConvertToPoint();override;
+begin
+
+end;
+
function SpLocks.ReadXmlAttrNoChangeArrowheads();
begin
return {self.}XmlAttrNoChangeArrowheads.Value;
@@ -9210,6 +10062,16 @@ begin
tslassigning := tslassigning_backup;
end;
+function Pic.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildNvPicPr) then
+ {self.}XmlChildNvPicPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildBlipFill) then
+ {self.}XmlChildBlipFill.ConvertToPoint();
+ if not ifnil({self.}XmlChildSpPr) then
+ {self.}XmlChildSpPr.ConvertToPoint();
+end;
+
function Pic.ReadXmlChildNvPicPr(): NvPicPr;
begin
if tslassigning and (ifnil({self.}XmlChildNvPicPr) or {self.}XmlChildNvPicPr.Removed) then
@@ -9281,6 +10143,14 @@ begin
tslassigning := tslassigning_backup;
end;
+function NvPicPr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildCNvPr) then
+ {self.}XmlChildCNvPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildCNvPicPr) then
+ {self.}XmlChildCNvPicPr.ConvertToPoint();
+end;
+
function NvPicPr.ReadXmlChildCNvPr(): CNvPr;
begin
if tslassigning and (ifnil({self.}XmlChildCNvPr) or {self.}XmlChildCNvPr.Removed) then
@@ -9345,6 +10215,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function CNvPr.ConvertToPoint();override;
+begin
+
+end;
+
function CNvPr.ReadXmlAttrId();
begin
return {self.}XmlAttrId.Value;
@@ -9428,6 +10303,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function CNvPicPr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildPicLocks) then
+ {self.}XmlChildPicLocks.ConvertToPoint();
+end;
+
function CNvPicPr.ReadXmlChildPicLocks(): PicLocks;
begin
if tslassigning and (ifnil({self.}XmlChildPicLocks) or {self.}XmlChildPicLocks.Removed) then
@@ -9476,6 +10357,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function PicLocks.ConvertToPoint();override;
+begin
+
+end;
+
function PicLocks.ReadXmlAttrNoChangeAspect();
begin
return {self.}XmlAttrNoChangeAspect.Value;
@@ -9532,6 +10418,14 @@ begin
tslassigning := tslassigning_backup;
end;
+function BlipFill.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildBlip) then
+ {self.}XmlChildBlip.ConvertToPoint();
+ if not ifnil({self.}XmlChildStretch) then
+ {self.}XmlChildStretch.ConvertToPoint();
+end;
+
function BlipFill.ReadXmlChildBlip(): Blip;
begin
if tslassigning and (ifnil({self.}XmlChildBlip) or {self.}XmlChildBlip.Removed) then
@@ -9593,6 +10487,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function Blip.ConvertToPoint();override;
+begin
+
+end;
+
function Blip.ReadXmlAttrEmbed();
begin
return {self.}XmlAttrEmbed.Value;
@@ -9661,6 +10560,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function Stretch.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildFillRect) then
+ {self.}XmlChildFillRect.ConvertToPoint();
+end;
+
function Stretch.ReadXmlChildFillRect(): PureVal;
begin
if tslassigning and (ifnil({self.}XmlChildFillRect) or {self.}XmlChildFillRect.Removed) then
@@ -9727,6 +10632,20 @@ begin
tslassigning := tslassigning_backup;
end;
+function SpPr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildXfrm) then
+ {self.}XmlChildXfrm.ConvertToPoint();
+ if not ifnil({self.}XmlChildPrstGeom) then
+ {self.}XmlChildPrstGeom.ConvertToPoint();
+ if not ifnil({self.}XmlChildSolidFill) then
+ {self.}XmlChildSolidFill.ConvertToPoint();
+ if not ifnil({self.}XmlChildLn) then
+ {self.}XmlChildLn.ConvertToPoint();
+ if not ifnil({self.}XmlChildEffectLst) then
+ {self.}XmlChildEffectLst.ConvertToPoint();
+end;
+
function SpPr.ReadXmlAttrBwMode();
begin
return {self.}XmlAttrBwMode.Value;
@@ -9840,6 +10759,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function EffectLst.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildOuterShdw) then
+ {self.}XmlChildOuterShdw.ConvertToPoint();
+end;
+
function EffectLst.ReadXmlChildOuterShdw(): OuterShdw;
begin
if tslassigning and (ifnil({self.}XmlChildOuterShdw) or {self.}XmlChildOuterShdw.Removed) then
@@ -9915,6 +10840,16 @@ begin
tslassigning := tslassigning_backup;
end;
+function Ln.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildSolidFill) then
+ {self.}XmlChildSolidFill.ConvertToPoint();
+ if not ifnil({self.}XmlChildPrstDash) then
+ {self.}XmlChildPrstDash.ConvertToPoint();
+ if not ifnil({self.}XmlChildMiter) then
+ {self.}XmlChildMiter.ConvertToPoint();
+end;
+
function Ln.ReadXmlAttrW();
begin
return {self.}XmlAttrW.Value;
@@ -10073,6 +11008,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function Miter.ConvertToPoint();override;
+begin
+
+end;
+
function Miter.ReadXmlAttrLim();
begin
return {self.}XmlAttrLim.Value;
@@ -10138,6 +11078,14 @@ begin
tslassigning := tslassigning_backup;
end;
+function Xfrm.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildOff) then
+ {self.}XmlChildOff.ConvertToPoint();
+ if not ifnil({self.}XmlChildExt) then
+ {self.}XmlChildExt.ConvertToPoint();
+end;
+
function Xfrm.ReadXmlAttrFlipH();
begin
return {self.}XmlAttrFlipH.Value;
@@ -10244,6 +11192,14 @@ begin
tslassigning := tslassigning_backup;
end;
+function XY.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlAttrX) then
+ {self.}X := TSSafeUnitConverter.EmusToPoints({self.}XmlAttrX.Value);
+ if not ifnil({self.}XmlAttrY) then
+ {self.}Y := TSSafeUnitConverter.EmusToPoints({self.}XmlAttrY.Value);
+end;
+
function XY.ReadXmlAttrX();
begin
return {self.}XmlAttrX.Value;
@@ -10315,6 +11271,14 @@ begin
tslassigning := tslassigning_backup;
end;
+function CXY.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlAttrCx) then
+ {self.}Cx := TSSafeUnitConverter.EmusToPoints({self.}XmlAttrCx.Value);
+ if not ifnil({self.}XmlAttrCy) then
+ {self.}Cy := TSSafeUnitConverter.EmusToPoints({self.}XmlAttrCy.Value);
+end;
+
function CXY.ReadXmlAttrCx();
begin
return {self.}XmlAttrCx.Value;
@@ -10386,6 +11350,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function PrstGeom.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildAvLst) then
+ {self.}XmlChildAvLst.ConvertToPoint();
+end;
+
function PrstGeom.ReadXmlAttrPrst();
begin
return {self.}XmlAttrPrst.Value;
@@ -10518,6 +11488,30 @@ begin
tslassigning := tslassigning_backup;
end;
+function Anchor.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildSimplePos) then
+ {self.}XmlChildSimplePos.ConvertToPoint();
+ if not ifnil({self.}XmlChildPositionH) then
+ {self.}XmlChildPositionH.ConvertToPoint();
+ if not ifnil({self.}XmlChildPositionV) then
+ {self.}XmlChildPositionV.ConvertToPoint();
+ if not ifnil({self.}XmlChildExtent) then
+ {self.}XmlChildExtent.ConvertToPoint();
+ if not ifnil({self.}XmlChildEffectExtent) then
+ {self.}XmlChildEffectExtent.ConvertToPoint();
+ if not ifnil({self.}XmlChildDocPr) then
+ {self.}XmlChildDocPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildCNvGraphicFramePr) then
+ {self.}XmlChildCNvGraphicFramePr.ConvertToPoint();
+ if not ifnil({self.}XmlChildGraphic) then
+ {self.}XmlChildGraphic.ConvertToPoint();
+ if not ifnil({self.}XmlChildSizeRelH) then
+ {self.}XmlChildSizeRelH.ConvertToPoint();
+ if not ifnil({self.}XmlChildSizeRelV) then
+ {self.}XmlChildSizeRelV.ConvertToPoint();
+end;
+
function Anchor.ReadXmlAttrDistT();
begin
return {self.}XmlAttrDistT.Value;
@@ -10864,6 +11858,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function PositionV.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildPosOffset) then
+ {self.}PosOffset.Text := TSSafeUnitConverter.EmusToPoints({self.}PosOffset.Text);
+end;
+
function PositionV.ReadXmlAttrRelativeFrom();
begin
return {self.}XmlAttrRelativeFrom.Value;
@@ -10930,6 +11930,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function PositionH.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildPosOffset) then
+ {self.}PosOffset.Text := TSSafeUnitConverter.EmusToPoints({self.}PosOffset.Text);
+end;
+
function PositionH.ReadXmlAttrRelativeFrom();
begin
return {self.}XmlAttrRelativeFrom.Value;
@@ -10996,6 +12002,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function SizeRelH.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildPctWidth) then
+ {self.}PctWidth.Text := TSSafeUnitConverter.EmusToPoints({self.}PctWidth.Text);
+end;
+
function SizeRelH.ReadXmlAttrRelativeFrom();
begin
return {self.}XmlAttrRelativeFrom.Value;
@@ -11062,6 +12074,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function SizeRelV.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildPctHeight) then
+ {self.}PctHeight.Text := TSSafeUnitConverter.EmusToPoints({self.}PctHeight.Text);
+end;
+
function SizeRelV.ReadXmlAttrRelativeFrom();
begin
return {self.}XmlAttrRelativeFrom.Value;
diff --git a/autounit/DrawingMLUnitDecorator.tsf b/autounit/DrawingMLUnitDecorator.tsf
index ffd3297..c497667 100644
--- a/autounit/DrawingMLUnitDecorator.tsf
+++ b/autounit/DrawingMLUnitDecorator.tsf
@@ -862,9 +862,9 @@ begin
if not ifnil(object_.XmlChildThemeElements) then
{self.}XmlChildThemeElements := new ThemeElementsUnitDecorator(object_.XmlChildThemeElements);
if not ifnil(object_.XmlChildObjectDefaults) then
- {self.}XmlChildObjectDefaults.Copy(object_.XmlChildObjectDefaults);
+ {self.}ObjectDefaults.Copy(object_.XmlChildObjectDefaults);
if not ifnil(object_.XmlChildExtraClrSchemeLst) then
- {self.}XmlChildExtraClrSchemeLst.Copy(object_.XmlChildExtraClrSchemeLst);
+ {self.}ExtraClrSchemeLst.Copy(object_.XmlChildExtraClrSchemeLst);
if not ifnil(object_.XmlChildExtLst) then
{self.}XmlChildExtLst := new ExtLstUnitDecorator(object_.XmlChildExtLst);
tslassigning := tslassigning_backup;
@@ -1623,7 +1623,7 @@ begin
if not ifnil(object_.XmlChildLegendPos) then
{self.}XmlChildLegendPos := new PureValUnitDecorator(object_.XmlChildLegendPos);
if not ifnil(object_.XmlChildLayout) then
- {self.}XmlChildLayout.Copy(object_.XmlChildLayout);
+ {self.}Layout.Copy(object_.XmlChildLayout);
if not ifnil(object_.XmlChildOverlay) then
{self.}XmlChildOverlay := new PureValUnitDecorator(object_.XmlChildOverlay);
if not ifnil(object_.XmlChildTxPr) then
@@ -1673,7 +1673,7 @@ begin
tslassigning_backup := tslassigning;
tslassigning := 1;
if not ifnil(object_.XmlChildLayout) then
- {self.}XmlChildLayout.Copy(object_.XmlChildLayout);
+ {self.}Layout.Copy(object_.XmlChildLayout);
if not ifnil(object_.XmlChildBarChart) then
{self.}XmlChildBarChart := new BarChartUnitDecorator(object_.XmlChildBarChart);
if not ifnil(object_.XmlChildCatAx) then
@@ -2094,7 +2094,7 @@ begin
if not ifnil(object_.XmlChildBodyPr) then
{self.}XmlChildBodyPr := new BodyPrUnitDecorator(object_.XmlChildBodyPr);
if not ifnil(object_.XmlChildLstStyle) then
- {self.}XmlChildLstStyle.Copy(object_.XmlChildLstStyle);
+ {self.}LstStyle.Copy(object_.XmlChildLstStyle);
elems := object_.Ps();
for _,elem in elems do
{self.}AppendChild(new PUnitDecorator(elem));
@@ -2120,7 +2120,7 @@ begin
if not ifnil(object_.XmlChildTx) then
{self.}XmlChildTx := new TxUnitDecorator(object_.XmlChildTx);
if not ifnil(object_.XmlChildLayout) then
- {self.}XmlChildLayout.Copy(object_.XmlChildLayout);
+ {self.}Layout.Copy(object_.XmlChildLayout);
if not ifnil(object_.XmlChildOverlay) then
{self.}XmlChildOverlay := new PureValUnitDecorator(object_.XmlChildOverlay);
tslassigning := tslassigning_backup;
@@ -2168,7 +2168,7 @@ begin
if not ifnil(object_.XmlChildBodyPr) then
{self.}XmlChildBodyPr := new BodyPrUnitDecorator(object_.XmlChildBodyPr);
if not ifnil(object_.XmlChildLstStyle) then
- {self.}XmlChildLstStyle.Copy(object_.XmlChildLstStyle);
+ {self.}LstStyle.Copy(object_.XmlChildLstStyle);
elems := object_.Ps();
for _,elem in elems do
{self.}AppendChild(new PUnitDecorator(elem));
@@ -2230,7 +2230,7 @@ begin
if not ifnil(object_.XmlChildPrstTxWrap) then
{self.}XmlChildPrstTxWrap := new PrstTxWrapUnitDecorator(object_.XmlChildPrstTxWrap);
if not ifnil(object_.XmlChildNoAutofit) then
- {self.}XmlChildNoAutofit.Copy(object_.XmlChildNoAutofit);
+ {self.}NoAutofit.Copy(object_.XmlChildNoAutofit);
tslassigning := tslassigning_backup;
end;
@@ -2253,7 +2253,7 @@ begin
if not ifnil(object_.XmlAttrPrst) then
{self.}Prst := object_.XmlAttrPrst.Value;
if not ifnil(object_.XmlChildAvLst) then
- {self.}XmlChildAvLst.Copy(object_.XmlChildAvLst);
+ {self.}AvLst.Copy(object_.XmlChildAvLst);
tslassigning := tslassigning_backup;
end;
@@ -2952,7 +2952,7 @@ begin
if not ifnil(object_.XmlChildPrstGeom) then
{self.}XmlChildPrstGeom := new PrstGeomUnitDecorator(object_.XmlChildPrstGeom);
if not ifnil(object_.XmlChildNoFill) then
- {self.}XmlChildNoFill.Copy(object_.XmlChildNoFill);
+ {self.}NoFill.Copy(object_.XmlChildNoFill);
if not ifnil(object_.XmlChildSolidFill) then
{self.}XmlChildSolidFill := new SolidFillUnitDecorator(object_.XmlChildSolidFill);
if not ifnil(object_.XmlChildLn) then
@@ -3008,7 +3008,7 @@ begin
if not ifnil(object_.XmlAttrAlgn) then
{self.}Algn := object_.XmlAttrAlgn.Value;
if not ifnil(object_.XmlChildNoFill) then
- {self.}XmlChildNoFill.Copy(object_.XmlChildNoFill);
+ {self.}NoFill.Copy(object_.XmlChildNoFill);
if not ifnil(object_.XmlChildSolidFill) then
{self.}XmlChildSolidFill := new SolidFillUnitDecorator(object_.XmlChildSolidFill);
if not ifnil(object_.XmlChildPrstDash) then
@@ -3016,9 +3016,9 @@ begin
if not ifnil(object_.XmlChildMiter) then
{self.}XmlChildMiter := new MiterUnitDecorator(object_.XmlChildMiter);
if not ifnil(object_.XmlChildHeadEnd) then
- {self.}XmlChildHeadEnd.Copy(object_.XmlChildHeadEnd);
+ {self.}HeadEnd.Copy(object_.XmlChildHeadEnd);
if not ifnil(object_.XmlChildTailEnd) then
- {self.}XmlChildTailEnd.Copy(object_.XmlChildTailEnd);
+ {self.}TailEnd.Copy(object_.XmlChildTailEnd);
tslassigning := tslassigning_backup;
end;
@@ -3194,7 +3194,7 @@ begin
if not ifnil(object_.XmlChildEffectExtent) then
{self.}XmlChildEffectExtent := new EffectExtentUnitDecorator(object_.XmlChildEffectExtent);
if not ifnil(object_.XmlChildWrapNone) then
- {self.}XmlChildWrapNone.Copy(object_.XmlChildWrapNone);
+ {self.}WrapNone.Copy(object_.XmlChildWrapNone);
if not ifnil(object_.XmlChildDocPr) then
{self.}XmlChildDocPr := new DocPrUnitDecorator(object_.XmlChildDocPr);
if not ifnil(object_.XmlChildCNvGraphicFramePr) then
diff --git a/autounit/SharedML.tsf b/autounit/SharedML.tsf
index ac0b36f..6eedb44 100644
--- a/autounit/SharedML.tsf
+++ b/autounit/SharedML.tsf
@@ -1,6 +1,6 @@
unit SharedML;
interface
-uses DrawingML, DocxML;
+uses TSSafeUnitConverter, DrawingML, DocxML;
type MathPr = class(OpenXmlCompositeElement)
public
@@ -9,6 +9,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: MathPr);override;
+ function ConvertToPoint();override;
+
public
// simple_type property
@@ -59,6 +61,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: OMathPara);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -80,6 +84,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: OMathParaPr);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -98,6 +104,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: PureMVal);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Val read ReadXmlAttrVal write WriteXmlAttrVal;
@@ -117,6 +125,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: OMath);override;
+ function ConvertToPoint();override;
+
public
// multi property
@@ -125,25 +135,33 @@ public
property Fs read ReadFs;
property Rads read ReadRads;
property SSubs read ReadSSubs;
+ property SSups read ReadSSups;
property Naries read ReadNaries;
+ property Funcs read ReadFuncs;
function ReadRs(_index);
function ReadDs(_index);
function ReadFs(_index);
function ReadRads(_index);
function ReadSSubs(_index);
+ function ReadSSups(_index);
function ReadNaries(_index);
+ function ReadFuncs(_index);
function AddR(): R;
function AddD(): D;
function AddF(): F;
function AddRad(): Rad;
function AddSSub(): SSub;
+ function AddSSup(): SSup;
function AddNary(): Nary;
+ function AddFunc(): Func;
function AppendR(): R;
function AppendD(): D;
function AppendF(): F;
function AppendRad(): Rad;
function AppendSSub(): SSub;
+ function AppendSSup(): SSup;
function AppendNary(): Nary;
+ function AppendFunc(): Func;
public
// Children
@@ -156,6 +174,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: R);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -183,6 +203,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: RPr);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -201,6 +223,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: T);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Space read ReadXmlAttrSpace write WriteXmlAttrSpace;
@@ -220,6 +244,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: D);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -241,6 +267,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: DPr);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -277,6 +305,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: CtrlPr);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -291,49 +321,6 @@ public
XmlChildDel: Del;
end;
-type E = class(OpenXmlCompositeElement)
-public
- 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 SSups read ReadSSups;
- property SSubs read ReadSSubs;
- property Funcs read ReadFuncs;
- function ReadRs(_index);
- function ReadDs(_index);
- function ReadSSups(_index);
- function ReadSSubs(_index);
- function ReadFuncs(_index);
- function AddR(): R;
- function AddD(): D;
- function AddSSup(): SSup;
- function AddSSub(): SSub;
- function AddFunc(): Func;
- function AppendR(): R;
- function AppendD(): D;
- function AppendSSup(): SSup;
- function AppendSSub(): SSub;
- function AppendFunc(): Func;
-
-public
- // Children
- XmlChildF: F;
- XmlChildCtrlPr: CtrlPr;
-end;
-
type SSup = class(OpenXmlCompositeElement)
public
function Create();overload;
@@ -341,6 +328,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: SSup);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -365,6 +354,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: SSupPr);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -376,30 +367,6 @@ public
XmlChildCtrlPr: CtrlPr;
end;
-type Sup = class(OpenXmlCompositeElement)
-public
- 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
-
- // 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 F = class(OpenXmlCompositeElement)
public
function Create();overload;
@@ -407,6 +374,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: F);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -431,6 +400,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: FPr);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -445,33 +416,6 @@ public
XmlChildCtrlPr: CtrlPr;
end;
-type Num = class(OpenXmlCompositeElement)
-public
- 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
-
- // normal property
- property Rad read ReadXmlChildRad;
- property CtrlPr read ReadXmlChildCtrlPr;
- function ReadXmlChildRad(): Rad;
- function ReadXmlChildCtrlPr(): CtrlPr;
-
- // multi property
- property Rs read ReadRs;
- function ReadRs(_index);
- function AddR(): R;
- function AppendR(): R;
-
-public
- // Children
- XmlChildRad: Rad;
- XmlChildCtrlPr: CtrlPr;
-end;
-
type Rad = class(OpenXmlCompositeElement)
public
function Create();overload;
@@ -479,6 +423,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Rad);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -503,6 +449,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: RadPr);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -517,43 +465,6 @@ public
XmlChildCtrlPr: CtrlPr;
end;
-type Deg = class(OpenXmlCompositeElement)
-public
- function Create();overload;
- function Create(_node: XmlNode);overload;
- function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
- function Init();override;
- function Copy(_obj: Deg);override;
-public
-
- // normal property
- property CtrlPr read ReadXmlChildCtrlPr;
- function ReadXmlChildCtrlPr(): CtrlPr;
-
-public
- // Children
- XmlChildCtrlPr: CtrlPr;
-end;
-
-type Den = class(OpenXmlCompositeElement)
-public
- 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(OpenXmlCompositeElement)
public
function Create();overload;
@@ -561,6 +472,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: SSub);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -585,6 +498,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: SSubPr);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -596,30 +511,6 @@ public
XmlChildCtrlPr: CtrlPr;
end;
-type Sub = class(OpenXmlCompositeElement)
-public
- 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(OpenXmlCompositeElement)
public
function Create();overload;
@@ -627,6 +518,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Nary);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -654,6 +547,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: NaryPr);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -687,6 +582,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Func);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -711,6 +608,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: FName);override;
+ function ConvertToPoint();override;
+
public
// multi property
@@ -730,6 +629,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: FuncPr);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -748,6 +649,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: CoreProperties);override;
+ function ConvertToPoint();override;
+
public
// pcdata property
@@ -793,6 +696,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Created);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Type read ReadXmlAttrType write WriteXmlAttrType;
@@ -812,6 +717,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Modified);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Type read ReadXmlAttrType write WriteXmlAttrType;
@@ -831,6 +738,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Relationships);override;
+ function ConvertToPoint();override;
+
public
// multi property
@@ -850,6 +759,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Relationship);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Id read ReadXmlAttrId write WriteXmlAttrId;
@@ -877,6 +788,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Types);override;
+ function ConvertToPoint();override;
+
public
// multi property
@@ -900,6 +813,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Default);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Extension read ReadXmlAttrExtension write WriteXmlAttrExtension;
@@ -923,6 +838,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: _Override);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property PartName read ReadXmlAttrPartName write WriteXmlAttrPartName;
@@ -939,6 +856,330 @@ public
end;
+type Num = class(OpenXmlCompositeElement)
+public
+ 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;
+ function ConvertToPoint();override;
+
+public
+
+ // normal property
+ property CtrlPr read ReadXmlChildCtrlPr;
+ function ReadXmlChildCtrlPr(): CtrlPr;
+
+ // multi property
+ property Rs read ReadRs;
+ property Ds read ReadDs;
+ property Fs read ReadFs;
+ property Rads read ReadRads;
+ property SSubs read ReadSSubs;
+ property SSups read ReadSSups;
+ property Naries read ReadNaries;
+ property Funcs read ReadFuncs;
+ function ReadRs(_index);
+ function ReadDs(_index);
+ function ReadFs(_index);
+ function ReadRads(_index);
+ function ReadSSubs(_index);
+ function ReadSSups(_index);
+ function ReadNaries(_index);
+ function ReadFuncs(_index);
+ function AddR(): R;
+ function AddD(): D;
+ function AddF(): F;
+ function AddRad(): Rad;
+ function AddSSub(): SSub;
+ function AddSSup(): SSup;
+ function AddNary(): Nary;
+ function AddFunc(): Func;
+ function AppendR(): R;
+ function AppendD(): D;
+ function AppendF(): F;
+ function AppendRad(): Rad;
+ function AppendSSub(): SSub;
+ function AppendSSup(): SSup;
+ function AppendNary(): Nary;
+ function AppendFunc(): Func;
+
+public
+ // Children
+ XmlChildCtrlPr: CtrlPr;
+end;
+
+type Deg = class(OpenXmlCompositeElement)
+public
+ function Create();overload;
+ function Create(_node: XmlNode);overload;
+ function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
+ function Init();override;
+ function Copy(_obj: Deg);override;
+ function ConvertToPoint();override;
+
+public
+
+ // normal property
+ property CtrlPr read ReadXmlChildCtrlPr;
+ function ReadXmlChildCtrlPr(): CtrlPr;
+
+ // multi property
+ property Rs read ReadRs;
+ property Ds read ReadDs;
+ property Fs read ReadFs;
+ property Rads read ReadRads;
+ property SSubs read ReadSSubs;
+ property SSups read ReadSSups;
+ property Naries read ReadNaries;
+ property Funcs read ReadFuncs;
+ function ReadRs(_index);
+ function ReadDs(_index);
+ function ReadFs(_index);
+ function ReadRads(_index);
+ function ReadSSubs(_index);
+ function ReadSSups(_index);
+ function ReadNaries(_index);
+ function ReadFuncs(_index);
+ function AddR(): R;
+ function AddD(): D;
+ function AddF(): F;
+ function AddRad(): Rad;
+ function AddSSub(): SSub;
+ function AddSSup(): SSup;
+ function AddNary(): Nary;
+ function AddFunc(): Func;
+ function AppendR(): R;
+ function AppendD(): D;
+ function AppendF(): F;
+ function AppendRad(): Rad;
+ function AppendSSub(): SSub;
+ function AppendSSup(): SSup;
+ function AppendNary(): Nary;
+ function AppendFunc(): Func;
+
+public
+ // Children
+ XmlChildCtrlPr: CtrlPr;
+end;
+
+type E = class(OpenXmlCompositeElement)
+public
+ 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;
+ function ConvertToPoint();override;
+
+public
+
+ // normal property
+ property CtrlPr read ReadXmlChildCtrlPr;
+ function ReadXmlChildCtrlPr(): CtrlPr;
+
+ // multi property
+ property Rs read ReadRs;
+ property Ds read ReadDs;
+ property Fs read ReadFs;
+ property Rads read ReadRads;
+ property SSubs read ReadSSubs;
+ property SSups read ReadSSups;
+ property Naries read ReadNaries;
+ property Funcs read ReadFuncs;
+ function ReadRs(_index);
+ function ReadDs(_index);
+ function ReadFs(_index);
+ function ReadRads(_index);
+ function ReadSSubs(_index);
+ function ReadSSups(_index);
+ function ReadNaries(_index);
+ function ReadFuncs(_index);
+ function AddR(): R;
+ function AddD(): D;
+ function AddF(): F;
+ function AddRad(): Rad;
+ function AddSSub(): SSub;
+ function AddSSup(): SSup;
+ function AddNary(): Nary;
+ function AddFunc(): Func;
+ function AppendR(): R;
+ function AppendD(): D;
+ function AppendF(): F;
+ function AppendRad(): Rad;
+ function AppendSSub(): SSub;
+ function AppendSSup(): SSup;
+ function AppendNary(): Nary;
+ function AppendFunc(): Func;
+
+public
+ // Children
+ XmlChildCtrlPr: CtrlPr;
+end;
+
+type Sup = class(OpenXmlCompositeElement)
+public
+ 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;
+ function ConvertToPoint();override;
+
+public
+
+ // normal property
+ property CtrlPr read ReadXmlChildCtrlPr;
+ function ReadXmlChildCtrlPr(): CtrlPr;
+
+ // multi property
+ property Rs read ReadRs;
+ property Ds read ReadDs;
+ property Fs read ReadFs;
+ property Rads read ReadRads;
+ property SSubs read ReadSSubs;
+ property SSups read ReadSSups;
+ property Naries read ReadNaries;
+ property Funcs read ReadFuncs;
+ function ReadRs(_index);
+ function ReadDs(_index);
+ function ReadFs(_index);
+ function ReadRads(_index);
+ function ReadSSubs(_index);
+ function ReadSSups(_index);
+ function ReadNaries(_index);
+ function ReadFuncs(_index);
+ function AddR(): R;
+ function AddD(): D;
+ function AddF(): F;
+ function AddRad(): Rad;
+ function AddSSub(): SSub;
+ function AddSSup(): SSup;
+ function AddNary(): Nary;
+ function AddFunc(): Func;
+ function AppendR(): R;
+ function AppendD(): D;
+ function AppendF(): F;
+ function AppendRad(): Rad;
+ function AppendSSub(): SSub;
+ function AppendSSup(): SSup;
+ function AppendNary(): Nary;
+ function AppendFunc(): Func;
+
+public
+ // Children
+ XmlChildCtrlPr: CtrlPr;
+end;
+
+type Den = class(OpenXmlCompositeElement)
+public
+ 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;
+ function ConvertToPoint();override;
+
+public
+
+ // normal property
+ property CtrlPr read ReadXmlChildCtrlPr;
+ function ReadXmlChildCtrlPr(): CtrlPr;
+
+ // multi property
+ property Rs read ReadRs;
+ property Ds read ReadDs;
+ property Fs read ReadFs;
+ property Rads read ReadRads;
+ property SSubs read ReadSSubs;
+ property SSups read ReadSSups;
+ property Naries read ReadNaries;
+ property Funcs read ReadFuncs;
+ function ReadRs(_index);
+ function ReadDs(_index);
+ function ReadFs(_index);
+ function ReadRads(_index);
+ function ReadSSubs(_index);
+ function ReadSSups(_index);
+ function ReadNaries(_index);
+ function ReadFuncs(_index);
+ function AddR(): R;
+ function AddD(): D;
+ function AddF(): F;
+ function AddRad(): Rad;
+ function AddSSub(): SSub;
+ function AddSSup(): SSup;
+ function AddNary(): Nary;
+ function AddFunc(): Func;
+ function AppendR(): R;
+ function AppendD(): D;
+ function AppendF(): F;
+ function AppendRad(): Rad;
+ function AppendSSub(): SSub;
+ function AppendSSup(): SSup;
+ function AppendNary(): Nary;
+ function AppendFunc(): Func;
+
+public
+ // Children
+ XmlChildCtrlPr: CtrlPr;
+end;
+
+type Sub = class(OpenXmlCompositeElement)
+public
+ 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;
+ function ConvertToPoint();override;
+
+public
+
+ // normal property
+ property CtrlPr read ReadXmlChildCtrlPr;
+ function ReadXmlChildCtrlPr(): CtrlPr;
+
+ // multi property
+ property Rs read ReadRs;
+ property Ds read ReadDs;
+ property Fs read ReadFs;
+ property Rads read ReadRads;
+ property SSubs read ReadSSubs;
+ property SSups read ReadSSups;
+ property Naries read ReadNaries;
+ property Funcs read ReadFuncs;
+ function ReadRs(_index);
+ function ReadDs(_index);
+ function ReadFs(_index);
+ function ReadRads(_index);
+ function ReadSSubs(_index);
+ function ReadSSups(_index);
+ function ReadNaries(_index);
+ function ReadFuncs(_index);
+ function AddR(): R;
+ function AddD(): D;
+ function AddF(): F;
+ function AddRad(): Rad;
+ function AddSSub(): SSub;
+ function AddSSup(): SSup;
+ function AddNary(): Nary;
+ function AddFunc(): Func;
+ function AppendR(): R;
+ function AppendD(): D;
+ function AppendF(): F;
+ function AppendRad(): Rad;
+ function AppendSSub(): SSub;
+ function AppendSSup(): SSup;
+ function AppendNary(): Nary;
+ function AppendFunc(): Func;
+
+public
+ // Children
+ XmlChildCtrlPr: CtrlPr;
+end;
+
implementation
function MathPr.Create();overload;
@@ -1009,6 +1250,30 @@ begin
tslassigning := tslassigning_backup;
end;
+function MathPr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildMathFont) then
+ {self.}XmlChildMathFont.ConvertToPoint();
+ if not ifnil({self.}XmlChildBrkBin) then
+ {self.}XmlChildBrkBin.ConvertToPoint();
+ if not ifnil({self.}XmlChildBrkBinSub) then
+ {self.}XmlChildBrkBinSub.ConvertToPoint();
+ if not ifnil({self.}XmlChildSmallFrac) then
+ {self.}XmlChildSmallFrac.ConvertToPoint();
+ if not ifnil({self.}XmlChildLMargin) then
+ {self.}XmlChildLMargin.ConvertToPoint();
+ if not ifnil({self.}XmlChildRMargin) then
+ {self.}XmlChildRMargin.ConvertToPoint();
+ if not ifnil({self.}XmlChildDefJc) then
+ {self.}XmlChildDefJc.ConvertToPoint();
+ if not ifnil({self.}XmlChildWrapIndent) then
+ {self.}XmlChildWrapIndent.ConvertToPoint();
+ if not ifnil({self.}XmlChildIntLim) then
+ {self.}XmlChildIntLim.ConvertToPoint();
+ if not ifnil({self.}XmlChildNaryLim) then
+ {self.}XmlChildNaryLim.ConvertToPoint();
+end;
+
function MathPr.ReadXmlChildDispDef();
begin
if tslassigning and (ifnil({self.}XmlChildDispDef) or {self.}XmlChildDispDef.Removed) then
@@ -1160,6 +1425,14 @@ begin
tslassigning := tslassigning_backup;
end;
+function OMathPara.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildOMathParaPr) then
+ {self.}XmlChildOMathParaPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildOMath) then
+ {self.}XmlChildOMath.ConvertToPoint();
+end;
+
function OMathPara.ReadXmlChildOMathParaPr(): OMathParaPr;
begin
if tslassigning and (ifnil({self.}XmlChildOMathParaPr) or {self.}XmlChildOMathParaPr.Removed) then
@@ -1218,6 +1491,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function OMathParaPr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildJc) then
+ {self.}XmlChildJc.ConvertToPoint();
+end;
+
function OMathParaPr.ReadXmlChildJc(): PureMVal;
begin
if tslassigning and (ifnil({self.}XmlChildJc) or {self.}XmlChildJc.Removed) then
@@ -1266,6 +1545,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function PureMVal.ConvertToPoint();override;
+begin
+
+end;
+
function PureMVal.ReadXmlAttrVal();
begin
return {self.}XmlAttrVal.Value;
@@ -1309,7 +1593,9 @@ begin
pre + "f": array(2, makeweakref(thisFunction(AppendF))),
pre + "rad": array(3, makeweakref(thisFunction(AppendRad))),
pre + "sSub": array(4, makeweakref(thisFunction(AppendSSub))),
- pre + "nary": array(5, makeweakref(thisFunction(AppendNary))),
+ pre + "sSup": array(5, makeweakref(thisFunction(AppendSSup))),
+ pre + "nary": array(6, makeweakref(thisFunction(AppendNary))),
+ pre + "func": array(7, makeweakref(thisFunction(AppendFunc))),
);
container_ := new TSOfficeContainer(sorted_child_);
end;
@@ -1322,6 +1608,34 @@ begin
tslassigning := tslassigning_backup;
end;
+function OMath.ConvertToPoint();override;
+begin
+ elems := {self.}Rs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Ds();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Fs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Rads();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}SSubs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}SSups();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Naries();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Funcs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+end;
+
function OMath.ReadRs(_index);
begin
ind := ifnil(_index) ? -2 : _index;
@@ -1357,6 +1671,13 @@ begin
return container_.Get(pre + "sSub", ind);
end;
+function OMath.ReadSSups(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "sSup", ind);
+end;
+
function OMath.ReadNaries(_index);
begin
ind := ifnil(_index) ? -2 : _index;
@@ -1364,6 +1685,13 @@ begin
return container_.Get(pre + "nary", ind);
end;
+function OMath.ReadFuncs(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "func", ind);
+end;
+
function OMath.AddR(): R;
begin
obj := new R(self, {self.}Prefix, "r");
@@ -1399,6 +1727,13 @@ begin
return obj;
end;
+function OMath.AddSSup(): SSup;
+begin
+ obj := new SSup(self, {self.}Prefix, "sSup");
+ container_.Insert(obj);
+ return obj;
+end;
+
function OMath.AddNary(): Nary;
begin
obj := new Nary(self, {self.}Prefix, "nary");
@@ -1406,6 +1741,13 @@ begin
return obj;
end;
+function OMath.AddFunc(): Func;
+begin
+ obj := new Func(self, {self.}Prefix, "func");
+ container_.Insert(obj);
+ return obj;
+end;
+
function OMath.AppendR(): R;
begin
obj := new R(self, {self.}Prefix, "r");
@@ -1441,6 +1783,13 @@ begin
return obj;
end;
+function OMath.AppendSSup(): SSup;
+begin
+ obj := new SSup(self, {self.}Prefix, "sSup");
+ container_.Append(obj);
+ return obj;
+end;
+
function OMath.AppendNary(): Nary;
begin
obj := new Nary(self, {self.}Prefix, "nary");
@@ -1448,6 +1797,13 @@ begin
return obj;
end;
+function OMath.AppendFunc(): Func;
+begin
+ obj := new Func(self, {self.}Prefix, "func");
+ container_.Append(obj);
+ return obj;
+end;
+
function R.Create();overload;
begin
{self.}Create(nil, "m", "r");
@@ -1495,6 +1851,18 @@ begin
tslassigning := tslassigning_backup;
end;
+function R.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildRPr) then
+ {self.}XmlChildRPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildARPr) then
+ {self.}XmlChildARPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildWRPr) then
+ {self.}XmlChildWRPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildT) then
+ {self.}XmlChildT.ConvertToPoint();
+end;
+
function R.ReadXmlChildRPr(_ns: string): RPr;
begin
if _ns = "a" then
@@ -1577,6 +1945,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function RPr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildSty) then
+ {self.}XmlChildSty.ConvertToPoint();
+end;
+
function RPr.ReadXmlChildSty(): PureMVal;
begin
if tslassigning and (ifnil({self.}XmlChildSty) or {self.}XmlChildSty.Removed) then
@@ -1622,6 +1996,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function T.ConvertToPoint();override;
+begin
+
+end;
+
function T.ReadXmlAttrSpace();
begin
return {self.}XmlAttrSpace.Value;
@@ -1678,6 +2057,14 @@ begin
tslassigning := tslassigning_backup;
end;
+function D.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildDPr) then
+ {self.}XmlChildDPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildE) then
+ {self.}XmlChildE.ConvertToPoint();
+end;
+
function D.ReadXmlChildDPr(): DPr;
begin
if tslassigning and (ifnil({self.}XmlChildDPr) or {self.}XmlChildDPr.Removed) then
@@ -1754,6 +2141,24 @@ begin
tslassigning := tslassigning_backup;
end;
+function DPr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildBegChr) then
+ {self.}XmlChildBegChr.ConvertToPoint();
+ if not ifnil({self.}XmlChildEndChr) then
+ {self.}XmlChildEndChr.ConvertToPoint();
+ if not ifnil({self.}XmlChildSepChr) then
+ {self.}XmlChildSepChr.ConvertToPoint();
+ if not ifnil({self.}XmlChildShp) then
+ {self.}XmlChildShp.ConvertToPoint();
+ if not ifnil({self.}XmlChildGrow) then
+ {self.}XmlChildGrow.ConvertToPoint();
+ if not ifnil({self.}XmlChildCtrlPr) then
+ {self.}XmlChildCtrlPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildRPr) then
+ {self.}XmlChildRPr.ConvertToPoint();
+end;
+
function DPr.ReadXmlChildBegChr(): PureMVal;
begin
if tslassigning and (ifnil({self.}XmlChildBegChr) or {self.}XmlChildBegChr.Removed) then
@@ -1865,6 +2270,14 @@ begin
tslassigning := tslassigning_backup;
end;
+function CtrlPr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildRPr) then
+ {self.}XmlChildRPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildDel) then
+ {self.}XmlChildDel.ConvertToPoint();
+end;
+
function CtrlPr.ReadXmlChildRPr(): RPr;
begin
if tslassigning and (ifnil({self.}XmlChildRPr) or {self.}XmlChildRPr.Removed) then
@@ -1885,177 +2298,6 @@ begin
return {self.}XmlChildDel;
end;
-function E.Create();overload;
-begin
- {self.}Create(nil, "m", "e");
-end;
-
-function E.Create(_node: XmlNode);overload;
-begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
-end;
-
-function E.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
-begin
- setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).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 + "sSup": array(2, makeweakref(thisFunction(AppendSSup))),
- pre + "sSub": array(3, makeweakref(thisFunction(AppendSSub))),
- pre + "func": array(4, makeweakref(thisFunction(AppendFunc))),
- pre + "f": array(5, makeweakref(thisFunction(ReadXmlChildF))),
- pre + "ctrlPr": array(6, makeweakref(thisFunction(ReadXmlChildCtrlPr))),
- );
- container_ := new TSOfficeContainer(sorted_child_);
-end;
-
-function E.Copy(_obj: E);override;
-begin
- tslassigning_backup := tslassigning;
- tslassigning := 1;
- class(OpenXmlCompositeElement).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) or {self.}XmlChildF.Removed) 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) or {self.}XmlChildCtrlPr.Removed) 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.ReadSSups(_index);
-begin
- ind := ifnil(_index) ? -2 : _index;
- pre := {self.}Prefix ? {self.}Prefix + ":" : "";
- return container_.Get(pre + "sSup", 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.AddSSup(): SSup;
-begin
- obj := new SSup(self, {self.}Prefix, "sSup");
- 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.AppendSSup(): SSup;
-begin
- obj := new SSup(self, {self.}Prefix, "sSup");
- 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 SSup.Create();overload;
begin
{self.}Create(nil, "m", "sSup");
@@ -2100,6 +2342,16 @@ begin
tslassigning := tslassigning_backup;
end;
+function SSup.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildSSupPr) then
+ {self.}XmlChildSSupPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildE) then
+ {self.}XmlChildE.ConvertToPoint();
+ if not ifnil({self.}XmlChildSup) then
+ {self.}XmlChildSup.ConvertToPoint();
+end;
+
function SSup.ReadXmlChildSSupPr(): SSupPr;
begin
if tslassigning and (ifnil({self.}XmlChildSSupPr) or {self.}XmlChildSSupPr.Removed) then
@@ -2168,6 +2420,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function SSupPr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildCtrlPr) then
+ {self.}XmlChildCtrlPr.ConvertToPoint();
+end;
+
function SSupPr.ReadXmlChildCtrlPr(): CtrlPr;
begin
if tslassigning and (ifnil({self.}XmlChildCtrlPr) or {self.}XmlChildCtrlPr.Removed) then
@@ -2178,76 +2436,6 @@ begin
return {self.}XmlChildCtrlPr;
end;
-function Sup.Create();overload;
-begin
- {self.}Create(nil, "m", "sup");
-end;
-
-function Sup.Create(_node: XmlNode);overload;
-begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
-end;
-
-function Sup.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
-begin
- setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).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))),
- pre + "ctrlPr": array(1, makeweakref(thisFunction(ReadXmlChildCtrlPr))),
- );
- container_ := new TSOfficeContainer(sorted_child_);
-end;
-
-function Sup.Copy(_obj: Sup);override;
-begin
- tslassigning_backup := tslassigning;
- tslassigning := 1;
- class(OpenXmlCompositeElement).Copy(_obj);
- if not ifnil(_obj.XmlChildCtrlPr) then
- {self.}CtrlPr.Copy(_obj.XmlChildCtrlPr);
- tslassigning := tslassigning_backup;
-end;
-
-function Sup.ReadXmlChildCtrlPr(): CtrlPr;
-begin
- if tslassigning and (ifnil({self.}XmlChildCtrlPr) or {self.}XmlChildCtrlPr.Removed) then
- begin
- {self.}XmlChildCtrlPr := new CtrlPr(self, {self.}Prefix, "ctrlPr");
- container_.Set({self.}XmlChildCtrlPr);
- end
- return {self.}XmlChildCtrlPr;
-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 F.Create();overload;
begin
{self.}Create(nil, "m", "f");
@@ -2292,6 +2480,16 @@ begin
tslassigning := tslassigning_backup;
end;
+function F.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildFPr) then
+ {self.}XmlChildFPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildNum) then
+ {self.}XmlChildNum.ConvertToPoint();
+ if not ifnil({self.}XmlChildDen) then
+ {self.}XmlChildDen.ConvertToPoint();
+end;
+
function F.ReadXmlChildFPr(): FPr;
begin
if tslassigning and (ifnil({self.}XmlChildFPr) or {self.}XmlChildFPr.Removed) then
@@ -2363,6 +2561,14 @@ begin
tslassigning := tslassigning_backup;
end;
+function FPr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildType) then
+ {self.}XmlChildType.ConvertToPoint();
+ if not ifnil({self.}XmlChildCtrlPr) then
+ {self.}XmlChildCtrlPr.ConvertToPoint();
+end;
+
function FPr.ReadXmlChildType(): PureMVal;
begin
if tslassigning and (ifnil({self.}XmlChildType) or {self.}XmlChildType.Removed) then
@@ -2383,89 +2589,6 @@ begin
return {self.}XmlChildCtrlPr;
end;
-function Num.Create();overload;
-begin
- {self.}Create(nil, "m", "num");
-end;
-
-function Num.Create(_node: XmlNode);overload;
-begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
-end;
-
-function Num.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
-begin
- setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).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))),
- pre + "rad": array(1, makeweakref(thisFunction(ReadXmlChildRad))),
- pre + "ctrlPr": array(2, makeweakref(thisFunction(ReadXmlChildCtrlPr))),
- );
- container_ := new TSOfficeContainer(sorted_child_);
-end;
-
-function Num.Copy(_obj: Num);override;
-begin
- tslassigning_backup := tslassigning;
- tslassigning := 1;
- class(OpenXmlCompositeElement).Copy(_obj);
- if not ifnil(_obj.XmlChildRad) then
- {self.}Rad.Copy(_obj.XmlChildRad);
- if not ifnil(_obj.XmlChildCtrlPr) then
- {self.}CtrlPr.Copy(_obj.XmlChildCtrlPr);
- tslassigning := tslassigning_backup;
-end;
-
-function Num.ReadXmlChildRad(): Rad;
-begin
- if tslassigning and (ifnil({self.}XmlChildRad) or {self.}XmlChildRad.Removed) then
- begin
- {self.}XmlChildRad := new Rad(self, {self.}Prefix, "rad");
- container_.Set({self.}XmlChildRad);
- end
- return {self.}XmlChildRad;
-end;
-
-function Num.ReadXmlChildCtrlPr(): CtrlPr;
-begin
- if tslassigning and (ifnil({self.}XmlChildCtrlPr) or {self.}XmlChildCtrlPr.Removed) then
- begin
- {self.}XmlChildCtrlPr := new CtrlPr(self, {self.}Prefix, "ctrlPr");
- container_.Set({self.}XmlChildCtrlPr);
- end
- return {self.}XmlChildCtrlPr;
-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 Rad.Create();overload;
begin
{self.}Create(nil, "m", "rad");
@@ -2510,6 +2633,16 @@ begin
tslassigning := tslassigning_backup;
end;
+function Rad.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildRadPr) then
+ {self.}XmlChildRadPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildDeg) then
+ {self.}XmlChildDeg.ConvertToPoint();
+ if not ifnil({self.}XmlChildE) then
+ {self.}XmlChildE.ConvertToPoint();
+end;
+
function Rad.ReadXmlChildRadPr(): RadPr;
begin
if tslassigning and (ifnil({self.}XmlChildRadPr) or {self.}XmlChildRadPr.Removed) then
@@ -2581,6 +2714,14 @@ begin
tslassigning := tslassigning_backup;
end;
+function RadPr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildDegHide) then
+ {self.}XmlChildDegHide.ConvertToPoint();
+ if not ifnil({self.}XmlChildCtrlPr) then
+ {self.}XmlChildCtrlPr.ConvertToPoint();
+end;
+
function RadPr.ReadXmlChildDegHide(): PureMVal;
begin
if tslassigning and (ifnil({self.}XmlChildDegHide) or {self.}XmlChildDegHide.Removed) then
@@ -2601,111 +2742,6 @@ begin
return {self.}XmlChildCtrlPr;
end;
-function Deg.Create();overload;
-begin
- {self.}Create(nil, "m", "deg");
-end;
-
-function Deg.Create(_node: XmlNode);overload;
-begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
-end;
-
-function Deg.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
-begin
- setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
-end;
-
-function Deg.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 Deg.Copy(_obj: Deg);override;
-begin
- tslassigning_backup := tslassigning;
- tslassigning := 1;
- class(OpenXmlCompositeElement).Copy(_obj);
- if not ifnil(_obj.XmlChildCtrlPr) then
- {self.}CtrlPr.Copy(_obj.XmlChildCtrlPr);
- tslassigning := tslassigning_backup;
-end;
-
-function Deg.ReadXmlChildCtrlPr(): CtrlPr;
-begin
- if tslassigning and (ifnil({self.}XmlChildCtrlPr) or {self.}XmlChildCtrlPr.Removed) then
- begin
- {self.}XmlChildCtrlPr := new CtrlPr(self, {self.}Prefix, "ctrlPr");
- container_.Set({self.}XmlChildCtrlPr);
- end
- return {self.}XmlChildCtrlPr;
-end;
-
-function Den.Create();overload;
-begin
- {self.}Create(nil, "m", "den");
-end;
-
-function Den.Create(_node: XmlNode);overload;
-begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
-end;
-
-function Den.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
-begin
- setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).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(OpenXmlCompositeElement).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");
@@ -2750,6 +2786,16 @@ begin
tslassigning := tslassigning_backup;
end;
+function SSub.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildSSubPr) then
+ {self.}XmlChildSSubPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildE) then
+ {self.}XmlChildE.ConvertToPoint();
+ if not ifnil({self.}XmlChildSub) then
+ {self.}XmlChildSub.ConvertToPoint();
+end;
+
function SSub.ReadXmlChildSSubPr(): SSubPr;
begin
if tslassigning and (ifnil({self.}XmlChildSSubPr) or {self.}XmlChildSSubPr.Removed) then
@@ -2818,6 +2864,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function SSubPr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildCtrlPr) then
+ {self.}XmlChildCtrlPr.ConvertToPoint();
+end;
+
function SSubPr.ReadXmlChildCtrlPr(): CtrlPr;
begin
if tslassigning and (ifnil({self.}XmlChildCtrlPr) or {self.}XmlChildCtrlPr.Removed) then
@@ -2828,76 +2880,6 @@ begin
return {self.}XmlChildCtrlPr;
end;
-function Sub.Create();overload;
-begin
- {self.}Create(nil, "m", "sub");
-end;
-
-function Sub.Create(_node: XmlNode);overload;
-begin
- class(OpenXmlCompositeElement).Create(_node: XmlNode);
-end;
-
-function Sub.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
-begin
- setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
- class(OpenXmlCompositeElement).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(OpenXmlCompositeElement).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) or {self.}XmlChildCtrlPr.Removed) 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");
@@ -2945,6 +2927,18 @@ begin
tslassigning := tslassigning_backup;
end;
+function Nary.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildNaryPr) then
+ {self.}XmlChildNaryPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildSub) then
+ {self.}XmlChildSub.ConvertToPoint();
+ if not ifnil({self.}XmlChildSup) then
+ {self.}XmlChildSup.ConvertToPoint();
+ if not ifnil({self.}XmlChildE) then
+ {self.}XmlChildE.ConvertToPoint();
+end;
+
function Nary.ReadXmlChildNaryPr(): NaryPr;
begin
if tslassigning and (ifnil({self.}XmlChildNaryPr) or {self.}XmlChildNaryPr.Removed) then
@@ -3038,6 +3032,22 @@ begin
tslassigning := tslassigning_backup;
end;
+function NaryPr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildChr) then
+ {self.}XmlChildChr.ConvertToPoint();
+ if not ifnil({self.}XmlChildGrow) then
+ {self.}XmlChildGrow.ConvertToPoint();
+ if not ifnil({self.}XmlChildSubHide) then
+ {self.}XmlChildSubHide.ConvertToPoint();
+ if not ifnil({self.}XmlChildSupHide) then
+ {self.}XmlChildSupHide.ConvertToPoint();
+ if not ifnil({self.}XmlChildLimLoc) then
+ {self.}XmlChildLimLoc.ConvertToPoint();
+ if not ifnil({self.}XmlChildCtrlPr) then
+ {self.}XmlChildCtrlPr.ConvertToPoint();
+end;
+
function NaryPr.ReadXmlChildChr(): PureMVal;
begin
if tslassigning and (ifnil({self.}XmlChildChr) or {self.}XmlChildChr.Removed) then
@@ -3122,7 +3132,7 @@ begin
);
sorted_child_ := array(
pre + "funcPr": array(0, makeweakref(thisFunction(ReadXmlChildFuncPr))),
- pre + "fname": array(1, makeweakref(thisFunction(ReadXmlChildFName))),
+ pre + "fName": array(1, makeweakref(thisFunction(ReadXmlChildFName))),
pre + "e": array(2, makeweakref(thisFunction(ReadXmlChildE))),
);
container_ := new TSOfficeContainer(sorted_child_);
@@ -3142,6 +3152,16 @@ begin
tslassigning := tslassigning_backup;
end;
+function Func.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildFuncPr) then
+ {self.}XmlChildFuncPr.ConvertToPoint();
+ if not ifnil({self.}XmlChildFName) then
+ {self.}XmlChildFName.ConvertToPoint();
+ if not ifnil({self.}XmlChildE) then
+ {self.}XmlChildE.ConvertToPoint();
+end;
+
function Func.ReadXmlChildFuncPr(): FuncPr;
begin
if tslassigning and (ifnil({self.}XmlChildFuncPr) or {self.}XmlChildFuncPr.Removed) then
@@ -3156,7 +3176,7 @@ function Func.ReadXmlChildFName(): FName;
begin
if tslassigning and (ifnil({self.}XmlChildFName) or {self.}XmlChildFName.Removed) then
begin
- {self.}XmlChildFName := new FName(self, {self.}Prefix, "fname");
+ {self.}XmlChildFName := new FName(self, {self.}Prefix, "fName");
container_.Set({self.}XmlChildFName);
end
return {self.}XmlChildFName;
@@ -3208,6 +3228,13 @@ begin
tslassigning := tslassigning_backup;
end;
+function FName.ConvertToPoint();override;
+begin
+ elems := {self.}Rs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+end;
+
function FName.ReadRs(_index);
begin
ind := ifnil(_index) ? -2 : _index;
@@ -3267,6 +3294,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function FuncPr.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildCtrlPr) then
+ {self.}XmlChildCtrlPr.ConvertToPoint();
+end;
+
function FuncPr.ReadXmlChildCtrlPr(): CtrlPr;
begin
if tslassigning and (ifnil({self.}XmlChildCtrlPr) or {self.}XmlChildCtrlPr.Removed) then
@@ -3342,6 +3375,22 @@ begin
tslassigning := tslassigning_backup;
end;
+function CoreProperties.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildTitle) then
+ if not ifnil({self.}XmlChildSubject) then
+ if not ifnil({self.}XmlChildCreator) then
+ if not ifnil({self.}XmlChildKeywords) then
+ if not ifnil({self.}XmlChildDescription) then
+ if not ifnil({self.}XmlChildLastModifiedBy) then
+ if not ifnil({self.}XmlChildRevision) then
+ if not ifnil({self.}XmlChildLastPrinted) then
+ if not ifnil({self.}XmlChildCreated) then
+ {self.}XmlChildCreated.ConvertToPoint();
+ if not ifnil({self.}XmlChildModified) then
+ {self.}XmlChildModified.ConvertToPoint();
+end;
+
function CoreProperties.ReadXmlChildTitle();
begin
if tslassigning and (ifnil({self.}XmlChildTitle) or {self.}XmlChildTitle.Removed) then
@@ -3477,6 +3526,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function Created.ConvertToPoint();override;
+begin
+
+end;
+
function Created.ReadXmlAttrType();
begin
return {self.}XmlAttrType.Value;
@@ -3527,6 +3581,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function Modified.ConvertToPoint();override;
+begin
+
+end;
+
function Modified.ReadXmlAttrType();
begin
return {self.}XmlAttrType.Value;
@@ -3578,6 +3637,13 @@ begin
tslassigning := tslassigning_backup;
end;
+function Relationships.ConvertToPoint();override;
+begin
+ elems := {self.}Relationships();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+end;
+
function Relationships.ReadRelationships(_index);
begin
ind := ifnil(_index) ? -2 : _index;
@@ -3643,6 +3709,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function Relationship.ConvertToPoint();override;
+begin
+
+end;
+
function Relationship.ReadXmlAttrId();
begin
return {self.}XmlAttrId.Value;
@@ -3725,6 +3796,16 @@ begin
tslassigning := tslassigning_backup;
end;
+function Types.ConvertToPoint();override;
+begin
+ elems := {self.}Defaults();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Overrides();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+end;
+
function Types.ReadDefaults(_index);
begin
ind := ifnil(_index) ? -2 : _index;
@@ -3808,6 +3889,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function Default.ConvertToPoint();override;
+begin
+
+end;
+
function Default.ReadXmlAttrExtension();
begin
return {self.}XmlAttrExtension.Value;
@@ -3879,6 +3965,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function _Override.ConvertToPoint();override;
+begin
+
+end;
+
function _Override.ReadXmlAttrPartName();
begin
return {self.}XmlAttrPartName.Value;
@@ -3909,4 +4000,1528 @@ begin
{self.}XmlAttrContentType.Value := _value;
end;
-end.
\ No newline at end of file
+function Num.Create();overload;
+begin
+ {self.}Create(nil, "m", "num");
+end;
+
+function Num.Create(_node: XmlNode);overload;
+begin
+ class(OpenXmlCompositeElement).Create(_node: XmlNode);
+end;
+
+function Num.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
+begin
+ setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
+ class(OpenXmlCompositeElement).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 + "ctrlPr": array(0, makeweakref(thisFunction(ReadXmlChildCtrlPr))),
+ pre + "r": array(1, makeweakref(thisFunction(AppendR))),
+ pre + "d": array(2, makeweakref(thisFunction(AppendD))),
+ pre + "f": array(3, makeweakref(thisFunction(AppendF))),
+ pre + "rad": array(4, makeweakref(thisFunction(AppendRad))),
+ pre + "sSub": array(5, makeweakref(thisFunction(AppendSSub))),
+ pre + "sSup": array(6, makeweakref(thisFunction(AppendSSup))),
+ pre + "nary": array(7, makeweakref(thisFunction(AppendNary))),
+ pre + "func": array(8, makeweakref(thisFunction(AppendFunc))),
+ );
+ container_ := new TSOfficeContainer(sorted_child_);
+end;
+
+function Num.Copy(_obj: Num);override;
+begin
+ tslassigning_backup := tslassigning;
+ tslassigning := 1;
+ class(OpenXmlCompositeElement).Copy(_obj);
+ if not ifnil(_obj.XmlChildCtrlPr) then
+ {self.}CtrlPr.Copy(_obj.XmlChildCtrlPr);
+ tslassigning := tslassigning_backup;
+end;
+
+function Num.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildCtrlPr) then
+ {self.}XmlChildCtrlPr.ConvertToPoint();
+ elems := {self.}Rs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Ds();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Fs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Rads();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}SSubs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}SSups();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Naries();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Funcs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+end;
+
+function Num.ReadXmlChildCtrlPr(): CtrlPr;
+begin
+ if tslassigning and (ifnil({self.}XmlChildCtrlPr) or {self.}XmlChildCtrlPr.Removed) then
+ begin
+ {self.}XmlChildCtrlPr := new CtrlPr(self, {self.}Prefix, "ctrlPr");
+ container_.Set({self.}XmlChildCtrlPr);
+ end
+ return {self.}XmlChildCtrlPr;
+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.ReadDs(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "d", ind);
+end;
+
+function Num.ReadFs(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "f", ind);
+end;
+
+function Num.ReadRads(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "rad", ind);
+end;
+
+function Num.ReadSSubs(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "sSub", ind);
+end;
+
+function Num.ReadSSups(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "sSup", ind);
+end;
+
+function Num.ReadNaries(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "nary", ind);
+end;
+
+function Num.ReadFuncs(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "func", ind);
+end;
+
+function Num.AddR(): R;
+begin
+ obj := new R(self, {self.}Prefix, "r");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Num.AddD(): D;
+begin
+ obj := new D(self, {self.}Prefix, "d");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Num.AddF(): F;
+begin
+ obj := new F(self, {self.}Prefix, "f");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Num.AddRad(): Rad;
+begin
+ obj := new Rad(self, {self.}Prefix, "rad");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Num.AddSSub(): SSub;
+begin
+ obj := new SSub(self, {self.}Prefix, "sSub");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Num.AddSSup(): SSup;
+begin
+ obj := new SSup(self, {self.}Prefix, "sSup");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Num.AddNary(): Nary;
+begin
+ obj := new Nary(self, {self.}Prefix, "nary");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Num.AddFunc(): Func;
+begin
+ obj := new Func(self, {self.}Prefix, "func");
+ 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 Num.AppendD(): D;
+begin
+ obj := new D(self, {self.}Prefix, "d");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Num.AppendF(): F;
+begin
+ obj := new F(self, {self.}Prefix, "f");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Num.AppendRad(): Rad;
+begin
+ obj := new Rad(self, {self.}Prefix, "rad");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Num.AppendSSub(): SSub;
+begin
+ obj := new SSub(self, {self.}Prefix, "sSub");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Num.AppendSSup(): SSup;
+begin
+ obj := new SSup(self, {self.}Prefix, "sSup");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Num.AppendNary(): Nary;
+begin
+ obj := new Nary(self, {self.}Prefix, "nary");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Num.AppendFunc(): Func;
+begin
+ obj := new Func(self, {self.}Prefix, "func");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Deg.Create();overload;
+begin
+ {self.}Create(nil, "m", "deg");
+end;
+
+function Deg.Create(_node: XmlNode);overload;
+begin
+ class(OpenXmlCompositeElement).Create(_node: XmlNode);
+end;
+
+function Deg.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
+begin
+ setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
+ class(OpenXmlCompositeElement).Create(_parent, _prefix, _local_name);
+end;
+
+function Deg.Init();override;
+begin
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ attributes_ := array();
+ attributes_pf_ := array(
+ );
+ sorted_child_ := array(
+ pre + "ctrlPr": array(0, makeweakref(thisFunction(ReadXmlChildCtrlPr))),
+ pre + "r": array(1, makeweakref(thisFunction(AppendR))),
+ pre + "d": array(2, makeweakref(thisFunction(AppendD))),
+ pre + "f": array(3, makeweakref(thisFunction(AppendF))),
+ pre + "rad": array(4, makeweakref(thisFunction(AppendRad))),
+ pre + "sSub": array(5, makeweakref(thisFunction(AppendSSub))),
+ pre + "sSup": array(6, makeweakref(thisFunction(AppendSSup))),
+ pre + "nary": array(7, makeweakref(thisFunction(AppendNary))),
+ pre + "func": array(8, makeweakref(thisFunction(AppendFunc))),
+ );
+ container_ := new TSOfficeContainer(sorted_child_);
+end;
+
+function Deg.Copy(_obj: Deg);override;
+begin
+ tslassigning_backup := tslassigning;
+ tslassigning := 1;
+ class(OpenXmlCompositeElement).Copy(_obj);
+ if not ifnil(_obj.XmlChildCtrlPr) then
+ {self.}CtrlPr.Copy(_obj.XmlChildCtrlPr);
+ tslassigning := tslassigning_backup;
+end;
+
+function Deg.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildCtrlPr) then
+ {self.}XmlChildCtrlPr.ConvertToPoint();
+ elems := {self.}Rs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Ds();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Fs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Rads();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}SSubs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}SSups();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Naries();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Funcs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+end;
+
+function Deg.ReadXmlChildCtrlPr(): CtrlPr;
+begin
+ if tslassigning and (ifnil({self.}XmlChildCtrlPr) or {self.}XmlChildCtrlPr.Removed) then
+ begin
+ {self.}XmlChildCtrlPr := new CtrlPr(self, {self.}Prefix, "ctrlPr");
+ container_.Set({self.}XmlChildCtrlPr);
+ end
+ return {self.}XmlChildCtrlPr;
+end;
+
+function Deg.ReadRs(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "r", ind);
+end;
+
+function Deg.ReadDs(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "d", ind);
+end;
+
+function Deg.ReadFs(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "f", ind);
+end;
+
+function Deg.ReadRads(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "rad", ind);
+end;
+
+function Deg.ReadSSubs(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "sSub", ind);
+end;
+
+function Deg.ReadSSups(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "sSup", ind);
+end;
+
+function Deg.ReadNaries(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "nary", ind);
+end;
+
+function Deg.ReadFuncs(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "func", ind);
+end;
+
+function Deg.AddR(): R;
+begin
+ obj := new R(self, {self.}Prefix, "r");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Deg.AddD(): D;
+begin
+ obj := new D(self, {self.}Prefix, "d");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Deg.AddF(): F;
+begin
+ obj := new F(self, {self.}Prefix, "f");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Deg.AddRad(): Rad;
+begin
+ obj := new Rad(self, {self.}Prefix, "rad");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Deg.AddSSub(): SSub;
+begin
+ obj := new SSub(self, {self.}Prefix, "sSub");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Deg.AddSSup(): SSup;
+begin
+ obj := new SSup(self, {self.}Prefix, "sSup");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Deg.AddNary(): Nary;
+begin
+ obj := new Nary(self, {self.}Prefix, "nary");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Deg.AddFunc(): Func;
+begin
+ obj := new Func(self, {self.}Prefix, "func");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Deg.AppendR(): R;
+begin
+ obj := new R(self, {self.}Prefix, "r");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Deg.AppendD(): D;
+begin
+ obj := new D(self, {self.}Prefix, "d");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Deg.AppendF(): F;
+begin
+ obj := new F(self, {self.}Prefix, "f");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Deg.AppendRad(): Rad;
+begin
+ obj := new Rad(self, {self.}Prefix, "rad");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Deg.AppendSSub(): SSub;
+begin
+ obj := new SSub(self, {self.}Prefix, "sSub");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Deg.AppendSSup(): SSup;
+begin
+ obj := new SSup(self, {self.}Prefix, "sSup");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Deg.AppendNary(): Nary;
+begin
+ obj := new Nary(self, {self.}Prefix, "nary");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Deg.AppendFunc(): Func;
+begin
+ obj := new Func(self, {self.}Prefix, "func");
+ container_.Append(obj);
+ return obj;
+end;
+
+function E.Create();overload;
+begin
+ {self.}Create(nil, "m", "e");
+end;
+
+function E.Create(_node: XmlNode);overload;
+begin
+ class(OpenXmlCompositeElement).Create(_node: XmlNode);
+end;
+
+function E.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
+begin
+ setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
+ class(OpenXmlCompositeElement).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 + "ctrlPr": array(0, makeweakref(thisFunction(ReadXmlChildCtrlPr))),
+ pre + "r": array(1, makeweakref(thisFunction(AppendR))),
+ pre + "d": array(2, makeweakref(thisFunction(AppendD))),
+ pre + "f": array(3, makeweakref(thisFunction(AppendF))),
+ pre + "rad": array(4, makeweakref(thisFunction(AppendRad))),
+ pre + "sSub": array(5, makeweakref(thisFunction(AppendSSub))),
+ pre + "sSup": array(6, makeweakref(thisFunction(AppendSSup))),
+ pre + "nary": array(7, makeweakref(thisFunction(AppendNary))),
+ pre + "func": array(8, makeweakref(thisFunction(AppendFunc))),
+ );
+ container_ := new TSOfficeContainer(sorted_child_);
+end;
+
+function E.Copy(_obj: E);override;
+begin
+ tslassigning_backup := tslassigning;
+ tslassigning := 1;
+ class(OpenXmlCompositeElement).Copy(_obj);
+ if not ifnil(_obj.XmlChildCtrlPr) then
+ {self.}CtrlPr.Copy(_obj.XmlChildCtrlPr);
+ tslassigning := tslassigning_backup;
+end;
+
+function E.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildCtrlPr) then
+ {self.}XmlChildCtrlPr.ConvertToPoint();
+ elems := {self.}Rs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Ds();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Fs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Rads();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}SSubs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}SSups();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Naries();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Funcs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+end;
+
+function E.ReadXmlChildCtrlPr(): CtrlPr;
+begin
+ if tslassigning and (ifnil({self.}XmlChildCtrlPr) or {self.}XmlChildCtrlPr.Removed) 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.ReadFs(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "f", ind);
+end;
+
+function E.ReadRads(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "rad", 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.ReadSSups(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "sSup", ind);
+end;
+
+function E.ReadNaries(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "nary", 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.AddF(): F;
+begin
+ obj := new F(self, {self.}Prefix, "f");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function E.AddRad(): Rad;
+begin
+ obj := new Rad(self, {self.}Prefix, "rad");
+ 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.AddSSup(): SSup;
+begin
+ obj := new SSup(self, {self.}Prefix, "sSup");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function E.AddNary(): Nary;
+begin
+ obj := new Nary(self, {self.}Prefix, "nary");
+ 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.AppendF(): F;
+begin
+ obj := new F(self, {self.}Prefix, "f");
+ container_.Append(obj);
+ return obj;
+end;
+
+function E.AppendRad(): Rad;
+begin
+ obj := new Rad(self, {self.}Prefix, "rad");
+ 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.AppendSSup(): SSup;
+begin
+ obj := new SSup(self, {self.}Prefix, "sSup");
+ container_.Append(obj);
+ return obj;
+end;
+
+function E.AppendNary(): Nary;
+begin
+ obj := new Nary(self, {self.}Prefix, "nary");
+ 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 Sup.Create();overload;
+begin
+ {self.}Create(nil, "m", "sup");
+end;
+
+function Sup.Create(_node: XmlNode);overload;
+begin
+ class(OpenXmlCompositeElement).Create(_node: XmlNode);
+end;
+
+function Sup.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
+begin
+ setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
+ class(OpenXmlCompositeElement).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 + "ctrlPr": array(0, makeweakref(thisFunction(ReadXmlChildCtrlPr))),
+ pre + "r": array(1, makeweakref(thisFunction(AppendR))),
+ pre + "d": array(2, makeweakref(thisFunction(AppendD))),
+ pre + "f": array(3, makeweakref(thisFunction(AppendF))),
+ pre + "rad": array(4, makeweakref(thisFunction(AppendRad))),
+ pre + "sSub": array(5, makeweakref(thisFunction(AppendSSub))),
+ pre + "sSup": array(6, makeweakref(thisFunction(AppendSSup))),
+ pre + "nary": array(7, makeweakref(thisFunction(AppendNary))),
+ pre + "func": array(8, makeweakref(thisFunction(AppendFunc))),
+ );
+ container_ := new TSOfficeContainer(sorted_child_);
+end;
+
+function Sup.Copy(_obj: Sup);override;
+begin
+ tslassigning_backup := tslassigning;
+ tslassigning := 1;
+ class(OpenXmlCompositeElement).Copy(_obj);
+ if not ifnil(_obj.XmlChildCtrlPr) then
+ {self.}CtrlPr.Copy(_obj.XmlChildCtrlPr);
+ tslassigning := tslassigning_backup;
+end;
+
+function Sup.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildCtrlPr) then
+ {self.}XmlChildCtrlPr.ConvertToPoint();
+ elems := {self.}Rs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Ds();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Fs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Rads();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}SSubs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}SSups();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Naries();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Funcs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+end;
+
+function Sup.ReadXmlChildCtrlPr(): CtrlPr;
+begin
+ if tslassigning and (ifnil({self.}XmlChildCtrlPr) or {self.}XmlChildCtrlPr.Removed) then
+ begin
+ {self.}XmlChildCtrlPr := new CtrlPr(self, {self.}Prefix, "ctrlPr");
+ container_.Set({self.}XmlChildCtrlPr);
+ end
+ return {self.}XmlChildCtrlPr;
+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.ReadDs(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "d", ind);
+end;
+
+function Sup.ReadFs(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "f", ind);
+end;
+
+function Sup.ReadRads(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "rad", ind);
+end;
+
+function Sup.ReadSSubs(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "sSub", ind);
+end;
+
+function Sup.ReadSSups(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "sSup", ind);
+end;
+
+function Sup.ReadNaries(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "nary", ind);
+end;
+
+function Sup.ReadFuncs(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "func", ind);
+end;
+
+function Sup.AddR(): R;
+begin
+ obj := new R(self, {self.}Prefix, "r");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Sup.AddD(): D;
+begin
+ obj := new D(self, {self.}Prefix, "d");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Sup.AddF(): F;
+begin
+ obj := new F(self, {self.}Prefix, "f");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Sup.AddRad(): Rad;
+begin
+ obj := new Rad(self, {self.}Prefix, "rad");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Sup.AddSSub(): SSub;
+begin
+ obj := new SSub(self, {self.}Prefix, "sSub");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Sup.AddSSup(): SSup;
+begin
+ obj := new SSup(self, {self.}Prefix, "sSup");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Sup.AddNary(): Nary;
+begin
+ obj := new Nary(self, {self.}Prefix, "nary");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Sup.AddFunc(): Func;
+begin
+ obj := new Func(self, {self.}Prefix, "func");
+ 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 Sup.AppendD(): D;
+begin
+ obj := new D(self, {self.}Prefix, "d");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Sup.AppendF(): F;
+begin
+ obj := new F(self, {self.}Prefix, "f");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Sup.AppendRad(): Rad;
+begin
+ obj := new Rad(self, {self.}Prefix, "rad");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Sup.AppendSSub(): SSub;
+begin
+ obj := new SSub(self, {self.}Prefix, "sSub");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Sup.AppendSSup(): SSup;
+begin
+ obj := new SSup(self, {self.}Prefix, "sSup");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Sup.AppendNary(): Nary;
+begin
+ obj := new Nary(self, {self.}Prefix, "nary");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Sup.AppendFunc(): Func;
+begin
+ obj := new Func(self, {self.}Prefix, "func");
+ 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(OpenXmlCompositeElement).Create(_node: XmlNode);
+end;
+
+function Den.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
+begin
+ setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
+ class(OpenXmlCompositeElement).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 + "ctrlPr": array(0, makeweakref(thisFunction(ReadXmlChildCtrlPr))),
+ pre + "r": array(1, makeweakref(thisFunction(AppendR))),
+ pre + "d": array(2, makeweakref(thisFunction(AppendD))),
+ pre + "f": array(3, makeweakref(thisFunction(AppendF))),
+ pre + "rad": array(4, makeweakref(thisFunction(AppendRad))),
+ pre + "sSub": array(5, makeweakref(thisFunction(AppendSSub))),
+ pre + "sSup": array(6, makeweakref(thisFunction(AppendSSup))),
+ pre + "nary": array(7, makeweakref(thisFunction(AppendNary))),
+ pre + "func": array(8, makeweakref(thisFunction(AppendFunc))),
+ );
+ container_ := new TSOfficeContainer(sorted_child_);
+end;
+
+function Den.Copy(_obj: Den);override;
+begin
+ tslassigning_backup := tslassigning;
+ tslassigning := 1;
+ class(OpenXmlCompositeElement).Copy(_obj);
+ if not ifnil(_obj.XmlChildCtrlPr) then
+ {self.}CtrlPr.Copy(_obj.XmlChildCtrlPr);
+ tslassigning := tslassigning_backup;
+end;
+
+function Den.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildCtrlPr) then
+ {self.}XmlChildCtrlPr.ConvertToPoint();
+ elems := {self.}Rs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Ds();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Fs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Rads();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}SSubs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}SSups();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Naries();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Funcs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+end;
+
+function Den.ReadXmlChildCtrlPr(): CtrlPr;
+begin
+ if tslassigning and (ifnil({self.}XmlChildCtrlPr) or {self.}XmlChildCtrlPr.Removed) then
+ begin
+ {self.}XmlChildCtrlPr := new CtrlPr(self, {self.}Prefix, "ctrlPr");
+ container_.Set({self.}XmlChildCtrlPr);
+ end
+ return {self.}XmlChildCtrlPr;
+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.ReadDs(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "d", ind);
+end;
+
+function Den.ReadFs(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "f", ind);
+end;
+
+function Den.ReadRads(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "rad", ind);
+end;
+
+function Den.ReadSSubs(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "sSub", ind);
+end;
+
+function Den.ReadSSups(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "sSup", ind);
+end;
+
+function Den.ReadNaries(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "nary", ind);
+end;
+
+function Den.ReadFuncs(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "func", ind);
+end;
+
+function Den.AddR(): R;
+begin
+ obj := new R(self, {self.}Prefix, "r");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Den.AddD(): D;
+begin
+ obj := new D(self, {self.}Prefix, "d");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Den.AddF(): F;
+begin
+ obj := new F(self, {self.}Prefix, "f");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Den.AddRad(): Rad;
+begin
+ obj := new Rad(self, {self.}Prefix, "rad");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Den.AddSSub(): SSub;
+begin
+ obj := new SSub(self, {self.}Prefix, "sSub");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Den.AddSSup(): SSup;
+begin
+ obj := new SSup(self, {self.}Prefix, "sSup");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Den.AddNary(): Nary;
+begin
+ obj := new Nary(self, {self.}Prefix, "nary");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Den.AddFunc(): Func;
+begin
+ obj := new Func(self, {self.}Prefix, "func");
+ 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 Den.AppendD(): D;
+begin
+ obj := new D(self, {self.}Prefix, "d");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Den.AppendF(): F;
+begin
+ obj := new F(self, {self.}Prefix, "f");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Den.AppendRad(): Rad;
+begin
+ obj := new Rad(self, {self.}Prefix, "rad");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Den.AppendSSub(): SSub;
+begin
+ obj := new SSub(self, {self.}Prefix, "sSub");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Den.AppendSSup(): SSup;
+begin
+ obj := new SSup(self, {self.}Prefix, "sSup");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Den.AppendNary(): Nary;
+begin
+ obj := new Nary(self, {self.}Prefix, "nary");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Den.AppendFunc(): Func;
+begin
+ obj := new Func(self, {self.}Prefix, "func");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Sub.Create();overload;
+begin
+ {self.}Create(nil, "m", "sub");
+end;
+
+function Sub.Create(_node: XmlNode);overload;
+begin
+ class(OpenXmlCompositeElement).Create(_node: XmlNode);
+end;
+
+function Sub.Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
+begin
+ setsysparam(pn_calcctrlword(), getsysparam(pn_calcctrlword()) .| 0x200);
+ class(OpenXmlCompositeElement).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 + "ctrlPr": array(0, makeweakref(thisFunction(ReadXmlChildCtrlPr))),
+ pre + "r": array(1, makeweakref(thisFunction(AppendR))),
+ pre + "d": array(2, makeweakref(thisFunction(AppendD))),
+ pre + "f": array(3, makeweakref(thisFunction(AppendF))),
+ pre + "rad": array(4, makeweakref(thisFunction(AppendRad))),
+ pre + "sSub": array(5, makeweakref(thisFunction(AppendSSub))),
+ pre + "sSup": array(6, makeweakref(thisFunction(AppendSSup))),
+ pre + "nary": array(7, makeweakref(thisFunction(AppendNary))),
+ pre + "func": array(8, makeweakref(thisFunction(AppendFunc))),
+ );
+ container_ := new TSOfficeContainer(sorted_child_);
+end;
+
+function Sub.Copy(_obj: Sub);override;
+begin
+ tslassigning_backup := tslassigning;
+ tslassigning := 1;
+ class(OpenXmlCompositeElement).Copy(_obj);
+ if not ifnil(_obj.XmlChildCtrlPr) then
+ {self.}CtrlPr.Copy(_obj.XmlChildCtrlPr);
+ tslassigning := tslassigning_backup;
+end;
+
+function Sub.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildCtrlPr) then
+ {self.}XmlChildCtrlPr.ConvertToPoint();
+ elems := {self.}Rs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Ds();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Fs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Rads();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}SSubs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}SSups();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Naries();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+ elems := {self.}Funcs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+end;
+
+function Sub.ReadXmlChildCtrlPr(): CtrlPr;
+begin
+ if tslassigning and (ifnil({self.}XmlChildCtrlPr) or {self.}XmlChildCtrlPr.Removed) 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.ReadDs(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "d", ind);
+end;
+
+function Sub.ReadFs(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "f", ind);
+end;
+
+function Sub.ReadRads(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "rad", ind);
+end;
+
+function Sub.ReadSSubs(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "sSub", ind);
+end;
+
+function Sub.ReadSSups(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "sSup", ind);
+end;
+
+function Sub.ReadNaries(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "nary", ind);
+end;
+
+function Sub.ReadFuncs(_index);
+begin
+ ind := ifnil(_index) ? -2 : _index;
+ pre := {self.}Prefix ? {self.}Prefix + ":" : "";
+ return container_.Get(pre + "func", ind);
+end;
+
+function Sub.AddR(): R;
+begin
+ obj := new R(self, {self.}Prefix, "r");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Sub.AddD(): D;
+begin
+ obj := new D(self, {self.}Prefix, "d");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Sub.AddF(): F;
+begin
+ obj := new F(self, {self.}Prefix, "f");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Sub.AddRad(): Rad;
+begin
+ obj := new Rad(self, {self.}Prefix, "rad");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Sub.AddSSub(): SSub;
+begin
+ obj := new SSub(self, {self.}Prefix, "sSub");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Sub.AddSSup(): SSup;
+begin
+ obj := new SSup(self, {self.}Prefix, "sSup");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Sub.AddNary(): Nary;
+begin
+ obj := new Nary(self, {self.}Prefix, "nary");
+ container_.Insert(obj);
+ return obj;
+end;
+
+function Sub.AddFunc(): Func;
+begin
+ obj := new Func(self, {self.}Prefix, "func");
+ 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 Sub.AppendD(): D;
+begin
+ obj := new D(self, {self.}Prefix, "d");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Sub.AppendF(): F;
+begin
+ obj := new F(self, {self.}Prefix, "f");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Sub.AppendRad(): Rad;
+begin
+ obj := new Rad(self, {self.}Prefix, "rad");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Sub.AppendSSub(): SSub;
+begin
+ obj := new SSub(self, {self.}Prefix, "sSub");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Sub.AppendSSup(): SSup;
+begin
+ obj := new SSup(self, {self.}Prefix, "sSup");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Sub.AppendNary(): Nary;
+begin
+ obj := new Nary(self, {self.}Prefix, "nary");
+ container_.Append(obj);
+ return obj;
+end;
+
+function Sub.AppendFunc(): Func;
+begin
+ obj := new Func(self, {self.}Prefix, "func");
+ container_.Append(obj);
+ return obj;
+end;
+
+end.
diff --git a/autounit/SharedMLUnitDecorator.tsf b/autounit/SharedMLUnitDecorator.tsf
index 9364bca..8961ca7 100644
--- a/autounit/SharedMLUnitDecorator.tsf
+++ b/autounit/SharedMLUnitDecorator.tsf
@@ -101,15 +101,6 @@ private
object_: CtrlPr;
end;
-type EUnitDecorator = class(E)
-public
- function Create(_obj: E);
- function GetObject();
- function Convert();
-private
- object_: E;
-end;
-
type SSupUnitDecorator = class(SSup)
public
function Create(_obj: SSup);
@@ -128,15 +119,6 @@ private
object_: SSupPr;
end;
-type SupUnitDecorator = class(Sup)
-public
- function Create(_obj: Sup);
- function GetObject();
- function Convert();
-private
- object_: Sup;
-end;
-
type FUnitDecorator = class(F)
public
function Create(_obj: F);
@@ -155,15 +137,6 @@ private
object_: FPr;
end;
-type NumUnitDecorator = class(Num)
-public
- function Create(_obj: Num);
- function GetObject();
- function Convert();
-private
- object_: Num;
-end;
-
type RadUnitDecorator = class(Rad)
public
function Create(_obj: Rad);
@@ -182,24 +155,6 @@ private
object_: RadPr;
end;
-type DegUnitDecorator = class(Deg)
-public
- function Create(_obj: Deg);
- function GetObject();
- function Convert();
-private
- object_: Deg;
-end;
-
-type DenUnitDecorator = class(Den)
-public
- function Create(_obj: Den);
- function GetObject();
- function Convert();
-private
- object_: Den;
-end;
-
type SSubUnitDecorator = class(SSub)
public
function Create(_obj: SSub);
@@ -218,15 +173,6 @@ private
object_: SSubPr;
end;
-type SubUnitDecorator = class(Sub)
-public
- function Create(_obj: Sub);
- function GetObject();
- function Convert();
-private
- object_: Sub;
-end;
-
type NaryUnitDecorator = class(Nary)
public
function Create(_obj: Nary);
@@ -344,6 +290,60 @@ private
object_: _Override;
end;
+type NumUnitDecorator = class(Num)
+public
+ function Create(_obj: Num);
+ function GetObject();
+ function Convert();
+private
+ object_: Num;
+end;
+
+type DegUnitDecorator = class(Deg)
+public
+ function Create(_obj: Deg);
+ function GetObject();
+ function Convert();
+private
+ object_: Deg;
+end;
+
+type EUnitDecorator = class(E)
+public
+ function Create(_obj: E);
+ function GetObject();
+ function Convert();
+private
+ object_: E;
+end;
+
+type SupUnitDecorator = class(Sup)
+public
+ function Create(_obj: Sup);
+ function GetObject();
+ function Convert();
+private
+ object_: Sup;
+end;
+
+type DenUnitDecorator = class(Den)
+public
+ function Create(_obj: Den);
+ function GetObject();
+ function Convert();
+private
+ object_: Den;
+end;
+
+type SubUnitDecorator = class(Sub)
+public
+ function Create(_obj: Sub);
+ function GetObject();
+ function Convert();
+private
+ object_: Sub;
+end;
+
implementation
function MathPrUnitDecorator.Create(_obj: MathPr);
@@ -371,7 +371,7 @@ begin
if not ifnil(object_.XmlChildSmallFrac) then
{self.}XmlChildSmallFrac := new PureMValUnitDecorator(object_.XmlChildSmallFrac);
if not ifnil(object_.XmlChildDispDef) then
- {self.}XmlChildDispDef.Copy(object_.XmlChildDispDef);
+ {self.}DispDef.Copy(object_.XmlChildDispDef);
if not ifnil(object_.XmlChildLMargin) then
{self.}XmlChildLMargin := new PureMValUnitDecorator(object_.XmlChildLMargin);
if not ifnil(object_.XmlChildRMargin) then
@@ -483,9 +483,15 @@ begin
elems := object_.SSubs();
for _,elem in elems do
{self.}AppendChild(new SSubUnitDecorator(elem));
+ elems := object_.SSups();
+ for _,elem in elems do
+ {self.}AppendChild(new SSupUnitDecorator(elem));
elems := object_.Naries();
for _,elem in elems do
{self.}AppendChild(new NaryUnitDecorator(elem));
+ elems := object_.Funcs();
+ for _,elem in elems do
+ {self.}AppendChild(new FuncUnitDecorator(elem));
tslassigning := tslassigning_backup;
end;
@@ -637,44 +643,6 @@ begin
tslassigning := tslassigning_backup;
end;
-function EUnitDecorator.Create(_obj: E);
-begin
- class(E).Create();
- object_ := _obj;
- {self.}Convert();
-end;
-
-function EUnitDecorator.GetObject();
-begin
- return object_;
-end;
-
-function EUnitDecorator.Convert();
-begin
- tslassigning_backup := tslassigning;
- tslassigning := 1;
- elems := object_.Rs();
- for _,elem in elems do
- {self.}AppendChild(new RUnitDecorator(elem));
- elems := object_.Ds();
- for _,elem in elems do
- {self.}AppendChild(new DUnitDecorator(elem));
- elems := object_.SSups();
- for _,elem in elems do
- {self.}AppendChild(new SSupUnitDecorator(elem));
- elems := object_.SSubs();
- for _,elem in elems do
- {self.}AppendChild(new SSubUnitDecorator(elem));
- elems := object_.Funcs();
- for _,elem in elems do
- {self.}AppendChild(new FuncUnitDecorator(elem));
- if not ifnil(object_.XmlChildF) then
- {self.}XmlChildF := new FUnitDecorator(object_.XmlChildF);
- if not ifnil(object_.XmlChildCtrlPr) then
- {self.}XmlChildCtrlPr := new CtrlPrUnitDecorator(object_.XmlChildCtrlPr);
- tslassigning := tslassigning_backup;
-end;
-
function SSupUnitDecorator.Create(_obj: SSup);
begin
class(SSup).Create();
@@ -721,30 +689,6 @@ begin
tslassigning := tslassigning_backup;
end;
-function SupUnitDecorator.Create(_obj: Sup);
-begin
- class(Sup).Create();
- object_ := _obj;
- {self.}Convert();
-end;
-
-function SupUnitDecorator.GetObject();
-begin
- return object_;
-end;
-
-function SupUnitDecorator.Convert();
-begin
- tslassigning_backup := tslassigning;
- tslassigning := 1;
- elems := object_.Rs();
- for _,elem in elems do
- {self.}AppendChild(new RUnitDecorator(elem));
- if not ifnil(object_.XmlChildCtrlPr) then
- {self.}XmlChildCtrlPr := new CtrlPrUnitDecorator(object_.XmlChildCtrlPr);
- tslassigning := tslassigning_backup;
-end;
-
function FUnitDecorator.Create(_obj: F);
begin
class(F).Create();
@@ -793,32 +737,6 @@ begin
tslassigning := tslassigning_backup;
end;
-function NumUnitDecorator.Create(_obj: Num);
-begin
- class(Num).Create();
- object_ := _obj;
- {self.}Convert();
-end;
-
-function NumUnitDecorator.GetObject();
-begin
- return object_;
-end;
-
-function NumUnitDecorator.Convert();
-begin
- tslassigning_backup := tslassigning;
- tslassigning := 1;
- elems := object_.Rs();
- for _,elem in elems do
- {self.}AppendChild(new RUnitDecorator(elem));
- if not ifnil(object_.XmlChildRad) then
- {self.}XmlChildRad := new RadUnitDecorator(object_.XmlChildRad);
- if not ifnil(object_.XmlChildCtrlPr) then
- {self.}XmlChildCtrlPr := new CtrlPrUnitDecorator(object_.XmlChildCtrlPr);
- tslassigning := tslassigning_backup;
-end;
-
function RadUnitDecorator.Create(_obj: Rad);
begin
class(Rad).Create();
@@ -867,49 +785,6 @@ begin
tslassigning := tslassigning_backup;
end;
-function DegUnitDecorator.Create(_obj: Deg);
-begin
- class(Deg).Create();
- object_ := _obj;
- {self.}Convert();
-end;
-
-function DegUnitDecorator.GetObject();
-begin
- return object_;
-end;
-
-function DegUnitDecorator.Convert();
-begin
- tslassigning_backup := tslassigning;
- tslassigning := 1;
- if not ifnil(object_.XmlChildCtrlPr) then
- {self.}XmlChildCtrlPr := new CtrlPrUnitDecorator(object_.XmlChildCtrlPr);
- tslassigning := tslassigning_backup;
-end;
-
-function DenUnitDecorator.Create(_obj: Den);
-begin
- class(Den).Create();
- object_ := _obj;
- {self.}Convert();
-end;
-
-function DenUnitDecorator.GetObject();
-begin
- return object_;
-end;
-
-function DenUnitDecorator.Convert();
-begin
- tslassigning_backup := tslassigning;
- tslassigning := 1;
- elems := object_.Rs();
- for _,elem in elems do
- {self.}AppendChild(new RUnitDecorator(elem));
- tslassigning := tslassigning_backup;
-end;
-
function SSubUnitDecorator.Create(_obj: SSub);
begin
class(SSub).Create();
@@ -956,30 +831,6 @@ begin
tslassigning := tslassigning_backup;
end;
-function SubUnitDecorator.Create(_obj: Sub);
-begin
- class(Sub).Create();
- object_ := _obj;
- {self.}Convert();
-end;
-
-function SubUnitDecorator.GetObject();
-begin
- return object_;
-end;
-
-function SubUnitDecorator.Convert();
-begin
- tslassigning_backup := tslassigning;
- tslassigning := 1;
- elems := object_.Rs();
- for _,elem in elems do
- {self.}AppendChild(new RUnitDecorator(elem));
- if not ifnil(object_.XmlChildCtrlPr) then
- {self.}XmlChildCtrlPr := new CtrlPrUnitDecorator(object_.XmlChildCtrlPr);
- tslassigning := tslassigning_backup;
-end;
-
function NaryUnitDecorator.Create(_obj: Nary);
begin
class(Nary).Create();
@@ -1297,4 +1148,274 @@ begin
tslassigning := tslassigning_backup;
end;
+function NumUnitDecorator.Create(_obj: Num);
+begin
+ class(Num).Create();
+ object_ := _obj;
+ {self.}Convert();
+end;
+
+function NumUnitDecorator.GetObject();
+begin
+ return object_;
+end;
+
+function NumUnitDecorator.Convert();
+begin
+ tslassigning_backup := tslassigning;
+ tslassigning := 1;
+ if not ifnil(object_.XmlChildCtrlPr) then
+ {self.}XmlChildCtrlPr := new CtrlPrUnitDecorator(object_.XmlChildCtrlPr);
+ elems := object_.Rs();
+ for _,elem in elems do
+ {self.}AppendChild(new RUnitDecorator(elem));
+ elems := object_.Ds();
+ for _,elem in elems do
+ {self.}AppendChild(new DUnitDecorator(elem));
+ elems := object_.Fs();
+ for _,elem in elems do
+ {self.}AppendChild(new FUnitDecorator(elem));
+ elems := object_.Rads();
+ for _,elem in elems do
+ {self.}AppendChild(new RadUnitDecorator(elem));
+ elems := object_.SSubs();
+ for _,elem in elems do
+ {self.}AppendChild(new SSubUnitDecorator(elem));
+ elems := object_.SSups();
+ for _,elem in elems do
+ {self.}AppendChild(new SSupUnitDecorator(elem));
+ elems := object_.Naries();
+ for _,elem in elems do
+ {self.}AppendChild(new NaryUnitDecorator(elem));
+ elems := object_.Funcs();
+ for _,elem in elems do
+ {self.}AppendChild(new FuncUnitDecorator(elem));
+ tslassigning := tslassigning_backup;
+end;
+
+function DegUnitDecorator.Create(_obj: Deg);
+begin
+ class(Deg).Create();
+ object_ := _obj;
+ {self.}Convert();
+end;
+
+function DegUnitDecorator.GetObject();
+begin
+ return object_;
+end;
+
+function DegUnitDecorator.Convert();
+begin
+ tslassigning_backup := tslassigning;
+ tslassigning := 1;
+ if not ifnil(object_.XmlChildCtrlPr) then
+ {self.}XmlChildCtrlPr := new CtrlPrUnitDecorator(object_.XmlChildCtrlPr);
+ elems := object_.Rs();
+ for _,elem in elems do
+ {self.}AppendChild(new RUnitDecorator(elem));
+ elems := object_.Ds();
+ for _,elem in elems do
+ {self.}AppendChild(new DUnitDecorator(elem));
+ elems := object_.Fs();
+ for _,elem in elems do
+ {self.}AppendChild(new FUnitDecorator(elem));
+ elems := object_.Rads();
+ for _,elem in elems do
+ {self.}AppendChild(new RadUnitDecorator(elem));
+ elems := object_.SSubs();
+ for _,elem in elems do
+ {self.}AppendChild(new SSubUnitDecorator(elem));
+ elems := object_.SSups();
+ for _,elem in elems do
+ {self.}AppendChild(new SSupUnitDecorator(elem));
+ elems := object_.Naries();
+ for _,elem in elems do
+ {self.}AppendChild(new NaryUnitDecorator(elem));
+ elems := object_.Funcs();
+ for _,elem in elems do
+ {self.}AppendChild(new FuncUnitDecorator(elem));
+ tslassigning := tslassigning_backup;
+end;
+
+function EUnitDecorator.Create(_obj: E);
+begin
+ class(E).Create();
+ object_ := _obj;
+ {self.}Convert();
+end;
+
+function EUnitDecorator.GetObject();
+begin
+ return object_;
+end;
+
+function EUnitDecorator.Convert();
+begin
+ tslassigning_backup := tslassigning;
+ tslassigning := 1;
+ if not ifnil(object_.XmlChildCtrlPr) then
+ {self.}XmlChildCtrlPr := new CtrlPrUnitDecorator(object_.XmlChildCtrlPr);
+ elems := object_.Rs();
+ for _,elem in elems do
+ {self.}AppendChild(new RUnitDecorator(elem));
+ elems := object_.Ds();
+ for _,elem in elems do
+ {self.}AppendChild(new DUnitDecorator(elem));
+ elems := object_.Fs();
+ for _,elem in elems do
+ {self.}AppendChild(new FUnitDecorator(elem));
+ elems := object_.Rads();
+ for _,elem in elems do
+ {self.}AppendChild(new RadUnitDecorator(elem));
+ elems := object_.SSubs();
+ for _,elem in elems do
+ {self.}AppendChild(new SSubUnitDecorator(elem));
+ elems := object_.SSups();
+ for _,elem in elems do
+ {self.}AppendChild(new SSupUnitDecorator(elem));
+ elems := object_.Naries();
+ for _,elem in elems do
+ {self.}AppendChild(new NaryUnitDecorator(elem));
+ elems := object_.Funcs();
+ for _,elem in elems do
+ {self.}AppendChild(new FuncUnitDecorator(elem));
+ tslassigning := tslassigning_backup;
+end;
+
+function SupUnitDecorator.Create(_obj: Sup);
+begin
+ class(Sup).Create();
+ object_ := _obj;
+ {self.}Convert();
+end;
+
+function SupUnitDecorator.GetObject();
+begin
+ return object_;
+end;
+
+function SupUnitDecorator.Convert();
+begin
+ tslassigning_backup := tslassigning;
+ tslassigning := 1;
+ if not ifnil(object_.XmlChildCtrlPr) then
+ {self.}XmlChildCtrlPr := new CtrlPrUnitDecorator(object_.XmlChildCtrlPr);
+ elems := object_.Rs();
+ for _,elem in elems do
+ {self.}AppendChild(new RUnitDecorator(elem));
+ elems := object_.Ds();
+ for _,elem in elems do
+ {self.}AppendChild(new DUnitDecorator(elem));
+ elems := object_.Fs();
+ for _,elem in elems do
+ {self.}AppendChild(new FUnitDecorator(elem));
+ elems := object_.Rads();
+ for _,elem in elems do
+ {self.}AppendChild(new RadUnitDecorator(elem));
+ elems := object_.SSubs();
+ for _,elem in elems do
+ {self.}AppendChild(new SSubUnitDecorator(elem));
+ elems := object_.SSups();
+ for _,elem in elems do
+ {self.}AppendChild(new SSupUnitDecorator(elem));
+ elems := object_.Naries();
+ for _,elem in elems do
+ {self.}AppendChild(new NaryUnitDecorator(elem));
+ elems := object_.Funcs();
+ for _,elem in elems do
+ {self.}AppendChild(new FuncUnitDecorator(elem));
+ tslassigning := tslassigning_backup;
+end;
+
+function DenUnitDecorator.Create(_obj: Den);
+begin
+ class(Den).Create();
+ object_ := _obj;
+ {self.}Convert();
+end;
+
+function DenUnitDecorator.GetObject();
+begin
+ return object_;
+end;
+
+function DenUnitDecorator.Convert();
+begin
+ tslassigning_backup := tslassigning;
+ tslassigning := 1;
+ if not ifnil(object_.XmlChildCtrlPr) then
+ {self.}XmlChildCtrlPr := new CtrlPrUnitDecorator(object_.XmlChildCtrlPr);
+ elems := object_.Rs();
+ for _,elem in elems do
+ {self.}AppendChild(new RUnitDecorator(elem));
+ elems := object_.Ds();
+ for _,elem in elems do
+ {self.}AppendChild(new DUnitDecorator(elem));
+ elems := object_.Fs();
+ for _,elem in elems do
+ {self.}AppendChild(new FUnitDecorator(elem));
+ elems := object_.Rads();
+ for _,elem in elems do
+ {self.}AppendChild(new RadUnitDecorator(elem));
+ elems := object_.SSubs();
+ for _,elem in elems do
+ {self.}AppendChild(new SSubUnitDecorator(elem));
+ elems := object_.SSups();
+ for _,elem in elems do
+ {self.}AppendChild(new SSupUnitDecorator(elem));
+ elems := object_.Naries();
+ for _,elem in elems do
+ {self.}AppendChild(new NaryUnitDecorator(elem));
+ elems := object_.Funcs();
+ for _,elem in elems do
+ {self.}AppendChild(new FuncUnitDecorator(elem));
+ tslassigning := tslassigning_backup;
+end;
+
+function SubUnitDecorator.Create(_obj: Sub);
+begin
+ class(Sub).Create();
+ object_ := _obj;
+ {self.}Convert();
+end;
+
+function SubUnitDecorator.GetObject();
+begin
+ return object_;
+end;
+
+function SubUnitDecorator.Convert();
+begin
+ tslassigning_backup := tslassigning;
+ tslassigning := 1;
+ if not ifnil(object_.XmlChildCtrlPr) then
+ {self.}XmlChildCtrlPr := new CtrlPrUnitDecorator(object_.XmlChildCtrlPr);
+ elems := object_.Rs();
+ for _,elem in elems do
+ {self.}AppendChild(new RUnitDecorator(elem));
+ elems := object_.Ds();
+ for _,elem in elems do
+ {self.}AppendChild(new DUnitDecorator(elem));
+ elems := object_.Fs();
+ for _,elem in elems do
+ {self.}AppendChild(new FUnitDecorator(elem));
+ elems := object_.Rads();
+ for _,elem in elems do
+ {self.}AppendChild(new RadUnitDecorator(elem));
+ elems := object_.SSubs();
+ for _,elem in elems do
+ {self.}AppendChild(new SSubUnitDecorator(elem));
+ elems := object_.SSups();
+ for _,elem in elems do
+ {self.}AppendChild(new SSupUnitDecorator(elem));
+ elems := object_.Naries();
+ for _,elem in elems do
+ {self.}AppendChild(new NaryUnitDecorator(elem));
+ elems := object_.Funcs();
+ for _,elem in elems do
+ {self.}AppendChild(new FuncUnitDecorator(elem));
+ tslassigning := tslassigning_backup;
+end;
+
end.
\ No newline at end of file
diff --git a/autounit/VML.tsf b/autounit/VML.tsf
index 7a3797e..ee05311 100644
--- a/autounit/VML.tsf
+++ b/autounit/VML.tsf
@@ -1,6 +1,6 @@
unit VML;
interface
-uses DocxML;
+uses TSSafeUnitConverter, DocxML;
type Shapetype = class(OpenXmlCompositeElement)
public
@@ -9,6 +9,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Shapetype);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property AnchorId read ReadXmlAttrAnchorId write WriteXmlAttrAnchorId;
@@ -81,6 +83,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Formulas);override;
+ function ConvertToPoint();override;
+
public
// multi property
@@ -100,6 +104,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Lock);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Ext read ReadXmlAttrExt write WriteXmlAttrExt;
@@ -123,6 +129,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: F);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Eqn read ReadXmlAttrEqn write WriteXmlAttrEqn;
@@ -142,6 +150,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Stroke);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Joinstyle read ReadXmlAttrJoinstyle write WriteXmlAttrJoinstyle;
@@ -161,6 +171,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Path);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Extrusionok read ReadXmlAttrExtrusionok write WriteXmlAttrExtrusionok;
@@ -200,6 +212,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Textpath);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property _On read ReadXmlAttr_On write WriteXmlAttr_On;
@@ -231,6 +245,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Handles);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -249,6 +265,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: H);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Xrange read ReadXmlAttrXrange write WriteXmlAttrXrange;
@@ -272,6 +290,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Shape);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Id read ReadXmlAttrId write WriteXmlAttrId;
@@ -345,6 +365,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Wrap);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Anchorx read ReadXmlAttrAnchorx write WriteXmlAttrAnchorx;
@@ -368,6 +390,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Fill);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Opacity read ReadXmlAttrOpacity write WriteXmlAttrOpacity;
@@ -387,6 +411,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Imagedata);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Id read ReadXmlAttrId write WriteXmlAttrId;
@@ -410,6 +436,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: Textbox);override;
+ function ConvertToPoint();override;
+
public
// normal property
@@ -428,6 +456,8 @@ public
function Create(_parent: tslobj; _prefix: string; _local_name: string);overload;
function Init();override;
function Copy(_obj: OLEObject);override;
+ function ConvertToPoint();override;
+
public
// attributes property
property Type read ReadXmlAttrType write WriteXmlAttrType;
@@ -542,6 +572,22 @@ begin
tslassigning := tslassigning_backup;
end;
+function Shapetype.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildStroke) then
+ {self.}XmlChildStroke.ConvertToPoint();
+ if not ifnil({self.}XmlChildFormulas) then
+ {self.}XmlChildFormulas.ConvertToPoint();
+ if not ifnil({self.}XmlChildPath) then
+ {self.}XmlChildPath.ConvertToPoint();
+ if not ifnil({self.}XmlChildTextpath) then
+ {self.}XmlChildTextpath.ConvertToPoint();
+ if not ifnil({self.}XmlChildHandles) then
+ {self.}XmlChildHandles.ConvertToPoint();
+ if not ifnil({self.}XmlChildLock) then
+ {self.}XmlChildLock.ConvertToPoint();
+end;
+
function Shapetype.ReadXmlAttrAnchorId();
begin
return {self.}XmlAttrAnchorId.Value;
@@ -773,6 +819,13 @@ begin
tslassigning := tslassigning_backup;
end;
+function Formulas.ConvertToPoint();override;
+begin
+ elems := {self.}Fs();
+ for _,elem in elems do
+ elem.ConvertToPoint();
+end;
+
function Formulas.ReadFs(_index);
begin
ind := ifnil(_index) ? -2 : _index;
@@ -835,6 +888,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function Lock.ConvertToPoint();override;
+begin
+
+end;
+
function Lock.ReadXmlAttrExt();
begin
return {self.}XmlAttrExt.Value;
@@ -903,6 +961,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function F.ConvertToPoint();override;
+begin
+
+end;
+
function F.ReadXmlAttrEqn();
begin
return {self.}XmlAttrEqn.Value;
@@ -956,6 +1019,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function Stroke.ConvertToPoint();override;
+begin
+
+end;
+
function Stroke.ReadXmlAttrJoinstyle();
begin
return {self.}XmlAttrJoinstyle.Value;
@@ -1024,6 +1092,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function Path.ConvertToPoint();override;
+begin
+
+end;
+
function Path.ReadXmlAttrExtrusionok();
begin
return {self.}XmlAttrExtrusionok.Value;
@@ -1161,6 +1234,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function Textpath.ConvertToPoint();override;
+begin
+
+end;
+
function Textpath.ReadXmlAttr_On();
begin
return {self.}XmlAttr_On.Value;
@@ -1259,6 +1337,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function Handles.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildH) then
+ {self.}XmlChildH.ConvertToPoint();
+end;
+
function Handles.ReadXmlChildH(): H;
begin
if tslassigning and (ifnil({self.}XmlChildH) or {self.}XmlChildH.Removed) then
@@ -1310,6 +1394,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function H.ConvertToPoint();override;
+begin
+
+end;
+
function H.ReadXmlAttrXrange();
begin
return {self.}XmlAttrXrange.Value;
@@ -1420,6 +1509,20 @@ begin
tslassigning := tslassigning_backup;
end;
+function Shape.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildFill) then
+ {self.}XmlChildFill.ConvertToPoint();
+ if not ifnil({self.}XmlChildTextbox) then
+ {self.}XmlChildTextbox.ConvertToPoint();
+ if not ifnil({self.}XmlChildTextpath) then
+ {self.}XmlChildTextpath.ConvertToPoint();
+ if not ifnil({self.}XmlChildImagedata) then
+ {self.}XmlChildImagedata.ConvertToPoint();
+ if not ifnil({self.}XmlChildWrap) then
+ {self.}XmlChildWrap.ConvertToPoint();
+end;
+
function Shape.ReadXmlAttrId();
begin
return {self.}XmlAttrId.Value;
@@ -1661,6 +1764,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function Wrap.ConvertToPoint();override;
+begin
+
+end;
+
function Wrap.ReadXmlAttrAnchorx();
begin
return {self.}XmlAttrAnchorx.Value;
@@ -1729,6 +1837,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function Fill.ConvertToPoint();override;
+begin
+
+end;
+
function Fill.ReadXmlAttrOpacity();
begin
return {self.}XmlAttrOpacity.Value;
@@ -1785,6 +1898,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function Imagedata.ConvertToPoint();override;
+begin
+
+end;
+
function Imagedata.ReadXmlAttrId();
begin
return {self.}XmlAttrId.Value;
@@ -1853,6 +1971,12 @@ begin
tslassigning := tslassigning_backup;
end;
+function Textbox.ConvertToPoint();override;
+begin
+ if not ifnil({self.}XmlChildTxbxContent) then
+ {self.}XmlChildTxbxContent.ConvertToPoint();
+end;
+
function Textbox.ReadXmlChildTxbxContent(): TxbxContent;
begin
if tslassigning and (ifnil({self.}XmlChildTxbxContent) or {self.}XmlChildTxbxContent.Removed) then
@@ -1916,6 +2040,11 @@ begin
tslassigning := tslassigning_backup;
end;
+function OLEObject.ConvertToPoint();override;
+begin
+
+end;
+
function OLEObject.ReadXmlAttrType();
begin
return {self.}XmlAttrType.Value;
diff --git a/cp.ps1 b/cp.ps1
index 9f69122..b9db3a2 100644
--- a/cp.ps1
+++ b/cp.ps1
@@ -2,14 +2,16 @@ $sourcedir = "D:\code\tinysoft\OfficeXml-dev"
$destdir = "D:\code\tinysoft\OfficeXml"
# 复制tsf脚本
-Remove-Item -Path ($destdir + "\autoclass\") -Recurse -Force
+Remove-Item -Path ($destdir + "\autounit\") -Recurse -Force
Remove-Item -Path ($destdir + "\openxml\") -Recurse -Force
Remove-Item -Path ($destdir + "\utils\") -Recurse -Force
Remove-Item -Path ($destdir + "\docx\") -Recurse -Force
Remove-Item -Path ($destdir + "\pptx\") -Recurse -Force
-Copy-Item -Path ($sourcedir + "\funcext\OfficeXml\autoclass\") ($destdir + "\autoclass\") -Recurse -Force
+Copy-Item -Path ($sourcedir + "\funcext\OfficeXml\autounit\") ($destdir + "\autounit\") -Recurse -Force
Copy-Item -Path ($sourcedir + "\funcext\OfficeXml\utils\") ($destdir + "\utils\") -Recurse -Force
Copy-Item -Path ($sourcedir + "\funcext\OfficeXml\openxml\") ($destdir + "\openxml\") -Recurse -Force
Copy-Item -Path ($sourcedir + "\funcext\OfficeXml\docx\") ($destdir + "\docx\") -Recurse -Force
Copy-Item -Path ($sourcedir + "\funcext\OfficeXml\pptx\") ($destdir + "\pptx\") -Recurse -Force
+Copy-Item -Path ($sourcedir + "\README.md") ($destdir + "\") -Force
+Copy-Item -Path ($sourcedir + "\迁移指南.md") ($destdir + "\") -Force
diff --git a/docx/DocxComponents.tsf b/docx/DocxComponents.tsf
index 79d5f69..9c1213b 100644
--- a/docx/DocxComponents.tsf
+++ b/docx/DocxComponents.tsf
@@ -48,6 +48,7 @@ public
function ReadHeaderReals(_index: integer);
protected
+ function DefaultBinaryData(): binary;override;
function NewObject(_name: string): tslobj;override;
private
@@ -79,7 +80,7 @@ end;
function DocxComponents.Create();
begin
- Class(TSComponentsBase).Create();
+ inherited;
end;
function DocxComponents.Init();override;
@@ -274,3 +275,9 @@ function DocxComponents.ReadFooterRels(_index: integer);
begin
return {self.}GetPropArr(footer_rels_array_, "footer_rels", _index);
end;
+
+function DocxComponents.DefaultBinaryData(): binary;override;
+begin
+ return binary(base64ToStr("UEsDBBQACAgIADB7LFYAAAAAAAAAAAAAAAATAAAAW0NvbnRlbnRfVHlwZXNdLnhtbLWUTU/CQBCG7yb+h2avhi54MMZQOPhxVA74A9btFDbuV3YGhH/vtIUeDFIJeGnSzrzv87RpdjzdOJutIaEJvhCjfCgy8DqUxi8K8T5/GdyLDEn5UtngoRBbQDGdXF+N59sImHHaYyGWRPFBStRLcArzEMHzpArJKeLbtJBR6U+1AHk7HN5JHTyBpwHVHWIyfoJKrSxlzxt+3JoksCiyx3axZhVCxWiNVsRzufblD8pgR8g52ezg0kS84QUhDxLqye+AXe6NP00yJWQzlehVOd6SZdCzFCJK3s+PtxzQDFVlNHDHynEkh1qohHIQuRISGeicj7J1SHA6fP+N6vTJxBVScGe/cFvzR/hXSKXsouei6zbmakDk39vZvJs4ZXyvR8XkufqwcHmRrrpXAoGIM3h5h31zvwJtLfyHQNPbiyc+Y6C9js6WaGr2SNmcaZNvUEsHCHzJSX5PAQAAFAUAAFBLAwQUAAgICAAweyxWAAAAAAAAAAAAAAAACwAAAF9yZWxzLy5yZWxzrZLPSgMxEIfvgu8Q5t7NtoqINNuLCL2J1AcYktnd4OYPyVTbtzcUFVvabQ89ZjLz5cuPmS82bhCflLINXsG0qkGQ18FY3yl4X71MHkFkRm9wCJ4UbCnDorm9mb/RgFyGcm9jFoXis4KeOT5JmXVPDnMVIvly04bkkMsxdTKi/sCO5KyuH2T6z4BmjymWRkFamnsQq22kS9ihba2m56DXjjwfeeKgo5AxdcQKvkIy0vyUq4IFedxmdrnN6Z9KR4wGGaUOiSYxlenEtiT7J1RcXks57zrGhKbXjIc2TN6QGVfCGMeM7q5ppNeZgzsT0a7nV0nuLWbzDVBLBwgBIiIf9wAAAOECAABQSwMEFAAICAgAMHssVgAAAAAAAAAAAAAAABAAAABkb2NQcm9wcy9hcHAueG1snZFRb4IwFIXfl+w/EN6hhalTUzEO59OymYDz0TTlAs2gbdpq9N+vyKJsj3u759z068m5ZHluG+8E2nApFn4UYt8DwWTBRbXwd/kmmPqesVQUtJECFv4FjL9MHh/IVksF2nIwnkMIs/Bra9UcIcNqaKkJ3Vq4TSl1S62TukKyLDmDtWTHFoRFMcYTBGcLooAiUDeg3xPnJ/tfaCFZl8985hfleAnJoVUNtZC8dy+bsJC2Jejmki2twCQRQf1A9lIXJsEE9QNJa6ops66nzhwo8sYFXM1+cCRNK01VfTUHiuTS0ibnLXSLuyAZow2kLm5S0sYAQXejo3+Zncrluov5s/9tDrLtua0zRRn8STnwyUqphjNq3b2T/TbzPq71HaIodMcPo3g2xYdN9PoUP7+kQTyZpcHoaVwEq2gcB3icjkd4inGcrggakojrPwN21Nxeur+H0rVwO23yDVBLBwia6EH9WgEAAHECAABQSwMEFAAICAgAMHssVgAAAAAAAAAAAAAAABEAAABkb2NQcm9wcy9jb3JlLnhtbJWS3U6DMBiGb4X0HFqY8YcAJrrsyCUmYjSeNeXb1kh/0tYx7t7SbXXOnXjGx/v06Qttdb8TfbIFY7mSNcozghKQTHVcrmv02i7SW5RYR2VHeyWhRiNYdN9UTJdMGXg2SoNxHGziPdKWTNdo45wuMbZsA4LazBPShytlBHV+NGusKfuka8AFIddYgKMddRRPwlRHIzooOxaV+sv0QdAxDD0IkM7iPMvxD+vACHtxQUhOSMHdqOEiegwjvbM8gsMwZMMsoL5/jt+XTy/hU1Mupz/FADXVoUjJDFAHXeIF5X67Y/I2e5y3C9QUpJilJE/JXUuK8oqUhHxU+Gz9JNw/K9O0XI5WrVw6V2w3oTGZjqWn1i39+a04dA/jOfwXiFXF4d1/uuY3J12PglDDwJZPd6rJw6ZxDNPvq9N8A1BLBwgdshjNOwEAAIUCAABQSwMEFAAICAgAMHssVgAAAAAAAAAAAAAAABMAAABkb2NQcm9wcy9jdXN0b20ueG1spZHPS8MwFMfvgv9Dyb1Nmi39MdqONV1BPCg4dy9puhWapCTptIj/uxk6hwcvenx8H5/3ee9l61cxeCeuTa9kDsIAAY9LptpeHnLwvKv9BHjGNrJtBiV5DmZuwLq4vcketRq5tj03nkNIk4OjteMKQsOOXDQmcLF0Sae0aKwr9QGqrusZrxSbBJcWYoQiyCZjlfDHbxz45K1O9q/IVrGzndnv5tHxiuwLPnudsH2bg7eK0KoiiPh4m1I/RGHpp4s09lGCEC4xrdPN9h1447kZA082wq1+//TgsO3EbDn1Q7vn2qFPdjWML8bqAiOC/TAM3A2DEKcJyuA1zODF4Z82i4vNHd3/GB/XaZRgQuuopMsKVxsaE5rEaJlGFJMF+c0GXh9ZfABQSwcIEmbpyCUBAAAOAgAAUEsDBBQACAgIADB7LFYAAAAAAAAAAAAAAAAcAAAAd29yZC9fcmVscy9kb2N1bWVudC54bWwucmVsc62STUvEMBCG74L/Iczdpl1FRDbdiwh7lfoDYjr9wHQSMqPYf29YWe3Csnjo8X3DPPNAZrv7mrz6xMRjIANVUYJCcqEdqTfw2jzfPIBisdRaHwgNzMiwq6+vti/oreQhHsbIKlOIDQwi8VFrdgNOlosQkfJLF9JkJcfU62jdu+1Rb8ryXqclA+oTptq3BtK+vQPVzBH/ww5dNzp8Cu5jQpIzK3QXSBr75jFDbepRDPxWRaaBPi9xu6aE5NmFwCH+lNUlh82aDowi+Yv5T+PYXFKoVlWQ2eNS4JCP6/XJfdXfUEsHCMgUBlDgAAAAqAIAAFBLAwQUAAAACADDhphYmpQKQQICAAAWBgAAEQAAAHdvcmQvZG9jdW1lbnQueG1spZTNbtswDIDvA/YOhu6J7PwhMZr00GBFDwMKZHsARZZtoZYoSHK87OlHxY6dNcCWtCeRIvmR1A8fHn+pKjoI6yToNUnGMYmE5pBJXazJzx/fRksSOc90xirQYk2OwpHHzdcvD02aAa+V0D5ChHZpY/ialN6blFLHS6GYGyvJLTjI/ZiDopDnkgvagM3oJE7ik2QscOEc5nti+sAc6XDqmgZGaDTmYBXzqNqCKmbfajNCumFe7mUl/RHZ8eKMgTWprU47xKgvKISkbUHdco6wt+RtQ7bdCZwyUisqrAG0K6UZ2vgoDY3lGXL4VxMHVZH+CpLZ5+5ga1mDywC8pfysDVLVqfL/EG8BXhIGrmJS95iPNXpxVEl8w8sIMUPE/L6Uk/cpTXEf4P3lPFuozUCTn6O96LeepcVdrHhx1Zq7C3BVzK5kRlzQnmrnQW2ZZz23aZoxWsZcX/+XZEr/CiKR4ulLocGyfYW94XOJ8P6i8EHIBmfXHrJjWJ3g/tUGyRS731ET3meSrHB+oFyivFhOl4S2Dt+ZxV0PBvdnszi4WFmUHtVljGrAeqxgMFciv7CWgmUCx8tyngQ1B/BBXa0mQS1qf1LjNh2HyuGuM4xjA7PJPPjoOsDRoR2/z1ZmoaKjQZdKauGCUxBepedY/jQ5oXnJ7C6AOjodGqfns6DDQN/8AVBLAwQUAAgICAAweyxWAAAAAAAAAAAAAAAAEgAAAHdvcmQvZm9udFRhYmxlLnhtbM2WT26cMBTG95V6B+R9gmGYgYxCogkNUjddtKm69jBmxiq2kc1kOgfoqquqy94hPUCVnqaVmlv0YZj8KTAJURLFCAme7Yf58b3P7B9+4pl1SpVmUoTI2cXIoiKRMybmIXp/Eu8EyNIFETOSSUFDtKYaHR68fLG/GqdSFNqC+UKPeRKiRVHkY9vWyYJyondlTgV0plJxUsCtmtucqI/LfCeRPCcFm7KMFWvbxXiE6jTqLllkmrKEvpLJklNRmPm2ohlklEIvWK432VZ3ybaSapYrmVCt4Z15VuXjhInLNI7XSMRZoqSWabELL1OvyKSC6Q42VzxDFk/Gr+dCKjLNgB0kQgc1OGs1FoRD8IRxqq03dGW9lZwIMyAnQmrqwJhTkoUIu3CM8AAPsQenC1cessuByYIoTYvLgbgKp4SzbL2JKpPXdOSsSBab+ClRrFxY1aXZHDqWeopDBAiwPwl8VEWcEAW4anXELZ9lWlBHBpcRMyYxecytE8d1xLk2Bp5pVyQaRP6cffl9/q0DhAMgMABwNkcriGDUBoIsC9nCYUZTssyKJoZ6rYMrDG4QxK0YRrdg8EoQ/TB8ADmWZahbSQxxo7VLwn1AEviKBO4SBN5GIrgZuSOJCeg069DDEejBMwVSHR2F4bRR0CumdR8Mx7BQ97jSc4UhKislGB41MOxtw+A16iKGdhuGi59ft9fFHpxPURfmK7pH1zAMgij2o3jyPwbnEeoikkvFqCots4OFD/6wZ9RQmqXXSxNczqgSDyEKb/AUoni35lOZdVjEEIRQSsMHYZQw/B4W0bVrPFOPiEjGpop1KCI2SjD+ANpwe22f/V3CaxOE6/k9XcK93+756+zv+Y+L75/BLjo9c2gouLVzeo/uFdd/JdxJFA+iIb6PVzg9YZyQBch469ZR/VV5PUXRF8Ox06aJEW7uHO5tmnBuagI+YNDAUF/og39QSwcI3x3RH84CAADgCwAAUEsDBBQACAgIADB7LFYAAAAAAAAAAAAAAAARAAAAd29yZC9zZXR0aW5ncy54bWy1Vm1v2kgQ/n7S/Qfk78RASO4OlVRJCA0VtFFN7j6P1wPey75Yu2tc8us7a3sxVdIIteon1s8z7zszy7v3X6Xo7dBYrtU0Gp4Noh4qpjOuttPocT3v/x31rAOVgdAKp9EebfT+6s8/3lUTi86RmO2RCWUnkk2j3LliEseW5SjBnukCFZEbbSQ4+jTbWIJ5Kos+07IAx1MuuNvHo8HgMmrN6GlUGjVpTfQlZ0ZbvXFeZaI3G86w/Qka5hS/jcpMs1KicrXH2KCgGLSyOS9ssCZ/1hqReTCyeyuJnRRBrhoOTki30iY7aJwSnlcojGZoLV2QFCFArjrH4xeGDr7PyHebYm2K1IeD+tRFbsUpgTTUkqcGzP6VKAp7W1qn5QwcHOxVVXVGzBlTL+s8PI+/U4p6kk0WW6UNpILak/KKrqg3n7WWvWpSoGGkOI3+Gkexx1GmmCV761DOtXK2BlPKjCZgpj9pl5TG6FJl9wiEkYkdUKbD6IeCc63dC8GsjfjBEMl8j5EAKioNQ1kHNGgFcQOlcGtIE6eLYGU8CrSBim7wg+HZv2gcZyCSAhhBB4cXl60ot4WA/b02/JkyAzHrdO9owPdBY/CdfDD7I+lRI81yMMAo0db9LbkwWgQpP86Guu2hVMyV9VC1evWc+5MlRZxr87hsSgkCFMOEbAm82Tu65DJtTv/xzOVtGanQS4Qd3gB7sgJsfu3XUE2WYm2A1/XATvrua0HLKsn5xn1BR6NVU5D9Ty2z5ArvkW9zt1Br3y+NHYvzuyXsdemOQk6a5UYJKpDYZHhYWCud0fYhVcNPn6LocGXj6A1HmqpPl4B1gInbC/SNmvBnvFbZR8qCk8Wmwj8fwVsBoPKeP9Mwr/cFzhGoirT0f4+z+s7mghcrTuNkFiqj6fhVZ/Fx39HLltlw+ELDehiyf+6GF/PLtsE9+xoTHyzIid/wDyac/LX0ZKNxCzI1HHor/wbEXiI1TzdcBT5FGn08ZpIyDWS/3xBWghBzGrNADBrcT+oMN/VZrMBsO7uthHkVpd3y8WDLr0E0H2hlFQ1bGSiacgeR4XjcanJFsyIDbss0CVqK9vgRRfvv887UderKU00cXVfdtkvoNhWq/mPiLwrBumvLaeE/5/3bT217CJP4W8YVFEXTIel2OI2EH9ehV3P0ldG/h/oj3Y5ablRzo4arP4D5ZEm6PXTYKGBHcucBO++wccDGHXYRsIsOuwzYpcdyGhcjuHqivg1Hj2+0ELrC7L7jX0BRt8EWiokyQ2oQekXsQiUO6ncq7v5xXX0DUEsHCMWVMFvHAwAAtwkAAFBLAwQUAAgICAAweyxWAAAAAAAAAAAAAAAADwAAAHdvcmQvc3R5bGVzLnhtbMWdW3ejthqG/wqLq70vEsfi4ExW3a6ZTLIza8/MSuukvZZBttWARCURx/31FTI4zslhLH9fr2IEet4PHV6QCOKnXx7KIrhnSnMpxuHw+CQMmMhkzsV8HN7eXB6dhoE2VOS0kIKNwxXT4S8//7Q802ZVMB3Y7EKfldk4XBhTnQ0GOluwkupjWTFhd86kKqmxm2o+KKm6q6ujTJYVNXzKC25WA3JykoYtRo7DWomzFnFU8kxJLWemyXImZzOesfZPl0P10V1n+SyzumTCOMWBYoWNQQq94JXuaOW+NLtz0UHud53EfVl0xy37iC2lyislM6a1rZGy6OS42GCG8QvQRvPYarYBO5TNPjxxv7biGJ70KPYmT5dDF31CX+/6yqeKqtUrcVf6vNZGlp+poRvecrk8tnuOM/GynIfR4EmmMCizsy9zIRWdFrZp2pIIm5aZy+wzm9G6MLrZVNeq3Wy33J9LKYwOlmdUZ5zf2EgtoOSWdfVRaB7aPYvmx6t7GNXmo+Z0e+dFm9bsz7TZ2vOJ5zwcuC7zt915T23pEdKlnOunaYM2xMHzwKvnWy5/RTPbLiyi4IL9VjfFQGsjwzZlHEbpSYutWuw2aPCitGyvsKU9WXdueyqyFsbGZil2K2ezXy9dFY/DLuFWLHjO/lgwcatZbi2kTZ+wkl/xPGfiMe32y7XiUtluPw4/fGgTv8rsjuUTY4UbqgtC5xcPGauaDmoP+qvTdJz6maALpOaPZJegt+RdgqBNjXxvSMW68OFUFow2BhoM+wg9Zz5FEH9E5I+I/RGJPyL1R4z8Eaf+iA+vIryaHBc5e3ijwR0ATKDAERQ4hgInUOAUCjyCAp9CgQE6iJEZRPdosAQGG8FgYxhsAoNNYbAjGOwpDBagO6xvhIIvtrsJc3j8TEojpGGBYQ8AeCos3I3fgASaKzVTMOUCwV3bZnt/sf8NSkbd4QCtuBmiBXIWzPi8VnYO4eAKTNyzwg5DA5rnVgBSQTFjx8uAnUaxGVN2GoaB9hxAlWbsGYi6nEK09YrO4eBM5NBV0EnAONemp9l5gEVzPIfobSW1c0QQFzu608S84F+5NjDU4FNdFAwK/h2oqTs4AeJGQNwYiJuAtgywYm7xESw+hsUnoB0HrOxbfASLj2HxCfRc6A03BcBF9LyQGuQqMeFzQe39nU/Ma1I7rR5cU0XnilaLoHnocPiIP8l8FdyA3Exs0GADRdcWz225cFEzYDyYE2wEImiBGFoAwIu/2dFYc8t+9faY+oB+M6mnBsZyJrSo10Onw7Pt80wG2X0vudJwnfh1HYju9r0ZOF1BjRAez4NAwiN4o4Y9gVYD4jwK+zQY6GJ2taqYsjMTd4dHX8qikEuW75Y4pMsZJftN9PmoXJTVgmoOMH/Q/VtH8I1Wh6dfF5QLoFZ0cVRSXgSHuE3cPTX/nz/Y9L8AveDm29fgo529EasSig41A+vo5xziUrlGyxwKbQcDXHCYmwcn8H+2mkqqciD8tZ0Qdb5iGJTEhJZVAVX+N9aZl/ZYiIk0J/A7VbyZevUeNrbd/8YT9v78v66nf7IMwCJd6NYhm+qEeOb+hE+A+REU/7ygWvMMroA6AQItAF5EMZiALKSa1QVgJXQKBFwhAlSoS6FBC8kJEGgB8CKKoQUSKIH/KZ7D1bCjE1B6BEqPQemwtZqC0keg9FMoupv2HILSCSg9AqXHoPQElJ6C0kegdLD2Hn0O2Gxm7/cBr+NbGgRBA/BqLgwrK9m8uQSlcVGwORVgo69rJWfNS2NSvPG6yyFGSPZRC+gIb80Ha0p2gg0u+AYOGjnE7Du109gSaub08aoOxXYv5O0HT3c/Ip0vTDBZeDx2Sofv8vf//7SUvAvfv9jTaOez3ZzXZVc0+/amNO4vsWefSpP3JXxuCdO0J3/f+Efv832GcOlpT/6+8X/oyd/T1ka7n66rO4/uNdrVdzfTL172MCJ9JDxOIerD9zCJ3vZpnz1lzYO/IaiP+qr0M1RflR9xVl+tH7FYX63eXusr1Nt0fYV6u6+vUG8b9hXq7ceeQv2M2VfkRxzaV6u3VfsK9fZs37bww+ZNUMyboJg3QTRvgmjeBMu8CZZ5EyzzJljmTbDMm2CYN0E0b4Jl3gTLvAmWeUco5h2hmHeEaN4RonlHWOYdYZl3hGXeEZZ5R1jmHWGYd4Ro3hGWeUdY5h1hmXeMYt4xinnHiOYdI5p3jGXeMZZ5x1jmHWOZd4xl3jGGeceI5h1jmXeMZd4xlnknKOadoJh3gmjeCaJ5J1jmnWCZd4Jl3gmWeSdY5p1gmHeCaN4JlnknWOadYJl3imLeKYp5p4jmnSKad4pl3imWeadY5p1imXeKZd4phnmniOadYpl3imXeabs2/faq85uPS9isZlW5Bf/aBXTaFeObVXXa19vdgV/csvNNvkYqaNfT317qvX0n3v1+jLg78mR9ULum/pLnctn8B7CSxbMj/sy6hKk0i+119f/dDwvcMSW6yMiLbw0MX/nWQDfkoe7jAS6NiaPbyXYU4/DvxdH59yZpaqXGIVVHk4/PPlLgKuBllWULW2dZ87bt21UWvaiyXSsmPTarXbX4dkRuXcQd0ZA3GtD2i7j9YrCK02LdGuyPc1YU3+h6S1b2wGXbLdZh5Q+0rQo2M+u9w5PTV/bbFmdk+XZ+5S7ybwIGT4MZbIJ8LLHul/75H1BLBwg/e7HX4wcAABZmAABQSwMEFAAICAgAMHssVgAAAAAAAAAAAAAAABUAAAB3b3JkL3RoZW1lL3RoZW1lMS54bWztWk9v2zYUv/dTELrk1PqvXKeoW8SO3W5t2iBxO/RIS7TFhhIFkk7i29AeBwwY1g07rMBuOwzbCrTALt2nydZh64B+hT1JtiJKspwGcZN0ycGxSP5+7w8f3yMpX7+57zK0S4Sk3GutVK6UVxDxLG5Tb9RaedDvXW6uIKmwZ2PGPdJamRC5cvPGpev4mnKISxDAPXkNtwxHKf9aqSQtaMbyCveJB31DLlys4FGMSrbAe0DrslK1XG6UXEw9A3nYJS3j/nBILYL6AaVx4xJCM/4ugw9PyaAtbLWY2LZCyUmkEfWHI+ydyuwpfJYT2WEC7WLWMkC+zff6ZF8ZiGGpoKNllMM/oxRzlDQSoGBqEWWCrhf+6XQJglDDqk4nRoOYr9Krr15dT2tT1bQpgHe73U63kpaehGPLAo9W5lPUe81KO6VBChTTFGjSKZvlei5NVpvafJrVdrttrubR1DI09fk0zXKjvlbNo6lnaMwC37TXOp1GHo2ZoWnMp+ldXW3Uc2kaCRqHUW9nPkkQtelA0yAAGHJ2u5ilCSzNVPTrqKAlXnbxQhxyTy1YiS5+zEUPxmnSGVbUQ2rikyG2ANfBjA4EPdQgHEVwYkiqz5Lz+wK1kLQE9VXL+NTHkGIOx757/fO71y/RwZNXB09+O3j69ODJr0Xw29gbJeFvf/zq3+efo39e/vD22TcLgDIJ/POXL/74/esFCJVEvPn2xV+vXrz57su/f3pWhFsTeJDE9alLJLpH9tAWd8H4IpFkII4J7TuYJqFr3khiDwfgIlhXORrs3gQzXARoE30CHgpItoWIW+PHmlHbjhgrWoS447gaYoNz1uai2AF3AjWSvht7owV6iXESsIXxbqFanVQIdcc+rDVaKKTjEM2UTQZRhUfEIwoFfXyHkCL8I0q1+dmgluCSDxV6RFEb02JH9ulA5aNvUxcmeoIXhJTm0Y2HqM1ZocB1sqtDYLliViiEMG0WbuGxwm6xVdhlSchdrJxCQ7YnwtImTioIphFhHHVtImUh+L6YaCbdgdy4ILI22MTVIULRnULIXcx5ErLOdzoOdv1iu6jnJEGfyB1YKRhtclWsH9fXcPAME4u9xRH1kBJ1zAz1gI6c/GAMesaicK0SrueQCRti4uklMlPbgnpHvSPVOxfKHf6A9Q7KyJvvn39klW4NfMjep74tBKSrWocLm34cRW0dj71NAgv4oqZd1LSLmnaGatrCrLT8SqZXrej8NzvbHR733EWnvSFlbFtNGLkr9QIowTV2D3oPW6P2kC8+iPoOfNWsKeViATkSOGxEgqvPqHK2HeyDThUjJWEkNV3iVuRzCednQ++ar1R6XHQ/RcHT4SBTvz/S+bDa4HY0rlbOHxgaOpObUrcU6DvXhFog+qTMqF09LTMqEeMJ2VExj2iHeQJ2RC2pMAt2fbDngxQJ2jSqkXWwKjEjdhCmqSCfhfNZjvFKuSjIHWyTo4xLeL9SO9tRZJ6wvacVbeVF0RYm/JzcHdB6uQmdeWgPLmbNqmkgC/stYwhnHPjq+iBPBqURs5HXMiwl0tGaWwuOPke671fzF3o60Mp5w+a6fU7VCWl9IdU6lk5EHI5Ke5d5Oa6qmvVgSpbrq9Kyrag1K+fViugpJ8LJcEgslRvlia6U6KgnL+3ysSJi27H30ICNxRYG79Sj5WhTCRuy6uwB3hOZ9elK1RN8fgJL3/vn5LnozQPzHTxNOM35+Saiy66IWP/0LOSYfNic8tGyfFf7gL4zL3x3Vn03zR1wA1CzM46w4HAiMAqSQ8vgQjkcyp3vUKsn4EyTZyJ4Ad7dqsABCF5xh/8F2U0Vzpk+EX9GLIOjmNqiIyQoFGHlCEI21dTf7ye1Us3dUIQJbCokkyGzvgg85Oe4Z0B2CesHybwRTJOBnFlxyuZdDT8nYFPNem4djHr/2yNh/UPuCjUT6ie5Ca6bR9oEr66elrUnsedPGFI94rRVTXN5m3kfruNQ8AH7KSosRoyM+cF+vc+3YN2h+KiCIJtcbk5Te9w4AB81s1YFsgMR5+8g2iyf51uKRKzVjhpr5fKZjDUzJ9TM40Za0JZXL8LDqZu4jAwaMr8MC3ZAg8eg4TpcdI5Z4udi0oemRE2S/qYoJWsUtyd6C5NRLUu2ycwmjXlbZIiovZ+zEFLRMP3pVPZwsnWoWezomLV2PNYpR86GMmauHo85ZslcN8fM4U3yAnaWo3PEkQyFhMOjvUg8i6Hvlz6n1aXMaXlpc1o51TlV+8eY03gWw/1/ZvUGNu7DW6bO7IdnkBJARrz8b1z6D1BLBwiUQSK4swYAALsqAABQSwECAAAUAAgICAAweyxWfMlJfk8BAAAUBQAAEwAAAAAAAAAAAAAAAAAAAAAAW0NvbnRlbnRfVHlwZXNdLnhtbFBLAQIAABQACAgIADB7LFYBIiIf9wAAAOECAAALAAAAAAAAAAAAAAAAAJABAABfcmVscy8ucmVsc1BLAQIAABQACAgIADB7LFaa6EH9WgEAAHECAAAQAAAAAAAAAAAAAAAAAMACAABkb2NQcm9wcy9hcHAueG1sUEsBAgAAFAAICAgAMHssVh2yGM07AQAAhQIAABEAAAAAAAAAAAAAAAAAWAQAAGRvY1Byb3BzL2NvcmUueG1sUEsBAgAAFAAICAgAMHssVhJm6cglAQAADgIAABMAAAAAAAAAAAAAAAAA0gUAAGRvY1Byb3BzL2N1c3RvbS54bWxQSwECAAAUAAgICAAweyxWyBQGUOAAAACoAgAAHAAAAAAAAAAAAAAAAAA4BwAAd29yZC9fcmVscy9kb2N1bWVudC54bWwucmVsc1BLAQI/ABQAAAAIAMOGmFialApBAgIAABYGAAARACQAAAAAAAAAIAAAAGIIAAB3b3JkL2RvY3VtZW50LnhtbAoAIAAAAAAAAQAYAErfZfYkltoBAAAAAAAAAAAAAAAAAAAAAFBLAQIAABQACAgIADB7LFbfHdEfzgIAAOALAAASAAAAAAAAAAAAAAAAAJMKAAB3b3JkL2ZvbnRUYWJsZS54bWxQSwECAAAUAAgICAAweyxWxZUwW8cDAAC3CQAAEQAAAAAAAAAAAAAAAAChDQAAd29yZC9zZXR0aW5ncy54bWxQSwECAAAUAAgICAAweyxWP3ux1+MHAAAWZgAADwAAAAAAAAAAAAAAAACnEQAAd29yZC9zdHlsZXMueG1sUEsBAgAAFAAICAgAMHssVpRBIrizBgAAuyoAABUAAAAAAAAAAAAAAAAAxxkAAHdvcmQvdGhlbWUvdGhlbWUxLnhtbFBLBQYAAAAACwALAOQCAAC9IAAAAAA="));
+end;
+
diff --git a/docx/DocxVba.tsf b/docx/DocxVba.tsf
index bb017c5..1f6f787 100644
--- a/docx/DocxVba.tsf
+++ b/docx/DocxVba.tsf
@@ -1,3514 +1,3513 @@
unit DocxVba;
interface
+uses DocxEnumerations, TSSafeUnitConverter;
type AddIn = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Delete();
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Add(FileName, Install);
- function Item(Index);
- function Unload(RemoveFromList);
+ // methods
+ function Add(FileName, Install);
+ function Item(Index);
+ function Unload(RemoveFromList);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type Adjustments = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type Application = class(VbaBase)
public
- function Create();
- function Init();
+ function Create();overload;
+ 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();
+ // 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();
+ // 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;
+ documents_: Documents;
end;
type AutoCaption = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function CancelAutoInsert();
- function Item(Index);
+ // methods
+ function CancelAutoInsert();
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type AutoCorrect = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Add(Name, Value);
- function AddRichText(Name, Range);
- function Item(Index);
+ // methods
+ function Add(Name, Value);
+ function AddRichText(Name, Range);
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type AutoCorrectEntry = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Apply(Range);
- function Delete();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Add(Name, Range);
- function AppendToSpike(Range);
- function Item(Index);
+ // methods
+ function Add(Name, Range);
+ function AppendToSpike(Range);
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type AutoTextEntry = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Delete();
- function Insert(Where, RichText);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Item(Type, AxisGroup);
+ // methods
+ function Item(Type, AxisGroup);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type Axis = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Delete();
- function Select();
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Delete();
- function Select();
- function Characters(Start, Length);
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function GenerateUniqueTag();
+ // methods
+ function GenerateUniqueTag();
- // properties
- property BibliographyStyle read ReadBibliographyStyle write WriteBibliographyStyle;
- property Sources read ReadSources;
- function ReadBibliographyStyle();
- function WriteBibliographyStyle(_value);
- function ReadSources();
+ // 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();
+ function Init();
public
- // methods
- function Copy(Name);
- function Delete();
- function Select();
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Add(Name, Range);
- function Exists(Name);
- function Item(Index);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function ApplyPageBordersToAllSections();
- function Item(Index);
+ // 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);
+ // 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)
+type _Break = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
+ // methods
- // properties
- property PageIndex read ReadPageIndex;
- property Range read ReadRange;
- function ReadPageIndex();
- function ReadRange();
+ // properties
+ property PageIndex read ReadPageIndex;
+ property Range read ReadRange;
+ function ReadPageIndex();
+ function ReadRange();
end;
type Breaks = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type Broadcast = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function AddMeetingNotes(notesUrl, notesWacUrl);
- function End();
- function Pause();
- function Resume();
- function Start(serverUrl);
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Next();
- function Previous();
+ // methods
+ function Next();
+ function Previous();
- // properties
- property Target read ReadTarget write WriteTarget;
- function ReadTarget();
- function WriteTarget(_value);
+ // properties
+ property Target read ReadTarget write WriteTarget;
+ function ReadTarget();
+ function WriteTarget(_value);
end;
type BuildingBlock = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Delete();
- function Insert(Where, RichText);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Add(Name, Type, Category, Range, Description, InsertOptions);
- function Item(Index);
+ // methods
+ function Add(Name, Type, Category, Range, Description, InsertOptions);
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type BuildingBlocks = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Add(Name, Range, Description, InsertOptions);
- function Item(Index);
+ // methods
+ function Add(Name, Range, Description, InsertOptions);
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type BuildingBlockType = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
+ // methods
- // properties
- property Categories read ReadCategories;
- property Index read ReadIndex;
- property Name read ReadName;
- function ReadCategories();
- function ReadIndex();
- function ReadName();
+ // 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();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type CalloutFormat = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function CustomDrop(Drop);
- function CustomLength(Length);
- function PresetDrop(DropType);
+ // 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);
+ // 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();
+ 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();
+ // 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();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type CaptionLabel = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Delete();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Add(Name);
- function Item(Index);
+ // methods
+ function Add(Name);
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type Categories = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type Category = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type Cell = class(VbaBase)
public
- function Init();
+ 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);
+ // 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);
+ // 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(_index: integer);
+ 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();
+ 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);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- property First read ReadFirst;
- property Last read ReadLast;
- function ReadCount();
- function ReadFirst();
- function ReadLast();
+ // 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();
+ 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);
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Clear();
- function ClearContents();
- function ClearFormats();
- function Copy();
- function Select();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
+ // 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);
+ // 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();
+ function Init();
public
- // methods
+ // methods
- // properties
- property IsFiltered read ReadIsFiltered write WriteIsFiltered;
- property Name read ReadName write WriteName;
- function ReadIsFiltered();
- function WriteIsFiltered(_value);
- function ReadName();
- function WriteName(_value);
+ // 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();
+ function Init();
public
- // methods
- function Delete();
- function Insert(String);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Activate();
- function ActivateChartDataWindow();
- function BreakLink();
+ // methods
+ function Activate();
+ function ActivateChartDataWindow();
+ function BreakLink();
- // properties
- property IsLinked read ReadIsLinked;
- property Workbook read ReadWorkbook;
- function ReadIsLinked();
- function ReadWorkbook();
+ // properties
+ property IsLinked read ReadIsLinked;
+ property Workbook read ReadWorkbook;
+ function ReadIsLinked();
+ function ReadWorkbook();
end;
type ChartFont = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
+ // 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);
+ // 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();
+ function Init();
public
- // methods
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function CategoryCollection(Index);
- function FullCategoryCollection(Index);
- function SeriesCollection(Index);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type ChartTitle = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Delete();
- function Select();
- function Characters(Start, Length);
+ // 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();
+ // 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();
+ function Init();
public
- // methods
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Unlock();
+ // methods
+ function Unlock();
- // properties
- property Owner read ReadOwner;
- property Range read ReadRange;
- property Type read ReadType;
- function ReadOwner();
- function ReadRange();
- function ReadType();
+ // 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();
+ function Init();
public
- // methods
- function Add(Range, Type);
- function Item(Index);
- function RemoveEphemeralLocks();
+ // methods
+ function Add(Range, Type);
+ function Item(Index);
+ function RemoveEphemeralLocks();
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type CoAuthor = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
+ // 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();
+ // 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();
+ function Init();
public
- // methods
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type CoAuthUpdate = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
+ // methods
- // properties
- property Range read ReadRange;
- function ReadRange();
+ // properties
+ property Range read ReadRange;
+ function ReadRange();
end;
type CoAuthUpdates = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type ColorFormat = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
+ // 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);
+ // 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();
+ 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);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Add(BeforeColumn);
- function AutoFit();
- function Delete();
- function DistributeWidth();
- function Item(Index);
- function Select();
- function SetWidth(ColumnWidth, RulerStyle);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function DeleteRecursively();
- function Edit();
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Add(Range, Text);
- function Item(Index);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Accept();
- function Reject();
+ // methods
+ function Accept();
+ function Reject();
- // properties
- property Index read ReadIndex;
- property Range read ReadRange;
- property Type read ReadType;
- function ReadIndex();
- function ReadRange();
- function ReadType();
+ // 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();
+ function Init();
public
- // methods
- function AcceptAll();
- function Item(Index);
- function RejectAll();
+ // methods
+ function AcceptAll();
+ function Item(Index);
+ function RejectAll();
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type ContentControl = class(VbaBase)
public
- function Init();
+ 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();
+ // methods
+ function Copy();
+ function Cut();
+ function Delete(DeleteContents);
+ function SetCheckedSymbol(CharacterNumber, Font);
+ function SetPlaceholderText(BuildingBlock, Range, Text);
+ 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();
+ // 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();
+ function Init();
public
- // methods
- function Add(Text, Value, Index);
- function Clear();
- function Item(Index);
+ // methods
+ function Add(Text, Value, Index);
+ function Clear();
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type ContentControlListEntry = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Delete();
- function MoveDown();
- function MoveUp();
- function Select();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Add(Type, Range);
- function Item(Index);
+ // methods
+ function Add(Type, Range);
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type CustomLabel = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Delete();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Add(Name, DotMatrix);
- function Item(Index);
+ // methods
+ function Add(Name, DotMatrix);
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type CustomProperty = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Delete();
+ // methods
+ function Delete();
- // properties
- property Name read ReadName;
- property Value read ReadValue write WriteValue;
- function ReadName();
- function ReadValue();
- function WriteValue(_value);
+ // 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();
+ function Init();
public
- // methods
- function Add(Name, Value);
- function Item(Index);
- function Application();
- function Count();
- function Creator();
- function Parent();
+ // methods
+ function Add(Name, Value);
+ function Item(Index);
+ function Application();
+ function Count();
+ function Creator();
+ function Parent();
- // properties
+ // properties
end;
type DataLabel = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Delete();
- function Select();
- function Characters(Start, Length);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Delete();
- function Item(Index);
- function Propagate(Index);
- function Select();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Delete();
- function Select();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Display(TimeOut);
- function Execute();
- function Show(TimeOut);
- function Update();
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type Dictionaries = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Add(FileName);
- function ClearAll();
- function Item(Index);
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Delete();
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Delete();
- function Select();
- function Characters(Start, Length);
+ // 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();
+ // 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);
+ // 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);
+ 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();
+ // 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(_index: integer);
+ 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(_index: integer);
+ 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(_index: integer);
+ 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;
+ [weakref]collection_: Collection;
full_name_: string;
- document_: Document;
+ file_name_: string;
tables_: Tables;
paragraphs_: Paragraphs;
@@ -3551,4775 +3550,4775 @@ end;
type DownBars = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Delete();
- function Select();
+ // methods
+ function Delete();
+ function Select();
- // properties
- property Format read ReadFormat;
- property Name read ReadName;
- function ReadFormat();
- function ReadName();
+ // properties
+ property Format read ReadFormat;
+ property Name read ReadName;
+ function ReadFormat();
+ function ReadName();
end;
type DropCap = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Clear();
- function Enable();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Delete();
- function Select();
+ // methods
+ function Delete();
+ function Select();
- // properties
- property Border read ReadBorder;
- property Format read ReadFormat;
- property Name read ReadName;
- function ReadBorder();
- function ReadFormat();
- function ReadName();
+ // 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();
+ function Init();
public
- // methods
- function Delete();
- function DeleteAll();
- function SelectAll();
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Add(EditorID);
- function Item(Index);
+ // methods
+ function Add(EditorID);
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type Email = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
+ // methods
- // properties
- property CurrentEmailAuthor read ReadCurrentEmailAuthor;
- function ReadCurrentEmailAuthor();
+ // properties
+ property CurrentEmailAuthor read ReadCurrentEmailAuthor;
+ function ReadCurrentEmailAuthor();
end;
type EmailAuthor = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
+ // methods
- // properties
- property Style read ReadStyle;
- function ReadStyle();
+ // properties
+ property Style read ReadStyle;
+ function ReadStyle();
end;
type EmailOptions = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
+ // 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);
+ // 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();
+ function Init();
public
- // methods
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Add(Name, Range);
- function Item(Index);
+ // methods
+ function Add(Name, Range);
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type EmailSignatureEntry = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Delete();
+ // methods
+ function Delete();
- // properties
- property Index read ReadIndex;
- property Name read ReadName write WriteName;
- function ReadIndex();
- function ReadName();
- function WriteName(_value);
+ // 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();
+ function Init();
public
- // methods
- function Delete();
+ // methods
+ function Delete();
- // properties
- property Index read ReadIndex;
- property Range read ReadRange;
- property Reference read ReadReference;
- function ReadIndex();
- function ReadRange();
- function ReadReference();
+ // 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();
+ function Init();
public
- // methods
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Add(Range, Reference, Text);
- function Convert();
- function Item(Index);
- function ResetContinuationNotice();
- function ResetContinuationSeparator();
- function ResetSeparator();
- function SwapWithFootnotes();
+ // 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);
+ // 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();
+ 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();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function ClearFormats();
- function Delete();
- function Select();
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Copy();
- function Cut();
- function Delete();
- function DoClick();
- function Select();
- function Unlink();
- function Update();
- function UpdateSource();
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Add(Range, Type, Text, PreserveFormatting);
- function Item(Index);
- function ToggleShowCodes();
- function Unlink();
- function Update();
- function UpdateSource();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property ConvertMacWordChevrons read ReadConvertMacWordChevrons write WriteConvertMacWordChevrons;
- property Count read ReadCount;
- function ReadConvertMacWordChevrons();
- function WriteConvertMacWordChevrons(_value);
- function ReadCount();
+ // 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();
+ 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);
+ // 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);
+ // 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();
+ 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();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Delete();
+ // methods
+ function Delete();
- // properties
- property Index read ReadIndex;
- property Name read ReadName;
- function ReadIndex();
- function ReadName();
+ // properties
+ property Index read ReadIndex;
+ property Name read ReadName;
+ function ReadIndex();
+ function ReadName();
end;
type FirstLetterExceptions = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Add(Name);
- function Item(Index);
+ // methods
+ function Add(Name);
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type Floor = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function ClearFormats();
- function Paste();
- function Select();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Grow();
- function Reset();
- function SetAsTemplateDefault();
- function Shrink();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type Footnote = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Delete();
+ // methods
+ function Delete();
- // properties
- property Index read ReadIndex;
- property Range read ReadRange;
- property Reference read ReadReference;
- function ReadIndex();
- function ReadRange();
- function ReadReference();
+ // 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();
+ function Init();
public
- // methods
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Add(Range, Reference, Text);
- function Convert();
- function Item(Index);
- function ResetContinuationNotice();
- function ResetContinuationSeparator();
- function ResetSeparator();
- function SwapWithEndnotes();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Copy();
- function Cut();
- function Delete();
- function Select();
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Add(Range, Type);
- function Item(Index);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Copy();
- function Cut();
- function Delete();
- function Select();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Add(Range);
- function Delete();
- function Item(Index);
+ // methods
+ function Add(Range);
+ function Delete();
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type Frameset = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function AddNewFrame(Where);
- function Delete();
- function ChildFramesetItem(Index);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function AddNodes(SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3);
- function ConvertToShape(Anchor);
+ // methods
+ function AddNodes(SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3);
+ function ConvertToShape(Anchor);
- // properties
+ // properties
end;
type FullSeriesCollection = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
-type Global = class(VbaBase)
+type _Global = class(VbaBase)
public
- function Init();
+ 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);
+ // 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();
+ // 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();
+ function Init();
public
- // methods
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Delete();
- function Select();
+ // methods
+ function Delete();
+ function Select();
- // properties
- property Border read ReadBorder;
- property Format read ReadFormat;
- property Name read ReadName;
- function ReadBorder();
- function ReadFormat();
- function ReadName();
+ // 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();
+ function Init();
public
- // methods
- function Item(Index);
- function Range(Index);
+ // methods
+ function Item(Index);
+ function Range(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type HangulAndAlphabetException = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Delete();
+ // methods
+ function Delete();
- // properties
- property Index read ReadIndex;
- property Name read ReadName;
- function ReadIndex();
- function ReadName();
+ // properties
+ property Index read ReadIndex;
+ property Name read ReadName;
+ function ReadIndex();
+ function ReadName();
end;
type HangulAndAlphabetExceptions = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Add(Name);
- function Item(Index);
+ // methods
+ function Add(Name);
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type HeaderFooter = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type HeadingStyle = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Delete();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Add(Style, Level);
- function Item(Index);
+ // methods
+ function Add(Style, Level);
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type HiLoLines = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Delete();
- function Select();
+ // methods
+ function Delete();
+ function Select();
- // properties
- property Border read ReadBorder;
- property Format read ReadFormat;
- property Name read ReadName;
- function ReadBorder();
- function ReadFormat();
- function ReadName();
+ // 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();
+ function Init();
public
- // methods
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Delete();
- function HTMLDivisionParent(LevelsUp);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Add(Range);
- function Item(Index);
+ // methods
+ function Add(Range);
+ function Item(Index);
- // properties
- property Count read ReadCount;
- property NestingLevel read ReadNestingLevel;
- function ReadCount();
- function ReadNestingLevel();
+ // properties
+ property Count read ReadCount;
+ property NestingLevel read ReadNestingLevel;
+ function ReadCount();
+ function ReadNestingLevel();
end;
type Hyperlink = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function AddToFavorites();
- function CreateNewDocument(FileName, EditNow, Overwrite);
- function Delete();
- function Follow(NewWindow, AddHistory, ExtraInfo, Method, HeaderInfo);
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Add(Anchor, Address, SubAddress, ScreenTip, TextToDisplay, Target);
- function Item(Index);
+ // methods
+ function Add(Anchor, Address, SubAddress, ScreenTip, TextToDisplay, Target);
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type Index = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Delete();
- function Update();
+ // 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);
+ // 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();
+ 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);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function ConvertToShape();
- function Delete();
- function Reset();
- function Select();
+ // 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);
+ // 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();
+ 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);
+ // 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();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type Interior = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Clear();
- function Disable();
- function Execute();
- function Rebind(KeyCategory, Command, CommandParameter);
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Add(KeyCategory, Command, KeyCode, KeyCode2, CommandParameter);
- function ClearAll();
- function Item(Index);
- function Key(KeyCode, KeyCode2);
+ // 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();
+ // properties
+ property Context read ReadContext;
+ property Count read ReadCount;
+ function ReadContext();
+ function ReadCount();
end;
type KeysBoundTo = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Item(Index);
- function Key(KeyCode, KeyCode2);
+ // 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();
+ // 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();
+ function Init();
public
- // methods
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type LeaderLines = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Delete();
- function Select();
+ // methods
+ function Delete();
+ function Select();
- // properties
- property Border read ReadBorder;
- property Format read ReadFormat;
- function ReadBorder();
- function ReadFormat();
+ // properties
+ property Border read ReadBorder;
+ property Format read ReadFormat;
+ function ReadBorder();
+ function ReadFormat();
end;
type Legend = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Clear();
- function Delete();
- function LegendEntries();
- function Select();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type LegendEntry = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Delete();
- function Select();
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function ClearFormats();
- function Delete();
+ // 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();
+ // 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();
+ function Init();
public
- // methods
+ // 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);
+ // 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();
+ function Init();
public
- // methods
+ // 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();
+ // 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();
+ function Init();
public
- // methods
+ // 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);
+ // 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();
+ function Init();
public
- // methods
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type LinkFormat = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function BreakLink();
- function Update();
+ // 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();
+ // 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();
+ 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);
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Add(Name, Index);
- function Clear();
- function Item(Index);
+ // methods
+ function Add(Name, Index);
+ function Clear();
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type ListEntry = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Delete();
+ // methods
+ function Delete();
- // properties
- property Index read ReadIndex;
- property Name read ReadName write WriteName;
- function ReadIndex();
- function ReadName();
- function WriteName(_value);
+ // 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();
+ 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);
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type ListGallery = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Reset(Index);
- function Modified(Index);
+ // methods
+ function Reset(Index);
+ function Modified(Index);
- // properties
- property ListTemplates read ReadListTemplates;
- function ReadListTemplates();
+ // properties
+ property ListTemplates read ReadListTemplates;
+ function ReadListTemplates();
end;
type ListLevel = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function ApplyPictureBullet(FileName);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type ListParagraphs = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type Lists = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type ListTemplate = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Convert(Level);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Add(OutlineNumbered, Name);
- function Item(Index);
+ // methods
+ function Add(OutlineNumbered, Name);
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type MailingLabel = class(VbaBase)
public
- function Init();
+ 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);
+ // 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);
+ // 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();
+ 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);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
+ // methods
- // properties
- property Index read ReadIndex;
- property Name read ReadName;
- property Value read ReadValue;
- function ReadIndex();
- function ReadName();
- function ReadValue();
+ // 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();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type MailMergeDataSource = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Close();
- function FindRecord(FindText, Field);
- function SetAllErrorFlags(Invalid, InvalidComment);
- function SetAllIncludedFlags(Included);
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Copy();
- function Cut();
- function Delete();
- function Select();
+ // 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();
+ // 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();
+ function Init();
public
- // methods
+ // methods
- // properties
- property Index read ReadIndex;
- property Name read ReadName;
- function ReadIndex();
- function ReadName();
+ // properties
+ property Index read ReadIndex;
+ property Name read ReadName;
+ function ReadIndex();
+ function ReadName();
end;
type MailMergeFieldNames = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type MailMergeFields = class(VbaBase)
public
- function Init();
+ 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);
+ // 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();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type MailMessage = class(VbaBase)
public
- function Init();
+ 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();
+ // methods
+ function CheckName();
+ function Delete();
+ function DisplayMoveDialog();
+ function DisplayProperties();
+ function DisplaySelectNamesDialog();
+ function Forward();
+ function GoToNext();
+ function GoToPrevious();
+ function Reply();
+ function ReplyAll();
+ function ToggleHeader();
- // properties
+ // properties
end;
type MappedDataField = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type OLEFormat = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Activate();
- function ActivateAs(ClassType);
- function ConvertTo(ClassType, DisplayAsIcon, IconFileName, IconIndex, IconLabel);
- function DoVerb(VerbIndex);
- function Edit();
- function Open();
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function BuildUp();
- function ConvertToLiteralText();
- function ConvertToMathText();
- function ConvertToNormalText();
- function Linearize();
- function Remove();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
+ // methods
- // properties
- property Char read ReadChar write WriteChar;
- property E read ReadE;
- function ReadChar();
- function WriteChar(_value);
- function ReadE();
+ // 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();
+ function Init();
public
- // methods
- function Add(BeforeArg);
- function Item(Index);
+ // methods
+ function Add(BeforeArg);
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type OMathAutoCorrect = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Add(Name, Value);
- function Item(Index);
+ // methods
+ function Add(Name, Value);
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type OMathAutoCorrectEntry = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Delete();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
+ // methods
- // properties
- property BarTop read ReadBarTop write WriteBarTop;
- property E read ReadE;
- function ReadBarTop();
- function WriteBarTop(_value);
- function ReadE();
+ // 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();
+ function Init();
public
- // methods
+ // 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);
+ // 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();
+ function Init();
public
- // methods
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Delete();
+ // methods
+ function Delete();
- // properties
- property AlignAt read ReadAlignAt write WriteAlignAt;
- property Range read ReadRange;
- function ReadAlignAt();
- function WriteAlignAt(_value);
- function ReadRange();
+ // 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();
+ function Init();
public
- // methods
- function Add(Range);
- function Item(Index);
+ // methods
+ function Add(Range);
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type OMathDelim = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
+ // 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);
+ // 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();
+ function Init();
public
- // methods
+ // 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);
+ // 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();
+ function Init();
public
- // methods
+ // 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);
+ // 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();
+ function Init();
public
- // methods
+ // methods
- // properties
- property E read ReadE;
- property FName read ReadFName;
- function ReadE();
- function ReadFName();
+ // properties
+ property E read ReadE;
+ property FName read ReadFName;
+ function ReadE();
+ function ReadFName();
end;
type OMathFunction = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Remove();
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Add(Range, Type, NumArgs, NumCols);
- function Item(Index);
+ // methods
+ function Add(Range, Type, NumArgs, NumCols);
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type OMathGroupChar = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function ToLimUpp();
+ // methods
+ function ToLimUpp();
- // properties
- property E read ReadE;
- property Lim read ReadLim;
- function ReadE();
- function ReadLim();
+ // properties
+ property E read ReadE;
+ property Lim read ReadLim;
+ function ReadE();
+ function ReadLim();
end;
type OMathLimUpp = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function ToLimLow();
+ // methods
+ function ToLimLow();
- // properties
- property E read ReadE;
- property Lim read ReadLim;
- function ReadE();
- function ReadLim();
+ // properties
+ property E read ReadE;
+ property Lim read ReadLim;
+ function ReadE();
+ function ReadLim();
end;
type OMathMat = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Cell(Row, Col);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Delete();
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Add(BeforeCol);
- function Item(Index);
+ // methods
+ function Add(BeforeCol);
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type OMathMatRow = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Delete();
+ // methods
+ function Delete();
- // properties
- property Args read ReadArgs;
- property RowIndex read ReadRowIndex write WriteRowIndex;
- function ReadArgs();
- function ReadRowIndex();
- function WriteRowIndex(_value);
+ // 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();
+ function Init();
public
- // methods
- function Add(BeforeRow);
- function Item(Index);
+ // methods
+ function Add(BeforeRow);
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type OMathNary = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
+ // 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();
+ // 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();
+ function Init();
public
- // methods
+ // 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);
+ // 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();
+ function Init();
public
- // methods
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Delete();
+ // methods
+ function Delete();
- // properties
- property Index read ReadIndex;
- property Name read ReadName;
- function ReadIndex();
- function ReadName();
+ // properties
+ property Index read ReadIndex;
+ property Name read ReadName;
+ function ReadIndex();
+ function ReadName();
end;
type OMathRecognizedFunctions = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Add(Name);
- function Item(Index);
+ // methods
+ function Add(Name);
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type OMaths = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Add(Range);
- function BuildUp();
- function Item(Index);
- function Linearize();
+ // methods
+ function Add(Range);
+ function BuildUp();
+ function Item(Index);
+ function Linearize();
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type OMathScrPre = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function ToScrSubSup();
+ // methods
+ function ToScrSubSup();
- // properties
- property E read ReadE;
- property Sub read ReadSub;
- property Sup read ReadSup;
- function ReadE();
- function ReadSub();
- function ReadSup();
+ // 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();
+ function Init();
public
- // methods
+ // methods
- // properties
- property E read ReadE;
- property Sub read ReadSub;
- function ReadE();
- function ReadSub();
+ // properties
+ property E read ReadE;
+ property Sub read ReadSub;
+ function ReadE();
+ function ReadSub();
end;
type OMathScrSubSup = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function RemoveSub();
- function RemoveSup();
- function ToScrPre();
+ // 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();
+ // 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();
+ function Init();
public
- // methods
+ // methods
- // properties
- property E read ReadE;
- property Sup read ReadSup;
- function ReadE();
- function ReadSup();
+ // properties
+ property E read ReadE;
+ property Sup read ReadSup;
+ function ReadE();
+ function ReadSup();
end;
type Options = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function DefaultFilePath(Path);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Delete();
+ // methods
+ function Delete();
- // properties
- property Index read ReadIndex;
- property Name read ReadName;
- function ReadIndex();
- function ReadName();
+ // properties
+ property Index read ReadIndex;
+ property Name read ReadName;
+ function ReadIndex();
+ function ReadName();
end;
type OtherCorrectionsExceptions = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Add(Name);
- function Item(Index);
+ // methods
+ function Add(Name);
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type Page = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Copy();
- function Cut();
- function Delete();
- function Select();
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Add(PageNumberAlignment, FirstPage);
- function Item(Index);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type PageSetup = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function SetAsTemplateDefault();
- function TogglePortrait();
+ // 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);
+ // 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();
+ 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();
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Add(SplitVertical);
- function Item(Index);
+ // methods
+ function Add(SplitVertical);
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type Paragraph = class(VbaBase)
@@ -8327,163 +8326,163 @@ 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);
+ // 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);
+ function OpenOrCloseUp();
+ function OpenUp();
+ function Outdent();
+ function OutlineDemote();
+ function OutlineDemoteToBody();
+ function OutlinePromote();
+ function Previous(Count: integer);
+ 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);
+ // 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;
@@ -8493,140 +8492,145 @@ end;
type ParagraphFormat = class(VbaBase)
public
- function Init();
+ function Init(ppr: PPr);
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);
+ // methods
+ function CloseUp();
+ function IndentCharWidth(Count: integer);
+ function IndentFirstLineCharWidth(Count: integer);
+ function OpenOrCloseUp();
+ function OpenUp();
+ function Reset();
+ function Space1();
+ function Space15();
+ function Space2();
+ function TabHangingIndent(Count: integer);
+ function TabIndent(Count: integer);
- // 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);
+ // 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);
+
+private
+ ppr_: PPr;
+ shading_: Shading;
+ borders_: Borders;
end;
type Paragraphs = class(VbaBase)
@@ -8635,147 +8639,147 @@ public
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);
+ // 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);
+ // 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);
+ function InitParagraphs(obj: OpenXmlCompositeElement; ind: integer);
private
[weakref]components_: DocxComponents;
@@ -8784,4072 +8788,4077 @@ end;
type PictureFormat = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function IncrementBrightness(Increment);
- function IncrementContrast(Increment);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function ClearFormats();
- function Select();
+ // 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);
+ // 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();
+ 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();
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type ProofreadingErrors = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- property Type read ReadType;
- function ReadCount();
- function ReadType();
+ // properties
+ property Count read ReadCount;
+ property Type read ReadType;
+ function ReadCount();
+ function ReadType();
end;
type ProtectedViewWindow = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Activate();
- function Close();
- function Edit(PasswordTemplate, WritePasswordDocument, WritePasswordTemplate);
- function ToggleRibbon();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Item(Index);
- function Open(FileName, AddToRecentFiles, PasswordDocument, Visible, OpenAndRepair);
+ // methods
+ function Item(Index);
+ function Open(FileName, AddToRecentFiles, PasswordDocument, Visible, OpenAndRepair);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type Range = class(VbaBase)
public
- function Init();
+ 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);
+ // 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();
+ // 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();
+ function Init();
public
- // methods
+ // methods
- // properties
- property Name read ReadName;
- property Value read ReadValue;
- function ReadName();
- function ReadValue();
+ // properties
+ property Name read ReadName;
+ property Value read ReadValue;
+ function ReadName();
+ function ReadValue();
end;
type ReadabilityStatistics = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type RecentFile = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Delete();
- function Open();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Add(Document, ReadOnly);
- function Item(Index);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type ReflectionFormat = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Delete();
- function InsertItemAfter();
- function InsertItemBefore();
+ // methods
+ function Delete();
+ function InsertItemAfter();
+ function InsertItemBefore();
- // properties
- property Range read ReadRange;
- function ReadRange();
+ // properties
+ property Range read ReadRange;
+ function ReadRange();
end;
type RepeatingSectionItemColl = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type Replacement = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function ClearFormatting();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function IsResearchService(ServiceID);
- function Query(ServiceID, QueryString, QueryLanguage, UseSelection, RequeryContextXML, NewQueryContextXML, LaunchQuery);
- function SetLanguagePair(LanguageFrom, LanguageTo);
+ // 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);
+ // properties
+ property FavoriteService read ReadFavoriteService write WriteFavoriteService;
+ function ReadFavoriteService();
+ function WriteFavoriteService(_value);
end;
type Reviewer = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
+ // methods
- // properties
- property Visible read ReadVisible write WriteVisible;
- function ReadVisible();
- function WriteVisible(_value);
+ // properties
+ property Visible read ReadVisible write WriteVisible;
+ function ReadVisible();
+ function WriteVisible(_value);
end;
type Reviewers = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type Revision = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Accept();
- function Reject();
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function AcceptAll();
- function Item(Index);
- function RejectAll();
+ // methods
+ function AcceptAll();
+ function Item(Index);
+ function RejectAll();
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type RevisionsFilter = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function ToggleShowAllReviewers();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function ConvertToText(Separator, NestedTables);
- function Delete();
- function Select();
- function SetHeight(RowHeight, HeightRule);
- function SetLeftIndent(LeftIndent, RulerStyle);
+ // 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);
+ // 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();
+ 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);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Add(Range, Start);
- function Item(Index);
+ // 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();
+ // 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();
+ 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);
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- property First read ReadFirst;
- property Last read ReadLast;
- function ReadCount();
- function ReadFirst();
- function ReadLast();
+ // 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();
+ 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);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Add(Source, Rowcol, SeriesLabels, CategoryLabels, Replace);
- function Extend(Source, Rowcol, CategoryLabels);
- function Item(Index);
- function NewSeries();
+ // 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();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type SeriesLines = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Delete();
- function Select();
+ // methods
+ function Delete();
+ function Select();
- // properties
- property Border read ReadBorder;
- property Format read ReadFormat;
- property Name read ReadName;
- function ReadBorder();
- function ReadFormat();
- function ReadName();
+ // 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();
+ function Init();
public
- // methods
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function IncrementOffsetX(Increment);
- function IncrementOffsetY(Increment);
+ // 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);
+ // 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();
+ 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);
+ // methods
+ function Apply();
+ 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();
+ // 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();
+ function Init();
public
- // methods
+ // methods
- // properties
- property EditingType read ReadEditingType;
- property Points read ReadPoints;
- property SegmentType read ReadSegmentType;
- function ReadEditingType();
- function ReadPoints();
- function ReadSegmentType();
+ // 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();
+ 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);
+ // 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();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type ShapeRange = class(VbaBase)
public
- function Init();
+ 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);
+ // methods
+ function Align(Align, RelativeTo);
+ function Apply();
+ 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();
+ // 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();
+ 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();
+ // 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();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type SoftEdgeFormat = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
+ // methods
- // properties
- property Radius read ReadRadius write WriteRadius;
- property Type read ReadType write WriteType;
- function ReadRadius();
- function WriteRadius(_value);
- function ReadType();
- function WriteType(_value);
+ // 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();
+ function Init();
public
- // methods
- function Delete();
- function Field(Name);
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Add(Data);
- function Item(Index);
+ // methods
+ function Add(Data);
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type SpellingSuggestion = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
+ // methods
- // properties
- property Name read ReadName;
- function ReadName();
+ // properties
+ property Name read ReadName;
+ function ReadName();
end;
type SpellingSuggestions = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- property SpellingErrorType read ReadSpellingErrorType;
- function ReadCount();
- function ReadSpellingErrorType();
+ // properties
+ property Count read ReadCount;
+ property SpellingErrorType read ReadSpellingErrorType;
+ function ReadCount();
+ function ReadSpellingErrorType();
end;
type StoryRanges = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type Style = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Delete();
- function LinkToListTemplate(ListTemplate, ListLevelNumber);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Add(Name, Type);
- function Item(Index);
+ // methods
+ function Add(Name, Type);
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type StyleSheet = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Delete();
- function Move(Precedence);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Add(FileName, LinkType, Title, Precedence);
- function Item(Index);
+ // methods
+ function Add(FileName, LinkType, Title, Precedence);
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type Subdocument = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Delete();
- function Open();
- function Split(Range);
+ // 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();
+ // 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();
+ 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();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function SynonymList(Meaning);
+ // 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();
+ // 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)
+type _System = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Connect(Path, Drive, Password);
- function MSInfo();
- function PrivateProfileString(FileName, Section, Key);
- function ProfileString(Section, Key);
+ // 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();
+ // 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();
+ function Init(components: DocxComponents; tbl: Tbl; index: integer);
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();
+ // 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();
+ // 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();
+
+private
+ [weakref]components_: DocxComponents;
+ tbl_: Tbl;
+ index_: integer;
end;
type TableOfAuthorities = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Delete();
- function Update();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
+ // methods
- // properties
- property Index read ReadIndex;
- property Name read ReadName;
- function ReadIndex();
- function ReadName();
+ // properties
+ property Index read ReadIndex;
+ property Name read ReadName;
+ function ReadIndex();
+ function ReadName();
end;
type TableOfContents = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Delete();
- function Update();
- function UpdatePageNumbers();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Delete();
- function Update();
- function UpdatePageNumbers();
+ // 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);
+ // 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);
+ function Init(components: DocxComponents);
+ function Operator[](index: integer);
public
- // methods
- function Add(Range, NumRows, NumColumns, DefaultTableBehavior, AutoFitBehavior);
- function Item(Index);
+ // methods
+ function Add(Range, NumRows, NumColumns, DefaultTableBehavior, AutoFitBehavior);
+ function Item(Index: integer);
- // properties
- property Count read ReadCount;
- property NestingLevel read ReadNestingLevel;
- function ReadCount();
- function ReadNestingLevel();
+ // properties
+ property Count read ReadCount;
+ property NestingLevel read ReadNestingLevel;
+ function ReadCount();
+ function ReadNestingLevel();
+
+private
+ function InitTables(obj: OpenXmlCompositeElement; ind: integer);
+
+private
+ [weakref]components_: DocxComponents;
+ tables_: array of Table;
end;
type TablesOfAuthorities = class(VbaBase)
public
- function Init();
+ 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);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type TablesOfContents = class(VbaBase)
public
- function Init();
+ 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);
+ // 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);
+ // 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();
+ 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);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Condition(ConditionCode);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Clear();
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Add(Position, Alignment, Leader);
- function After(Position);
- function Before(Position);
- function ClearAll();
- function Item(Index);
+ // methods
+ function Add(Position, Alignment, Leader);
+ function After(Position);
+ function Before(Position);
+ function ClearAll();
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type Task = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Activate(Wait);
- function Close();
- function Move(Left, Top);
- function Resize(Width, Height);
- function SendWindowMessage(Message, wParam, IParam);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
+ // methods
- // properties
- property Visible read ReadVisible write WriteVisible;
- function ReadVisible();
- function WriteVisible(_value);
+ // properties
+ property Visible read ReadVisible write WriteVisible;
+ function ReadVisible();
+ function WriteVisible(_value);
end;
type TaskPanes = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type Tasks = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Exists(Name);
- function ExitWindows();
- function Item(Index);
+ // methods
+ function Exists(Name);
+ function ExitWindows();
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type Template = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function OpenAsDocument();
- function Save();
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Item(Index);
- function LoadBuildingBlocks();
+ // methods
+ function Item(Index);
+ function LoadBuildingBlocks();
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type TextColumn = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
+ // methods
- // properties
- property SpaceAfter read ReadSpaceAfter write WriteSpaceAfter;
- property Width read ReadWidth write WriteWidth;
- function ReadSpaceAfter();
- function WriteSpaceAfter(_value);
- function ReadWidth();
- function WriteWidth(_value);
+ // 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();
+ function Init();
public
- // methods
- function Add(Width, Spacing, EvenlySpaced);
- function Item(Index);
- function SetCount(NumColumns);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function ToggleVerticalText();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function BreakForwardLink();
- function DeleteText();
- function ValidLinkTarget(TargetTextFrame);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Clear();
- function EditType(Type, Default, Format, Enabled);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
+ // 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);
+ // 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();
+ 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);
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Delete();
- function Select();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function ClearFormats();
- function Delete();
- function Select();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Add(Type, Order, Period, Forward, Backward, Intercept, DisplayEquation, DisplayRSquared, Name);
- function Item(Index);
+ // methods
+ function Add(Type, _Order, Period, Forward, Backward, Intercept, DisplayEquation, DisplayRSquared, Name);
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type TwoInitialCapsException = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Delete();
+ // methods
+ function Delete();
- // properties
- property Index read ReadIndex;
- property Name read ReadName;
- function ReadIndex();
- function ReadName();
+ // properties
+ property Index read ReadIndex;
+ property Name read ReadName;
+ function ReadIndex();
+ function ReadName();
end;
type TwoInitialCapsExceptions = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Add(Name);
- function Item(Index);
+ // methods
+ function Add(Name);
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type UndoRecord = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function EndCustomRecord();
- function StartCustomRecord(Name);
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Delete();
- function Select();
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Delete();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Add(Name, Value);
- function Item(Index);
+ // methods
+ function Add(Name, Value);
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type Version = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Delete();
- function Open();
+ // 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();
+ // 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();
+ 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'();
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function ClearFormats();
- function Paste();
- function Select();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function UseDefaultFolderSuffix();
+ // 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);
+ // 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();
+ 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();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Add(Window);
- function Arrange(ArrangeStyle);
- function BreakSideBySide();
- function CompareSideBySideWith(Document);
- function Item(Index);
- function ResetPositionsSideBySide();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- property First read ReadFirst;
- property Last read ReadLast;
- function ReadCount();
- function ReadFirst();
- function ReadLast();
+ // 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();
+ function Init();
public
- // methods
+ // 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);
+ // 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();
+ 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);
+ // methods
+ function Delete();
+ function SetMapping(XPath, PrefixMapping, Source);
+ function SetMappingByNode(Node);
+ function Add(Path, NamespaceURI, Alias, InstallForAllUsers);
+ function AttachToDocument(Document);
+ 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();
+ // 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();
+ 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);
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Item(Index);
+ // methods
+ function Item(Index);
- // properties
- property Count read ReadCount;
- function ReadCount();
+ // properties
+ property Count read ReadCount;
+ function ReadCount();
end;
type XMLSchemaReference = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Delete();
- function Reload();
+ // methods
+ function Delete();
+ function Reload();
- // properties
- property Location read ReadLocation;
- property NamespaceURI read ReadNamespaceURI;
- function ReadLocation();
- function ReadNamespaceURI();
+ // properties
+ property Location read ReadLocation;
+ property NamespaceURI read ReadNamespaceURI;
+ function ReadLocation();
+ function ReadNamespaceURI();
end;
type XMLSchemaReferences = class(VbaBase)
public
- function Init();
+ function Init();
public
- // methods
- function Add(NamespaceURI, Alias, FileName, InstallForAllUsers);
- function Item(Index);
- function Validate();
+ // 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);
+ // 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();
+ function Init();
public
- // methods
- function Add(Location, Alias, InstallForAllUsers);
- function Delete();
- function Item(Index);
- function Location(AllUsers);
+ // 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();
+ // 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();
+ function Init();
public
- // methods
- function Item(Index);
+ // 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);
+ // 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();
+function Application.Create();overload;
begin
- class(VbaBase).Create(self, self, random(100000000));
+ inherited Create(self, self, random(100000000));
{self.}Init();
end;
@@ -12860,9 +12869,14 @@ begin
end;
// properties
-function Application.ReadDocuments(index: string_or_integer);
+function Application.ReadDocuments(_index: string_or_integer);
begin
- return ifnil(index) ? documents_ : documents_.Item(index);
+ return ifnil(_index) ? documents_ : documents_.Item(_index);
+end;
+
+function Application.ReadActiveDocument();
+begin
+ return documents_.GetActivation();
end;
// ============== Document实现 ================= //
@@ -12872,11 +12886,10 @@ begin
collection_ := collection;
full_name_ := full_name;
file_name_ := extractFileName(full_name);
- document_ := components_.Document;
- document_.Deserialize();
tables_ := nil;
paragraphs_ := nil;
+ inline_shapes_ := nil;
end;
// methods
@@ -12916,7 +12929,7 @@ 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);
+ Lineending: WdLineEndingType = 0; AddBiDiMarks: boolean; CompatibilityMode: WdCompatibilityMode);
begin
components_.SetPassword(Password);
components_.SaveAs("", FileName);
@@ -12948,46 +12961,46 @@ begin
return extractFileDir(full_name_);
end;
-function Document.ReadTables(index: integer);
+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);
+ return ifInt(_index) or ifInt64(_index) ? tables_.Item(_index) : tables_;
end;
-function Document.ReadParagraphs(index: integer);
+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);
+ return ifInt(_index) or ifInt64(_index) ? paragraphs_.Item(_index) : paragraphs_;
end;
function Document.ReadTablesOfContents();
begin
end;
-function Document.ReadInlineShapes();
+function Document.ReadInlineShapes(_index: integer);
begin
- if ifnil(tables_) then
+ if ifnil(inline_shapes_) then
begin
- tables_ := new Tables(self, {self.}Application, {self.}Creator);
- tables_.Init(components_);
+ inline_shapes_ := new InlineShapes(self, {self.}Application, {self.}Creator);
+ inline_shapes_.Init(components_);
end
- return ifInt(index) or ifInt64(index) ? tables_ : tables_.Item(index);
+ return ifInt(_index) or ifInt64(_index) ? inline_shapes_.Item(_index) : inline_shapes_;
end;
+// ============== Documents实现 ================= //
function Documents.Init();
begin
collection_ := new Collection();
end;
-// ============== Documents实现 ================= //
function Documents.AddDocument(components: DocxComponents; full_name: string): Document;
begin
name := extractFileName(full_name);
@@ -13023,7 +13036,7 @@ end;
function Documents.Item(Index: string_or_integer): Document;
begin
- return collection_[index];
+ return collection_[Index];
end;
function Documents.Open(FileName, ConfirmConversions, ReadOnly, AddToRecentFiles, PasswordDocument,
@@ -13033,7 +13046,7 @@ 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());
+ return {self.}AddDocument(components, components.Zip().FileName());
end;
function Documents.Save(NoPrompt, OriginalFormat);
@@ -13057,14 +13070,14 @@ begin
end;
// methods
-function Paragraph.Next(Count: integer);
+function Paragraph.Next(Count: integer = 1);
begin
- return {self.}Parent.Item(index_ + Count)
+ return {self.}Parent.Item(index_ + Count);
end;
-function Paragraph.Previous(Count: integer);
+function Paragraph.Previous(Count: integer = 1);
begin
- return {self.}Parent.Item(index_ - Count);
+ return {self.}Parent.Item(index_ - Count);
end;
// properties
@@ -13074,7 +13087,6 @@ end;
function Paragraph.ReadFormat();
begin
- return self;
end;
function Paragraph.WriteFormat(_value);
@@ -13086,18 +13098,18 @@ function Paragraphs.Init(components: DocxComponents);
begin
components_ := components;
paragraphs_ := array();
- elements := components_.Document.Elements();
- {self.}InitParagraphs(elements);
+ {self.}InitParagraphs(components_.Document.Body, 1);
end;
-function Paragraphs.InitParagraphs(elements: array of OpenXmlElement);
+function Paragraphs.InitParagraphs(obj: OpenXmlCompositeElement; ind: integer);
begin
- for i,element in elements do
+ elements := obj.Elements();
+ for _,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);
+ obj.Init(components_, element, ind++);
paragraphs_[length(paragraphs_)] := obj;
end
else if element.ElementName = "w:tbl" then
@@ -13107,7 +13119,10 @@ begin
begin
tcs := tr.Tcs();
for _,tc in tcs do
- InitPs(tc.Elements());
+ {self.}InitParagraphs(tc, ind);
+ obj := new Paragraph(self, {self.}Application, {self.}Creator);
+ obj.Init(components_, nil, ind++);
+ paragraphs_[length(paragraphs_)] := obj;
end
end
end
@@ -13128,6 +13143,7 @@ begin
return paragraphs_[Index - 1];
end;
+// properties
function Paragraphs.ReadCount();
begin
return length(paragraphs_);
@@ -13143,4 +13159,639 @@ begin
return {self.}Item({self.}Count);
end;
+// ============== Tables实现 ================= //
+function Tables.Init(components: DocxComponents);
+begin
+ components_ := components;
+ tables_ := array();
+ {self.}InitTables(components_.Document.Body, 1);
+end;
+
+function Tables.InitTables(obj: OpenXmlCompositeElement; ind: integer);
+begin
+ tbls := obj.Tbls();
+ for _,tbl in tbls do
+ begin
+ obj := new Table(self, {self.}Application, {self.}Creator);
+ obj.Init(components_, tbl, ind++);
+ tables_[length(tables_)] := obj;
+ end
+end;
+
+function Operator Tables.[](index: integer);
+begin
+ return {self.}Item(index);
+end;
+
+// methods
+function Tables.Add(Range, NumRows, NumColumns, DefaultTableBehavior, AutoFitBehavior);
+begin
+end;
+
+function Tables.Item(Index: integer);
+begin
+ return tables_[Index - 1];
+end;
+
+// properties
+function Tables.ReadCount();
+begin
+ return length(tables_);
+end;
+
+// ============== ParagraphFormat实现 ================= //
+function ParagraphFormat.Init(ppr: PPr);
+begin
+ ppr_ := ppr;
+ shading_ := nil;
+end;
+
+// methods
+function ParagraphFormat.CloseUp();
+begin
+ {self.}SpaceBefore := 0;
+end;
+
+function ParagraphFormat.IndentCharWidth(Count: integer);
+begin
+ ppr_.Ind.Left := Count * 210;
+end;
+
+function ParagraphFormat.IndentFirstLineCharWidth(Count: integer);
+begin
+ ppr_.Ind.FirstLine := Count;
+end;
+
+function ParagraphFormat.OpenOrCloseUp();
+begin
+ {self.}SpaceBefore := {self.}SpaceBefore > 0 ? 0 : 12;
+end;
+
+function ParagraphFormat.OpenUp();
+begin
+ {self.}SpaceBefore := 12;
+end;
+
+// TODO
+function ParagraphFormat.Reset();
+begin
+end;
+
+function ParagraphFormat.Space1();
+begin
+ {self.}LineSpacing := 12;
+end;
+
+function ParagraphFormat.Space15();
+begin
+ {self.}LineSpacing := 18;
+end;
+
+function ParagraphFormat.Space2();
+begin
+ {self.}LineSpacing := 24;
+end;
+
+function ParagraphFormat.TabHangingIndent(Count: integer);
+begin
+ ppr_.Ind.Left := 420 * Count;
+end;
+
+function ParagraphFormat.TabIndent(Count: integer);
+begin
+ ppr_.Ind.Left := 420 * Count;
+ ppr_.Ind.Haning := 420 * Count;
+end;
+
+// properties
+function ParagraphFormat.ReadAddSpaceBetweenFarEastAndAlpha();
+begin
+ return ifnil(ppr_.AutoSpaceDE) ? true : ppr_.AutoSpaceDE.Val = "1" ? true : false;
+end;
+function ParagraphFormat.WriteAddSpaceBetweenFarEastAndAlpha(_value);
+begin
+ ppr_.AutoSpaceDE.Val := _value;
+end;
+
+function ParagraphFormat.ReadAddSpaceBetweenFarEastAndDigit();
+begin
+ return ifnil(ppr_.AutoSpaceDN) ? true : ppr_.AutoSpaceDN.Val = "1" ? true : false;
+end;
+function ParagraphFormat.WriteAddSpaceBetweenFarEastAndDigit(_value);
+begin
+ ppr_.AutoSpaceDN.Val := _value;
+end;
+
+function ParagraphFormat.ReadAlignment();
+begin
+ case ppr_.Jc.Val of
+ "center":
+ return DocxEnumerations.wdAlignParagraphCenter();
+ "distribute":
+ return DocxEnumerations.wdAlignParagraphDistribute();
+ "both", nil:
+ return DocxEnumerations.wdAlignParagraphJustify();
+ "highKashida":
+ return DocxEnumerations.wdAlignParagraphJustifyHi();
+ "lowKashida":
+ return DocxEnumerations.wdAlignParagraphJustifyLow();
+ "mediumKashida":
+ return DocxEnumerations.wdAlignParagraphJustifyMed();
+ "left":
+ return DocxEnumerations.wdAlignParagraphLeft();
+ "right":
+ return DocxEnumerations.wdAlignParagraphRight();
+ "thaiDistribute":
+ return DocxEnumerations.wdAlignParagraphThaiJustify();
+ end;
+end;
+function ParagraphFormat.WriteAlignment(_value);
+begin
+ case _value of
+ DocxEnumerations.wdAlignParagraphCenter():
+ ppr_.Jc.Val := "center";
+ DocxEnumerations.wdAlignParagraphDistribute():
+ ppr_.Jc.Val := "distribute";
+ DocxEnumerations.wdAlignParagraphJustify():
+ ppr_.Jc.Val := "both";
+ DocxEnumerations.wdAlignParagraphJustifyHi():
+ ppr_.Jc.Val := "highKashida";
+ DocxEnumerations.wdAlignParagraphJustifyLow():
+ ppr_.Jc.Val := "lowKashida";
+ DocxEnumerations.wdAlignParagraphJustifyMed():
+ ppr_.Jc.Val := "mediumKashida";
+ DocxEnumerations.wdAlignParagraphLeft():
+ ppr_.Jc.Val := "left";
+ DocxEnumerations.wdAlignParagraphRight():
+ ppr_.Jc.Val := "right";
+ DocxEnumerations.wdAlignParagraphThaiJustify():
+ ppr_.Jc.Val := "thaiDistribute";
+ end;
+end;
+
+function ParagraphFormat.ReadAutoAdjustRightIndent();
+begin
+ return ifnil(ppr_.AdjustRightInd) ? true : ppr_.AdjustRightInd = "0" ? false : true;
+end;
+function ParagraphFormat.WriteAutoAdjustRightIndent(_value);
+begin
+ ppr_.AdjustRightInd.Val := _value;
+end;
+
+function ParagraphFormat.ReadBaseLineAlignment();
+begin
+ case ppr_.TextAlignment.Val of
+ "auto", nil:
+ return DocxEnumerations.wdBaselineAlignAuto();
+ "baseline":
+ return DocxEnumerations.wdBaselineAlignBaseline();
+ "center":
+ return DocxEnumerations.wdBaselineAlignCenter();
+ "bottom":
+ return DocxEnumerations.wdBaselineAlignFarEast50();
+ "top":
+ return DocxEnumerations.wdBaselineAlignTop();
+ end;
+end;
+function ParagraphFormat.WriteBaseLineAlignment(_value);
+begin
+ case value of
+ DocxEnumerations.wdBaselineAlignAuto():
+ ppr_.TextAlignment.Val := "auto";
+ DocxEnumerations.wdBaselineAlignBaseline():
+ ppr_.TextAlignment.Val := "baseline";
+ DocxEnumerations.wdBaselineAlignCenter():
+ ppr_.TextAlignment.Val := "center";
+ DocxEnumerations.wdBaselineAlignFarEast50():
+ ppr_.TextAlignment.Val := "bottom";
+ DocxEnumerations.wdBaselineAlignTop():
+ ppr_.TextAlignment.Val := "top";
+ end;
+end;
+
+function ParagraphFormat.ReadBorders();
+begin
+ if ifnil(borders_) then
+ begin
+ borders_ := new Borders({self.}Application, {self.}Creator, self);
+ borders_.Init(ppr_);
+ end
+ return borders_;
+end;
+
+function ParagraphFormat.ReadCharacterUnitFirstLineIndent();
+begin
+ if ppr_.Ind.FirstLineChars then
+ return TSSafeUnitConverter.PercentToNumber(ppr_.Ind.FirstLineChars);
+ return -TSSafeUnitConverter.PercentToNumber(ppr_.Ind.HangingChars);
+end;
+function ParagraphFormat.WriteCharacterUnitFirstLineIndent(_value);
+begin
+ if _value > 0 then
+ ppr_.Ind.FirstLineChars := TSSafeUnitConverter.NumberToPercent(_value);
+ else
+ ppr_.Ind.HangingChars := TSSafeUnitConverter.NumberToPercent(abs(_value));
+end;
+
+function ParagraphFormat.ReadCharacterUnitLeftIndent();
+begin
+ return TSSafeUnitConverter.PercentToNumber(ppr_.Ind.LeftChars);
+end;
+function ParagraphFormat.WriteCharacterUnitLeftIndent(_value);
+begin
+ ppr_.Ind.LeftChars := TSSafeUnitConverter.NumberToPercent(_value);
+end;
+
+function ParagraphFormat.ReadCharacterUnitRightIndent();
+begin
+ return TSSafeUnitConverter.PercentToNumber(ppr_.Ind.RightChars);
+end;
+function ParagraphFormat.WriteCharacterUnitRightIndent(_value);
+begin
+ ppr_.Ind.RightChars := TSSafeUnitConverter.NumberToPercent(_value);
+end;
+
+function ParagraphFormat.ReadCollapsedByDefault();
+begin
+ return ifnil(ppr_.Collapsed) ? false : ppr_.Collapsed.Val = "1" : true : false;
+end;
+function ParagraphFormat.WriteCollapsedByDefault(_value);
+begin
+ ppr_.Collapsed.Val := _value;
+end;
+
+function ParagraphFormat.ReadDisableLineHeightGrid();
+begin
+ return ifnil(ppr_.SnapToGrid) ? true : not ppr_.SnapToGrid.IsApplied;
+end;
+function ParagraphFormat.WriteDisableLineHeightGrid(_value);
+begin
+ if _value then
+ ppr_.SnapToGrid := nil;
+ else
+ ppr_.SnapToGrid.Enable := true;
+end;
+
+function ParagraphFormat.ReadDuplicate();
+begin
+ return self;
+end;
+
+function ParagraphFormat.ReadFarEastLineBreakControl();
+begin
+ return ifnil(ppr_.Kinsoku.Val) or ppr_.Kinsoku.Val = "1" ? true : false;
+end;
+function ParagraphFormat.WriteFarEastLineBreakControl(_value);
+begin
+ ppr_.Kinsoku.Val := _value;
+end;
+
+function ParagraphFormat.ReadFirstLineIndent();
+begin
+ return TSSafeUnitConverter.TwipsToPoints(ppr_.Ind.FirstLine);
+end;
+function ParagraphFormat.WriteFirstLineIndent(_value);
+begin
+ ppr_.Ind.FirstLine := TSSafeUnitConverter.PointsToTwips(_value);
+end;
+
+function ParagraphFormat.ReadHalfWidthPunctuationOnTopOfLine();
+begin
+ return ppr_.TopLinePunct.Val ? true : false;
+end;
+function ParagraphFormat.WriteHalfWidthPunctuationOnTopOfLine(_value);
+begin
+ ppr_.TopLinePunct.Val := _value;
+end;
+
+function ParagraphFormat.ReadHangingPunctuation();
+begin
+ return ppr_.OverflowPunct.Val ? true : false;
+end;
+function ParagraphFormat.WriteHangingPunctuation(_value);
+begin
+ ppr_.OverflowPunct.Val := _value;
+end;
+
+function ParagraphFormat.ReadHyphenation();
+begin
+ return ifnil(ppr_.SuppressAutoHyphens) ? false : ppr_.SuppressAutoHyphens.IsApplied;
+end;
+function ParagraphFormat.WriteHyphenation(_value);
+begin
+ if _value then
+ ppr_.SuppressAutoHyphens.Enable := true;
+ else
+ ppr_.SuppressAutoHyphens := nil;
+end;
+
+function ParagraphFormat.ReadKeepTogether();
+begin
+ return ifnil(ppr_.KeepLines) ? false : ppr_.KeepLines.IsApplied;
+end;
+function ParagraphFormat.WriteKeepTogether(_value);
+begin
+ if _value then
+ ppr_.KeepLines.Enable := true;
+ else
+ ppr_.KeepLines := nil;
+end;
+
+function ParagraphFormat.ReadKeepWithNext();
+begin
+ return ifnil(ppr_.KeepWithNext) ? false : ppr_.KeepWithNext.IsApplied;
+end;
+function ParagraphFormat.WriteKeepWithNext(_value);
+begin
+ if _value then
+ ppr_.KeepWithNext.Enable := true;
+ else
+ ppr_.KeepWithNext := nil;
+end;
+
+function ParagraphFormat.ReadLeftIndent();
+begin
+ return TSSafeUnitConverter.TwipsToPoints(ppr_.Ind.Left);
+end;
+function ParagraphFormat.WriteLeftIndent(_value);
+begin
+ ppr_.Ind.Left := TSSafeUnitConverter.PointsToTwips(_value);
+end;
+
+function ParagraphFormat.ReadLineSpacing();
+begin
+ return TSSafeUnitConverter.TwipsToPoints(ppr_.Spacing.Line);
+end;
+function ParagraphFormat.WriteLineSpacing(_value);
+begin
+ ppr_.Spacing.Line := TSSafeUnitConverter.PointsToTwips(_value);
+end;
+
+function ParagraphFormat.ReadLineSpacingRule();
+begin
+ case ppr_.Spacing.LineRule of
+ "atLeast":
+ return TSDocxEnumerations.wdLineSpaceAtLeast();
+ "exact":
+ return TSDocxEnumerations.wdLineSpaceExactly();
+ "auto":
+ return TSDocxEnumerations.wdLineSpaceMultiple();
+ end;
+end;
+function ParagraphFormat.WriteLineSpacingRule(_value);
+begin
+ case _value of
+ DocxEnumerations.wdLineSpace1pt5():
+ ppr_.Spacing.LineRule := "auto";
+ DocxEnumerations.wdLineSpaceAtLeast():
+ ppr_.Spacing.LineRule := "atLeast";
+ DocxEnumerations.wdLineSpaceDouble():
+ ppr_.Spacing.LineRule := "auto";
+ DocxEnumerations.wdLineSpaceExactly():
+ ppr_.Spacing.LineRule := "exact";
+ DocxEnumerations.wdLineSpaceMultiple():
+ ppr_.Spacing.LineRule := "auto";
+ DocxEnumerations.wdLineSpaceSingle():
+ ppr_.Spacing.LineRule := "auto";
+ end;
+end;
+
+function ParagraphFormat.ReadLineUnitAfter();
+begin
+ return strtoIntDef(ppr_.Spacing.AfterLines, 0) / 100;
+end;
+function ParagraphFormat.WriteLineUnitAfter(_value);
+begin
+ ppr_.Spacing.AfterLines := value * 100;
+end;
+
+function ParagraphFormat.ReadLineUnitBefore();
+begin
+ return strtoIntDef(ppr_.Spacing.BeforeLines, 0) / 100;
+end;
+function ParagraphFormat.WriteLineUnitBefore(_value);
+begin
+ ppr_.Spacing.BeforeLines := value * 100;
+end;
+
+function ParagraphFormat.ReadMirrorIndents();
+begin
+ return ifnil(ppr_.MirrorIndents) ? false : ppr_.MirrorIndents.IsApplied;
+end;
+function ParagraphFormat.WriteMirrorIndents(_value);
+begin
+ if _value then
+ ppr_.MirrorIndents.Enable := true;
+ else
+ ppr_.MirrorIndents := nil;
+end;
+
+function ParagraphFormat.ReadNoLineNumber();
+begin
+ return ifnil(ppr_.SuppressLineNumbers) ? false : ppr_.SuppressLineNumbers.IsApplied;
+end;
+function ParagraphFormat.WriteNoLineNumber(_value);
+begin
+ if _value then
+ ppr_.SuppressLineNumbers.Enable := true;
+ else
+ ppr_.SuppressLineNumbers := nil;
+end;
+
+function ParagraphFormat.ReadOutlineLevel();
+begin
+ case ppr_.OutlineLvl.Val of
+ "0": return DocxEnumerations.wdOutlineLevel1();
+ "1": return DocxEnumerations.wdOutlineLevel2();
+ "2": return DocxEnumerations.wdOutlineLevel3();
+ "3": return DocxEnumerations.wdOutlineLevel4();
+ "4": return DocxEnumerations.wdOutlineLevel5();
+ "5": return DocxEnumerations.wdOutlineLevel6();
+ "6": return DocxEnumerations.wdOutlineLevel7();
+ "7": return DocxEnumerations.wdOutlineLevel8();
+ "8": return DocxEnumerations.wdOutlineLevel9();
+ nil: return DocxEnumerations.wdOutlineLevelBodyText();
+ end;
+end;
+function ParagraphFormat.WriteOutlineLevel(_value);
+begin
+ case _value of
+ DocxEnumerations.wdOutlineLevel1():
+ ppr_.OutlineLvl.Val := 0;
+ DocxEnumerations.wdOutlineLvl2():
+ ppr_.OutlineLvl.Val := 1;
+ DocxEnumerations.wdOutlineLvl3():
+ ppr_.OutlineLvl.Val := 2;
+ DocxEnumerations.wdOutlineLvl4():
+ ppr_.OutlineLvl.Val := 3;
+ DocxEnumerations.wdOutlineLvl5():
+ ppr_.OutlineLvl.Val := 4;
+ DocxEnumerations.wdOutlineLvl6():
+ ppr_.OutlineLvl.Val := 5;
+ DocxEnumerations.wdOutlineLvl7():
+ ppr_.OutlineLvl.Val := 6;
+ DocxEnumerations.wdOutlineLvl8():
+ ppr_.OutlineLvl.Val := 7;
+ DocxEnumerations.wdOutlineLvl9():
+ ppr_.OutlineLvl.Val := 8;
+ DocxEnumerations.wdOutlineLvlBodyText():
+ ppr_.OutlineLvl := nil;
+ end;
+end;
+
+function ParagraphFormat.ReadPageBreakBefore();
+begin
+ return ifnil(ppr_.PageBreakBefore) ? false : ppr_.PageBreakBefore.IsApplied;
+end;
+function ParagraphFormat.WritePageBreakBefore(_value);
+begin
+ if _value then
+ ppr_.PageBreakBefore.Enable := true;
+ else
+ ppr_.PageBreakBefore := nil;
+end;
+
+function ParagraphFormat.ReadReadingOrder();
+begin
+ value := ifnil(ppr_.Bidi) ? false : ppr_.Bidi.IsApplied;
+ case value of
+ false: return TSDocxEnumerations.wdReadingOrderLtr();
+ true: return TSDocxEnumerations.wdReadingOrderRtl();
+ end;
+end;
+function ParagraphFormat.WriteReadingOrder(_value);
+begin
+ case _value of
+ DocxEnumerations.wdReadingOrderLtr():
+ ppr_.Bidi := nil;
+ DocxEnumerations.wdReadingOrderRtl():
+ ppr_.Bidi.Enable := true;
+ end;
+end;
+
+function ParagraphFormat.ReadRightIndent();
+begin
+ return TSSafeUnitConverter.TwipsToPoints(ppr_.Ind.Right);
+end;
+function ParagraphFormat.WriteRightIndent(_value);
+begin
+ ppr_.Ind.Right := TSSafeUnitConverter.PointsToTwips(_value);
+end;
+
+function ParagraphFormat.ReadShading();
+begin
+ if ifnil(shading_) then
+ begin
+ shading_ := new Shading({self.}Application, {self.}Creator, self);
+ shading_.Init(ppr_.Shading);
+ end
+ return shading_;
+end;
+
+function ParagraphFormat.ReadSpaceAfter();
+begin
+ return TSSafeUnitConverter.TwipsToPoints(ppr_.Spacing.After);
+end;
+function ParagraphFormat.WriteSpaceAfter(_value);
+begin
+ ppr_.Spacing.After := TSSafeUnitConverter.PointsToTwips(_value);
+end;
+
+function ParagraphFormat.ReadSpaceAfterAuto();
+begin
+ return ifnil(ppr_.Spacing.AfterAutospacing) ? false : ppr_.Spacing.AfterAutospacing = "1" ? true : false;
+end;
+function ParagraphFormat.WriteSpaceAfterAuto(_value);
+begin
+ ppr_.Spacing.AfterAutospacing := _value;
+end;
+
+function ParagraphFormat.ReadSpaceBefore();
+begin
+ return TSSafeUnitConverter.TwipsToPoints(ppr_.Spacing.Before);
+end;
+function ParagraphFormat.WriteSpaceBefore(_value);
+begin
+ ppr_.Spacing.Before := TSSafeUnitConverter.PointsToTwips(_value);
+end;
+
+function ParagraphFormat.ReadSpaceBeforeAuto();
+begin
+ return ifnil(ppr_.Spacing.BeforeAutospacing) ? false : ppr_.Spacing.BeforeAutospacing = "1" ? true : false;
+end;
+function ParagraphFormat.WriteSpaceBeforeAuto(_value);
+begin
+ ppr_.Spacing.BeforeAutospacing := _value;
+end;
+
+function ParagraphFormat.ReadStyle();
+begin
+ return ppr_.PStyle.Val;
+end;
+function ParagraphFormat.WriteStyle(_value);
+begin
+ ppr_.PStyle.Val := _value;
+end;
+
+// TODO
+function ParagraphFormat.ReadTabStops();
+begin
+end;
+function ParagraphFormat.WriteTabStops(_value);
+begin
+end;
+
+function ParagraphFormat.ReadTextboxTightWrap();
+begin
+ value := ppr_.TextboxTightWrap.Val;
+ case value of
+ "allLines":
+ return DocxEnumerations.wdTightAll();
+ "firstAndLastLine":
+ return DocxEnumerations.wdTightFirstAndLastLines();
+ "firstLineOnly":
+ return DocxEnumerations.wdTightFirstLineOnly();
+ "LastLineOnly":
+ return DocxEnumerations.wdTightLastLineOnly();
+ "none", nil:
+ return DocxEnumerations.wdTightNone();
+ end;
+end;
+function ParagraphFormat.WriteTextboxTightWrap(_value);
+begin
+ case _value of
+ DocxEnumerations.wdTightAll():
+ ppr_.TextboxTightWrap.Val := "allLines";
+ DocxEnumerations.wdTightFirstAndLastLines():
+ ppr_.TextboxTightWrap.Val := "firstAndLastLine";
+ DocxEnumerations.wdTightFirstLineOnly():
+ ppr_.TextboxTightWrap.Val := "firstLineOnly";
+ DocxEnumerations.wdTightLastLineOnly():
+ ppr_.TextboxTightWrap.Val := "LastLineOnly";
+ DocxEnumerations.wdTightNone():
+ ppr_.TextboxTightWrap.Val := "none";
+ end;
+end;
+
+function ParagraphFormat.ReadWidowControl();
+begin
+ return ifnil(ppr_.WindowControl) ? false : ppr_.WidowControl.IsApplied;
+end;
+function ParagraphFormat.WriteWidowControl(_value);
+begin
+ if _value then
+ ppr_.WidowControl.Enable := true;
+ else
+ ppr_.WidowControl := nil;
+end;
+
+function ParagraphFormat.ReadWordWrap();
+begin
+ return ifnil(ppr_.WordWrap) or ppr_.WordWrap = "1" ? true : false;
+end;
+function ParagraphFormat.WriteWordWrap(_value);
+begin
+ ppr_.WordWrap.Val := _value;
+end;
+
end.
diff --git a/openxml/OpenXmlCompositeElement.tsf b/openxml/OpenXmlCompositeElement.tsf
index d543708..017cfce 100644
--- a/openxml/OpenXmlCompositeElement.tsf
+++ b/openxml/OpenXmlCompositeElement.tsf
@@ -9,11 +9,9 @@ public
function AppendChild(_element: OpenXmlElement);
function InsertAfter(_element: OpenXmlElement; _pos_element: OpenXmlElement);
function RemoveChild(_element: OpenXmlElement);
- function RemoveAttribute(_attr: OpenXmlAttribute);
// function InsertBefore(_pos_obj: tslobj; _obj: tslobj);
// function PrependChild(_obj: tslobj);
// function SetAttribute(_obj: OpenXmlAttribute);
- // function RemoveAttribute();
public
function GetOrCreateNode(_obj: tslobj);
@@ -65,15 +63,16 @@ end;
function OpenXmlCompositeElement.Serialize();override;
begin
if {self.}DeleteSelf() then return;
+ {self.}GetNode();
// xmlns
for k, v in xmlns_ do
- {self.}GetNode().SetAttribute(v.ElementName, v.Value);
+ {self.}XmlNode.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);
+ {self.}XmlNode.SetAttribute(v.ElementName, v.Value);
else if {self.}XmlNode then
{self.}XmlNode.DeleteAttribute(v.ElementName);
@@ -152,8 +151,3 @@ begin
_element.Removed := true;
end;
-function OpenXmlCompositeElement.RemoveAttribute(_attr: OpenXmlAttribute);
-begin
- _attr.Value := nil;
-end;
-
diff --git a/openxml/OpenXmlElement.tsf b/openxml/OpenXmlElement.tsf
index 5437525..3b87a21 100644
--- a/openxml/OpenXmlElement.tsf
+++ b/openxml/OpenXmlElement.tsf
@@ -9,11 +9,16 @@ public
function Serialize();virtual;
function Marshal(): tableArray;virtual;
+ function SetFallback(_fallback: OpenXmlElement);
+ function RemoveAttribute(_attr: OpenXmlAttribute);
function Attribute(_attr: string; _ns: string): OpenXmlAttribute;
function Attributes(): array of OpenXmlAttribute;
function Elements(): array of tslobj;
function Xmlns(_prefix: string): string;
+ // 单位转换
+ function ConvertToPoint();virtual;
+
protected
function GetNode(): XmlNode;
function DeleteSelf(): boolean;
@@ -32,6 +37,7 @@ protected
xmlns_: tableArray;
sorted_child_: tableArray;
container_: TSOfficeContainer;
+ fallback_: OpenXmlElement; // 代理对象
end;
function OpenXmlElement.Create(_node: XmlNode);overload;
@@ -53,12 +59,18 @@ begin
{self.}Removed := false;
{self.}Init();
xmlns_ := array();
+ fallback_ := nil;
+end;
+
+function OpenXmlElement.SetFallback(_fallback: OpenXmlElement);
+begin
+ fallback_ := _fallback;
end;
function OpenXmlElement.Attribute(_attr: string; _ns: string): OpenXmlAttribute;
begin
if ifnil(_ns) then
- attr_name := ifString({self.}Prefix) and {self.}Prefix <> "" ? format("%s:%%s", {self.}Prefix, _attr) : _attr;
+ attr_name := ifString({self.}Prefix) and {self.}Prefix <> "" ? format("%s:%s", {self.}Prefix, _attr) : _attr;
else
attr_name := format("%s:%s", _ns, _attr);
return attributes_[attr_name];
@@ -67,8 +79,9 @@ end;
function OpenXmlElement.Attributes(): array of OpenXmlAttribute;
begin
attrs := array();
- for k, v in attributes_ do
- attrs[length(attrs)] := v;
+ for k,v in attributes_ do
+ if not ifnil(v.Value) then
+ attrs[length(attrs)] := v;
return attrs;
end;
@@ -105,3 +118,7 @@ begin
return false;
end;
+function OpenXmlElement.RemoveAttribute(_attr: OpenXmlAttribute);
+begin
+ _attr.Value := nil;
+end;
diff --git a/openxml/OpenXmlSimpleType.tsf b/openxml/OpenXmlSimpleType.tsf
index f881d25..0d8f130 100644
--- a/openxml/OpenXmlSimpleType.tsf
+++ b/openxml/OpenXmlSimpleType.tsf
@@ -73,13 +73,16 @@ function OpenXmlSimpleType.Serialize();override;
begin
if not ifObj({self.}XmlNode) then
begin
- if not ifnil({self.}XmlAttrVal.Value) then {self.}GetNode().SetAttribute({self.}XmlAttrVal.ElementName, {self.}XmlAttrVal.Value);
+ {self.}GetNode();
+ if not ifnil({self.}XmlAttrVal.Value) then {self.}XmlNode.SetAttribute({self.}XmlAttrVal.ElementName, {self.}XmlAttrVal.Value);
end
else begin
if not {self.}Enable or {self.}Removed then
{self.}Parent.XmlNode.DeleteChild({self.}XmlNode);
else if not ifnil({self.}XmlAttrVal.Value) then
{self.}XmlNode.SetAttribute({self.}XmlAttrVal.ElementName, {self.}XmlAttrVal.Value);
+ else if ifnil({self.}XmlAttrVal.Value) then
+ {self.}XmlNode.DeleteAttribute({self.}XmlAttrVal.ElementName);
end
end;
diff --git a/pptx/PptxComponents.tsf b/pptx/PptxComponents.tsf
index 4868b88..38d8bde 100644
--- a/pptx/PptxComponents.tsf
+++ b/pptx/PptxComponents.tsf
@@ -62,7 +62,7 @@ end;
function PptxComponents.Create();
begin
- Class(TSComponentsBase).Create();
+ inherited;
end;
function PptxComponents.Init();override;
diff --git a/utils/TSComponentsBase.tsf b/utils/TSComponentsBase.tsf
index 5ab4c18..2f81d13 100644
--- a/utils/TSComponentsBase.tsf
+++ b/utils/TSComponentsBase.tsf
@@ -3,12 +3,14 @@ public
function Create();
function Init();virtual;
function InitZip(zip: ZipFile);
+ function NewFile(): tableArray;
function Open(alias: string; file: string; password: string): tableArray;
function Save(): array of info; // array(err, errmsg)
function SaveAs(alias: string; file: string): array of info;
function Zip(): ZipFile;
protected
+ function DefaultBinaryData(): binary;virtual;
function GetProp(_variable: tslobj; _name: string): tslobj;
function GetPropArr(_variable: tslobj; _name: string; _index: integer): tslobj;
function NewObject(_name: string): tslobj;virtual;
@@ -16,22 +18,26 @@ protected
protected
zipfile_: ZipFile;
conf_: tableArray;
-
end;
function TSComponentsBase.Create();
begin
+ {self.}Init();
end;
function TSComponentsBase.InitZip(zip: ZipFile);
begin
- {self.}Init();
zipfile_ := zip;
end;
+function TSComponentsBase.NewFile(): tableArray;
+begin
+ zipfile_ := new ZipFile();
+ return zipfile_.LoadFromMem({self.}DefaultBinaryData());
+end;
+
function TSComponentsBase.Open(alias: string; file: string; password: string): tableArray;
begin
- {self.}Init();
zipfile_ := new ZipFile();
return zipfile_.Open(alias, file, password);
end;
diff --git a/utils/TSOfficeContainer.tsf b/utils/TSOfficeContainer.tsf
index a11878b..e3b63c8 100644
--- a/utils/TSOfficeContainer.tsf
+++ b/utils/TSOfficeContainer.tsf
@@ -1,7 +1,8 @@
type TSOfficeContainer = class
public
function Create(arr: array of string);
- function Set(data: any): boolean; // 设置data数据
+ function Set(data: any): boolean;overload; // 设置data数据
+ function Set(name: string; index: integer; data: any): boolean;overload;
function Add(data: any): boolean;
function Append(data: any): boolean;
function Insert(data: any): boolean;
@@ -16,7 +17,8 @@ private
bucket_: array of LinkList;
child_: array of string;
current_index_: integer;
- last_index_: integer;
+ min_index_; integer;
+ max_index_: integer;
end;
type LinkList = class
@@ -47,22 +49,88 @@ function TSOfficeContainer.Create(arr: array of string);
begin
bucket_ := array();
child_ := array();
+ min_index_ := 0;
+ max_index_ := 0;
for str,v in arr do
begin
child_[str] := v[0];
- last_index_ := v[0];
+ if v[0] > max_index_ then max_index_ := v[0];
+ if v[0] < min_index_ then min_index_ := v[0];
end
- current_index_ := -1;
+ current_index_ := -INF;
end;
-function TSOfficeContainer.Set(data: any): boolean;
+function TSOfficeContainer.Set(data: any): boolean;overload;
begin
obj := {self.}GetBucketObj(data.ElementName);
if ifnil(obj) then return false;
- obj.Add(data);
+ obj.Set(data);
return true;
end;
+function TSOfficeContainer.Set(name: string; index: integer; data: any): boolean;overload;
+begin
+ ind := child_[name];
+ obj := bucket_[ind];
+ if ifObj(obj) and obj.Name() = name then
+ begin
+ node := obj.First();
+ while ifObj(node) do
+ begin
+ if node.data.Removed then
+ begin
+ node := node.next;
+ continue;
+ end
+ index--;
+ if index = -1 then
+ begin
+ new_node := new Node();
+ new_node.data := data;
+ new_node.next := node.next;
+ node.data.Removed := true;
+ node.next := new_node;
+ if tail_ = node then
+ tail_ := new_node;
+ return true;
+ end
+ node := node.next;
+ end
+ end
+ i := max_index_ + 1;
+ for i:=max_index_+1 to current_index_ do
+ begin
+ if i = ind then continue;
+ obj := bucket_[i];
+ if ifObj(obj) and obj.Name() = name then
+ begin
+ node := obj.First();
+ while ifObj(node) do
+ begin
+ if node.data.Remove then
+ begin
+ node := node.next;
+ continue;
+ end
+ index--;
+ if index = -1 then
+ begin
+ new_node := new Node();
+ new_node.data := data;
+ new_node.next := node.next;
+ node.data.Removed := true;
+ node.next := new_node;
+ if tail_ = node then
+ tail_ := new_node;
+ return true;
+ end
+ node := node.next;
+ end
+ end
+ end
+ return false;
+end;
+
function TSOfficeContainer.Add(data: any): boolean;
begin
obj := {self.}GetBucketObj(data.ElementName);
@@ -80,7 +148,7 @@ begin
if ifObj(obj) and obj.Name() = data.ElementName then obj.Add(data);
else begin
obj := new LinkList(data.ElementName);
- current_index_ := current_index_ > last_index_ ? current_index_ + 1 : last_index_ + 1;
+ current_index_ := current_index_ > max_index_ ? current_index_ + 1 : max_index_ + 1;
bucket_[current_index_] := obj;
obj.Add(data);
end
@@ -102,7 +170,7 @@ end;
function TSOfficeContainer.Insert(data: any): boolean;
begin
- i := last_index_ + 1;
+ i := max_index_ + 1;
while i <= current_index_ do
begin
obj := bucket_[i];
@@ -129,7 +197,7 @@ end;
function TSOfficeContainer.GetElements(include_removed: boolean = true): array of tslobj;
begin
arr := array();
- for i:=0 to current_index_ do
+ for i:=min_index_ to current_index_ do
begin
obj := bucket_[i];
if ifObj(obj) then
@@ -151,33 +219,43 @@ begin
ind := child_[name];
arr := array();
obj := bucket_[ind];
- if ifObj(obj) then
+ if ifObj(obj) and obj.Name() = name then
begin
node := obj.First();
while ifObj(node) do
begin
+ if node.data.Removed then
+ begin
+ node := node.next;
+ continue;
+ end
arr[length(arr)] := node.data;
index--;
if index = -1 then return node.data;
node := node.next;
end
end
- i := last_index_ + 1;
- while i <= current_index_ do
+ i := max_index_ + 1;
+ for i:=max_index_+1 to current_index_ do
begin
+ if i = ind then continue;
obj := bucket_[i];
if ifObj(obj) and obj.Name() = name then
begin
node := obj.First();
while ifObj(node) do
begin
+ if node.data.Removed then
+ begin
+ node := node.next;
+ continue;
+ end
arr[length(arr)] := node.data;
index--;
if index = -1 then return node.data;
node := node.next;
end
end
- i++;
end
return arr;
end;
@@ -208,8 +286,18 @@ function LinkList.Set(data: any)
begin
node := new Node();
node.data := data;
- head_.next := node;
- tail_ := node;
+ if tail_ <> head_ then
+ begin
+ tail_.data.Removed := true;
+ tail_.next := node;
+ tail_ := node;
+ size_++;
+ end
+ else begin
+ head_.next := node;
+ tail_ := node;
+ size_ := 1;
+ end
end;
function LinkList.Add(data: any)
diff --git a/utils/TSSafeUnitConverter.tsf b/utils/TSSafeUnitConverter.tsf
index 2fea145..9e49df3 100644
--- a/utils/TSSafeUnitConverter.tsf
+++ b/utils/TSSafeUnitConverter.tsf
@@ -1,16 +1,24 @@
unit TSSafeUnitConverter;
interface
+ function PointsToTwips(value): real;
function TwipsToPoints(value): real;
function EmusToPoints(value): real;
function HalfPointToPoints(value): real;
function PercentToNumber(value): real;
+ function NumberToPercent(value): real;
function ToInt(value): integer;
function EighthPointToPoints(value): real;
implementation
-
uses TSUnitConverter;
+ function PointsToTwips(value): real;
+ begin
+ if ifNil(value) then return 0;
+ new_value := ifString(value) ? strToFloat(value) : value;
+ return TSUnitConverter.PointsToTwips(new_value);
+ end;
+
function TwipsToPoints(value): real;
begin
if ifNil(value) then return 0;
@@ -39,10 +47,17 @@ uses TSUnitConverter;
return TSUnitConverter.PercentToNumber(new_value);
end;
+ function NumberToPercent(value): real;
+ begin
+ if ifNil(value) then return 0;
+ new_value := ifString(value) ? strToFloat(value) : value;
+ return TSUnitConverter.NumberToPercent(new_value);
+ end;
+
function ToInt(value): integer;
begin
if ifNil(value) then return 0;
- return tryStrtoInt(value, r) ? r : 0;
+ return strtoIntDef(value, 0);
end;
function EighthPointToPoints(value): real;
diff --git a/utils/TSUnitConverter.tsf b/utils/TSUnitConverter.tsf
index 32d350d..c948ec1 100644
--- a/utils/TSUnitConverter.tsf
+++ b/utils/TSUnitConverter.tsf
@@ -1,13 +1,20 @@
unit TSUnitConverter;
interface
+ function PointsToTwips(value): real;
function TwipsToPoints(value: real): real;
function EmusToPoints(value: real): real;
function HalfPointToPoints(value: real): real;
function EighthPointToPoints(value: real): real;
function PercentToNumber(value: real): real;
+ function NumberToPercent(value: real): real;
implementation
+ function PointsToTwips(value): real;
+ begin
+ return value * 20;
+ end;
+
function TwipsToPoints(value: real): real;
begin
return value / 20;
@@ -28,6 +35,11 @@ implementation
return value / 100;
end;
+ function NumberToPercent(value: real): real;
+ begin
+ return value * 100;
+ end;
+
function EighthPointToPoints(value: real): real;
begin
return value / 8;
diff --git a/utils/vba/VbaBase.tsf b/utils/vba/VbaBase.tsf
index f6ea409..98096ee 100644
--- a/utils/vba/VbaBase.tsf
+++ b/utils/vba/VbaBase.tsf
@@ -1,6 +1,6 @@
type VBABase = class
public
- function Create(Par: tslobj; App: Application; Cre: integer);
+ function Create(_parent: tslobj; _application: Application; _creator: integer);
public
property Application read ReadApplication;
@@ -9,19 +9,19 @@ public
function ReadApplication();
function ReadParent();
function ReadCreator();
+
private
[weakref]parent_: tslobj;
[weakref]application_: Application;
creator_: integer;
-
-End;
+end;
// ============== 实现 ================= //
-function VBABase.Create(Par: tslobj; App: Application; Cre: integer);
+function VBABase.Create(_parent: tslobj; _application: Application; _creator: integer);
begin
- parent_ := Par;
- application_ := App;
- creator_ := Cre;
+ parent_ := _parent;
+ application_ := _application;
+ creator_ := _creator;
end;
// properties