Changeset 3 for trunk/UFormMain.lfm

Timestamp:

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

Author:

chronos

Message:

• Modified: Prepared context menu actions for Services list.

File:

• trunk/UFormMain.lfm (modified) (3 diffs)

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