Changeset 21 for trunk


Ignore:
Timestamp:
Oct 5, 2019, 2:23:25 PM (5 years ago)
Author:
chronos
Message:
  • Added: Debian packaging information.
Location:
trunk
Files:
11 added
5 edited
1 moved

Legend:

Unmodified
Added
Removed
  • trunk/Languages/Game2048.cs.po

    r20 r21  
    2323
    2424#: tcore.anew.caption
    25 #, fuzzy
    2625msgctxt "tcore.anew.caption"
    2726msgid "New..."
     
    3534#: tcore.aundo.caption
    3635msgid "Undo"
    37 msgstr ""
     36msgstr "Vrátit zpět"
    3837
    3938#: tformabout.buttonclose.caption
     
    152151
    153152#: ugame.swinmessage
    154 msgid "You won! Do you want to continue to play?"
    155 msgstr "Vyhrál jsi! Chceš pokračovat ve hře?"
    156 
     153msgid "You reached %d and won! You can continue to play to get higher score."
     154msgstr "Dosáhl jsi %d a vyhrál! Můžeš pokračovat ve hře k dosažení vyššího skóre."
  • trunk/Languages/Game2048.po

    r20 r21  
    141141
    142142#: ugame.swinmessage
    143 msgid "You won! Do you want to continue to play?"
     143msgid "You reached %d and won! You can continue to play to get higher score."
    144144msgstr ""
    145145
  • trunk/UCore.pas

    r20 r21  
    5454procedure TCore.DataModuleCreate(Sender: TObject);
    5555begin
     56  {$IFDEF Linux}
     57  // If installed in Linux system then use installation directory for po files
     58  if Application.ExeName = '/usr/bin/Game2048' then
     59    Translator1.POFilesFolder := '/usr/share/Game2048/languages';
     60  {$ENDIF}
     61
    5662  Randomize;
    5763  Game := TGame.Create;
  • trunk/UGame.pas

    r20 r21  
    9898  SGameOverMessage = 'Game over!';
    9999  SWinCaption = 'Win';
    100   SWinMessage = 'You won! Do you want to continue to play?';
     100  SWinMessage = 'You reached %d and won! You can continue to play to get higher score.';
    101101  SScore = 'Score';
    102102  STopScore = 'Top score';
     
    265265procedure TGame.Win;
    266266begin
    267   if MessageDlg(SWinCaption, SWinMessage, mtConfirmation,
    268   mbYesNo, 0) = mrNo then begin
    269     Running := False;
    270   end;
     267  MessageDlg(SWinCaption, Format(SWinMessage, [WinScore]), mtInformation, [mbOk], 0);
    271268end;
    272269
     
    658655  FBoardUndo.LoadFromRegistry(TRegistryContext.Create(RegContext.RootKey, RegContext.Key + '\BoardUndo'));
    659656  Board.LoadFromRegistry(TRegistryContext.Create(RegContext.RootKey, RegContext.Key + '\Board'));
     657  DoChange;
    660658end;
    661659
Note: See TracChangeset for help on using the changeset viewer.