Changeset 6 for trunk/StudioPackage/Forms/UFormMain.lfm

Timestamp:

Aug 2, 2012, 4:43:10 PM (12 years ago)

Author:

chronos

Message:

• Added: Empty application settings form. Modules will register custom settings subforms.

File:

• trunk/StudioPackage/Forms/UFormMain.lfm (modified) (6 diffs)

trunk/StudioPackage/Forms/UFormMain.lfm

@@ -7 +7 @@
   ClientHeight = 501
   ClientWidth = 747
-  Menu = MainMenu1
+  Menu = MainMenu
   OnShow = FormShow
   LCLVersion = '1.1'
@@ -23 +23 @@
     Width = 747
     Caption = 'ToolBar1'
-    Images = ImageList1
+    Images = ImageListMain
     TabOrder = 1
     object ToolButton1: TToolButton
@@ -114 +114 @@
     end
   end
-  object MainMenu1: TMainMenu
-    Images = ImageList1
-    left = 48
-    top = 64
+  object MainMenu: TMainMenu
+    Images = ImageListMain
+    left = 80
+    top = 48
     object MenuItem1: TMenuItem
       Caption = 'Project'
@@ -520 +520 @@
       end
     end
+    object MenuItem20: TMenuItem
+      Caption = 'Build'
+      object MenuItem21: TMenuItem
+        Action = ABuild
+      end
+      object MenuItem22: TMenuItem
+        Action = ARun
+      end
+      object MenuItem23: TMenuItem
+        Action = AStop
+      end
+      object MenuItem24: TMenuItem
+        Action = ARebuild
+      end
+      object MenuItem25: TMenuItem
+        Action = ABuildClean
+      end
+    end
     object MenuItem16: TMenuItem
       Caption = 'Tools'
+      object MenuItem19: TMenuItem
+        Action = AViewSettings
+      end
     end
     object MenuItem17: TMenuItem
@@ -533 +554 @@
     end
   end
-  object ActionList1: TActionList
-    Images = ImageList1
-    left = 48
-    top = 120
+  object ActionListMain: TActionList
+    Images = ImageListMain
+    left = 80
+    top = 104
     object AProjectNew: TAction
       Category = 'Project'
@@ -616 +637 @@
       OnExecute = AViewProjectManagerExecute
     end
+    object AViewSettings: TAction
+      Category = 'View'
+      Caption = 'Settings'
+      ImageIndex = 10
+      OnExecute = AViewSettingsExecute
+    end
+    object ABuild: TAction
+      Category = 'Build'
+      Caption = 'Build'
+    end
+    object ARun: TAction
+      Category = 'Build'
+      Caption = 'Run'
+    end
+    object AStop: TAction
+      Category = 'Build'
+      Caption = 'Stop'
+    end
+    object ARebuild: TAction
+      Category = 'Build'
+      Caption = 'Rebuild'
+    end
+    object ABuildClean: TAction
+      Category = 'Build'
+      Caption = 'Clean'
+    end
   end
-  object ImageList1: TImageList
-    left = 48
-    top = 176
+  object ImageListMain: TImageList
+    left = 80
+    top = 160
     Bitmap = {
       4C69160000001000000010000000000000000000000000000000000000000000