Changeset 6 for trunk/UMainForm.lfm

Timestamp:

Mar 6, 2011, 7:31:53 PM (14 years ago)

Author:

george

Message:

• Added: Fullscreen mode.

File:

• trunk/UMainForm.lfm (modified) (2 diffs)

trunk/UMainForm.lfm

@@ -47 +47 @@
       Caption = 'Game'
       object MenuItem3: TMenuItem
-        Caption = 'New...'
-        OnClick = MenuItem3Click
-      end
-      object MenuItemShowMap: TMenuItem
-        Caption = 'Show map'
-        OnClick = MenuItemShowMapClick
+        Action = ANewGame
       end
       object MenuItem2: TMenuItem
-        Caption = 'Exit'
-        OnClick = MenuItem2Click
+        Action = AExit
+      end
+    end
+    object MenuItem4: TMenuItem
+      Caption = 'View'
+      object MenuItem5: TMenuItem
+        Action = AShowMap
+      end
+      object MenuItem6: TMenuItem
+        Action = AFullScreen
       end
     end
@@ -66 +69 @@
     top = 104
   end
+  object ActionList1: TActionList
+    left = 272
+    top = 24
+    object AFullScreen: TAction
+      Caption = 'Fullscreen mode'
+      OnExecute = AFullScreenExecute
+      ShortCut = 122
+    end
+    object AExit: TAction
+      Caption = 'Exit'
+      OnExecute = AExitExecute
+    end
+    object ANewGame: TAction
+      Caption = 'New game'
+      OnExecute = ANewGameExecute
+      ShortCut = 16462
+    end
+    object AShowMap: TAction
+      Caption = 'Show map'
+      OnExecute = AShowMapExecute
+      ShortCut = 123
+    end
+  end
 end