Changeset 439 for ModularSystem/UFormModuleList.pas

Timestamp:

Nov 19, 2012, 2:40:44 PM (12 years ago)

Author:

chronos

Message:

• Modified: Optiomization using Update blocking during mass operations.
• Added: Measuring modules start time.

File:

• ModularSystem/UFormModuleList.pas (modified) (13 diffs)

ModularSystem/UFormModuleList.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
-  ComCtrls, ExtCtrls, Menus, ActnList, StdCtrls, SpecializedList,
+  ComCtrls, ExtCtrls, Menus, ActnList, StdCtrls, SpecializedList, DateUtils,
   UListViewSort, UModularSystem;
 
@@ -14 +14 @@
     mloShowIdentification, mloShowLicense, mloShowEnable, mloShowRunning,
     mloShowDependencies, mloShowInstalled, mloShowInfoBar, mloShowDescription,
-    mloAllowInstall, mloAllowEnable, mloAllowRegister, mloAllowStart);
+    mloShowStartUpTime, mloAllowInstall, mloAllowEnable, mloAllowRegister, mloAllowStart);
   TModuleListOptions = set of TModuleListOption;
 
@@ -92 +92 @@
   SYes = 'Yes';
   SNo = 'No';
-  SAdditionalModulesInstall = 'In addition to "%0:s" module also dependent modules will be installed: %1:s';
-  SAdditionalModulesUninstall = 'In addition to "%0:s" module alse dependent modules will be uninstalled: %1:s';
-  SAdditionalModulesStart = 'In addition to "%0:s" module also dependent modules will be started: %1:s';
-  SAdditionalModulesStop = 'In addition to "%0:s" module also dependent modules will be stopped: %1:s';
+  SAdditionalModulesInstall = 'In addition to "%0:s" module also dependent modules will be installed: "%1:s"';
+  SAdditionalModulesUninstall = 'In addition to "%0:s" module alse dependent modules will be uninstalled: "%1:s"';
+  SAdditionalModulesStart = 'In addition to "%0:s" module also dependent modules will be started: "%1:s"';
+  SAdditionalModulesStop = 'In addition to "%0:s" module also dependent modules will be stopped: "%1:s"';
   SIdentification = 'Identification';
   SName = 'Name';
@@ -133 +133 @@
     if FileName <> '' then Item.SubItems.Add(FileName)
       else Item.SubItems.Add(' ');
+    Item.SubItems.Add(FloatToStr(Trunc(StartUpTime / OneMillisecond)));
   end;
 end;
@@ -199 +200 @@
   try
     Modules := TListModule.Create;
+    Modules.OwnsObjects := False;
     EnumDependenciesCascade(Modules, [mcNotRunning]);
     if Modules.Count > 0 then begin
@@ -223 +225 @@
   try
     Modules := TListModule.Create;
-    TModule(ListViewModules.Selected.Data).EnumSuperiorDependenciesCascade(Modules, [mcRunning]);
+    Modules.OwnsObjects := False;
+    EnumSuperiorDependenciesCascade(Modules, [mcRunning]);
     if Modules.Count > 0 then begin
       if MessageDlg(Format(SAdditionalModulesStop, [
-      TModule(ListViewModules.Selected.Data).Identification,
+      Identification,
       Modules.Implode(',', ModuleToStr)]),
       mtConfirmation, [mbYes, mbNo], 0) = mrYes then
-        TModule(ListViewModules.Selected.Data).Stop;
-    end else TModule(ListViewModules.Selected.Data).Stop;
+        Stop;
+    end else Stop;
   finally
     FreeAndNil(Modules);
@@ -248 +251 @@
   try
     Modules := TListModule.Create;
-    TModule(ListViewModules.Selected.Data).EnumSuperiorDependenciesCascade(Modules, [mcInstalled]);
+    Modules.OwnsObjects := False;
+    EnumSuperiorDependenciesCascade(Modules, [mcInstalled]);
     if Modules.Count > 0 then begin
       if MessageDlg(Format(SAdditionalModulesUninstall, [
-      TModule(ListViewModules.Selected.Data).Identification,
+      Identification,
       Modules.Implode(',', ModuleToStr)]),
       mtConfirmation, [mbYes, mbNo], 0) = mrYes then
-        TModule(ListViewModules.Selected.Data).Uninstall;
-    end else TModule(ListViewModules.Selected.Data).Uninstall;
+        Uninstall;
+    end else Uninstall;
   finally
     Modules.Free;
@@ -280 +284 @@
   try
     Modules := TListModule.Create;
-    TModule(ListViewModules.Selected.Data).EnumDependenciesCascade(Modules, [mcNotInstalled]);
+    Modules.OwnsObjects := False;
+    EnumDependenciesCascade(Modules, [mcNotInstalled]);
     if Modules.Count > 0 then begin
       if MessageDlg(Format(SAdditionalModulesInstall, [
-      TModule(ListViewModules.Selected.Data).Identification,
+      Identification,
       Modules.Implode(',', ModuleToStr)]),
       mtConfirmation, [mbYes, mbNo], 0) = mrYes then
-        TModule(ListViewModules.Selected.Data).Install;
-    end else TModule(ListViewModules.Selected.Data).Install;
+        Install;
+    end else Install;
   finally
     Modules.Free;
@@ -305 +310 @@
   try
     Modules := TListModule.Create;
+    Modules.OwnsObjects := False;
     EnumDependenciesCascade(Modules, [mcNotRunning]);
     if Modules.Count > 0 then begin
@@ -310 +316 @@
       Identification, Modules.Implode(',', ModuleToStr)]),
       mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
-        Enabled := True;
+        Enable;
         Start;
       end;
     end else begin
-      Enabled := True;
+      Enable;
       Start;
     end;
@@ -334 +340 @@
   try
     Modules := TListModule.Create;
-    TModule(ListViewModules.Selected.Data).EnumSuperiorDependenciesCascade(Modules, [mcInstalled]);
+    Modules.OwnsObjects := False;
+    EnumSuperiorDependenciesCascade(Modules, [mcInstalled]);
     if Modules.Count > 0 then begin
       if MessageDlg(Format(SAdditionalModulesUninstall, [
-      TModule(ListViewModules.Selected.Data).Identification,
+      Identification,
       Modules.Implode(',', ModuleToStr)]),
       mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
-        TModule(ListViewModules.Selected.Data).Stop;
-        TModule(ListViewModules.Selected.Data).Enabled := False;
+        Stop;
+        Disable;
       end;
     end else begin
       TModule(ListViewModules.Selected.Data).Stop;
-      TModule(ListViewModules.Selected.Data).Enabled := False;
+      TModule(ListViewModules.Selected.Data).Disable;
     end;
   finally
@@ -393 +400 @@
       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(TModule(Item1).Dependencies.Implode(',', StrToStr),
+        TModule(Item2).Dependencies.Implode(',', StrToStr));
+      9: Result := CompareString(TModule(Item1).FileName,
+        TModule(Item2).FileName);
+      10: Result := CompareTime(TModule(Item1).StartUpTime,
+        TModule(Item2).StartUpTime);
     end;
     if ListViewSort.Order = soDown then Result := -Result;
@@ -483 +494 @@
   ListViewModules.Column[8].Visible := (mloShowDependencies in FOptions);
   ListViewModules.Column[9].Visible := (mloShowFileName in FOptions);
+  ListViewModules.Column[10].Visible := (mloShowStartUpTime in FOptions);
   Memo1.Visible := (mloShowInfoBar in FOptions);
   Splitter1.Visible := (mloShowInfoBar in FOptions);