Changeset 3 for trunk/UFormMain.pas

Timestamp:

Jan 14, 2018, 10:48:21 PM (6 years ago)

Author:

chronos

Message:

• Modified: Prepared context menu actions for Services list.

File:

• trunk/UFormMain.pas (modified) (11 diffs)

trunk/UFormMain.pas

@@ -41 +41 @@
   TFormMain = class(TForm)
     AAlwaysOnTop: TAction;
+    AServiceStart: TAction;
+    AServiceRestart: TAction;
+    AServiceStop: TAction;
     ARestore: TAction;
     ARun: TAction;
@@ -86 +89 @@
     MenuItem4: TMenuItem;
     MenuItem40: TMenuItem;
+    MenuItem41: TMenuItem;
+    MenuItem42: TMenuItem;
+    MenuItem43: TMenuItem;
+    MenuItem44: TMenuItem;
+    MenuItem45: TMenuItem;
+    MenuItem46: TMenuItem;
+    MenuItem47: TMenuItem;
     MenuItem5: TMenuItem;
     MenuItem6: TMenuItem;
@@ -95 +105 @@
     PageControl1: TPageControl;
     Panel1: TPanel;
+    PopupMenuServices: TPopupMenu;
     PopupMenuProcesses: TPopupMenu;
     PopupMenuDetails: TPopupMenu;
@@ -110 +121 @@
     procedure ARestoreExecute(Sender: TObject);
     procedure ARunExecute(Sender: TObject);
+    procedure AServiceRestartExecute(Sender: TObject);
+    procedure AServiceStartExecute(Sender: TObject);
+    procedure AServiceStopExecute(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -118 +132 @@
     procedure ListViewServicesData(Sender: TObject; Item: TListItem);
     procedure PageControl1Change(Sender: TObject);
+    procedure PopupMenuServicesPopup(Sender: TObject);
     procedure TimerRefreshTimer(Sender: TObject);
     procedure TrayIcon1Click(Sender: TObject);
@@ -144 +159 @@
 
   var
-    SystemServiceStatusText: array [TSystemServiceState] of string = ('Running', 'Stopped');
+    SystemServiceStatusText: array [TSystemServiceState] of string = ('Stopped', 'Running');
 { TFormMain }
 
@@ -176 +191 @@
 end;
 
+procedure TFormMain.AServiceRestartExecute(Sender: TObject);
+begin
+  if Assigned(ListViewServices.Selected) then begin
+    ExecuteAnWaitForOutput('/bin/systemctl', ['restart',
+      TSystemService(ListViewServices.Selected.Data).Name])
+  end;
+end;
+
+procedure TFormMain.AServiceStartExecute(Sender: TObject);
+begin
+  ExecuteAnWaitForOutput('/bin/systemctl', ['start',
+    TSystemService(ListViewServices.Selected.Data).Name])
+end;
+
+procedure TFormMain.AServiceStopExecute(Sender: TObject);
+begin
+  ExecuteAnWaitForOutput('/bin/systemctl', ['stop',
+    TSystemService(ListViewServices.Selected.Data).Name])
+end;
+
 procedure TFormMain.FormCreate(Sender: TObject);
 begin
@@ -204 +239 @@
   if Item.Index < Processes.Count then
   with TSystemProcess(Processes[Item.Index]) do begin
+    Item.Data := Processes[Item.Index];
     Item.Caption := Name;
     Item.SubItems.Add(IntToStr(PID));
@@ -218 +254 @@
   if Item.Index < Processes.Count then
   with TSystemProcess(Processes[Item.Index]) do begin
+    Item.Data := Processes[Item.Index];
     Item.Caption := Name;
     Item.SubItems.Add(FloatToStr(Cpu));
@@ -230 +267 @@
   if Item.Index < Services.Count then
   with TSystemService(Services[Item.Index]) do begin
+    Item.Data := Services[Item.Index];
     Item.Caption := Name;
     Item.SubItems.Add('');
@@ -241 +279 @@
 begin
   ReloadTab;
+end;
+
+procedure TFormMain.PopupMenuServicesPopup(Sender: TObject);
+begin
+  AServiceRestart.Enabled := Assigned(ListViewServices.Selected) and
+    (TSystemService(ListViewServices.Selected.Data).State = ssRunning);
+  AServiceStop.Enabled := Assigned(ListViewServices.Selected) and
+    (TSystemService(ListViewServices.Selected.Data).State = ssRunning);
+  AServiceStart.Enabled := Assigned(ListViewServices.Selected) and
+    (TSystemService(ListViewServices.Selected.Data).State = ssStopped);
 end;