Changeset 87

Timestamp:

Jun 7, 2024, 12:59:18 PM (7 months ago)

Author:

chronos

Message:

• Added: Use also numeric keyboard for movement.
• Modified: Moved Settings menu under Tools menu.

Location:

trunk

Files:

• Forms/FormMain.lfm (modified) (3 diffs)
• Forms/FormMain.pas (modified) (1 diff)
• Game2048.lpi (modified) (1 diff)
• Game2048.lpr (modified) (1 diff)
• Languages/FormAbout.cs.po (moved) (moved from trunk/Languages/UFormAbout.cs.po ) (2 diffs)
• Languages/FormAbout.pot (added)
• Languages/Game2048.cs.po (modified) (22 diffs)
• Languages/UFormAbout.po (deleted)

trunk/Forms/FormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
-  Left = 684
-  Height = 521
-  Top = 307
-  Width = 580
+  Left = 534
+  Height = 993
+  Top = 223
+  Width = 1491
   Caption = '2048'
   DesignTimePPI = 144
@@ -28 +28 @@
         Action = Core.AUndo
       end
-      object MenuItem1: TMenuItem
-        Action = Core.ASettings
-      end
       object MenuItemExit: TMenuItem
         Action = Core.AExit
@@ -45 +42 @@
     object MenuItemTools: TMenuItem
       Caption = 'Tools'
+      object MenuItem1: TMenuItem
+        Action = Core.ASettings
+      end
       object MenuItem4: TMenuItem
         Action = Core.AComputer

trunk/Forms/FormMain.pas

@@ -96 +96 @@
   KeyRight = 39;
   KeyDown = 40;
+  KeyNumPadLeft = 100;
+  KeyNumPadUp = 104;
+  KeyNumPadRight = 102;
+  KeyNumPadDown = 98;
 begin
   if Core.Core.Game.Running then begin
     case Key of
-      KeyLeft: AddToMoveBuffer(drLeft);
-      KeyUp: AddToMoveBuffer(drUp);
-      KeyRight: AddToMoveBuffer(drRight);
-      KeyDown: AddToMoveBuffer(drDown);
+      KeyLeft, KeyNumPadLeft: AddToMoveBuffer(drLeft);
+      KeyUp, KeyNumPadUp: AddToMoveBuffer(drUp);
+      KeyRight, KeyNumPadRight: AddToMoveBuffer(drRight);
+      KeyDown, KeyNumPadDown: AddToMoveBuffer(drDown);
     end;
     //ProcessMoveBuffer;

trunk/Game2048.lpi

@@ -57 +57 @@
             <Debugging>
               <GenerateDebugInfo Value="False"/>
+              <DebugInfoType Value="dsDwarf3"/>
             </Debugging>
             <LinkSmart Value="True"/>

trunk/Game2048.lpr

@@ -26 +26 @@
   RequireDerivedFormResource:=True;
   Application.Title:='2048';
-  Application.Scaled := True;
+  Application.Scaled:=True;
   Application.Initialize;
   Application.CreateForm(TCore, Core.Core);

trunk/Languages/FormAbout.cs.po

@@ -1 +1 @@
 msgid ""
 msgstr ""
-"Content-Type: text/plain; charset=UTF-8\n"
 "Project-Id-Version: \n"
 "POT-Creation-Date: \n"
@@ -7 +6 @@
 "Last-Translator: Chronos <robie@centrum.cz>\n"
 "Language-Team: \n"
+"Language: cs\n"
 "MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
-"Language: cs\n"
-"X-Generator: Poedit 2.4.1\n"
+"X-Generator: Poedit 3.0.1\n"
 
-#: uformabout.slicense
+#: formabout.slicense
+msgctxt "formabout.slicense"
 msgid "License"
 msgstr "Licence"
 
-#: uformabout.sreleasedate
+#: formabout.sreleasedate
+msgctxt "formabout.sreleasedate"
 msgid "Release date"
 msgstr "Datum uvolnění"
 
-#: uformabout.sversion
+#: formabout.sversion
+msgctxt "formabout.sversion"
 msgid "Version"
 msgstr "Verze"
 
-#: tformabout.buttonhomepage.caption
-msgid "Home page"
-msgstr "Domovská stránka"
-
-#: tformabout.buttonclose.caption
-msgid "Close"
-msgstr "Zavřít"
+#: tformabout.caption
+msgid "About"
+msgstr "O aplikaci"

trunk/Languages/Game2048.cs.po

@@ -1 +1 @@
 msgid ""
 msgstr ""
-"Content-Type: text/plain; charset=UTF-8\n"
 "Project-Id-Version: \n"
 "POT-Creation-Date: \n"
@@ -7 +6 @@
 "Last-Translator: Chronos <robie@centrum.cz>\n"
 "Language-Team: \n"
+"Language: cs\n"
 "MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
-"Language: cs\n"
-"X-Generator: Poedit 2.4.1\n"
+"X-Generator: Poedit 3.4.2\n"
 
 #: core.sgameovercaption
-#, fuzzy
 msgctxt "core.sgameovercaption"
 msgid "Lost"
@@ -19 +18 @@
 
 #: core.sgameovermessage
-#, fuzzy
 msgctxt "core.sgameovermessage"
 msgid "Game over!"
@@ -25 +23 @@
 
 #: core.swincaption
-#, fuzzy
 msgctxt "core.swincaption"
 msgid "Win"
@@ -31 +28 @@
 
 #: core.swinmessage
-#, object-pascal-format, fuzzy
+#, object-pascal-format
 msgctxt "core.swinmessage"
 msgid "You reached %s and won! You can continue to play to get higher score."
@@ -37 +34 @@
 
 #: formhelp.scontrols
-#, fuzzy
 msgctxt "formhelp.scontrols"
 msgid "Use arrow keys to slide blocks to one of board side."
@@ -43 +39 @@
 
 #: formhelp.severyturn
-#, fuzzy
 msgctxt "formhelp.severyturn"
 msgid "Every turn, a new tile will randomly appear in an empty spot on the board with a value of either 2 or 4."
@@ -49 +44 @@
 
 #: formhelp.sparagraph1
-#, fuzzy
 msgctxt "formhelp.sparagraph1"
 msgid "2048 is a single-player block sliding puzzle game."
@@ -55 +49 @@
 
 #: formhelp.sparagraph2
-#, fuzzy
 msgctxt "formhelp.sparagraph2"
 msgid "The game's objective is to slide numbered tiles on a grid to combine them to create a tile with the number 2048."
@@ -61 +54 @@
 
 #: formhelp.sundo
-#, fuzzy
 msgctxt "formhelp.sundo"
 msgid "You can undo one move back, if undo action is enabled."
@@ -67 +59 @@
 
 #: formsettings.slanguagechangemessage
-#, fuzzy
 msgctxt "formsettings.slanguagechangemessage"
 msgid "Interface language was changed. It may require restart of application."
@@ -73 +64 @@
 
 #: formsettings.slanguagechangetitle
-#, fuzzy
 msgctxt "formsettings.slanguagechangetitle"
 msgid "Language change"
@@ -79 +69 @@
 
 #: game.sscore
-#, fuzzy
 msgctxt "game.sscore"
 msgid "Score"
@@ -85 +74 @@
 
 #: game.sskinalpha
-#, fuzzy
 msgctxt "game.sskinalpha"
 msgid "Alpha"
@@ -91 +79 @@
 
 #: game.sskinbinary
-#, fuzzy
 msgctxt "game.sskinbinary"
 msgid "Binary"
@@ -97 +84 @@
 
 #: game.sskinlinear
-#, fuzzy
 msgctxt "game.sskinlinear"
 msgid "Linear"
@@ -103 +89 @@
 
 #: game.sskinpoweroftwo
-#, fuzzy
 msgctxt "game.sskinpoweroftwo"
 msgid "Power of two"
@@ -109 +94 @@
 
 #: game.sskinroman
-#, fuzzy
 msgctxt "game.sskinroman"
 msgid "Roman"
@@ -115 +99 @@
 
 #: game.stileshouldbeempty
-#, fuzzy
 msgctxt "game.stileshouldbeempty"
 msgid "Tile should be empty"
@@ -121 +104 @@
 
 #: game.stopscore
-#, fuzzy
 msgctxt "game.stopscore"
 msgid "Top score"
@@ -158 +140 @@
 #: tcore.applicationinfo1.description
 msgid "A single-player sliding block puzzle game."
-msgstr ""
+msgstr "Jednouživatelská logická hra s posouváním bloků."
 
 #: tcore.asettings.caption
@@ -278 +260 @@
 msgid "Theme:"
 msgstr "Téma:"
-