From 20d6649671f3242a7176f642b9fb355a83a0863d Mon Sep 17 00:00:00 2001
From: carlokok <carlokok@5c9d2617-0215-0410-a2ee-e80e04d1c6d8>
Date: Thu, 19 Mar 2009 08:48:53 +0000
Subject: [PATCH] Allow public access to CompImport1 and co.

git-svn-id: http://code.remobjects.com/svn/pascalscript@111 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
---
 Source/uPSComponent.pas          | 29 ++++++++++++++---------------
 Source/uPSComponent_COM.pas      |  2 +-
 Source/uPSComponent_Controls.pas |  2 +-
 Source/uPSComponent_DB.pas       |  2 +-
 Source/uPSComponent_Default.pas  |  4 ++--
 Source/uPSComponent_Forms.pas    |  2 +-
 Source/uPSComponent_StdCtrls.pas |  2 +-
 7 files changed, 21 insertions(+), 22 deletions(-)

diff --git a/Source/uPSComponent.pas b/Source/uPSComponent.pas
index 6229ad0..1aea49e 100644
--- a/Source/uPSComponent.pas
+++ b/Source/uPSComponent.pas
@@ -24,26 +24,24 @@ type
   TPSRuntimeClassImporter = uPSRuntime.TPSRuntimeClassImporter;
   
   TPSPlugin = class(TComponent)
-  protected
-    
-    procedure CompOnUses(CompExec: TPSScript); virtual;
-    
-    procedure ExecOnUses(CompExec: TPSScript); virtual;
-    
-    procedure CompileImport1(CompExec: TPSScript); virtual;
-    
-    procedure CompileImport2(CompExec: TPSScript); virtual;
-    
-    procedure ExecImport1(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); virtual;
-    
-    procedure ExecImport2(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); virtual;
   public
+    procedure CompOnUses(CompExec: TPSScript); virtual;
+
+    procedure ExecOnUses(CompExec: TPSScript); virtual;
+
+    procedure CompileImport1(CompExec: TPSScript); virtual;
+
+    procedure CompileImport2(CompExec: TPSScript); virtual;
+
+    procedure ExecImport1(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); virtual;
+
+    procedure ExecImport2(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); virtual;
   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;
diff --git a/Source/uPSComponent_COM.pas b/Source/uPSComponent_COM.pas
index 31c1dad..1ae3533 100644
--- a/Source/uPSComponent_COM.pas
+++ b/Source/uPSComponent_COM.pas
@@ -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;
diff --git a/Source/uPSComponent_Controls.pas b/Source/uPSComponent_Controls.pas
index 37543f2..fce7b29 100644
--- a/Source/uPSComponent_Controls.pas
+++ b/Source/uPSComponent_Controls.pas
@@ -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
diff --git a/Source/uPSComponent_DB.pas b/Source/uPSComponent_DB.pas
index a8557e6..c60d06e 100644
--- a/Source/uPSComponent_DB.pas
+++ b/Source/uPSComponent_DB.pas
@@ -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
diff --git a/Source/uPSComponent_Default.pas b/Source/uPSComponent_Default.pas
index 09adc05..e7508cf 100644
--- a/Source/uPSComponent_Default.pas
+++ b/Source/uPSComponent_Default.pas
@@ -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
diff --git a/Source/uPSComponent_Forms.pas b/Source/uPSComponent_Forms.pas
index 8d60d5e..418fbb2 100644
--- a/Source/uPSComponent_Forms.pas
+++ b/Source/uPSComponent_Forms.pas
@@ -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
diff --git a/Source/uPSComponent_StdCtrls.pas b/Source/uPSComponent_StdCtrls.pas
index 66ce95c..9f92923 100644
--- a/Source/uPSComponent_StdCtrls.pas
+++ b/Source/uPSComponent_StdCtrls.pas
@@ -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