Changeset 73 for trunk/Compiler/Modules/Pascal/UModulePascal.pas

Timestamp:

May 2, 2013, 10:11:15 PM (12 years ago)

Author:

chronos

Message:

• Modified: Packages are now stored as uncomporessed and are linked with relative path to project.

File:

• trunk/Compiler/Modules/Pascal/UModulePascal.pas (modified) (3 diffs)

trunk/Compiler/Modules/Pascal/UModulePascal.pas

@@ -14 +14 @@
   TModulePascal = class(TModule)
     Analyzer: TAnalyzerPascal;
-    constructor Create; override;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
-    procedure Install; override;
-    procedure Uninstall; override;
+    procedure DoInstall; override;
+    procedure DoUninstall; override;
   end;
 
@@ -28 +28 @@
 { TModulePascal }
 
-constructor TModulePascal.Create;
+constructor TModulePascal.Create(AOwner: TComponent);
 begin
-  inherited Create;
+  inherited;
   Name := 'Pascal';
   Title := 'Pascal';
@@ -41 +41 @@
 end;
 
-procedure TModulePascal.Install;
+procedure TModulePascal.DoInstall;
 begin
   with TCompilerAPI(API) do begin
     RegisterConvertor(TAnalyzerPascal);
   end;
-  inherited Install;
+  inherited;
 end;
 
-procedure TModulePascal.Uninstall;
+procedure TModulePascal.DoUninstall;
 begin
-  inherited Uninstall;
+  inherited;
   with TCompilerAPI(API) do begin
     UnregisterConvertor(TAnalyzerPascal);