Delphi/pascalscript
Delphi/pascalscript
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Allow public access to CompImport1 and co.

Browse Source 
git-svn-id: http://code.remobjects.com/svn/pascalscript@111 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
This commit is contained in:
carlokok 2009-03-19 08:48:53 +00:00
parent 767e490ebf
commit 20d6649671
7 changed files with 21 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Source/uPSComponent.pas
View File

@ -24,8 +24,7 @@ type
TPSRuntimeClassImporter = uPSRuntime.TPSRuntimeClassImporter;
TPSPlugin = class(TComponent)
protected
public
procedure CompOnUses(CompExec: TPSScript); virtual;
procedure ExecOnUses(CompExec: TPSScript); virtual;
@ -37,13 +36,12 @@ type
procedure ExecImport1(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); virtual;
procedure ExecImport2(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); virtual;
public
end;
TIFPS3Plugin = class(TPSPlugin);
TPSDllPlugin = class(TPSPlugin)
protected
public
procedure CompOnUses(CompExec: TPSScript); override;
procedure ExecOnUses(CompExec: TPSScript); override;
end;
@ -176,6 +174,7 @@ type
const DirectiveName, DirectiveParam: tbtstring;
Var Continue: Boolean); virtual;
public
property RuntimeImporter: TPSRuntimeClassImporter read RI;
function FindNamedType(const Name: tbtstring): TPSTypeRec;
@ -376,7 +375,7 @@ type
FOnCompileImport1: TPSEvent;
FOnExecImport1: TPSOnExecImport;
FOnExecImport2: TPSOnExecImport;
protected
public
procedure CompOnUses(CompExec: TPSScript); override;
procedure ExecOnUses(CompExec: TPSScript); override;
procedure CompileImport1(CompExec: TPSScript); override;

2
Source/uPSComponent_COM.pas
View File

@ -8,7 +8,7 @@ type
TPSImport_ComObj = class(TPSPlugin)
private
protected
public
procedure CompileImport1(CompExec: TPSScript); override;
procedure ExecImport1(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); override;
end;

2
Source/uPSComponent_Controls.pas
View File

@ -10,7 +10,7 @@ type
FEnableStreams: Boolean;
FEnableGraphics: Boolean;
FEnableControls: Boolean;
protected
public
procedure CompileImport1(CompExec: TPSScript); override;
procedure ExecImport1(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); override;
public

2
Source/uPSComponent_DB.pas
View File

@ -7,7 +7,7 @@ uses
type
TPSImport_DB = class(TPSPlugin)
protected
public
procedure CompileImport1(CompExec: TPSScript); override;
procedure ExecImport1(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); override;
public

4
Source/uPSComponent_Default.pas
View File

@ -7,7 +7,7 @@ uses
type
TPSImport_DateUtils = class(TPSPlugin)
protected
public
procedure CompOnUses(CompExec: TPSScript); override;
procedure ExecOnUses(CompExec: TPSScript); override;
end;
@ -16,7 +16,7 @@ type
private
FEnableStreams: Boolean;
FEnableClasses: Boolean;
protected
public
procedure CompileImport1(CompExec: TPSScript); override;
procedure ExecImport1(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); override;
public

2
Source/uPSComponent_Forms.pas
View File

@ -10,7 +10,7 @@ type
private
FEnableForms: Boolean;
FEnableMenus: Boolean;
protected
public
procedure CompileImport1(CompExec: TPSScript); override;
procedure ExecImport1(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); override;
public

2
Source/uPSComponent_StdCtrls.pas
View File

@ -10,7 +10,7 @@ type
private
FEnableButtons: Boolean;
FEnableExtCtrls: Boolean;
protected
public
procedure CompileImport1(CompExec: TPSScript); override;
procedure ExecImport1(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); override;
public