Changeset 91
- Timestamp:
- Jun 7, 2024, 9:33:19 PM (3 months ago)
- Location:
- trunk
- Files:
-
- 5 added
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Core.lfm
r86 r91 2134 2134 OnExecute = AHistoryExecute 2135 2135 end 2136 object ARestart: TAction 2137 Caption = 'Restart' 2138 OnExecute = ARestartExecute 2139 ShortCut = 16466 2140 end 2136 2141 end 2137 2142 object ScaleDPI1: TScaleDPI -
trunk/Core.lrj
r86 r91 8 8 {"hash":322608,"name":"tcore.ahelp.caption","sourcebytes":[72,101,108,112],"value":"Help"}, 9 9 {"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"} 11 12 ]} -
trunk/Core.pas
r86 r91 14 14 AAbout: TAction; 15 15 AComputer: TAction; 16 ARestart: TAction; 16 17 AHistory: TAction; 17 18 AHelp: TAction; … … 32 33 procedure AHistoryExecute(Sender: TObject); 33 34 procedure ANewExecute(Sender: TObject); 35 procedure ARestartExecute(Sender: TObject); 34 36 procedure ASettingsExecute(Sender: TObject); 35 37 procedure AUndoExecute(Sender: TObject); … … 194 196 end; 195 197 198 procedure TCore.ARestartExecute(Sender: TObject); 199 begin 200 Game.New; 201 UpdateInterface; 202 FormMain.FormMain.UpdateInterface; 203 end; 204 196 205 procedure TCore.DataModuleDestroy(Sender: TObject); 197 206 begin -
trunk/Forms/FormMain.lfm
r88 r91 1 1 object FormMain: TFormMain 2 2 Left = 534 3 Height = 10613 Height = 993 4 4 Top = 223 5 5 Width = 1491 … … 24 24 object MenuItemNew: TMenuItem 25 25 Action = Core.ANew 26 end 27 object MenuItem6: TMenuItem 28 Action = Core.ARestart 26 29 end 27 30 object MenuItem2: TMenuItem -
trunk/Forms/FormMain.pas
r88 r91 27 27 MenuItem4: TMenuItem; 28 28 MenuItem5: TMenuItem; 29 MenuItem6: TMenuItem; 29 30 MenuItemFullScreen: TMenuItem; 30 31 MenuItemMovesHistory: TMenuItem; … … 252 253 begin 253 254 FullScreen := not FullScreen; 255 Core.Core.PersistentForm1.Save(Self); 254 256 Core.Core.PersistentForm1.SetFullScreen(FormMain.FullScreen); 255 257 UpdateInterface; -
trunk/Languages/Game2048.cs.po
r89 r91 166 166 msgstr "Jednouživatelská logická hra s posouváním bloků." 167 167 168 #: tcore.arestart.caption 169 msgid "Restart" 170 msgstr "Restart" 171 168 172 #: tcore.asettings.caption 169 173 msgctxt "tcore.asettings.caption"
Note:
See TracChangeset
for help on using the changeset viewer.