Changeset 75 for trunk/Packages/ModularSystem/FormModuleList.pas

Timestamp:

Jun 4, 2024, 12:22:49 AM (5 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from unit names.
• Modified: Updated Common package.

File:

• trunk/Packages/ModularSystem/FormModuleList.pas (moved) (moved from trunk/Packages/ModularSystem/UFormModuleList.pas ) (19 diffs)

trunk/Packages/ModularSystem/FormModuleList.pas

@@ -1 @@
-unit UFormModuleList;
-
-{$mode delphi}
+unit FormModuleList;
 
 interface
@@ -7 +5 @@
 uses
   Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
-  ComCtrls, ExtCtrls, Menus, ActnList, StdCtrls, SpecializedList, DateUtils,
-  UListViewSort, UModularSystem;
+  ComCtrls, ExtCtrls, Menus, ActnList, StdCtrls, Generics.Collections, DateUtils,
+  ListViewSort, ModularSystem, Common;
 
 type
@@ -87 +85 @@
 function ModuleToStr(Module: TObject): string;
 
+
 implementation
 
@@ -130 +129 @@
     if Version <> '' then Item.SubItems.Add(Version)
       else Item.SubItems.Add(' ');
-    Item.SubItems.Add(Dependencies.Implode(',', StrToStr));
+    Item.SubItems.Add(Implode(',', Dependencies));
     if FileName <> '' then Item.SubItems.Add(FileName)
       else Item.SubItems.Add(' ');
@@ -150 +149 @@
     if (mloShowLicense in FOptions) and (License <> '') then Memo1.Lines.Add(SLicense + ': ' + License);
     if (mloShowDependencies in FOptions) and (Dependencies.Count > 0) then
-      Memo1.Lines.Add(SDependencies + ': ' + Dependencies.Implode(', ', StrToStr));
+      Memo1.Lines.Add(SDependencies + ': ' + Implode(', ', Dependencies));
     if (mloShowDescription in FOptions) and (Description.Count > 0) then
-      Memo1.Lines.Add(SDescription + ': ' + Description.Implode(', ', StrToStr));
+      Memo1.Lines.Add(SDescription + ': ' + Implode(', ', Description));
   end;
 end;
@@ -191 +190 @@
 procedure TFormModuleList.AStartExecute(Sender: TObject);
 var
-  Modules: TListModule;
+  Modules: TModules;
   I: Integer;
 begin
@@ -199 +198 @@
   if not Running then
   try
-    Modules := TListModule.Create;
+    Modules := TModules.Create;
     Modules.OwnsObjects := False;
     EnumDependenciesCascade(Modules, [mcNotRunning]);
     if Modules.Count > 0 then begin
       if MessageDlg(Format(SAdditionalModulesStart, [
-      Identification, Modules.Implode(',', ModuleToStr)]),
+      Identification, Modules.GetNames]),
       mtConfirmation, [mbYes, mbNo], 0) = mrYes then
         Start;
@@ -216 +215 @@
 procedure TFormModuleList.AStopExecute(Sender: TObject);
 var
-  Modules: TListModule;
+  Modules: TModules;
   I: Integer;
 begin
@@ -224 +223 @@
   if Running then
   try
-    Modules := TListModule.Create;
+    Modules := TModules.Create;
     Modules.OwnsObjects := False;
     EnumSuperiorDependenciesCascade(Modules, [mcRunning]);
     if Modules.Count > 0 then begin
       if MessageDlg(Format(SAdditionalModulesStop, [
-      Identification,
-      Modules.Implode(',', ModuleToStr)]),
+      Identification, Modules.GetNames]),
       mtConfirmation, [mbYes, mbNo], 0) = mrYes then
         Stop;
@@ -242 +240 @@
 procedure TFormModuleList.AUninstallExecute(Sender: TObject);
 var
-  Modules: TListModule;
+  Modules: TModules;
   I: Integer;
 begin
@@ -250 +248 @@
   if Installed then
   try
-    Modules := TListModule.Create;
+    Modules := TModules.Create;
     Modules.OwnsObjects := False;
     EnumSuperiorDependenciesCascade(Modules, [mcInstalled]);
     if Modules.Count > 0 then begin
       if MessageDlg(Format(SAdditionalModulesUninstall, [
-      Identification,
-      Modules.Implode(',', ModuleToStr)]),
+      Identification, Modules.GetNames]),
       mtConfirmation, [mbYes, mbNo], 0) = mrYes then
         Uninstall;
@@ -275 +272 @@
 procedure TFormModuleList.AInstallExecute(Sender: TObject);
 var
-  Modules: TListModule;
+  Modules: TModules;
   I: Integer;
 begin
@@ -283 +280 @@
   if not Installed then
   try
-    Modules := TListModule.Create;
+    Modules := TModules.Create;
     Modules.OwnsObjects := False;
     EnumDependenciesCascade(Modules, [mcNotInstalled]);
     if Modules.Count > 0 then begin
       if MessageDlg(Format(SAdditionalModulesInstall, [
-      Identification,
-      Modules.Implode(',', ModuleToStr)]),
+      Identification, Modules.GetNames]),
       mtConfirmation, [mbYes, mbNo], 0) = mrYes then
         Install;
@@ -301 +297 @@
 procedure TFormModuleList.AEnableExecute(Sender: TObject);
 var
-  Modules: TListModule;
+  Modules: TModules;
   I: Integer;
 begin
@@ -309 +305 @@
   if not Enabled then
   try
-    Modules := TListModule.Create;
+    Modules := TModules.Create;
     Modules.OwnsObjects := False;
     EnumDependenciesCascade(Modules, [mcNotRunning]);
     if Modules.Count > 0 then begin
       if MessageDlg(Format(SAdditionalModulesStart, [
-      Identification, Modules.Implode(',', ModuleToStr)]),
+      Identification, Modules.GetNames]),
       mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
         Enable;
@@ -331 +327 @@
 procedure TFormModuleList.ADisableExecute(Sender: TObject);
 var
-  Modules: TListModule;
+  Modules: TModules;
   I: Integer;
 begin
@@ -339 +335 @@
   if Enabled then
   try
-    Modules := TListModule.Create;
+    Modules := TModules.Create;
     Modules.OwnsObjects := False;
     EnumSuperiorDependenciesCascade(Modules, [mcInstalled]);
     if Modules.Count > 0 then begin
       if MessageDlg(Format(SAdditionalModulesUninstall, [
-      Identification,
-      Modules.Implode(',', ModuleToStr)]),
+      Identification, Modules.GetNames]),
       mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
         Stop;
@@ -400 +395 @@
       7: Result := CompareString(TModule(Item1).Version, TModule(
         Item2).Version);
-      8: Result := CompareString(TModule(Item1).Dependencies.Implode(',', StrToStr),
-        TModule(Item2).Dependencies.Implode(',', StrToStr));
+      8: Result := CompareString(Implode(',', TModule(Item1).Dependencies),
+        Implode(',', TModule(Item2).Dependencies));
       9: Result := CompareString(TModule(Item1).FileName,
         TModule(Item2).FileName);
@@ -500 +495 @@
 
 initialization
-  {$I UFormModuleList.lrs}
+  {$I FormModuleList.lrs}
 
 end.