Changeset 22 for trunk/UFormMain.lfm

Timestamp:

Mar 1, 2014, 5:56:14 PM (11 years ago)

Author:

chronos

Message:

• Added: New Core unit which is responsible for non-visual functionality. FormMain will handle main form related stuff.

File:

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

trunk/UFormMain.lfm

@@ -8 +8 @@
   ClientWidth = 775
   Menu = MainMenu1
+  OnActivate = FormActivate
   OnCreate = FormCreate
   OnDestroy = FormDestroy
@@ -34 +35 @@
       Caption = 'Game'
       object MenuItem2: TMenuItem
-        Action = AGameNew
+        Action = Core.AGameNew
       end
       object MenuItem3: TMenuItem
-        Action = AGameEnd
+        Action = Core.AGameEnd
       end
       object MenuItem7: TMenuItem
-        Action = AGameRestart
+        Action = Core.AGameRestart
       end
       object MenuItem4: TMenuItem
-        Action = AGameEndTurn
+        Action = Core.AGameEndTurn
       end
       object MenuItem5: TMenuItem
@@ -49 +50 @@
       end
       object MenuItem6: TMenuItem
-        Action = AExit
+        Action = Core.AExit
       end
-    end
-  end
-  object ActionList1: TActionList
-    left = 224
-    top = 49
-    object AGameNew: TAction
-      Caption = 'New'
-      OnExecute = AGameNewExecute
-      ShortCut = 16462
-    end
-    object AExit: TAction
-      Caption = 'Exit'
-      OnExecute = AExitExecute
-      ShortCut = 32883
-    end
-    object AGameEnd: TAction
-      Caption = 'End'
-      OnExecute = AGameEndExecute
-      ShortCut = 16454
-    end
-    object AGameEndTurn: TAction
-      Caption = 'End turn'
-      OnExecute = AGameEndTurnExecute
-      ShortCut = 16468
-    end
-    object AGameRestart: TAction
-      Caption = 'Restart'
-      OnExecute = AGameRestartExecute
-      ShortCut = 16466
     end
   end