Changeset 3 for trunk

Timestamp:

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

Author:

chronos

Message:

• Modified: Prepared context menu actions for Services list.

Location:

trunk

Files:

• Languages/OpenTaskManager.cs.po (modified) (19 diffs)
• Languages/OpenTaskManager.po (modified) (4 diffs)
• UFormMain.lfm (modified) (3 diffs)
• UFormMain.pas (modified) (11 diffs)

trunk/Languages/OpenTaskManager.cs.po

@@ -13 +13 @@
 
 #: tformmain.aalwaysontop.caption
-#, fuzzy
 msgctxt "tformmain.aalwaysontop.caption"
 msgid "Always on top"
@@ -27 +26 @@
 
 #: tformmain.arun.caption
-#, fuzzy
 msgctxt "tformmain.arun.caption"
 msgid "Run new task"
 msgstr "Spustit novou úlohu"
 
+#: tformmain.aservicerestart.caption
+msgctxt "tformmain.aservicerestart.caption"
+msgid "Restart"
+msgstr "Restartovat"
+
+#: tformmain.aservicestart.caption
+msgid "Start"
+msgstr "Spustit"
+
+#: tformmain.aservicestop.caption
+msgctxt "tformmain.aservicestop.caption"
+msgid "Stop"
+msgstr "Zastavit"
+
 #: tformmain.caption
 msgid "Open Task Manager"
@@ -37 +49 @@
 
 #: tformmain.listviewdetails.columns[0].caption
-#, fuzzy
 msgctxt "tformmain.listviewdetails.columns[0].caption"
 msgid "Name"
@@ -57 +68 @@
 
 #: tformmain.listviewdetails.columns[4].caption
-#, fuzzy
 msgctxt "tformmain.listviewdetails.columns[4].caption"
 msgid "Processor"
@@ -63 +73 @@
 
 #: tformmain.listviewdetails.columns[5].caption
-#, fuzzy
 msgctxt "tformmain.listviewdetails.columns[5].caption"
 msgid "Memory"
@@ -74 +83 @@
 
 #: tformmain.listviewonstartup.columns[0].caption
-#, fuzzy
 msgctxt "tformmain.listviewonstartup.columns[0].caption"
 msgid "Name"
@@ -93 +101 @@
 
 #: tformmain.listviewprocesses.columns[0].caption
-#, fuzzy
 msgctxt "tformmain.listviewprocesses.columns[0].caption"
 msgid "Name"
@@ -99 +106 @@
 
 #: tformmain.listviewprocesses.columns[1].caption
-#, fuzzy
 msgctxt "tformmain.listviewprocesses.columns[1].caption"
 msgid "Processor"
@@ -105 +111 @@
 
 #: tformmain.listviewprocesses.columns[2].caption
-#, fuzzy
 msgctxt "tformmain.listviewprocesses.columns[2].caption"
 msgid "Memory"
@@ -111 +116 @@
 
 #: tformmain.listviewprocesses.columns[3].caption
-#, fuzzy
 msgctxt "tformmain.listviewprocesses.columns[3].caption"
 msgid "Drive"
@@ -117 +121 @@
 
 #: tformmain.listviewprocesses.columns[4].caption
-#, fuzzy
 msgctxt "tformmain.listviewprocesses.columns[4].caption"
 msgid "Network"
@@ -123 +126 @@
 
 #: tformmain.listviewservices.columns[0].caption
-#, fuzzy
 msgctxt "tformmain.listviewservices.columns[0].caption"
 msgid "Name"
@@ -174 +176 @@
 
 #: tformmain.menuitem19.caption
-#, fuzzy
 msgctxt "tformmain.menuitem19.caption"
 msgid "High"
@@ -188 +189 @@
 
 #: tformmain.menuitem21.caption
-#, fuzzy
 msgctxt "tformmain.menuitem21.caption"
 msgid "Normal"
@@ -198 +198 @@
 
 #: tformmain.menuitem23.caption
-#, fuzzy
 msgctxt "tformmain.menuitem23.caption"
 msgid "Low"
@@ -240 +239 @@
 
 #: tformmain.menuitem33.caption
+msgctxt "tformmain.menuitem33.caption"
 msgid "Restart"
 msgstr "Restartovat"
@@ -253 +253 @@
 
 #: tformmain.menuitem37.caption
+msgctxt "tformmain.menuitem37.caption"
 msgid "Go to details"
 msgstr "Přejít na detaily"
@@ -274 +275 @@
 msgstr "Vlastnosti"
 
+#: tformmain.menuitem45.caption
+msgid "Open Services window"
+msgstr "Otevřít okno Služby"
+
+#: tformmain.menuitem46.caption
+msgctxt "tformmain.menuitem46.caption"
+msgid "Search online"
+msgstr "Hledat online"
+
+#: tformmain.menuitem47.caption
+msgctxt "tformmain.menuitem47.caption"
+msgid "Go to details"
+msgstr "Přejít na detaily"
+
 #: tformmain.menuitem5.caption
 msgid "Minimalize on use"
@@ -324 +339 @@
 
 #: uformmain.srunnewtask
-#, fuzzy
 msgctxt "uformmain.srunnewtask"
 msgid "Run new task"

trunk/Languages/OpenTaskManager.po

@@ -20 +20 @@
 msgstr ""
 
+#: tformmain.aservicerestart.caption
+msgctxt "tformmain.aservicerestart.caption"
+msgid "Restart"
+msgstr ""
+
+#: tformmain.aservicestart.caption
+msgid "Start"
+msgstr ""
+
+#: tformmain.aservicestop.caption
+msgctxt "tformmain.aservicestop.caption"
+msgid "Stop"
+msgstr ""
+
 #: tformmain.caption
 msgid "Open Task Manager"
@@ -215 +229 @@
 
 #: tformmain.menuitem33.caption
+msgctxt "tformmain.menuitem33.caption"
 msgid "Restart"
 msgstr ""
@@ -228 +243 @@
 
 #: tformmain.menuitem37.caption
+msgctxt "tformmain.menuitem37.caption"
 msgid "Go to details"
 msgstr ""
@@ -249 +265 @@
 msgstr ""
 
+#: tformmain.menuitem45.caption
+msgid "Open Services window"
+msgstr ""
+
+#: tformmain.menuitem46.caption
+msgctxt "tformmain.menuitem46.caption"
+msgid "Search online"
+msgstr ""
+
+#: tformmain.menuitem47.caption
+msgctxt "tformmain.menuitem47.caption"
+msgid "Go to details"
+msgstr ""
+
 #: tformmain.menuitem5.caption
 msgid "Minimalize on use"

trunk/UFormMain.lfm

@@ -20 +20 @@
     ActivePage = TabSheetServices
     Align = alClient
+    PopupMenu = PopupMenuServices
     TabIndex = 6
     TabOrder = 0
@@ -269 +270 @@
       OnExecute = ARestoreExecute
       Visible = False
+    end
+    object AServiceStop: TAction
+      Caption = 'Stop'
+      OnExecute = AServiceStopExecute
+    end
+    object AServiceRestart: TAction
+      Caption = 'Restart'
+      OnExecute = AServiceRestartExecute
+    end
+    object AServiceStart: TAction
+      Caption = 'Start'
+      OnExecute = AServiceStartExecute
     end
   end
@@ -4670 +4683 @@
     end
   end
+  object PopupMenuServices: TPopupMenu
+    OnPopup = PopupMenuServicesPopup
+    left = 712
+    top = 104
+    object MenuItem41: TMenuItem
+      Action = AServiceStart
+    end
+    object MenuItem42: TMenuItem
+      Action = AServiceStop
+    end
+    object MenuItem43: TMenuItem
+      Action = AServiceRestart
+    end
+    object MenuItem44: TMenuItem
+      Caption = '-'
+    end
+    object MenuItem45: TMenuItem
+      Caption = 'Open Services window'
+    end
+    object MenuItem46: TMenuItem
+      Caption = 'Search online'
+    end
+    object MenuItem47: TMenuItem
+      Caption = 'Go to details'
+    end
+  end
 end

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;