Changeset 105 for trunk/Packages/ModularSystem/Demo/UMainForm.pas

Timestamp:

Oct 9, 2012, 1:58:45 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Hlavní modul Base, který slouží jako základní rozhraní k aplikaci pro ostatní moduly. Modul System zajistí udržování seznamu instalovaných modulů v perzistentním úložišti v databázi.
• Upraveno: Správce modulů ModuleManager je nyní použit pro každé komunikační spojení zvlášť.

Location:

trunk/Packages/ModularSystem/Demo

Files:

• . (modified) (1 prop)
• UMainForm.pas (modified) (8 diffs)

trunk/Packages/ModularSystem/Demo/UMainForm.pas

@@ -15 +15 @@
   TMainForm = class(TForm)
   published
+    AModuleStart: TAction;
+    AModuleStop: TAction;
     AModuleInstall: TAction;
     AModuleUninstall: TAction;
@@ -22 +24 @@
     ButtonUninstall: TButton;
     ButtonInstall: TButton;
+    ButtonUpdate1: TButton;
+    ButtonUpdate2: TButton;
     ListViewModules: TListView;
     MenuItem1: TMenuItem;
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
+    MenuItem4: TMenuItem;
+    MenuItem5: TMenuItem;
     PopupMenu1: TPopupMenu;
+    procedure AModuleStartExecute(Sender: TObject);
+    procedure AModuleStopExecute(Sender: TObject);
     procedure ButtonInstallClick(Sender: TObject);
     procedure ButtonUninstallClick(Sender: TObject);
@@ -44 +52 @@
 
 const
-  InstalledText: array[Boolean] of string = ('Not installed', 'Installed');
+  BoolText: array[Boolean] of string = ('No', 'Yes');
 
 var
@@ -66 +74 @@
     Item.Caption := Title;
     Item.Data := ModuleManager.Modules[Item.Index];
-    Item.SubItems.Add(Name);
+    Item.SubItems.Add(Identification);
     Item.SubItems.Add(Version);
-    Item.SubItems.Add(InstalledText[Installed]);
+    Item.SubItems.Add(BoolText[Installed]);
+    Item.SubItems.Add(BoolText[Running]);
     Item.SubItems.Add(License);
     Item.SubItems.Add(StringReplace(Dependencies.Text, LineEnding, ', ', [rfReplaceAll]));
@@ -79 +88 @@
 var
   Installed: Boolean;
+  Running: Boolean;
 begin
   if Assigned(ListViewModules.Selected) then Installed := TModule(ListViewModules.Selected.Data).Installed;
+  if Assigned(ListViewModules.Selected) then Running := TModule(ListViewModules.Selected.Data).Running;
   AModuleInstall.Enabled := Assigned(ListViewModules.Selected) and not Installed;
   AModuleUninstall.Enabled := Assigned(ListViewModules.Selected) and Installed;
   AModuleUpdate.Enabled := Assigned(ListViewModules.Selected) and Installed;
+  AModuleStart.Enabled := Assigned(ListViewModules.Selected) and not Running;
+  AModuleStop.Enabled := Assigned(ListViewModules.Selected) and Running;
 end;
 
 procedure TMainForm.RegisterModules;
 begin
-  ModuleManager.RegisterModule(TModuleUser.Create);
-  ModuleManager.RegisterModule(TModuleBase.Create);
-  ModuleManager.RegisterModule(TModuleACL.Create);
+  ModuleManager.RegisterModule(TModuleUser.Create(nil));
+  ModuleManager.RegisterModule(TModuleBase.Create(nil));
+  ModuleManager.RegisterModule(TModuleACL.Create(nil));
 end;
 
@@ -129 +142 @@
 end;
 
+procedure TMainForm.AModuleStartExecute(Sender: TObject);
+var
+  ModuleList: TStringList;
+begin
+  if Assigned(ListViewModules.Selected) then begin
+    try
+      ModuleList := TStringList.Create;
+      TModule(ListViewModules.Selected.Data).EnumModulesStart(ModuleList);
+      if ModuleList.Count > 0 then begin
+        if MessageDlg('These modules will be started in addition to ' +
+          TModule(ListViewModules.Selected.Data).Name + ': ' +
+          StringReplace(ModuleList.Text, LineEnding, ', ', [rfReplaceAll]),
+          mtConfirmation, [mbYes, mbNo], 0) = mrYes then
+           TModule(ListViewModules.Selected.Data).Start;
+      end else TModule(ListViewModules.Selected.Data).Start;
+    finally
+      ModuleList.Free;
+    end;
+    RefreshList;
+  end;
+end;
+
+procedure TMainForm.AModuleStopExecute(Sender: TObject);
+var
+  ModuleList: TStringList;
+begin
+  if Assigned(ListViewModules.Selected) then begin
+    try
+      ModuleList := TStringList.Create;
+      TModule(ListViewModules.Selected.Data).EnumModulesStop(ModuleList);
+      if ModuleList.Count > 0 then begin
+        if MessageDlg('These modules will be stopped in addition to ' +
+          TModule(ListViewModules.Selected.Data).Name + ': ' +
+          StringReplace(ModuleList.Text, LineEnding, ', ', [rfReplaceAll]),
+          mtConfirmation, [mbYes, mbNo], 0) = mrYes then
+            TModule(ListViewModules.Selected.Data).Stop;
+      end else TModule(ListViewModules.Selected.Data).Stop;
+    finally
+      ModuleList.Free;
+    end;
+
+    RefreshList;
+  end;
+end;
+
 procedure TMainForm.ButtonUninstallClick(Sender: TObject);
 var
@@ -155 +213 @@
 begin
   if Assigned(ListViewModules.Selected) then begin
-    TModule(ListViewModules.Selected.Data).Update;
+    TModule(ListViewModules.Selected.Data).Upgrade;
     RefreshList;
   end;
@@ -162 +220 @@
 procedure TMainForm.FormDestroy(Sender: TObject);
 begin
-  ModuleManager.Free;
+  FreeAndNil(ModuleManager);
 end;