v2.1.1 大量更新,功能性更新见readme
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user