Changeset 428 for ModularSystem/Demo/UMainForm.lfm

Timestamp:

Oct 9, 2012, 11:48:44 AM (12 years ago)

Author:

chronos

Message:

• Added: Load and save module list to registry.
• Added: Installation and uninstallation of modules are now performed in two steps as BeforeStart, BeforeStop and AfterStart, AfterStop.
• Fixed: Demo works again.

File:

• ModularSystem/Demo/UMainForm.lfm (modified) (5 diffs)

ModularSystem/Demo/UMainForm.lfm

@@ -10 +10 @@
   OnDestroy = FormDestroy
   OnShow = FormShow
-  LCLVersion = '1.1'
+  LCLVersion = '1.0.1.3'
   object ListViewModules: TListView
     Left = 8
@@ -30 +30 @@
       end    
       item
-        Caption = 'State'
+        Caption = 'Installed'
+        Width = 80
+      end    
+      item
+        Caption = 'Running'
         Width = 80
       end    
@@ -80 +84 @@
     TabOrder = 3
   end
+  object ButtonUpdate1: TButton
+    Left = 248
+    Height = 25
+    Top = 281
+    Width = 75
+    Action = AModuleStart
+    Anchors = [akLeft, akBottom]
+    TabOrder = 4
+  end
+  object ButtonUpdate2: TButton
+    Left = 328
+    Height = 25
+    Top = 281
+    Width = 75
+    Action = AModuleStop
+    Anchors = [akLeft, akBottom]
+    TabOrder = 5
+  end
   object PopupMenu1: TPopupMenu
     left = 183
@@ -92 +114 @@
       Action = AModuleUpdate
     end
+    object MenuItem4: TMenuItem
+      Action = AModuleStart
+    end
+    object MenuItem5: TMenuItem
+      Action = AModuleStop
+    end
   end
   object ActionList1: TActionList
-    left = 137
-    top = 165
+    left = 184
+    top = 136
     object AModuleInstall: TAction
       Caption = 'Install'
@@ -108 +136 @@
       OnExecute = ButtonUpdateClick
     end
+    object AModuleStart: TAction
+      Caption = 'Start'
+      OnExecute = AModuleStartExecute
+    end
+    object AModuleStop: TAction
+      Caption = 'Stop'
+      OnExecute = AModuleStopExecute
+    end
   end
 end