Changeset 401 for ModularSystem/UModularSystem.pas

Timestamp:

Aug 9, 2012, 9:45:22 AM (12 years ago)

Author:

chronos

Message:

• Fixed: TComponent Constructor override in ModularSystem.

File:

• ModularSystem/UModularSystem.pas (modified) (3 diffs)

ModularSystem/UModularSystem.pas

@@ -37 +37 @@
     procedure EnumModulesInstall(ModuleList: TStringList);
     procedure EnumModulesUninstall(ModuleList: TStringList);
-    constructor Create; virtual;
+    constructor Create(Owner: TComponent); virtual;
     destructor Destroy; override;
     property Installed: Boolean read FInstalled write SetInstalled;
@@ -116 +116 @@
     if Assigned(Module) then begin
       if not Module.Installed then Module.Install;
-    end else raise Exception.CreateFmt(SModuleNotFound, [Module.Identification]);
+    end else raise Exception.CreateFmt(SModuleNotFound, [Dependencies[I]]);
   end;
 end;
@@ -246 +246 @@
 end;
 
-constructor TModule.Create;
-begin
+constructor TModule.Create(Owner: TComponent);
+begin
+  inherited;
   Dependencies := TStringList.Create;
   Description := TStringList.Create;