Changeset 49 for trunk/UCore.pas


Ignore:
Timestamp:
Nov 3, 2019, 11:45:03 AM (5 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/UCore.pas

    r40 r49  
    3737    procedure DataModuleCreate(Sender: TObject);
    3838    procedure DataModuleDestroy(Sender: TObject);
     39    procedure Translator1Translate(Sender: TObject);
    3940  private
    4041    procedure GameChange(Sender: TObject);
     
    170171end;
    171172
     173procedure TCore.Translator1Translate(Sender: TObject);
     174begin
     175  UGame.Translate;
     176end;
     177
    172178procedure TCore.GameChange(Sender: TObject);
    173179begin
     
    178184procedure TCore.GameWin(Sender: TObject);
    179185begin
    180   MessageDlg(SWinCaption, Format(SWinMessage, [Game.WinScore]), mtInformation, [mbOk], 0);
     186  MessageDlg(SWinCaption, Format(SWinMessage, [Game.GetTileSkinValue(Game.WinTileValue)]), mtInformation, [mbOk], 0);
    181187end;
    182188
Note: See TracChangeset for help on using the changeset viewer.