Changeset 49 for trunk/UCore.pas

Timestamp:

Nov 3, 2019, 11:45:03 AM (4 years ago)

Author:

chronos

Message:

• Added: Support for selectable skins of tiles. Tile values are now representing normal sequence of numbers. If power of two is selected, values are recalculated for rendering and score.

File:

• trunk/UCore.pas (modified) (3 diffs)

trunk/UCore.pas

@@ -37 +37 @@
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
+    procedure Translator1Translate(Sender: TObject);
   private
     procedure GameChange(Sender: TObject);
@@ -170 +171 @@
 end;
 
+procedure TCore.Translator1Translate(Sender: TObject);
+begin
+  UGame.Translate;
+end;
+
 procedure TCore.GameChange(Sender: TObject);
 begin
@@ -178 +184 @@
 procedure TCore.GameWin(Sender: TObject);
 begin
-  MessageDlg(SWinCaption, Format(SWinMessage, [Game.WinScore]), mtInformation, [mbOk], 0);
+  MessageDlg(SWinCaption, Format(SWinMessage, [Game.GetTileSkinValue(Game.WinTileValue)]), mtInformation, [mbOk], 0);
 end;