Changeset 35 for trunk/Forms/UFormMain.lfm

Timestamp:

Mar 7, 2014, 11:03:30 PM (11 years ago)

Author:

chronos

Message:

• Added: Zoom all action to show entire map.
• Added: Actions Zoom in and Zoom out which keep view center.
• Fixed: Form resize now keep view center.
• Modified: Attacking is now using mutiple dice rolls system.

File:

• trunk/Forms/UFormMain.lfm (modified) (2 diffs)

trunk/Forms/UFormMain.lfm

@@ -108 +108 @@
       end
     end
+    object MenuItem10: TMenuItem
+      Caption = 'View'
+      object MenuItem11: TMenuItem
+        Action = AZoomAll
+      end
+      object MenuItem12: TMenuItem
+        Action = AZoomIn
+      end
+      object MenuItem13: TMenuItem
+        Action = AZoomOut
+      end
+    end
     object MenuItem8: TMenuItem
       Caption = 'Tools'
@@ -121 +133 @@
     top = 263
   end
+  object ActionList1: TActionList
+    Images = Core.ImageListSmall
+    left = 280
+    top = 152
+    object AZoomIn: TAction
+      Caption = 'Zoom in'
+      OnExecute = AZoomInExecute
+      ShortCut = 16491
+    end
+    object AZoomOut: TAction
+      Caption = 'Zoom out'
+      OnExecute = AZoomOutExecute
+      ShortCut = 16493
+    end
+    object AZoomAll: TAction
+      Caption = 'Zoom all'
+      OnExecute = AZoomAllExecute
+      ShortCut = 16449
+    end
+  end
 end