Changeset 206 for trunk/UCore.lfm

Timestamp:

May 21, 2018, 2:50:02 PM (6 years ago)

Author:

chronos

Message:

• Added: New window to list all available actions with their keyboard shortcuts.
• Fixed: Keyboard shortcuts didn't worked for FormClient docked into FormMain.
• Fixed: Signal a turn start to first player if a game is loaded from a file.

File:

• trunk/UCore.lfm (modified) (5 diffs)

trunk/UCore.lfm

@@ -3 +3 @@
   OnDestroy = DataModuleDestroy
   OldCreateOrder = False
-  Height = 811
-  HorizontalOffset = 330
-  VerticalOffset = 228
-  Width = 1258
-  PPI = 144
-  object ActionList1: TActionList
+  Height = 676
+  HorizontalOffset = 275
+  VerticalOffset = 190
+  Width = 1048
+  PPI = 120
+  object ActionListMain: TActionList
     Images = ImageListSmall
-    left = 137
-    top = 60
+    left = 114
+    top = 50
     object AExit: TAction
       Caption = 'Exit'
@@ -95 +95 @@
       OnExecute = AGameSaveExecute
     end
+    object AShowKeyShortcuts: TAction
+      Caption = 'Key shortcuts'
+      OnExecute = AShowKeyShortcutsExecute
+    end
   end
   object ImageListSmall: TImageList
-    left = 786
-    top = 420
+    left = 655
+    top = 350
     Bitmap = {
       4C690C00000010000000100000000000000000000000E3AA4BD6E5B35EFFE3B1
@@ -490 +494 @@
     POFilesFolder = 'Languages'
     OnTranslate = CoolTranslator1Translate
-    left = 137
-    top = 436
+    left = 114
+    top = 363
   end
   object ImageListLarge: TImageList
     Height = 32
     Width = 32
-    left = 786
-    top = 286
+    left = 655
+    top = 238
     Bitmap = {
       4C690C0000002000000020000000000000000000000000000000E2AA4B36E2A9
@@ -2042 +2046 @@
     RootName = 'CONFIG'
     ReadOnly = False
-    left = 137
-    top = 556
+    left = 114
+    top = 463
   end
   object OpenDialog1: TOpenDialog
     DefaultExt = '.xtmap'
-    left = 1126
-    top = 292
+    left = 938
+    top = 243
   end
   object SaveDialog1: TSaveDialog
     DefaultExt = '.xtmap'
-    left = 1126
-    top = 166
+    left = 938
+    top = 138
   end
   object ApplicationInfo: TApplicationInfo
@@ -2070 +2074 @@
     RegistryRoot = rrKeyCurrentUser
     License = 'CC0'
-    left = 137
-    top = 180
+    left = 114
+    top = 150
   end
   object PersistentForm: TPersistentForm
     MinVisiblePart = 50
     EntireVisible = False
-    left = 780
-    top = 600
+    left = 650
+    top = 500
   end
   object ScaleDPI1: TScaleDPI
     AutoDetect = False
-    left = 136
-    top = 676
+    left = 113
+    top = 563
   end
   object LastOpenedList1: TLastOpenedList
     MaxCount = 10
     OnChange = LastOpenedList1Change
-    left = 137
-    top = 300
+    left = 114
+    top = 250
   end
 end