Changeset 73 for trunk/Compiler/Modules/Delphi

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.

Location:

trunk/Compiler/Modules/Delphi

Files:

• UModuleDelphi.pas (modified) (2 diffs)
• UProducerDelphi.pas (modified) (1 diff)

trunk/Compiler/Modules/Delphi/UModuleDelphi.pas

@@ -19 +19 @@
 
   TModuleDelphi = class(TModule)
-    constructor Create; override;
-    procedure Install; override;
-    procedure Uninstall; override;
+    constructor Create(AOwner: TComponent); override;
+    procedure DoInstall; override;
+    procedure DoUninstall; override;
   end;
 
@@ -35 +35 @@
 { TModuleDelphi }
 
-constructor TModuleDelphi.Create;
+constructor TModuleDelphi.Create(AOwner: TComponent);
 begin
-  inherited Create;
+  inherited;
   Name := 'Delphi';
   Title := SDelphi;
 end;
 
-procedure TModuleDelphi.Install;
+procedure TModuleDelphi.DoInstall;
 begin
   TCompilerAPI(API).RegisterConvertor(TProducerPascal);
-  inherited Install;
+  inherited;
 end;
 
-procedure TModuleDelphi.Uninstall;
+procedure TModuleDelphi.DoUninstall;
 begin
   TCompilerAPI(API).UnregisterConvertor(TProducerPascal);
-  inherited Uninstall;
+  inherited;
 end;
 

trunk/Compiler/Modules/Delphi/UProducerDelphi.pas

@@ -66 +66 @@
   {$ENDIF}
   {$IFDEF Linux}
-  CompilerPath := '';
+  Producer.CompilerPath := '';
   {$ENDIF}
 end;