1. 新增基类TSVbaBase

2. 枚举类TSDocxEnumerations改成Unit方式
2023-10-20 16:16:53 +08:00
parent cdf4b39350
commit 7283b7ac28
18 changed files with 423 additions and 378 deletions
@@ -1,13 +1,14 @@
 Type TSVbaBase = class

 public
-	Function Create(app, par, cre);
+	Function Create(app, cre, par);

 private
 	application_;
-	parent_;
 	creator_;
+	parent_;

+public
 	property Application read ReadApplication;
 	property Parent read ReadParent;
 	property Creator read ReadCreator;
@@ -18,11 +19,11 @@ private
 End;

 // ============== 实现 ================= //
-Function TSVbaBase.Create(app, par, cre);
+Function TSVbaBase.Create(app, cre, par);
 Begin
 	application_ := app;
-	parent_ := par;
 	creator_ := cre;
+	parent_ := par;
 End;

 // property