Changeset 4 for trunk/UFormMain.lfm

Timestamp:

Feb 8, 2014, 11:35:27 PM (11 years ago)

Author:

chronos

Message:

• Added: Main menu with game control actions.

File:

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

trunk/UFormMain.lfm

@@ -5 +5 @@
   Width = 775
   Caption = 'xTactics'
-  ClientHeight = 621
+  ClientHeight = 595
   ClientWidth = 775
+  Menu = MainMenu1
   OnCreate = FormCreate
   OnDestroy = FormDestroy
@@ -13 +14 @@
   object PaintBox1: TPaintBox
     Left = 0
-    Height = 621
+    Height = 595
     Top = 0
     Width = 775
@@ -23 +24 @@
     OnPaint = PaintBox1Paint
   end
+  object MainMenu1: TMainMenu
+    left = 72
+    top = 48
+    object MenuItem1: TMenuItem
+      Caption = 'Game'
+      object MenuItem2: TMenuItem
+        Action = AGameNew
+      end
+      object MenuItem3: TMenuItem
+        Action = AGameEnd
+      end
+      object MenuItem4: TMenuItem
+        Action = AGameEndTurn
+      end
+      object MenuItem5: TMenuItem
+        Caption = '-'
+      end
+      object MenuItem6: TMenuItem
+        Action = AExit
+      end
+    end
+  end
+  object ActionList1: TActionList
+    left = 223
+    top = 49
+    object AGameNew: TAction
+      Caption = 'New'
+      OnExecute = AGameNewExecute
+    end
+    object AExit: TAction
+      Caption = 'Exit'
+      OnExecute = AExitExecute
+    end
+    object AGameEnd: TAction
+      Caption = 'End'
+    end
+    object AGameEndTurn: TAction
+      Caption = 'End turn'
+    end
+  end
 end