Changeset 91


Ignore:
Timestamp:
Jun 7, 2024, 9:33:19 PM (7 months ago)
Author:
chronos
Message:
  • Added: Flatpak build files.
  • Added: Game menu restart action to start a new game without showing options dialog.
  • Fixed: Fullscreen error after another window was opened.
Location:
trunk
Files:
5 added
6 edited

Legend:

Unmodified
Added
Removed

  • trunk/Core.lfm

    r86 r91  
    21342134      OnExecute = AHistoryExecute
    21352135    end
     2136    object ARestart: TAction
     2137      Caption = 'Restart'
     2138      OnExecute = ARestartExecute
     2139      ShortCut = 16466
     2140    end
    21362141  end
    21372142  object ScaleDPI1: TScaleDPI

  • trunk/Core.lrj

    r86 r91  
    88{"hash":322608,"name":"tcore.ahelp.caption","sourcebytes":[72,101,108,112],"value":"Help"},
    99{"hash":1113,"name":"tcore.acomputer.caption","sourcebytes":[65,73],"value":"AI"},
    10 {"hash":191263657,"name":"tcore.ahistory.caption","sourcebytes":[77,111,118,101,115,32,104,105,115,116,111,114,121],"value":"Moves history"}
     10{"hash":191263657,"name":"tcore.ahistory.caption","sourcebytes":[77,111,118,101,115,32,104,105,115,116,111,114,121],"value":"Moves history"},
     11{"hash":147499204,"name":"tcore.arestart.caption","sourcebytes":[82,101,115,116,97,114,116],"value":"Restart"}
    1112]}

  • trunk/Core.pas

    r86 r91  
    1414    AAbout: TAction;
    1515    AComputer: TAction;
     16    ARestart: TAction;
    1617    AHistory: TAction;
    1718    AHelp: TAction;
    … …  
    3233    procedure AHistoryExecute(Sender: TObject);
    3334    procedure ANewExecute(Sender: TObject);
     35    procedure ARestartExecute(Sender: TObject);
    3436    procedure ASettingsExecute(Sender: TObject);
    3537    procedure AUndoExecute(Sender: TObject);
    … …  
    194196end;
    195197
     198procedure TCore.ARestartExecute(Sender: TObject);
     199begin
     200  Game.New;
     201  UpdateInterface;
     202  FormMain.FormMain.UpdateInterface;
     203end;
     204
    196205procedure TCore.DataModuleDestroy(Sender: TObject);
    197206begin

  • trunk/Forms/FormMain.lfm

    r88 r91  
    11object FormMain: TFormMain
    22  Left = 534
    3   Height = 1061
     3  Height = 993
    44  Top = 223
    55  Width = 1491
    … …  
    2424      object MenuItemNew: TMenuItem
    2525        Action = Core.ANew
     26      end
     27      object MenuItem6: TMenuItem
     28        Action = Core.ARestart
    2629      end
    2730      object MenuItem2: TMenuItem

  • trunk/Forms/FormMain.pas

    r88 r91  
    2727    MenuItem4: TMenuItem;
    2828    MenuItem5: TMenuItem;
     29    MenuItem6: TMenuItem;
    2930    MenuItemFullScreen: TMenuItem;
    3031    MenuItemMovesHistory: TMenuItem;
    … …  
    252253begin
    253254  FullScreen := not FullScreen;
     255  Core.Core.PersistentForm1.Save(Self);
    254256  Core.Core.PersistentForm1.SetFullScreen(FormMain.FullScreen);
    255257  UpdateInterface;

  • trunk/Languages/Game2048.cs.po

    r89 r91  
    166166msgstr "Jednouživatelská logická hra s posouváním bloků."
    167167
     168#: tcore.arestart.caption
     169msgid "Restart"
     170msgstr "Restart"
     171
    168172#: tcore.asettings.caption
    169173msgctxt "tcore.asettings.caption"
Note: See TracChangeset for help on using the changeset viewer.