Changeset 404 for ModularSystem/UModularSystem.pas

Timestamp:

Aug 13, 2012, 10:03:31 AM (12 years ago)

Author:

chronos

Message:

• Modified: Linux support for PinConnection SerialPort, Common OpenURL, UpdateChecker.
• Modified: ModularSystem show module name if required dependency not found.

File:

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

ModularSystem/UModularSystem.pas

@@ -59 +59 @@
     Modules: TObjectList; // TObjectList<TModule>
     function FindModuleByName(Name: string): TModule;
-    procedure InstallDependencies(Dependencies: TStringList);
+    procedure InstallDependencies(ModuleName: string; Dependencies: TStringList);
     procedure UninstallDependencies(ModuleName: string);
     procedure EnumModulesInstall(Dependencies, ModuleList: TStringList);
@@ -78 +78 @@
 
 resourcestring
-  SModuleNotFound = 'Module %s not found';
+  SModuleNotFound = 'Module "%1:s" not found as dependency for module "%0:s"';
 
 procedure Register;
@@ -107 +107 @@
 end;
 
-procedure TModuleManager.InstallDependencies(Dependencies: TStringList);
+procedure TModuleManager.InstallDependencies(ModuleName: string; Dependencies: TStringList);
 var
   Module: TModule;
@@ -116 +116 @@
     if Assigned(Module) then begin
       if not Module.Installed then Module.Install;
-    end else raise Exception.CreateFmt(SModuleNotFound, [Dependencies[I]]);
+    end else raise Exception.CreateFmt(SModuleNotFound, [ModuleName, Dependencies[I]]);
   end;
 end;
@@ -218 +218 @@
 begin
   if Installed then Exit;
-  Manager.InstallDependencies(Dependencies);
+  Manager.InstallDependencies(Identification, Dependencies);
   FInstalled := True;
 end;