Changeset 317
- Timestamp:
- Jun 21, 2024, 12:44:53 PM (5 months ago)
- Location:
- trunk
- Files:
-
- 8 added
- 10 deleted
- 5 edited
- 65 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/Building.pas
r316 r317 1 unit UBuilding;1 unit Building; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, UItemList;6 Classes, SysUtils, ItemList; 7 7 8 8 type … … 66 66 67 67 uses 68 UMap;68 Map; 69 69 70 70 { TBuildings } -
trunk/ClientAI.pas
r316 r317 1 unit UClientAI;1 unit ClientAI; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, UGameClient, UGame, Math, UPlayer, UMap, Generics.Defaults;6 Classes, SysUtils, GameClient, Game, Math, Player, Map, Generics.Defaults; 7 7 8 8 type -
trunk/ClientGUI.pas
r316 r317 1 unit UClientGUI;1 unit ClientGUI; 2 2 3 3 interface 4 4 5 5 uses 6 Types, Classes, SysUtils, Graphics, UGameClient, UPlayer, UMap, UGame, UGeometry,6 Types, Classes, SysUtils, Graphics, GameClient, Player, Map, Game, Geometry, 7 7 Math; 8 8 … … 70 70 71 71 uses 72 UBuilding;72 Building; 73 73 74 74 resourcestring -
trunk/Core.lfm
r316 r317 327 327 } 328 328 end 329 object CoolTranslator1: TTranslator329 object Translator1: TTranslator 330 330 POFilesFolder = 'Languages' 331 OnTranslate = CoolTranslator1Translate331 OnTranslate = Translator1Translate 332 332 Left = 137 333 333 Top = 436 … … 1297 1297 end 1298 1298 object SaveDialog1: TSaveDialog 1299 Title = 'Save as' 1299 1300 DefaultExt = '.xtmap' 1300 1301 Left = 1126 … … 1837 1838 Top = 180 1838 1839 end 1839 object PersistentForm : TPersistentForm1840 object PersistentForm1: TPersistentForm 1840 1841 MinVisiblePart = 50 1841 1842 EntireVisible = False -
trunk/Core.lrj
r316 r317 22 22 {"hash":91608562,"name":"tcore.atogglefogofwar.caption","sourcebytes":[84,111,103,103,108,101,32,102,111,103,32,111,102,32,119,97,114],"value":"Toggle fog of war"}, 23 23 {"hash":108810549,"name":"tcore.afullscreen.caption","sourcebytes":[70,117,108,108,32,115,99,114,101,101,110,32,109,111,100,101],"value":"Full screen mode"}, 24 {"hash":160200403,"name":"tcore.savedialog1.title","sourcebytes":[83,97,118,101,32,97,115],"value":"Save as"}, 24 25 {"hash":131198430,"name":"tcore.applicationinfo.description","sourcebytes":[65,32,116,117,114,110,45,98,97,115,101,100,32,115,116,114,97,116,101,103,121,32,103,97,109,101,32,105,110,115,112,105,114,101,100,32,98,121,32,99,108,97,115,115,105,99,32,82,105,115,107,32,98,111,97,114,100,32,103,97,109,101,46,32,84,104,101,32,103,97,109,101,32,105,115,32,104,105,103,104,108,121,32,99,111,110,102,105,103,117,114,97,98,108,101,32,116,111,32,97,108,108,111,119,32,116,111,32,97,100,106,117,115,116,32,98,97,116,116,108,101,32,102,105,101,108,100,32,97,110,100,32,103,97,109,101,32,114,117,108,101,115,46],"value":"A turn-based strategy game inspired by classic Risk board game. The game is highly configurable to allow to adjust battle field and game rules."} 25 26 ]} -
trunk/Core.pas
r316 r317 1 unit UCore;1 unit Core; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, XMLConf, FileUtil, ActnList, Controls, Dialogs, Forms, 7 UGame, ApplicationInfo, PersistentForm, ScaleDPI, Translator, DOM,8 RegistryEx, LastOpenedList, Theme, Registry, Menus, 9 UFormClient, UPlayer, UGameServer, UGameClient, Generics.Collections,10 UServerList, UGameSystem, Graphics, UUnit;7 Game, ApplicationInfo, PersistentForm, ScaleDPI, Translator, DOM, 8 RegistryEx, LastOpenedList, Theme, Registry, Menus, FormCharts, FormMain, 9 FormClient, Player, GameServer, GameClient, Generics.Collections, 10 ServerList, GameSystem, Graphics, &Unit; 11 11 12 12 type … … 34 34 AGameNew: TAction; 35 35 AGameRestart: TAction; 36 CoolTranslator1: TTranslator;36 Translator1: TTranslator; 37 37 ImageListLarge: TImageList; 38 38 ImageListSmall: TImageList; 39 39 LastOpenedList1: TLastOpenedList; 40 40 OpenDialog1: TOpenDialog; 41 PersistentForm : TPersistentForm;41 PersistentForm1: TPersistentForm; 42 42 SaveDialog1: TSaveDialog; 43 43 ScaleDPI1: TScaleDPI; … … 61 61 procedure AShowUnitMovesExecute(Sender: TObject); 62 62 procedure AToggleFogOfWarExecute(Sender: TObject); 63 procedure CoolTranslator1Translate(Sender: TObject);63 procedure Translator1Translate(Sender: TObject); 64 64 procedure DataModuleCreate(Sender: TObject); 65 65 procedure DataModuleDestroy(Sender: TObject); … … 99 99 AutoSaveEnabled: Boolean; 100 100 ReopenLastFile: Boolean; 101 FormClients: T ObjectList<TFormClient>;101 FormClients: TFormClients; 102 102 LocalClients: TClients; 103 103 ServerList: TServerList; 104 104 GameSystems: TGameSystems; 105 FormMain: TFormMain; 105 106 procedure ReopenGameOnInit; 106 107 procedure LoadConfig; … … 128 129 129 130 uses 130 UFormMain, UFormNew, UFormSettings, UClientAI, UFormKeyShortcuts, Common,131 UFormHelp, UFormCharts, UFormUnitMoves, UFormPlayersStats, UClientGUI, FormAbout;131 FormNew, FormSettings, ClientAI, FormKeyShortcuts, Common, FormEx, 132 FormHelp, FormUnitMoves, FormPlayersStats, ClientGUI, FormAbout; 132 133 133 134 const … … 145 146 SMissingServerClientForPlayer = 'Server client for current player not found.'; 146 147 148 procedure Translate; 149 begin 150 Game.InitStrings; 151 end; 147 152 148 153 { TCore } … … 196 201 begin 197 202 RegistryContext := TRegistryContext.Create(HKEY_CURRENT_USER, DefaultRegKey); 198 PersistentForm .RegistryContext := RegistryContext;203 PersistentForm1.RegistryContext := RegistryContext; 199 204 XMLConfig1.Filename := GetAppConfigDir(False) + 'Config.xml'; 200 205 … … 205 210 AutoSaveEnabled := XMLConfig1.GetValue('AutoSave', True); 206 211 ReopenLastFile := XMLConfig1.GetValue('ReopenLastFile', True); 207 CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(String(XMLConfig1.GetValue('Language', '')));212 Translator1.Language := Translator1.Languages.SearchByCode(String(XMLConfig1.GetValue('Language', ''))); 208 213 ScaleDPI1.DPI := Point(XMLConfig1.GetValue('DPIX', 96), XMLConfig1.GetValue('DPIY', 96)); 209 214 ScaleDPI1.AutoDetect := XMLConfig1.GetValue('DPIAuto', True); … … 215 220 procedure TCore.SaveConfig; 216 221 begin 217 XMLConfig1.SetValue('Language', WideString( CoolTranslator1.Language.Code));222 XMLConfig1.SetValue('Language', WideString(Translator1.Language.Code)); 218 223 XMLConfig1.SetValue('Theme', WideString(ThemeManager1.Theme.Name)); 219 224 LastOpenedList1.SaveToXMLConfig(XMLConfig1, 'RecentFiles'); … … 277 282 begin 278 283 FirstHuman := Game.Players.GetFirstHuman; 279 if Assigned(FirstHuman) then Form Client.Client := TClientGUI(LocalClients.SearchPlayer(FirstHuman))284 if Assigned(FirstHuman) then FormMain.FormClient.Client := TClientGUI(LocalClients.SearchPlayer(FirstHuman)) 280 285 else begin 281 Form Client.Client := TClientGUI(LocalClients.New(SSpectator));282 Form Client.Client.LocalServer := Server;283 Form Client.Client.ConnectType := ctLocal;284 Form Client.Client.Active := True;285 Form Client.AZoomAll.Execute;286 FormMain.FormClient.Client := TClientGUI(LocalClients.New(SSpectator)); 287 FormMain.FormClient.Client.LocalServer := Server; 288 FormMain.FormClient.Client.ConnectType := ctLocal; 289 FormMain.FormClient.Client.Active := True; 290 FormMain.FormClient.AZoomAll.Execute; 286 291 end; 287 292 end; … … 339 344 var 340 345 NewServer: TServer; 346 FormNew: TFormNew; 341 347 begin 342 348 FormNew := TFormNew.Create(nil); … … 394 400 395 401 procedure TCore.AHelpExecute(Sender: TObject); 402 var 403 FormHelp: TFormHelp; 396 404 begin 397 405 FormHelp := TFormHelp.Create(Self); … … 410 418 procedure TCore.APlayersStatsExecute(Sender: TObject); 411 419 begin 412 if not Assigned(Form PlayersStats) then413 Form PlayersStats := TFormPlayersStats.Create(nil);414 Form PlayersStats.Show;420 if not Assigned(FormMain.FormPlayersStats) then 421 FormMain.FormPlayersStats := TFormPlayersStats.Create(nil); 422 FormMain.FormPlayersStats.Show; 415 423 end; 416 424 417 425 procedure TCore.ASettingsExecute(Sender: TObject); 426 var 427 FormSettings: TFormSettings; 418 428 begin 419 429 FormSettings := TFormSettings.Create(nil); … … 434 444 procedure TCore.AShowChartsExecute(Sender: TObject); 435 445 begin 436 if not Assigned(FormCharts) then FormCharts := TFormCharts.Create(nil); 437 FormCharts.Show; 446 if not Assigned(FormMain.FormCharts) then 447 FormMain.FormCharts := TFormCharts.Create(nil); 448 FormMain.FormCharts.Show; 438 449 end; 439 450 440 451 procedure TCore.AShowKeyShortcutsExecute(Sender: TObject); 441 452 begin 442 if not Assigned(Form KeyShortcuts) thenFormKeyShortcuts := TFormKeyShortcuts.Create(nil);443 Form KeyShortcuts.Show;453 if not Assigned(FormMain.FormKeyShortcuts) then FormMain.FormKeyShortcuts := TFormKeyShortcuts.Create(nil); 454 FormMain.FormKeyShortcuts.Show; 444 455 end; 445 456 446 457 procedure TCore.AShowUnitMovesExecute(Sender: TObject); 447 458 begin 448 if not Assigned(FormUnitMoves) then FormUnitMoves := TFormUnitMoves.Create(nil); 449 FormUnitMoves.Show; 459 if not Assigned(FormMain.FormUnitMoves) then 460 FormMain.FormUnitMoves := TFormUnitMoves.Create(nil); 461 FormMain.FormUnitMoves.Show; 450 462 end; 451 463 … … 456 468 end; 457 469 458 procedure TCore.CoolTranslator1Translate(Sender: TObject); 459 begin 460 UGame.InitStrings; 461 CoolTranslator1.TranslateComponentRecursive(FormClient); 470 procedure TCore.Translator1Translate(Sender: TObject); 471 begin 472 Translate; 473 if Assigned(FormMain) then 474 Translator1.TranslateComponentRecursive(FormMain.FormClient); 462 475 end; 463 476 … … 473 486 GameFilesDir := LinuxGameFilesDir; 474 487 // If installed in Linux system then use installation directory for po files 475 if not DirectoryExists( CoolTranslator1.POFilesFolder) and DirectoryExists(LinuxLanguagesDir) then476 CoolTranslator1.POFilesFolder := LinuxLanguagesDir;488 if not DirectoryExists(Translator1.POFilesFolder) and DirectoryExists(LinuxLanguagesDir) then 489 Translator1.POFilesFolder := LinuxLanguagesDir; 477 490 {$ENDIF} 478 491 … … 493 506 XMLConfig1.Filename := GetAppConfigDir(False) + 'Config.xml'; 494 507 ForceDirectories(GetAppConfigDir(False)); 495 FormClients := T ObjectList<TFormClient>.Create;508 FormClients := TFormClients.Create; 496 509 ServerList := TServerList.Create; 510 511 LoadConfig; 512 513 TFormEx.ScaleDPI := ScaleDPI1; 514 TFormEx.Translator := Translator1; 515 TFormEx.ThemeManager := ThemeManager1; 516 TFormEx.PersistentForm := PersistentForm1; 517 518 FormMain := TFormMain.Create(nil); 519 FormMain.Show; 497 520 end; 498 521 … … 500 523 begin 501 524 FreeAndNil(ServerList); 502 if Assigned(Form PlayersStats) then FreeAndNil(FormPlayersStats);503 if Assigned(Form UnitMoves) then FreeAndNil(FormUnitMoves);504 if Assigned(Form Charts) then FreeAndNil(FormCharts);505 if Assigned(Form KeyShortcuts) then FreeAndNil(FormKeyShortcuts);525 if Assigned(FormMain.FormPlayersStats) then FreeAndNil(FormMain.FormPlayersStats); 526 if Assigned(FormMain.FormUnitMoves) then FreeAndNil(FormMain.FormUnitMoves); 527 if Assigned(FormMain.FormCharts) then FreeAndNil(FormMain.FormCharts); 528 if Assigned(FormMain.FormKeyShortcuts) then FreeAndNil(FormMain.FormKeyShortcuts); 506 529 FreeAndNil(FormClients); 507 530 FreeAndNil(StoredDimension); … … 511 534 FreeAndNil(GameSettings); 512 535 FreeAndNil(GameSystems); 536 FreeAndNil(FormMain); 513 537 end; 514 538 515 539 procedure TCore.LastOpenedList1Change(Sender: TObject); 516 540 begin 517 LastOpenedList1.LoadToMenuItem(FormMain.MenuItemLoadRecent, LoadRecentExecute); 541 if Assigned(FormMain) then 542 LastOpenedList1.LoadToMenuItem(FormMain.MenuItemLoadRecent, LoadRecentExecute); 518 543 end; 519 544 … … 538 563 // Create local LocalClients for human players 539 564 LocalClients.Clear; 540 Form Client.Client := nil;565 FormMain.FormClient.Client := nil; 541 566 for I := 0 to Game.Players.Count - 1 do begin 542 567 Player := TPlayer(Game.Players[I]); … … 573 598 if Assigned(ServerClient) then ServerClient.TurnStart 574 599 else raise Exception.Create(SMissingServerClientForPlayer); 575 Form Client.AZoomAll.Execute;600 FormMain.FormClient.AZoomAll.Execute; 576 601 end; 577 602 578 603 procedure TCore.UpdateOtherForms; 579 604 begin 580 if Assigned(Form Charts) and FormCharts.Visible thenFormCharts.Redraw;581 if Assigned(Form UnitMoves) and FormUnitMoves.Visible thenFormUnitMoves.ReloadList;582 if Assigned(Form PlayersStats) and FormPlayersStats.Visible thenFormPlayersStats.ReloadList;605 if Assigned(FormMain.FormCharts) and FormMain.FormCharts.Visible then FormMain.FormCharts.Redraw; 606 if Assigned(FormMain.FormUnitMoves) and FormMain.FormUnitMoves.Visible then FormMain.FormUnitMoves.ReloadList; 607 if Assigned(FormMain.FormPlayersStats) and FormMain.FormPlayersStats.Visible then FormMain.FormPlayersStats.ReloadList; 583 608 end; 584 609 … … 589 614 begin 590 615 // Copy all actions from docked form to main form so keyboard shortcuts will be active 591 for I := 0 to Form Client.ActionList1.ActionCount - 1 do begin616 for I := 0 to FormMain.FormClient.ActionList1.ActionCount - 1 do begin 592 617 Action := TAction.Create(FormMain); 593 Action.Assign(TAction(Form Client.ActionList1.Actions[I]));618 Action.Assign(TAction(FormMain.FormClient.ActionList1.Actions[I])); 594 619 Action.ActionList := FormMain.ActionList1; 595 620 end; … … 625 650 begin 626 651 FullScreen := not FullScreen; 627 PersistentForm .Form := FormMain;628 PersistentForm .SetFullScreen(FullScreen);652 PersistentForm1.Form := FormMain; 653 PersistentForm1.SetFullScreen(FullScreen); 629 654 UpdateInterface; 630 655 end; … … 673 698 // Create local LocalClients for human players 674 699 LocalClients.Clear; 675 Form Client.Client := nil;700 FormMain.FormClient.Client := nil; 676 701 for I := 0 to Game.Players.Count - 1 do begin 677 702 Player := TPlayer(Game.Players[I]); … … 722 747 if Game.CurrentPlayer.Mode = pmHuman then begin 723 748 PlayerClient := LocalClients.SearchPlayer(Game.CurrentPlayer); 724 if Assigned(PlayerClient) then Form Client.Client := TClientGUI(PlayerClient);749 if Assigned(PlayerClient) then FormMain.FormClient.Client := TClientGUI(PlayerClient); 725 750 end; 726 751 … … 733 758 procedure TCore.DoMoveUpdated(UnitMove: TUnitMove); 734 759 begin 735 if Assigned(Form UnitMoves) andFormUnitMoves.Visible then736 Form UnitMoves.ReloadList;760 if Assigned(FormMain.FormUnitMoves) and FormMain.FormUnitMoves.Visible then 761 FormMain.FormUnitMoves.ReloadList; 737 762 end; 738 763 -
trunk/Forms/FormCharts.lfm
r316 r317 1 1 object FormCharts: TFormCharts 2 Left = 5622 Left = 808 3 3 Height = 709 4 Top = 3 334 Top = 365 5 5 Width = 944 6 6 Caption = 'Charts' 7 7 ClientHeight = 709 8 8 ClientWidth = 944 9 DesignTimePPI = 120 10 OnClose = FormClose 9 DesignTimePPI = 144 11 10 OnShow = FormShow 12 LCLVersion = ' 2.0.0.4'11 LCLVersion = '3.4.0.0' 13 12 object Chart1: TChart 14 Left = 815 Height = 6 4816 Top = 5617 Width = 9 3213 Left = 10 14 Height = 636 15 Top = 67 16 Width = 929 18 17 AxisList = < 19 18 item … … 39 38 end 40 39 object ComboBox1: TComboBox 41 Left = 2 442 Height = 2843 Top = 844 Width = 39245 ItemHeight = 2040 Left = 29 41 Height = 38 42 Top = 10 43 Width = 470 44 ItemHeight = 0 46 45 ItemIndex = 0 47 46 Items.Strings = ( … … 51 50 'Cities count' 52 51 ) 53 OnChange = ComboBox1Change54 52 Style = csDropDownList 55 53 TabOrder = 1 56 54 Text = 'Occupied cells' 55 OnChange = ComboBox1Change 57 56 end 58 57 end -
trunk/Forms/FormCharts.pas
r316 r317 1 unit UFormCharts;1 unit FormCharts; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, TAGraph, TASeries, Forms, Controls, Graphics, 7 Dialogs, StdCtrls ;7 Dialogs, StdCtrls, FormEx; 8 8 9 9 type … … 11 11 { TFormCharts } 12 12 13 TFormCharts = class(TForm )13 TFormCharts = class(TFormEx) 14 14 Chart1: TChart; 15 15 ComboBox1: TComboBox; 16 16 procedure ComboBox1Change(Sender: TObject); 17 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);18 17 procedure FormShow(Sender: TObject); 19 18 public … … 21 20 procedure Translate; 22 21 end; 23 24 var25 FormCharts: TFormCharts;26 22 27 23 … … 31 27 32 28 uses 33 UCore, UGame, UPlayer;29 Core, Game, Player; 34 30 35 31 resourcestring … … 48 44 end; 49 45 50 procedure TFormCharts.FormClose(Sender: TObject; var CloseAction: TCloseAction);51 begin52 Core.PersistentForm.Save(Self);53 end;54 55 46 procedure TFormCharts.FormShow(Sender: TObject); 56 47 begin 57 Core.PersistentForm.Load(Self);58 Core.ThemeManager1.UseTheme(Self);59 48 Redraw; 60 49 Translate; … … 70 59 begin 71 60 Chart1.Series.Clear; 72 for I := 0 to Core. Game.Players.Count - 1 do73 with TPlayer(Core. Game.Players[I]) do begin61 for I := 0 to Core.Core.Game.Players.Count - 1 do 62 with TPlayer(Core.Core.Game.Players[I]) do begin 74 63 NewSeries := TLineSeries.Create(nil); 75 64 NewSeries.LinePen.Color := Color; … … 89 78 LastIndex: Integer; 90 79 begin 91 Core.Co olTranslator1.TranslateComponentRecursive(Self);80 Core.Core.Translator1.TranslateComponentRecursive(Self); 92 81 with ComboBox1 do begin 93 82 LastIndex := ItemIndex; -
trunk/Forms/FormChat.lfm
r316 r317 1 1 object FormChat: TFormChat 2 Left = 4963 Height = 3684 Top = 3285 Width = 4392 Left = 1060 3 Height = 442 4 Top = 536 5 Width = 527 6 6 Caption = 'Chat' 7 ClientHeight = 368 8 ClientWidth = 439 9 DesignTimePPI = 120 10 OnCreate = FormCreate 11 OnShow = FormShow 12 LCLVersion = '2.0.0.4' 7 ClientHeight = 442 8 ClientWidth = 527 9 DesignTimePPI = 144 10 LCLVersion = '3.4.0.0' 13 11 object MemoChat: TMemo 14 Left = 715 Height = 3 0216 Top = 2717 Width = 42412 Left = 8 13 Height = 363 14 Top = 32 15 Width = 509 18 16 Anchors = [akTop, akLeft, akRight, akBottom] 19 17 ParentFont = False … … 23 21 end 24 22 object EditMessage: TEdit 25 Left = 726 Height = 2827 Top = 3 3428 Width = 34223 Left = 8 24 Height = 43 25 Top = 392 26 Width = 411 29 27 Anchors = [akLeft, akRight, akBottom] 30 OnKeyPress = EditMessageKeyPress31 28 ParentFont = False 32 29 TabOrder = 1 30 OnKeyPress = EditMessageKeyPress 33 31 end 34 32 object ButtonMessageSend: TButton 35 Left = 35336 Height = 2637 Top = 33538 Width = 7833 Left = 423 34 Height = 31 35 Top = 403 36 Width = 94 39 37 Anchors = [akRight, akBottom] 40 38 Caption = 'Send' 41 OnClick = ButtonMessageSendClick42 39 ParentFont = False 43 40 TabOrder = 2 41 OnClick = ButtonMessageSendClick 44 42 end 45 43 object Label1: TLabel 46 Left = 847 Height = 2 048 Top = 349 Width = 3344 Left = 10 45 Height = 26 46 Top = 4 47 Width = 43 50 48 Caption = 'Chat:' 51 49 ParentColor = False -
trunk/Forms/FormChat.pas
r316 r317 1 unit UFormChat;1 unit FormChat; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 7 UGame, UGameClient;7 Game, GameClient, FormEx; 8 8 9 9 type … … 11 11 { TFormChat } 12 12 13 TFormChat = class(TForm )13 TFormChat = class(TFormEx) 14 14 ButtonMessageSend: TButton; 15 15 EditMessage: TEdit; … … 18 18 procedure ButtonMessageSendClick(Sender: TObject); 19 19 procedure EditMessageKeyPress(Sender: TObject; var Key: char); 20 procedure FormCreate(Sender: TObject);21 procedure FormShow(Sender: TObject);22 private23 24 20 public 25 21 Client: TClient; 26 22 end; 27 28 var29 FormChat: TFormChat;30 23 31 24 … … 34 27 {$R *.lfm} 35 28 36 uses37 UCore;38 39 29 { TFormChat } 40 30 … … 42 32 begin 43 33 if Key = #13 then ButtonMessageSend.Click; 44 end;45 46 procedure TFormChat.FormCreate(Sender: TObject);47 begin48 Core.CoolTranslator1.TranslateComponentRecursive(Self);49 end;50 51 procedure TFormChat.FormShow(Sender: TObject);52 begin53 Core.ThemeManager1.UseTheme(Self);54 34 end; 55 35 -
trunk/Forms/FormClient.lfm
r316 r317 1 1 object FormClient: TFormClient 2 Left = 5282 Left = 887 3 3 Height = 621 4 Top = 2804 Top = 404 5 5 Width = 775 6 6 Caption = 'Client' 7 7 ClientHeight = 621 8 8 ClientWidth = 775 9 DesignTimePPI = 1 209 DesignTimePPI = 144 10 10 OnClose = FormClose 11 11 OnCreate = FormCreate … … 13 13 OnKeyUp = FormKeyUp 14 14 OnShow = FormShow 15 LCLVersion = ' 2.0.0.4'15 LCLVersion = '3.4.0.0' 16 16 WindowState = wsMaximized 17 17 object StatusBar1: TStatusBar … … 22 22 Panels = < 23 23 item 24 Width = 16724 Width = 200 25 25 end 26 26 item 27 Width = 1 2527 Width = 150 28 28 end 29 29 item 30 Width = 8330 Width = 100 31 31 end> 32 32 ParentFont = False … … 37 37 Height = 593 38 38 Top = 0 39 Width = 2739 Width = 32 40 40 Align = alLeft 41 ButtonHeight = 2742 ButtonWidth = 2741 ButtonHeight = 32 42 ButtonWidth = 32 43 43 Images = Core.ImageListSmall 44 44 ParentFont = False … … 54 54 object ToolButton6: TToolButton 55 55 Left = 1 56 Top = 6156 Top = 71 57 57 Action = AZoomIn 58 58 end 59 59 object ToolButton7: TToolButton 60 60 Left = 1 61 Top = 8861 Top = 103 62 62 Action = AZoomOut 63 63 end 64 64 object ToolButton8: TToolButton 65 65 Left = 1 66 Top = 1 1566 Top = 135 67 67 Action = AZoomAll 68 68 end 69 69 object ToolButton9: TToolButton 70 70 Left = 1 71 Top = 5672 Width = 2771 Top = 66 72 Width = 32 73 73 AutoSize = True 74 74 Style = tbsDivider … … 76 76 object ToolButton1: TToolButton 77 77 Left = 1 78 Top = 2978 Top = 34 79 79 Action = ASurrender 80 80 end 81 81 end 82 82 object PaintBox1: TPaintBox 83 Left = 2783 Left = 32 84 84 Height = 593 85 85 Top = 0 86 Width = 74 886 Width = 743 87 87 Align = alClient 88 88 ParentFont = False … … 99 99 Interval = 20 100 100 OnTimer = Timer1Timer 101 left = 133102 top = 133101 Left = 160 102 Top = 160 103 103 end 104 104 object ActionList1: TActionList 105 105 Images = Core.ImageListSmall 106 left = 233107 top = 127106 Left = 280 107 Top = 152 108 108 object AZoomIn: TAction 109 109 Caption = 'Zoom in' … … 152 152 end 153 153 object PopupMenuToolbar: TPopupMenu 154 left = 377155 top = 82154 Left = 452 155 Top = 98 156 156 object MenuItem18: TMenuItem 157 157 Action = AToolBarBigIcons -
trunk/Forms/FormClient.pas
r316 r317 1 unit UFormClient;1 unit FormClient; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls, 7 UGame, LCLType, Menus, ActnList, ComCtrls, dateutils, XMLConf, DOM, Math, 8 UGeometry, UGameClient, UGameProtocol, Threading, UPlayer, UClientGUI, UFormMain; 7 Game, LCLType, Menus, ActnList, ComCtrls, dateutils, XMLConf, DOM, Math, 8 Geometry, GameClient, GameProtocol, Threading, Player, ClientGUI, 9 FormEx, Generics.Collections; 9 10 10 11 const … … 18 19 { TFormClient } 19 20 20 TFormClient = class(TForm )21 TFormClient = class(TFormEx) 21 22 ASurrender: TAction; 22 23 AGameEndTurn: TAction; … … 93 94 procedure DoClientDestroy(Sender: TObject); 94 95 public 95 FormMain: TFormMain;96 96 procedure LoadConfig(Config: TXmlConfig; Path: string); 97 97 procedure SaveConfig(Config: TXmlConfig; Path: string); … … 101 101 end; 102 102 103 var 104 FormClient: TFormClient;103 TFormClients = class(TObjectList<TFormClient>) 104 end; 105 105 106 106 const … … 111 111 112 112 uses 113 UCore, UFormMove;113 Core, FormMove; 114 114 115 115 resourcestring … … 321 321 if RedrawPending and not Drawing then begin 322 322 Drawing := True; 323 if not Core. DevelMode then RedrawPending := False;323 if not Core.Core.DevelMode then RedrawPending := False; 324 324 TimerPeriod := (9 * TimerPeriod + (Now - LastTimerTime)) / 10; 325 325 LastTimerTime := Now; … … 327 327 StatusBar1.Panels[1].Text := IntToStr(Trunc(DrawDuration / OneMillisecond)) + ' / ' + 328 328 IntToStr(Trunc(TimerPeriod / OneMillisecond)) + ' ms' + 329 ' ' + IntToStr(Core. Game.Map.CellLinks.Count);329 ' ' + IntToStr(Core.Core.Game.Map.CellLinks.Count); 330 330 NewCaption := 'xTactics'; 331 if Assigned(Core. Game.CurrentPlayer) then332 NewCaption := Core. Game.CurrentPlayer.Name + ' - ' + STurn + ' ' + IntToStr(Core.Game.TurnCounter) + ' - ' + NewCaption;331 if Assigned(Core.Core.Game.CurrentPlayer) then 332 NewCaption := Core.Core.Game.CurrentPlayer.Name + ' - ' + STurn + ' ' + IntToStr(Core.Core.Game.TurnCounter) + ' - ' + NewCaption; 333 333 Caption := NewCaption; 334 334 Drawing := False; … … 350 350 FClient.OnNextPlayer := DoNextPlayer; 351 351 FClient.View.DestRect := TRect.CreateBounds(TPoint.Create(0, 0), TPoint.Create(PaintBox1.Width, PaintBox1.Height)); 352 FClient.CellGridVisible := Core.C ellGridVisible;353 FClient.UnitShapeVisible := Core. UnitShapeVisible;352 FClient.CellGridVisible := Core.Core.CellGridVisible; 353 FClient.UnitShapeVisible := Core.Core.UnitShapeVisible; 354 354 end; 355 355 Redraw; … … 399 399 begin 400 400 if AToolBarBigIcons.Checked then begin 401 ToolBar1.Images := Core. ImageListLarge;402 ToolBar1.ButtonWidth := Core. ImageListLarge.Width + 7;403 ToolBar1.ButtonHeight := Core. ImageListLarge.Height + 6;404 ToolBar1.Width := Core. ImageListLarge.Width + 10;405 ToolBar1.Height := Core. ImageListLarge.Height + 10;401 ToolBar1.Images := Core.Core.ImageListLarge; 402 ToolBar1.ButtonWidth := Core.Core.ImageListLarge.Width + 7; 403 ToolBar1.ButtonHeight := Core.Core.ImageListLarge.Height + 6; 404 ToolBar1.Width := Core.Core.ImageListLarge.Width + 10; 405 ToolBar1.Height := Core.Core.ImageListLarge.Height + 10; 406 406 end else begin 407 ToolBar1.Images := Core. ImageListSmall;408 ToolBar1.ButtonWidth := Core. ImageListSmall.Width + 7;409 ToolBar1.ButtonHeight := Core. ImageListSmall.Height + 6;410 ToolBar1.Width := Core. ImageListSmall.Width + 10;411 ToolBar1.Height := Core. ImageListSmall.Height + 10;407 ToolBar1.Images := Core.Core.ImageListSmall; 408 ToolBar1.ButtonWidth := Core.Core.ImageListSmall.Width + 7; 409 ToolBar1.ButtonHeight := Core.Core.ImageListSmall.Height + 6; 410 ToolBar1.Width := Core.Core.ImageListSmall.Width + 10; 411 ToolBar1.Height := Core.Core.ImageListSmall.Height + 10; 412 412 end; 413 413 ToolBar1.Visible := AToolBarVisible.Checked; … … 433 433 TimerPeriod := 0; 434 434 LastTimerTime := Now; 435 Core.CoolTranslator1.TranslateComponentRecursive(Self);436 435 end; 437 436 438 437 procedure TFormClient.AZoomAllExecute(Sender: TObject); 439 438 begin 440 with Core , Game, Client, View do begin439 with Core.Core, Game, Client, View do begin 441 440 ZoomAll; 442 441 end; … … 512 511 procedure TFormClient.FormClose(Sender: TObject; var CloseAction: TCloseAction); 513 512 begin 514 SaveConfig(Core.XMLConfig1, 'FormClient'); 515 Core.PersistentForm.Save(Self); 513 SaveConfig(Core.Core.XMLConfig1, 'FormClient'); 516 514 end; 517 515 … … 529 527 begin 530 528 if (Key = EscapeKey) or (Key = ControlKey) then 531 if Assigned(Core. Game.CurrentPlayer) then begin529 if Assigned(Core.Core.Game.CurrentPlayer) then begin 532 530 Client.View.SelectedCell := nil; 533 531 Redraw; … … 538 536 begin 539 537 SetToolbarHints; 540 LoadConfig(Core.XMLConfig1, 'FormClient'); 541 Core.PersistentForm.Load(Self); 542 Core.ThemeManager1.UseTheme(Self); 538 LoadConfig(Core.Core.XMLConfig1, 'FormClient'); 543 539 UpdateInterface; 544 540 Redraw; … … 585 581 Cell := nil; 586 582 OldCell := Client.View.FocusedCell; 587 with Core. Game do583 with Core.Core.Game do 588 584 if Assigned(Client.ControlPlayer) then begin 589 585 if Map.Cyclic then begin … … 619 615 if (Abs(StartMousePoint.X - X) < Trunc(Screen.PixelsPerInch * MouseMinDiff)) and 620 616 (Abs(StartMousePoint.Y - Y) < Trunc(Screen.PixelsPerInch * MouseMinDiff)) then begin 621 if Core. Game.Running and (Core.Game.CurrentPlayer.Mode = pmHuman) and622 (Core. Game.CurrentPlayer = Client.ControlPlayer) then begin617 if Core.Core.Game.Running and (Core.Core.Game.CurrentPlayer.Mode = pmHuman) and 618 (Core.Core.Game.CurrentPlayer = Client.ControlPlayer) then begin 623 619 Client.View.SelectCell(TPoint.Create(X, Y), Client.ControlPlayer, Shift); 624 620 Redraw; -
trunk/Forms/FormGameSystem.lfm
r316 r317 1 1 object FormGameSystem: TFormGameSystem 2 Left = 5713 Height = 4824 Top = 3645 Width = 6512 Left = 954 3 Height = 578 4 Top = 479 5 Width = 781 6 6 Caption = 'Game system' 7 ClientHeight = 482 8 ClientWidth = 651 9 DesignTimePPI = 120 10 OnClose = FormClose 7 ClientHeight = 578 8 ClientWidth = 781 9 DesignTimePPI = 144 11 10 OnCreate = FormCreate 12 11 OnDestroy = FormDestroy 13 OnShow = FormShow 14 LCLVersion = '2.0.0.4' 12 LCLVersion = '3.4.0.0' 15 13 object ButtonSave: TButton 16 Left = 1 3317 Height = 3 218 Top = 44019 Width = 9414 Left = 160 15 Height = 38 16 Top = 528 17 Width = 113 20 18 Anchors = [akLeft, akBottom] 21 19 Caption = 'Save' 22 OnClick = ButtonSaveClick23 20 ParentFont = False 24 21 TabOrder = 0 22 OnClick = ButtonSaveClick 25 23 end 26 24 object ButtonLoad: TButton 27 Left = 2 028 Height = 3 229 Top = 44030 Width = 9425 Left = 24 26 Height = 38 27 Top = 528 28 Width = 113 31 29 Anchors = [akLeft, akBottom] 32 30 Caption = 'Load' 33 OnClick = ButtonLoadClick34 31 ParentFont = False 35 32 TabOrder = 1 33 OnClick = ButtonLoadClick 36 34 end 37 35 object ButtonCancel: TButton 38 Left = 42039 Height = 3 240 Top = 44041 Width = 9436 Left = 504 37 Height = 38 38 Top = 528 39 Width = 113 42 40 Anchors = [akRight, akBottom] 43 41 Caption = 'Cancel' … … 47 45 end 48 46 object ButtonOk: TButton 49 Left = 53950 Height = 3 251 Top = 44052 Width = 9447 Left = 646 48 Height = 38 49 Top = 528 50 Width = 113 53 51 Anchors = [akRight, akBottom] 54 52 Caption = 'OK' … … 58 56 end 59 57 object PageControl1: TPageControl 60 Left = 1 361 Height = 4 1462 Top = 1 363 Width = 62058 Left = 16 59 Height = 496 60 Top = 16 61 Width = 743 64 62 ActivePage = TabSheetBuildings 65 63 Anchors = [akTop, akLeft, akRight, akBottom] … … 70 68 Caption = 'General' 71 69 ClientHeight = 456 72 ClientWidth = 73 470 ClientWidth = 733 73 71 ParentFont = False 74 72 object CheckBoxEmptyCellsNeutral: TCheckBox 75 Left = 1 373 Left = 16 76 74 Height = 30 77 Top = 1 378 Width = 3 6275 Top = 16 76 Width = 357 79 77 Caption = 'Set cells without player units as neutral' 80 78 ParentFont = False … … 82 80 end 83 81 object CheckBoxUnitsSplitMerge: TCheckBox 84 Left = 1 382 Left = 16 85 83 Height = 30 86 Top = 4687 Width = 2 3184 Top = 55 85 Width = 229 88 86 Caption = 'Units can split or merge' 89 87 ParentFont = False … … 91 89 end 92 90 object CheckBoxUnitsMoveImmediately: TCheckBox 93 Left = 1 391 Left = 16 94 92 Height = 30 95 Top = 7996 Width = 23 493 Top = 95 94 Width = 232 97 95 Caption = 'Units move immediately' 98 96 ParentFont = False … … 114 112 end 115 113 object OpenDialog1: TOpenDialog 116 left = 367117 top = 133114 Left = 440 115 Top = 160 118 116 end 119 117 object SaveDialog1: TSaveDialog 120 left = 193121 top = 133118 Left = 232 119 Top = 160 122 120 end 123 121 end -
trunk/Forms/FormGameSystem.pas
r316 r317 1 unit UFormGameSystem;1 unit FormGameSystem; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 7 ComCtrls, UGameSystem, UFormList;7 ComCtrls, GameSystem, FormList, FormEx; 8 8 9 9 type … … 11 11 { TFormGameSystem } 12 12 13 TFormGameSystem = class(TForm )13 TFormGameSystem = class(TFormEx) 14 14 ButtonCancel: TButton; 15 15 ButtonOk: TButton; … … 28 28 procedure ButtonLoadClick(Sender: TObject); 29 29 procedure ButtonSaveClick(Sender: TObject); 30 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);31 30 procedure FormCreate(Sender: TObject); 32 31 procedure FormDestroy(Sender: TObject); 33 procedure FormShow(Sender: TObject);34 32 private 35 33 FGameSystem: TGameSystem; … … 44 42 end; 45 43 46 var47 FormGameSystem: TFormGameSystem;48 49 44 50 45 implementation 51 46 52 47 {$R *.lfm} 53 54 uses55 UCore;56 48 57 49 resourcestring … … 82 74 end; 83 75 84 procedure TFormGameSystem.FormClose(Sender: TObject;85 var CloseAction: TCloseAction);86 begin87 Core.PersistentForm.Save(Self);88 end;89 90 76 procedure TFormGameSystem.FormCreate(Sender: TObject); 91 77 begin 92 Core.ThemeManager1.UseTheme(Self);93 Core.CoolTranslator1.TranslateComponentRecursive(Self);94 78 FormUnitKinds := TFormList.Create(nil); 95 79 FormUnitKinds.ManualDock(TabSheetUnits, nil, alClient); … … 112 96 FreeAndNil(FormUnitKinds); 113 97 FreeAndNil(FormBuildingKinds); 114 end;115 116 procedure TFormGameSystem.FormShow(Sender: TObject);117 begin118 Core.PersistentForm.Load(Self);119 98 end; 120 99 -
trunk/Forms/FormGameSystems.lfm
r316 r317 1 1 object FormGameSystems: TFormGameSystems 2 Left = 7793 Height = 3 004 Top = 2365 Width = 4 002 Left = 1080 3 Height = 360 4 Top = 570 5 Width = 480 6 6 Caption = 'Game systems' 7 ClientHeight = 300 8 ClientWidth = 400 9 DesignTimePPI = 120 10 OnClose = FormClose 7 ClientHeight = 360 8 ClientWidth = 480 9 DesignTimePPI = 144 11 10 OnCreate = FormCreate 12 11 OnDestroy = FormDestroy 13 12 OnShow = FormShow 14 LCLVersion = ' 2.0.0.4'13 LCLVersion = '3.4.0.0' 15 14 object ListView1: TListView 16 15 Left = 0 17 Height = 26816 Height = 322 18 17 Top = 0 19 Width = 4 0018 Width = 480 20 19 Align = alClient 21 20 Columns = < 22 21 item 23 22 Caption = 'Name' 24 Width = 38823 Width = 466 25 24 end> 26 25 MultiSelect = True … … 39 38 object ToolBar1: TToolBar 40 39 Left = 0 41 Top = 268 42 Width = 400 40 Height = 38 41 Top = 322 42 Width = 480 43 43 Align = alBottom 44 44 Images = Core.ImageListSmall … … 51 51 end 52 52 object ToolButton2: TToolButton 53 Left = 3 053 Left = 36 54 54 Top = 2 55 55 Action = AModify 56 56 end 57 57 object ToolButton3: TToolButton 58 Left = 5958 Left = 71 59 59 Top = 2 60 60 Action = ARemove 61 61 end 62 62 object ToolButton4: TToolButton 63 Left = 8863 Left = 106 64 64 Top = 2 65 65 Action = AClone … … 68 68 object ActionList1: TActionList 69 69 Images = Core.ImageListSmall 70 left = 17371 top = 13670 Left = 208 71 Top = 163 72 72 object AAdd: TAction 73 73 Caption = 'Add' … … 97 97 object PopupMenu1: TPopupMenu 98 98 Images = Core.ImageListSmall 99 left = 293100 top = 13399 Left = 352 100 Top = 160 101 101 object MenuItem1: TMenuItem 102 102 Action = AAdd -
trunk/Forms/FormGameSystems.pas
r316 r317 1 unit UFormGameSystems;1 unit FormGameSystems; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, 7 ActnList, Menus, UGameSystem;7 ActnList, Menus, GameSystem, FormEx; 8 8 9 9 type … … 11 11 { TFormGameSystems } 12 12 13 TFormGameSystems = class(TForm )13 TFormGameSystems = class(TFormEx) 14 14 AAdd: TAction; 15 15 ASelectAll: TAction; … … 34 34 procedure ARemoveExecute(Sender: TObject); 35 35 procedure ASelectAllExecute(Sender: TObject); 36 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);37 36 procedure FormCreate(Sender: TObject); 38 37 procedure FormDestroy(Sender: TObject); … … 51 50 end; 52 51 53 var54 FormGameSystems: TFormGameSystems;55 56 52 57 53 implementation … … 60 56 61 57 uses 62 UCore, UFormGameSystem;58 FormGameSystem; 63 59 64 60 resourcestring … … 90 86 var 91 87 TempEntry: TGameSystem; 88 FormGameSystem: TFormGameSystem; 92 89 begin 93 90 if Assigned(ListView1.Selected) then … … 114 111 var 115 112 TempEntry: TGameSystem; 113 FormGameSystem: TFormGameSystem; 116 114 begin 117 115 TempEntry := TGameSystem.Create; … … 141 139 end; 142 140 143 procedure TFormGameSystems.FormClose(Sender: TObject;144 var CloseAction: TCloseAction);145 begin146 Core.PersistentForm.Save(Self);147 end;148 149 141 procedure TFormGameSystems.FormCreate(Sender: TObject); 150 142 var 151 143 I: Integer; 152 144 begin 153 Core.CoolTranslator1.TranslateComponentRecursive(Self);154 Core.ThemeManager1.UseTheme(Self);155 145 for I := 0 to ToolBar1.ButtonCount - 1 do 156 146 ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption; … … 164 154 procedure TFormGameSystems.FormShow(Sender: TObject); 165 155 begin 166 Core.PersistentForm.Load(Self);167 156 UpdateList; 168 157 UpdateInterface; -
trunk/Forms/FormHelp.lfm
r316 r317 1 1 object FormHelp: TFormHelp 2 Left = 5663 Height = 6634 Top = 2375 Width = 10122 Left = 1040 3 Height = 432 4 Top = 540 5 Width = 582 6 6 Caption = 'Help' 7 ClientHeight = 663 8 ClientWidth = 1012 9 Constraints.MinHeight = 223 10 Constraints.MinWidth = 424 11 DesignTimePPI = 120 12 OnClose = FormClose 7 ClientHeight = 432 8 ClientWidth = 582 9 Constraints.MinHeight = 268 10 Constraints.MinWidth = 509 11 DesignTimePPI = 144 13 12 OnCreate = FormCreate 14 OnShow = FormShow15 13 Position = poMainFormCenter 16 LCLVersion = ' 2.0.0.4'14 LCLVersion = '3.4.0.0' 17 15 object Memo1: TMemo 18 Left = 619 Height = 65120 Top = 621 Width = 100016 Left = 7 17 Height = 418 18 Top = 7 19 Width = 568 22 20 Align = alClient 23 BorderSpacing.Around = 621 BorderSpacing.Around = 7 24 22 ReadOnly = True 25 23 ScrollBars = ssAutoBoth -
trunk/Forms/FormHelp.pas
r316 r317 1 unit UFormHelp;1 unit FormHelp; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls; 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 7 FormEx; 7 8 8 9 type … … 10 11 { TFormHelp } 11 12 12 TFormHelp = class(TForm )13 TFormHelp = class(TFormEx) 13 14 Memo1: TMemo; 14 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);15 15 procedure FormCreate(Sender: TObject); 16 procedure FormShow(Sender: TObject);17 16 end; 18 19 var20 FormHelp: TFormHelp;21 17 22 18 23 19 implementation 24 25 uses26 UCore;27 20 28 21 resourcestring … … 60 53 procedure TFormHelp.FormCreate(Sender: TObject); 61 54 begin 62 Core.CoolTranslator1.TranslateComponentRecursive(Self);63 55 Memo1.Lines.Text := SContent; 64 end;65 66 procedure TFormHelp.FormClose(Sender: TObject; var CloseAction: TCloseAction);67 begin68 Core.PersistentForm.Save(Self);69 end;70 71 procedure TFormHelp.FormShow(Sender: TObject);72 begin73 Core.PersistentForm.Load(Self);74 Core.ThemeManager1.UseTheme(Self);75 56 end; 76 57 -
trunk/Forms/FormItem.lfm
r316 r317 1 1 object FormItem: TFormItem 2 Left = 5702 Left = 1040 3 3 Height = 360 4 Top = 4294 Top = 540 5 5 Width = 480 6 6 Caption = 'Item' … … 8 8 ClientWidth = 480 9 9 DesignTimePPI = 144 10 OnClose = FormClose11 10 OnCreate = FormCreate 12 11 OnDestroy = FormDestroy 13 OnShow = FormShow 14 LCLVersion = '2.0.2.0' 12 LCLVersion = '3.4.0.0' 15 13 object ButtonOk: TButton 16 14 Left = 89 … … 21 19 Caption = 'OK' 22 20 ModalResult = 1 23 OnClick = ButtonOkClick24 21 ParentFont = False 25 22 TabOrder = 0 23 OnClick = ButtonOkClick 26 24 end 27 25 object ButtonCancel: TButton -
trunk/Forms/FormItem.pas
r316 r317 1 unit UFormItem;1 unit FormItem; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, UItemList,7 ExtCtrls, ColorBox, Spin, Generics.Collections ;6 Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ItemList, 7 ExtCtrls, ColorBox, Spin, Generics.Collections, FormEx; 8 8 9 9 type … … 11 11 { TFormItem } 12 12 13 TFormItem = class(TForm )13 TFormItem = class(TFormEx) 14 14 ButtonOk: TButton; 15 15 ButtonCancel: TButton; 16 16 procedure ButtonOkClick(Sender: TObject); 17 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);18 17 procedure FormCreate(Sender: TObject); 19 18 procedure FormDestroy(Sender: TObject); 20 procedure FormShow(Sender: TObject);21 19 private 22 20 FItem: TItem; … … 33 31 end; 34 32 35 var36 FormItem: TFormItem;37 38 33 39 34 implementation … … 42 37 43 38 uses 44 UCore;39 Core; 45 40 46 41 { TFormItem } … … 51 46 end; 52 47 53 procedure TFormItem.FormClose(Sender: TObject; var CloseAction: TCloseAction);54 begin55 Core.PersistentForm.Save(Self);56 end;57 58 48 procedure TFormItem.FormCreate(Sender: TObject); 59 49 begin 60 Core.CoolTranslator1.TranslateComponentRecursive(Self);61 Core.ThemeManager1.UseTheme(Self);62 50 DataControls := TObjectList<TControl>.Create; 63 51 DataLabels := TObjectList<TLabel>.Create; … … 66 54 procedure TFormItem.FormDestroy(Sender: TObject); 67 55 begin 68 DataLabels.Free; 69 DataControls.Free; 70 end; 71 72 procedure TFormItem.FormShow(Sender: TObject); 73 begin 74 Core.PersistentForm.Load(Self); 56 FreeAndNil(DataLabels); 57 FreeAndNil(DataControls); 75 58 end; 76 59 … … 221 204 NewControl.Top := Y; 222 205 NewControl.Parent := Self; 223 Core.Co olTranslator1.TranslateComponent(NewControl);224 Core. ThemeManager1.ApplyTheme(NewControl);206 Core.Core.Translator1.TranslateComponent(NewControl); 207 Core.Core.ThemeManager1.ApplyTheme(NewControl); 225 208 NewControl.Visible := True; 226 209 DataControls.Add(NewControl); -
trunk/Forms/FormKeyShortcuts.lfm
r316 r317 1 1 object FormKeyShortcuts: TFormKeyShortcuts 2 Left = 5283 Height = 4374 Top = 3035 Width = 5272 Left = 1016 3 Height = 524 4 Top = 501 5 Width = 632 6 6 Caption = 'Key shortcuts' 7 ClientHeight = 437 8 ClientWidth = 527 9 DesignTimePPI = 120 10 OnClose = FormClose 11 OnCreate = FormCreate 7 ClientHeight = 524 8 ClientWidth = 632 9 DesignTimePPI = 144 12 10 OnShow = FormShow 13 LCLVersion = ' 2.0.0.4'11 LCLVersion = '3.4.0.0' 14 12 object ListView1: TListView 15 Left = 416 Height = 42917 Top = 418 Width = 51913 Left = 5 14 Height = 514 15 Top = 5 16 Width = 622 19 17 Align = alClient 20 BorderSpacing.Around = 418 BorderSpacing.Around = 5 21 19 Columns = < 22 20 item 23 21 Caption = 'Action' 24 Width = 2 0022 Width = 240 25 23 end 26 24 item 27 25 Caption = 'Window' 28 Width = 2 0026 Width = 240 29 27 end 30 28 item 31 29 Caption = 'Shortcut' 32 Width = 8030 Width = 127 33 31 end> 34 32 LargeImages = Core.ImageListLarge … … 41 39 end 42 40 object PopupMenu1: TPopupMenu 43 left = 29944 top = 18741 Left = 359 42 Top = 224 45 43 object MenuItem1: TMenuItem 46 44 Caption = 'Execute' -
trunk/Forms/FormKeyShortcuts.pas
r316 r317 1 unit UFormKeyShortcuts;1 unit FormKeyShortcuts; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, 7 ComCtrls, ActnList, LCLProc, Menus ;7 ComCtrls, ActnList, LCLProc, Menus, FormEx; 8 8 9 9 type … … 11 11 { TFormKeyShortcuts } 12 12 13 TFormKeyShortcuts = class(TForm )13 TFormKeyShortcuts = class(TFormEx) 14 14 ListView1: TListView; 15 15 MenuItem1: TMenuItem; 16 16 PopupMenu1: TPopupMenu; 17 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);18 procedure FormCreate(Sender: TObject);19 17 procedure FormShow(Sender: TObject); 20 18 procedure MenuItem1Click(Sender: TObject); … … 23 21 end; 24 22 25 var26 FormKeyShortcuts: TFormKeyShortcuts;27 28 23 29 24 implementation 30 25 31 26 uses 32 UFormMain, UCore;27 FormMain, Core; 33 28 34 29 resourcestring … … 40 35 procedure TFormKeyShortcuts.FormShow(Sender: TObject); 41 36 begin 42 Core.PersistentForm.Load(Self);43 Core.ThemeManager1.UseTheme(Self);44 37 try 45 38 ListView1.BeginUpdate; 46 39 ListView1.Clear; 47 LoadFromComponent(Core );48 LoadFromComponent( FormMain);40 LoadFromComponent(Core.Core); 41 LoadFromComponent(Core.Core.FormMain); 49 42 finally 50 43 ListView1.EndUpdate; … … 56 49 if Assigned(ListView1.Selected) then 57 50 TAction(ListView1.Selected.Data).Execute; 58 end;59 60 procedure TFormKeyShortcuts.FormClose(Sender: TObject;61 var CloseAction: TCloseAction);62 begin63 Core.PersistentForm.Save(Self);64 end;65 66 procedure TFormKeyShortcuts.FormCreate(Sender: TObject);67 begin68 Core.CoolTranslator1.TranslateComponentRecursive(Self);69 51 end; 70 52 … … 99 81 100 82 initialization 101 {$I UFormKeyShortcuts.lrs}83 {$I FormKeyShortcuts.lrs} 102 84 103 85 end. -
trunk/Forms/FormList.lfm
r316 r317 1 1 object FormList: TFormList 2 Left = 7792 Left = 1040 3 3 Height = 360 4 Top = 2364 Top = 540 5 5 Width = 480 6 6 Caption = 'List' … … 8 8 ClientWidth = 480 9 9 DesignTimePPI = 144 10 OnClose = FormClose11 10 OnCreate = FormCreate 12 11 OnShow = FormShow 13 LCLVersion = ' 2.0.2.0'12 LCLVersion = '3.4.0.0' 14 13 object ListView1: TListView 15 14 Left = 0 … … 70 69 object ActionList1: TActionList 71 70 Images = Core.ImageListSmall 72 left = 20873 top = 16371 Left = 208 72 Top = 163 74 73 object AAdd: TAction 75 74 Caption = 'Add' … … 100 99 object PopupMenu1: TPopupMenu 101 100 Images = Core.ImageListSmall 102 left = 352103 top = 160101 Left = 352 102 Top = 160 104 103 object MenuItem1: TMenuItem 105 104 Action = AAdd -
trunk/Forms/FormList.pas
r316 r317 1 unit UFormList;1 unit FormList; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, 7 ActnList, Menus, UItemList;7 ActnList, Menus, ItemList, FormEx; 8 8 9 9 type 10 10 { TFormList } 11 11 12 TFormList = class(TForm )12 TFormList = class(TFormEx) 13 13 AAdd: TAction; 14 14 ASelectAll: TAction; … … 34 34 procedure ARemoveExecute(Sender: TObject); 35 35 procedure ASelectAllExecute(Sender: TObject); 36 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);37 36 procedure FormCreate(Sender: TObject); 38 37 procedure FormShow(Sender: TObject); … … 58 57 end; 59 58 60 var61 FormList: TFormList;62 63 59 64 60 implementation … … 67 63 68 64 uses 69 UCore, UFormItem;65 FormItem; 70 66 71 67 resourcestring … … 176 172 end; 177 173 178 procedure TFormList.FormClose(Sender: TObject;179 var CloseAction: TCloseAction);180 begin181 Core.PersistentForm.Save(Self);182 end;183 184 174 procedure TFormList.FormCreate(Sender: TObject); 185 175 var 186 176 I: Integer; 187 177 begin 188 Core.CoolTranslator1.TranslateComponentRecursive(Self);189 Core.ThemeManager1.UseTheme(Self);190 178 for I := 0 to ToolBar1.ButtonCount - 1 do 191 179 ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption; … … 196 184 procedure TFormList.FormShow(Sender: TObject); 197 185 begin 198 Core.PersistentForm.Load(Self);199 186 UpdateListViewColumns; 200 187 UpdateList; -
trunk/Forms/FormMain.lfm
r316 r317 1 1 object FormMain: TFormMain 2 Left = 8263 Height = 7454 Top = 4195 Width = 9302 Left = 534 3 Height = 993 4 Top = 223 5 Width = 1491 6 6 Caption = 'xTactics' 7 ClientHeight = 7118 ClientWidth = 9307 ClientHeight = 993 8 ClientWidth = 1491 9 9 DesignTimePPI = 144 10 10 Menu = MainMenu1 … … 15 15 OnKeyUp = FormKeyUp 16 16 OnShow = FormShow 17 LCLVersion = ' 2.0.12.0'17 LCLVersion = '3.4.0.0' 18 18 object ToolBar1: TToolBar 19 19 Left = 0 20 20 Height = 40 21 21 Top = 0 22 Width = 93022 Width = 1491 23 23 ButtonHeight = 32 24 24 ButtonWidth = 32 … … 79 79 object PanelMain: TPanel 80 80 Left = 0 81 Height = 67181 Height = 953 82 82 Top = 40 83 Width = 93083 Width = 1491 84 84 Align = alClient 85 85 BevelOuter = bvNone -
trunk/Forms/FormMain.pas
r316 r317 1 unit UFormMain;1 unit FormMain; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls, 7 UGame, LCLType, Menus, ActnList, ComCtrls, dateutils, XMLConf, DOM; 7 Game, LCLType, Menus, ActnList, ComCtrls, DateUtils, XMLConf, DOM, FormClient, 8 FormKeyShortcuts, FormPlayersStats, FormUnitMoves, FormCharts, FormEx; 8 9 9 10 const … … 15 16 { TFormMain } 16 17 17 TFormMain = class(TForm )18 TFormMain = class(TFormEx) 18 19 AUnitShapeVisible: TAction; 19 20 AMapGridVisible: TAction; … … 93 94 procedure UpdateClientForms; 94 95 public 96 FormClient: TFormClient; 97 FormKeyShortcuts: TFormKeyShortcuts; 98 FormPlayersStats: TFormPlayersStats; 99 FormUnitMoves: TFormUnitMoves; 100 FormCharts: TFormCharts; 95 101 procedure LoadConfig(Config: TXmlConfig; Path: string); 96 102 procedure SaveConfig(Config: TXmlConfig; Path: string); … … 98 104 end; 99 105 100 var101 FormMain: TFormMain;102 103 106 104 107 implementation 105 108 106 109 uses 107 UCore, UFormClient;110 Core; 108 111 109 112 resourcestring … … 124 127 begin 125 128 NewCaption := 'xTactics'; 126 if Assigned(Core.Game.CurrentPlayer) then 127 NewCaption := Core.Game.CurrentPlayer.Name + ' - ' + STurn + ' ' + IntToStr(Core.Game.TurnCounter) + ' - ' + NewCaption; 129 if Assigned(Core.Core.Game.CurrentPlayer) then 130 NewCaption := Core.Core.Game.CurrentPlayer.Name + ' - ' + STurn + ' ' + 131 IntToStr(Core.Core.Game.TurnCounter) + ' - ' + NewCaption; 128 132 Caption := NewCaption; 129 133 end; … … 150 154 begin 151 155 if AToolBarBigIcons.Checked then begin 152 ToolBar1.Images := Core. ImageListLarge;153 ToolBar1.ButtonWidth := Core. ImageListLarge.Width + 7;154 ToolBar1.ButtonHeight := Core. ImageListLarge.Height + 6;155 ToolBar1.Width := Core. ImageListLarge.Width + 10;156 ToolBar1.Height := Core. ImageListLarge.Height + 10;156 ToolBar1.Images := Core.Core.ImageListLarge; 157 ToolBar1.ButtonWidth := Core.Core.ImageListLarge.Width + 7; 158 ToolBar1.ButtonHeight := Core.Core.ImageListLarge.Height + 6; 159 ToolBar1.Width := Core.Core.ImageListLarge.Width + 10; 160 ToolBar1.Height := Core.Core.ImageListLarge.Height + 10; 157 161 end else begin 158 ToolBar1.Images := Core. ImageListSmall;159 ToolBar1.ButtonWidth := Core. ImageListSmall.Width + 7;160 ToolBar1.ButtonHeight := Core. ImageListSmall.Height + 6;161 ToolBar1.Width := Core. ImageListSmall.Width + 10;162 ToolBar1.Height := Core. ImageListSmall.Height + 10;162 ToolBar1.Images := Core.Core.ImageListSmall; 163 ToolBar1.ButtonWidth := Core.Core.ImageListSmall.Width + 7; 164 ToolBar1.ButtonHeight := Core.Core.ImageListSmall.Height + 6; 165 ToolBar1.Width := Core.Core.ImageListSmall.Width + 10; 166 ToolBar1.Height := Core.Core.ImageListSmall.Height + 10; 163 167 end; 164 168 ToolBar1.Visible := AToolBarVisible.Checked; … … 227 231 procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction); 228 232 begin 229 Core.Game.Running := False; 230 Core.PersistentForm.Save(Self); 231 SaveConfig(Core.XMLConfig1, 'FormMain'); 232 Core.CellGridVisible := AMapGridVisible.Checked; 233 Core.UnitShapeVisible := AUnitShapeVisible.Checked; 234 Core.Done; 233 Core.Core.Game.Running := False; 234 SaveConfig(Core.Core.XMLConfig1, 'FormMain'); 235 Core.Core.CellGridVisible := AMapGridVisible.Checked; 236 Core.Core.UnitShapeVisible := AUnitShapeVisible.Checked; 237 Core.Core.Done; 235 238 end; 236 239 237 240 procedure TFormMain.FormDestroy(Sender: TObject); 238 241 begin 239 F ormClient.Free;242 FreeAndNil(FormClient); 240 243 end; 241 244 242 245 procedure TFormMain.ApplicationStart(Ptr: IntPtr); 243 246 begin 244 Core. ReopenGameOnInit;247 Core.Core.ReopenGameOnInit; 245 248 end; 246 249 … … 255 258 FormClient.AStatusBarVisible.Checked := AStatusBarVisible.Checked; 256 259 FormClient.AStatusBarVisible.Update; 257 Core.C ellGridVisible := AMapGridVisible.Checked;258 Core. UnitShapeVisible := AUnitShapeVisible.Checked;260 Core.Core.CellGridVisible := AMapGridVisible.Checked; 261 Core.Core.UnitShapeVisible := AUnitShapeVisible.Checked; 259 262 if Assigned(FormClient.Client) then begin 260 FormClient.Client.CellGridVisible := Core.C ellGridVisible;261 FormClient.Client.UnitShapeVisible := Core. UnitShapeVisible;263 FormClient.Client.CellGridVisible := Core.Core.CellGridVisible; 264 FormClient.Client.UnitShapeVisible := Core.Core.UnitShapeVisible; 262 265 end; 263 266 FormClient.Redraw; 264 for I := 0 to Core. FormClients.Count - 1 do begin265 Core. FormClients[I].AToolBarBigIcons.Checked := AToolBarBigIcons.Checked;266 Core. FormClients[I].AToolBarBigIcons.Update;267 Core. FormClients[I].AToolBarVisible.Checked := AToolBarVisible.Checked;268 Core. FormClients[I].AToolBarVisible.Update;269 Core. FormClients[I].AStatusBarVisible.Checked := AStatusBarVisible.Checked;270 Core. FormClients[I].AStatusBarVisible.Update;271 if Assigned(Core. FormClients[I].Client) then begin272 Core. FormClients[I].Client.CellGridVisible :=Core.CellGridVisible;273 Core. FormClients[I].Client.UnitShapeVisible :=Core.UnitShapeVisible;267 for I := 0 to Core.Core.FormClients.Count - 1 do begin 268 Core.Core.FormClients[I].AToolBarBigIcons.Checked := AToolBarBigIcons.Checked; 269 Core.Core.FormClients[I].AToolBarBigIcons.Update; 270 Core.Core.FormClients[I].AToolBarVisible.Checked := AToolBarVisible.Checked; 271 Core.Core.FormClients[I].AToolBarVisible.Update; 272 Core.Core.FormClients[I].AStatusBarVisible.Checked := AStatusBarVisible.Checked; 273 Core.Core.FormClients[I].AStatusBarVisible.Update; 274 if Assigned(Core.Core.FormClients[I].Client) then begin 275 Core.Core.FormClients[I].Client.CellGridVisible := Core.Core.CellGridVisible; 276 Core.Core.FormClients[I].Client.UnitShapeVisible := Core.Core.UnitShapeVisible; 274 277 end; 275 Core. FormClients[I].Redraw;278 Core.Core.FormClients[I].Redraw; 276 279 end; 277 280 end; … … 280 283 begin 281 284 if not FormShown then begin 282 Core.LoadConfig; 283 AMapGridVisible.Checked := Core.CellGridVisible; 284 AUnitShapeVisible.Checked := Core.UnitShapeVisible; 285 Core.ScaleDPI; 286 Core.PersistentForm.Load(Self); 287 FullScreen := Core.PersistentForm.FormFullScreen; 288 Core.ThemeManager1.UseTheme(Self); 289 Core.Init; 290 LoadConfig(Core.XMLConfig1, 'FormMain'); 285 AMapGridVisible.Checked := Core.Core.CellGridVisible; 286 AUnitShapeVisible.Checked := Core.Core.UnitShapeVisible; 287 Core.Core.ScaleDPI; 288 FullScreen := Core.Core.PersistentForm1.FormFullScreen; 289 Core.Core.Init; 290 LoadConfig(Core.Core.XMLConfig1, 'FormMain'); 291 291 ReloadView; 292 292 FormClient.Show; -
trunk/Forms/FormMove.lfm
r316 r317 1 1 object FormMove: TFormMove 2 Left = 4353 Height = 2 324 Top = 1535 Width = 3512 Left = 1104 3 Height = 278 4 Top = 604 5 Width = 421 6 6 ActiveControl = ButtonOk 7 7 Caption = 'Move' 8 ClientHeight = 232 9 ClientWidth = 351 10 Constraints.MinHeight = 232 11 Constraints.MinWidth = 351 12 DesignTimePPI = 120 13 OnClose = FormClose 14 OnCreate = FormCreate 8 ClientHeight = 278 9 ClientWidth = 421 10 Constraints.MinHeight = 278 11 Constraints.MinWidth = 421 12 DesignTimePPI = 144 15 13 OnKeyPress = FormKeyPress 16 14 OnShow = FormShow 17 15 Position = poMainFormCenter 18 LCLVersion = ' 2.0.0.4'16 LCLVersion = '3.4.0.0' 19 17 object SpinEditOnce: TSpinEdit 20 Left = 17321 Height = 2822 Top = 3323 Width = 8218 Left = 208 19 Height = 43 20 Top = 40 21 Width = 98 24 22 OnChange = SpinEditOnceChange 25 23 OnKeyPress = FormKeyPress … … 28 26 end 29 27 object Label1: TLabel 30 Left = 1 331 Height = 2 032 Top = 3333 Width = 3728 Left = 16 29 Height = 26 30 Top = 40 31 Width = 49 34 32 Caption = 'Once:' 35 33 ParentColor = False … … 37 35 end 38 36 object ButtonOk: TButton 39 Left = 2 4740 Height = 3 241 Top = 18742 Width = 8337 Left = 296 38 Height = 38 39 Top = 224 40 Width = 100 43 41 Caption = 'Ok' 44 42 Default = True … … 48 46 end 49 47 object ButtonCancel: TButton 50 Left = 1 4751 Height = 3 252 Top = 18753 Width = 8348 Left = 176 49 Height = 38 50 Top = 224 51 Width = 100 54 52 Caption = 'Cancel' 55 53 ModalResult = 2 … … 58 56 end 59 57 object Label2: TLabel 60 Left = 2 061 Height = 2 062 Top = 1 1363 Width = 6858 Left = 24 59 Height = 26 60 Top = 136 61 Width = 90 64 62 Caption = 'Every turn:' 65 63 ParentColor = False … … 67 65 end 68 66 object SpinEditRepeat: TSpinEdit 69 Left = 17370 Height = 2871 Top = 1 0772 Width = 8267 Left = 208 68 Height = 43 69 Top = 128 70 Width = 98 73 71 OnChange = SpinEditRepeatChange 74 72 OnKeyPress = FormKeyPress … … 77 75 end 78 76 object TrackBarOnce: TTrackBar 79 Left = 7380 Height = 4881 Top = 6782 Width = 2 0577 Left = 88 78 Height = 58 79 Top = 80 80 Width = 245 83 81 OnChange = TrackBarOnceChange 84 82 PageSize = 1 … … 91 89 end 92 90 object TrackBarRepeat: TTrackBar 93 Left = 8094 Height = 4895 Top = 1 4096 Width = 19391 Left = 96 92 Height = 58 93 Top = 168 94 Width = 231 97 95 OnChange = TrackBarRepeatChange 98 96 PageSize = 1 … … 105 103 end 106 104 object ButtonOnceMin: TButton 107 Left = 7108 Height = 3 2109 Top = 73110 Width = 67105 Left = 8 106 Height = 38 107 Top = 88 108 Width = 80 111 109 Caption = 'Min' 112 OnClick = ButtonOnceMinClick113 110 ParentFont = False 114 111 TabOrder = 6 112 OnClick = ButtonOnceMinClick 115 113 end 116 114 object ButtonOnceMax: TButton 117 Left = 277118 Height = 3 2119 Top = 73120 Width = 67115 Left = 333 116 Height = 38 117 Top = 88 118 Width = 80 121 119 Anchors = [akTop, akRight] 122 120 Caption = 'Max' 123 OnClick = ButtonOnceMaxClick124 121 ParentFont = False 125 122 TabOrder = 7 123 OnClick = ButtonOnceMaxClick 126 124 end 127 125 object ButtonRepeatMin: TButton 128 Left = 7129 Height = 3 2130 Top = 1 47131 Width = 67126 Left = 8 127 Height = 38 128 Top = 176 129 Width = 80 132 130 Caption = 'Min' 133 OnClick = ButtonRepeatMinClick134 131 ParentFont = False 135 132 TabOrder = 8 133 OnClick = ButtonRepeatMinClick 136 134 end 137 135 object ButtonRepeatMax: TButton 138 Left = 277139 Height = 3 2140 Top = 1 47141 Width = 67136 Left = 333 137 Height = 38 138 Top = 176 139 Width = 80 142 140 Anchors = [akTop, akRight] 143 141 Caption = 'Max' 144 OnClick = ButtonRepeatMaxClick145 142 ParentFont = False 146 143 TabOrder = 9 144 OnClick = ButtonRepeatMaxClick 147 145 end 148 146 object Label3: TLabel 149 Left = 1 3150 Height = 2 0151 Top = 7152 Width = 1 06147 Left = 16 148 Height = 26 149 Top = 8 150 Width = 134 153 151 Caption = 'Win probability:' 154 152 ParentColor = False … … 156 154 end 157 155 object LabelWinProbability: TLabel 158 Left = 2 20159 Height = 2 0160 Top = 7161 Width = 1 2156 Left = 264 157 Height = 26 158 Top = 8 159 Width = 15 162 160 Caption = ' ' 163 161 ParentColor = False … … 165 163 end 166 164 object ButtonRemove: TButton 167 Left = 4 0168 Height = 3 2169 Top = 187170 Width = 83165 Left = 48 166 Height = 38 167 Top = 224 168 Width = 100 171 169 Caption = 'Delete' 172 OnClick = ButtonRemoveClick173 170 ParentFont = False 174 171 TabOrder = 10 172 OnClick = ButtonRemoveClick 175 173 end 176 174 end -
trunk/Forms/FormMove.pas
r316 r317 1 unit UFormMove;1 unit FormMove; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Spin, 7 StdCtrls, ComCtrls ;7 StdCtrls, ComCtrls, FormEx; 8 8 9 9 type … … 11 11 { TFormMove } 12 12 13 TFormMove = class(TForm )13 TFormMove = class(TFormEx) 14 14 ButtonRemove: TButton; 15 15 ButtonRepeatMax: TButton; … … 30 30 procedure ButtonRemoveClick(Sender: TObject); 31 31 procedure ButtonRepeatMinClick(Sender: TObject); 32 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);33 procedure FormCreate(Sender: TObject);34 32 procedure ButtonOnceMinClick(Sender: TObject); 35 33 procedure ButtonRepeatMaxClick(Sender: TObject); … … 48 46 end; 49 47 50 var51 FormMove: TFormMove;52 53 48 54 49 implementation … … 57 52 58 53 uses 59 UCore;54 Core; 60 55 61 56 { TFormMove } … … 78 73 Label3.Visible := ShowWinProbability; 79 74 LabelWinProbability.Caption := 80 IntToStr(Round(Core. Game.AttackProbability(AttackCount + SpinEditOnce.Value,75 IntToStr(Round(Core.Core.Game.AttackProbability(AttackCount + SpinEditOnce.Value, 81 76 DefendCount) * 100)) + ' %'; 82 77 end; … … 91 86 procedure TFormMove.FormShow(Sender: TObject); 92 87 begin 93 Core.PersistentForm.Load(Self);94 Core.ThemeManager1.UseTheme(Self);95 88 if SpinEditOnce.MaxValue < SpinEditOnce.Value then begin 96 89 SpinEditOnce.Enabled := False; … … 128 121 end; 129 122 130 procedure TFormMove.FormClose(Sender: TObject; var CloseAction: TCloseAction);131 begin132 Core.PersistentForm.Save(Self);133 end;134 135 procedure TFormMove.FormCreate(Sender: TObject);136 begin137 Core.CoolTranslator1.TranslateComponentRecursive(Self);138 end;139 140 123 procedure TFormMove.ButtonOnceMinClick(Sender: TObject); 141 124 begin -
trunk/Forms/FormNew.lfm
r316 r317 1 1 object FormNew: TFormNew 2 Left = 4 783 Height = 7454 Top = 5 265 Width = 12 112 Left = 449 3 Height = 688 4 Top = 511 5 Width = 1209 6 6 Caption = 'New game' 7 ClientHeight = 7458 ClientWidth = 12 117 ClientHeight = 688 8 ClientWidth = 1209 9 9 Constraints.MinHeight = 502 10 10 Constraints.MinWidth = 667 11 11 DesignTimePPI = 144 12 OnClose = FormClose13 12 OnCreate = FormCreate 14 13 OnDestroy = FormDestroy 15 14 OnShow = FormShow 16 15 Position = poMainFormCenter 17 LCLVersion = ' 2.0.2.0'16 LCLVersion = '3.4.0.0' 18 17 object PageControl1: TPageControl 19 18 Left = 4 20 Height = 63519 Height = 578 21 20 Top = 60 22 Width = 80 623 ActivePage = TabSheet Rules21 Width = 804 22 ActivePage = TabSheetPlayers 24 23 Align = alClient 25 24 BorderSpacing.Around = 4 26 25 ParentFont = False 27 TabIndex = 326 TabIndex = 1 28 27 TabOrder = 0 29 28 OnChange = PageControl1Change 30 29 object TabSheetMode: TTabSheet 31 30 Caption = 'Mode' 32 ClientHeight = 5 9533 ClientWidth = 79 631 ClientHeight = 538 32 ClientWidth = 794 34 33 ParentFont = False 35 34 object Panel3: TPanel 36 35 Left = 0 37 Height = 5 9636 Height = 538 38 37 Top = 0 39 Width = 79 638 Width = 794 40 39 Align = alClient 41 40 BevelOuter = bvNone 42 ClientHeight = 5 9643 ClientWidth = 79 641 ClientHeight = 538 42 ClientWidth = 794 44 43 ParentFont = False 45 44 TabOrder = 0 … … 51 50 Caption = 'Local' 52 51 Checked = True 53 OnChange = RadioButtonModeLocalChange54 52 ParentFont = False 55 53 TabOrder = 0 56 54 TabStop = True 55 OnChange = RadioButtonModeLocalChange 57 56 end 58 57 object RadioButtonModeNetworkServer: TRadioButton … … 60 59 Height = 30 61 60 Top = 48 62 Width = 15 661 Width = 155 63 62 Caption = 'Network server' 63 ParentFont = False 64 TabOrder = 1 64 65 OnChange = RadioButtonModeLocalChange 65 ParentFont = False66 TabOrder = 167 66 end 68 67 object RadioButtonModeNetworkClient: TRadioButton … … 70 69 Height = 30 71 70 Top = 152 72 Width = 1 5171 Width = 149 73 72 Caption = 'Network client' 73 ParentFont = False 74 TabOrder = 2 74 75 OnChange = RadioButtonModeLocalChange 75 ParentFont = False76 TabOrder = 277 76 end 78 77 object EditServerAddress: TEdit … … 97 96 Height = 26 98 97 Top = 88 99 Width = 4 198 Width = 40 100 99 Caption = 'Port:' 101 100 ParentColor = False … … 113 112 object ListViewServers: TListView 114 113 Left = 26 115 Height = 3 65114 Height = 307 116 115 Top = 181 117 116 Width = 334 … … 142 141 Left = 26 143 142 Height = 31 144 Top = 557143 Top = 499 145 144 Width = 94 146 145 Action = AServerAdd … … 152 151 Left = 240 153 152 Height = 31 154 Top = 557153 Top = 499 155 154 Width = 94 156 155 Action = AServerRemove … … 162 161 Left = 136 163 162 Height = 30 164 Top = 556163 Top = 498 165 164 Width = 94 166 165 Action = AServerModify … … 173 172 object TabSheetPlayers: TTabSheet 174 173 Caption = 'Players' 175 ClientHeight = 5 95176 ClientWidth = 79 6174 ClientHeight = 538 175 ClientWidth = 794 177 176 ParentFont = False 178 177 object Panel2: TPanel 179 178 Left = 0 180 Height = 5 96179 Height = 538 181 180 Top = 0 182 Width = 79 6181 Width = 794 183 182 Align = alClient 184 183 BevelOuter = bvNone … … 189 188 object TabSheetMap: TTabSheet 190 189 Caption = 'Map' 191 ClientHeight = 5 95192 ClientWidth = 79 6190 ClientHeight = 538 191 ClientWidth = 794 193 192 OnShow = TabSheetMapShow 194 193 ParentFont = False 195 194 object Panel1: TPanel 196 195 Left = 0 197 Height = 5 96196 Height = 538 198 197 Top = 0 199 Width = 79 6198 Width = 794 200 199 Align = alClient 201 200 BevelOuter = bvNone 202 ClientHeight = 5 96203 ClientWidth = 79 6201 ClientHeight = 538 202 ClientWidth = 794 204 203 ParentFont = False 205 204 TabOrder = 0 … … 208 207 Height = 26 209 208 Top = 10 210 Width = 9 5209 Width = 94 211 210 Caption = 'Map width:' 212 211 ParentColor = False … … 217 216 Height = 26 218 217 Top = 58 219 Width = 10 2218 Width = 101 220 219 Caption = 'Map height:' 221 220 ParentColor = False … … 248 247 Height = 58 249 248 Top = 8 250 Width = 54 5249 Width = 543 251 250 Max = 100 252 251 Min = 2 … … 262 261 Height = 58 263 262 Top = 49 264 Width = 54 5263 Width = 543 265 264 Max = 100 266 265 Min = 2 … … 276 275 Height = 26 277 276 Top = 104 278 Width = 8 3277 Width = 82 279 278 Caption = 'Grid type:' 280 279 ParentColor = False … … 283 282 object ComboBoxGridType: TComboBox 284 283 Left = 146 285 Height = 28284 Height = 38 286 285 Top = 104 287 286 Width = 304 … … 294 293 'Isometric' 295 294 ) 296 OnChange = ComboBoxGridTypeChange297 295 ParentFont = False 298 296 Style = csDropDownList 299 297 TabOrder = 4 298 OnChange = ComboBoxGridTypeChange 300 299 end 301 300 object ComboBoxMapShape: TComboBox 302 301 Left = 146 303 Height = 28302 Height = 38 304 303 Top = 144 305 304 Width = 304 … … 310 309 'Triangular' 311 310 ) 312 OnChange = ComboBoxMapShapeChange313 311 ParentFont = False 314 312 Style = csDropDownList 315 313 TabOrder = 5 314 OnChange = ComboBoxMapShapeChange 316 315 end 317 316 object Label8: TLabel … … 328 327 Height = 26 329 328 Top = 248 330 Width = 308329 Width = 543 331 330 Anchors = [akTop, akLeft, akRight] 332 331 AutoSize = False 333 332 Caption = 'Symetric map' 333 ParentFont = False 334 TabOrder = 6 334 335 OnChange = CheckBoxSymetricMapChange 335 ParentFont = False336 TabOrder = 6337 336 end 338 337 object SpinEditVoidPercent: TSpinEdit … … 353 352 Width = 189 354 353 Caption = 'Inaccessible places' 354 ParentFont = False 355 TabOrder = 8 355 356 OnChange = CheckBoxVoidChange 356 ParentFont = False357 TabOrder = 8358 357 end 359 358 object CheckBoxCity: TCheckBox … … 361 360 Height = 30 362 361 Top = 368 363 Width = 7 3362 Width = 72 364 363 Caption = 'Cities' 364 ParentFont = False 365 TabOrder = 9 365 366 OnChange = CheckBoxCityChange 366 ParentFont = False367 TabOrder = 9368 367 end 369 368 object SpinEditCityPercent: TSpinEdit … … 411 410 Height = 26 412 411 Top = 496 413 Width = 22 7412 Width = 225 414 413 Caption = 'Max random neutral units:' 415 414 ParentColor = False … … 420 419 Height = 43 421 420 Top = 184 422 Width = 5 30421 Width = 543 423 422 Anchors = [akTop, akLeft, akRight] 423 ParentFont = False 424 TabOrder = 12 424 425 OnChange = EditImageFileChange 425 ParentFont = False426 TabOrder = 12427 426 end 428 427 object ButtonImageBrowse: TButton 429 Left = 6 81428 Left = 679 430 429 Height = 38 431 430 Top = 190 … … 433 432 Anchors = [akTop, akRight] 434 433 Caption = 'Browse' 434 ParentFont = False 435 TabOrder = 13 435 436 OnClick = ButtonImageBrowseClick 436 ParentFont = False437 TabOrder = 13438 437 end 439 438 object Label9: TLabel … … 450 449 Height = 30 451 450 Top = 408 452 Width = 21 2451 Width = 211 453 452 Caption = 'Bridges between cells' 453 ParentFont = False 454 TabOrder = 14 454 455 OnChange = CheckBoxBridgesChange 455 ParentFont = False456 TabOrder = 14457 456 end 458 457 object SpinEditMaxPower: TSpinEdit … … 472 471 Height = 26 473 472 Top = 448 474 Width = 15 6473 Width = 155 475 474 Caption = 'Max units per cell:' 476 475 ParentColor = False … … 481 480 Height = 26 482 481 Top = 283 483 Width = 308482 Width = 543 484 483 Anchors = [akTop, akLeft, akRight] 485 484 AutoSize = False 486 485 Caption = 'Cyclic map' 486 ParentFont = False 487 TabOrder = 16 487 488 OnChange = CheckBoxCyclicMapChange 488 ParentFont = False489 TabOrder = 16490 489 end 491 490 object Image1: TImage … … 493 492 Height = 316 494 493 Top = 272 495 Width = 359494 Width = 542 496 495 Anchors = [akTop, akLeft, akRight] 497 496 OnResize = Image1Resize … … 512 511 Width = 154 513 512 Caption = 'Randomize' 513 ParentFont = False 514 TabOrder = 17 514 515 OnClick = ButtonRandomizeClick 515 ParentFont = False516 TabOrder = 17517 516 end 518 517 end … … 520 519 object TabSheetRules: TTabSheet 521 520 Caption = 'Rules' 522 ClientHeight = 5 95523 ClientWidth = 79 6521 ClientHeight = 538 522 ClientWidth = 794 524 523 ParentFont = False 525 524 object Panel4: TPanel 526 525 Left = 0 527 Height = 5 95526 Height = 538 528 527 Top = 0 529 Width = 79 6528 Width = 794 530 529 Align = alClient 531 530 BevelOuter = bvNone 532 ClientHeight = 5 95533 ClientWidth = 79 6531 ClientHeight = 538 532 ClientWidth = 794 534 533 ParentFont = False 535 534 TabOrder = 0 … … 562 561 Height = 26 563 562 Top = 248 564 Width = 1 20563 Width = 119 565 564 Caption = 'Win objective:' 566 565 ParentColor = False … … 579 578 'Stay alive for number of turns' 580 579 ) 581 OnChange = ComboBoxWinObjectiveChange582 580 ParentFont = False 583 581 Style = csDropDownList 584 582 TabOrder = 1 583 OnChange = ComboBoxWinObjectiveChange 585 584 end 586 585 object RadioGroupGrowAmount: TRadioGroup … … 620 619 Height = 78 621 620 Top = 290 622 Width = 77 3621 Width = 771 623 622 ActivePage = TabSheetCaptureEntireMap 624 623 Anchors = [akTop, akLeft, akRight] … … 635 634 object TabSheetCaptureCells: TTabSheet 636 635 ClientHeight = 74 637 ClientWidth = 76 3636 ClientWidth = 761 638 637 ParentFont = False 639 638 object Label14: TLabel 640 639 Left = 8 641 Height = 2 0640 Height = 26 642 641 Top = 16 643 Width = 1 25642 Width = 161 644 643 Caption = 'Special cells count:' 645 644 ParentColor = False … … 648 647 object SpinEditSpecialCells: TSpinEdit 649 648 Left = 236 650 Height = 28649 Height = 43 651 650 Top = 8 652 651 Width = 158 … … 660 659 object TabSheetStayAliveTurns: TTabSheet 661 660 ClientHeight = 74 662 ClientWidth = 76 3661 ClientWidth = 761 663 662 ParentFont = False 664 663 object Label13: TLabel 665 664 Left = 8 666 Height = 2 0665 Height = 26 667 666 Top = 16 668 Width = 1 11667 Width = 146 669 668 Caption = 'Number of turns:' 670 669 ParentColor = False … … 673 672 object SpinEditTurns: TSpinEdit 674 673 Left = 236 675 Height = 28674 Height = 43 676 675 Top = 8 677 676 Width = 158 … … 696 695 Left = 0 697 696 Height = 46 698 Top = 6 99699 Width = 12 11697 Top = 642 698 Width = 1209 700 699 Align = alBottom 701 700 BevelOuter = bvNone 702 701 ClientHeight = 46 703 ClientWidth = 12 11702 ClientWidth = 1209 704 703 ParentFont = False 705 704 TabOrder = 1 706 705 object ButtonOk: TButton 707 Left = 102 4706 Left = 1022 708 707 Height = 25 709 708 Top = 7 … … 712 711 Caption = 'Ok' 713 712 ModalResult = 1 714 OnClick = ButtonOkClick715 713 ParentFont = False 716 714 TabOrder = 0 715 OnClick = ButtonOkClick 717 716 end 718 717 object ButtonCancel: TButton 719 Left = 112 7718 Left = 1125 720 719 Height = 25 721 720 Top = 7 … … 729 728 end 730 729 object PanelChat: TPanel 731 Left = 8 20732 Height = 643730 Left = 818 731 Height = 586 733 732 Top = 56 734 733 Width = 391 … … 739 738 end 740 739 object Splitter1: TSplitter 741 Left = 81 4742 Height = 643740 Left = 812 741 Height = 586 743 742 Top = 56 744 743 Width = 6 … … 750 749 Height = 56 751 750 Top = 0 752 Width = 12 11751 Width = 1209 753 752 Align = alTop 754 753 BevelOuter = bvNone 755 754 ClientHeight = 56 756 ClientWidth = 12 11755 ClientWidth = 1209 757 756 ParentFont = False 758 757 TabOrder = 4 … … 761 760 Height = 26 762 761 Top = 16 763 Width = 12 1762 Width = 120 764 763 Caption = 'Game system:' 765 764 ParentColor = False … … 772 771 Width = 254 773 772 ItemHeight = 0 774 OnChange = ComboBoxGameSystemChange775 773 ParentFont = False 776 774 Style = csDropDownList 777 775 TabOrder = 0 776 OnChange = ComboBoxGameSystemChange 778 777 end 779 778 object ButtonGameSystems: TButton … … 783 782 Width = 113 784 783 Caption = 'Manage' 785 OnClick = ButtonGameSystemsClick786 784 ParentFont = False 787 785 TabOrder = 1 786 OnClick = ButtonGameSystemsClick 788 787 end 789 788 end 790 789 object ActionList1: TActionList 791 790 Images = Core.ImageListSmall 792 left = 864793 top = 216791 Left = 864 792 Top = 216 794 793 object AServerAdd: TAction 795 794 Caption = 'Add' … … 806 805 end 807 806 object OpenPictureDialog1: TOpenPictureDialog 808 left = 864809 top = 360807 Left = 864 808 Top = 360 810 809 end 811 810 object PopupMenuServers: TPopupMenu 812 left = 864813 top = 136811 Left = 864 812 Top = 136 814 813 object MenuItem4: TMenuItem 815 814 Action = AServerAdd … … 825 824 Interval = 500 826 825 OnTimer = TimerMapPreviewTimer 827 left = 864828 top = 446826 Left = 864 827 Top = 446 829 828 end 830 829 end -
trunk/Forms/FormNew.pas
r316 r317 1 unit UFormNew;1 unit FormNew; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 7 ComCtrls, Spin, ExtCtrls, ActnList, ExtDlgs, Menus, UGame, UGeometry, UPlayer,8 UGameServer, UServerList, UMap, UGameSystem, UFormList;7 ComCtrls, Spin, ExtCtrls, ActnList, ExtDlgs, Menus, Game, Geometry, Player, 8 GameServer, ServerList, Map, GameSystem, FormList, FormEx, FormChat; 9 9 10 10 type … … 12 12 { TFormNew } 13 13 14 TFormNew = class(TForm )14 TFormNew = class(TFormEx) 15 15 ActionList1: TActionList; 16 16 AServerAdd: TAction; … … 115 115 procedure ComboBoxWinObjectiveChange(Sender: TObject); 116 116 procedure EditImageFileChange(Sender: TObject); 117 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);118 117 procedure FormCreate(Sender: TObject); 119 118 procedure FormDestroy(Sender: TObject); … … 143 142 NewRandSeed: Cardinal; 144 143 FormPlayers: TFormList; 144 FormChat: TFormChat; 145 145 procedure LoadGame(Game: TGame); 146 146 procedure SaveGame(Game: TGame); … … 158 158 end; 159 159 160 var161 FormNew: TFormNew;162 163 160 164 161 implementation … … 167 164 168 165 uses 169 UFormChat, UCore, UFormServer, UClientGUI, UFormClient, 170 UFormGameSystems, UMapType; 166 Core, FormServer, ClientGUI, FormClient, FormGameSystems, MapType; 171 167 172 168 resourcestring … … 350 346 ComboBoxGameSystem.Items.BeginUpdate; 351 347 try 352 while ComboBoxGameSystem.Items.Count > Core. GameSystems.Count do348 while ComboBoxGameSystem.Items.Count > Core.Core.GameSystems.Count do 353 349 ComboBoxGameSystem.Items.Delete(ComboBoxGameSystem.Items.Count - 1); 354 while ComboBoxGameSystem.Items.Count < Core. GameSystems.Count do350 while ComboBoxGameSystem.Items.Count < Core.Core.GameSystems.Count do 355 351 ComboBoxGameSystem.Items.Add(''); 356 for I := 0 to Core. GameSystems.Count - 1 do begin357 ComboBoxGameSystem.Items[I] := Core. GameSystems[I].GetName;358 ComboBoxGameSystem.Items.Objects[I] := Core. GameSystems[I];352 for I := 0 to Core.Core.GameSystems.Count - 1 do begin 353 ComboBoxGameSystem.Items[I] := Core.Core.GameSystems[I].GetName; 354 ComboBoxGameSystem.Items.Objects[I] := Core.Core.GameSystems[I]; 359 355 end; 360 356 if Assigned(LastSystem) then … … 457 453 ItemIndex := LastIndex; 458 454 end; 459 Core.Co olTranslator1.TranslateComponentRecursive(Self);455 Core.Core.Translator1.TranslateComponentRecursive(Self); 460 456 end; 461 457 … … 500 496 Randomize; 501 497 NewRandSeed := RandSeed; 502 Core.PersistentForm.Load(Self);503 Core.ThemeManager1.UseTheme(Self);504 498 ReloadView; 505 499 //Height := Trunc(1.5 * Height); … … 583 577 end; 584 578 585 procedure TFormNew.FormClose(Sender: TObject; var CloseAction: TCloseAction);586 begin587 Core.PersistentForm.Save(Self);588 end;589 590 579 procedure TFormNew.AServerAddExecute(Sender: TObject); 591 580 var 592 581 NewServerInfo: TServerInfo; 582 FormServer: TFormServer; 593 583 begin 594 584 FormServer := TFormServer.Create(nil); 595 NewServerInfo := TServerInfo.Create; 596 FormServer.ServerInfo := NewServerInfo; 597 if FormServer.ShowModal = mrOK then begin 598 ServerList.Items.Add(NewServerInfo); 599 ReloadView; 600 end else NewServerInfo.Free; 601 FormServer.Free; 585 try 586 NewServerInfo := TServerInfo.Create; 587 FormServer.ServerInfo := NewServerInfo; 588 if FormServer.ShowModal = mrOK then begin 589 ServerList.Items.Add(NewServerInfo); 590 ReloadView; 591 end else NewServerInfo.Free; 592 finally 593 FormServer.Free; 594 end; 602 595 end; 603 596 … … 605 598 var 606 599 ServerInfo: TServerInfo; 600 FormServer: TFormServer; 607 601 begin 608 602 FormServer := TFormServer.Create(nil); 609 ServerInfo := TServerInfo(ListViewServers.Selected.Data); 610 FormServer.ServerInfo := ServerInfo; 611 if FormServer.ShowModal = mrOK then begin 612 ReloadView; 613 end; 614 FormServer.Free; 603 try 604 ServerInfo := TServerInfo(ListViewServers.Selected.Data); 605 FormServer.ServerInfo := ServerInfo; 606 if FormServer.ShowModal = mrOK then begin 607 ReloadView; 608 end; 609 finally 610 FormServer.Free; 611 end; 615 612 end; 616 613 … … 629 626 630 627 procedure TFormNew.ButtonGameSystemsClick(Sender: TObject); 628 var 629 FormGameSystems: TFormGameSystems; 631 630 begin 632 631 FormGameSystems := TFormGameSystems.Create(nil); 633 632 try 634 FormGameSystems.GameSystems := Core. GameSystems;633 FormGameSystems.GameSystems := Core.Core.GameSystems; 635 634 FormGameSystems.ShowModal; 636 635 ReloadGameSystemsMenu; … … 683 682 SpinEditServerPort.Value := LocalNetworkPort; 684 683 end; 685 ServerList.Assign(Core. ServerList);684 ServerList.Assign(Core.Core.ServerList); 686 685 LoadGame(Server.Game); 687 686 end; … … 703 702 end; 704 703 end; 705 Core. ServerList.Assign(ServerList);704 Core.Core.ServerList.Assign(ServerList); 706 705 SaveGame(Server.Game); 707 706 end; -
trunk/Forms/FormPlayersStats.lfm
r316 r317 1 1 object FormPlayersStats: TFormPlayersStats 2 Left = 4682 Left = 907 3 3 Height = 300 4 Top = 4774 Top = 570 5 5 Width = 746 6 6 Caption = 'Players stats' 7 7 ClientHeight = 300 8 8 ClientWidth = 746 9 DesignTimePPI = 120 10 OnClose = FormClose 9 DesignTimePPI = 144 11 10 OnShow = FormShow 12 LCLVersion = ' 2.0.0.4'11 LCLVersion = '3.4.0.0' 13 12 object ListView1: TListView 14 Left = 415 Height = 29 216 Top = 417 Width = 73 813 Left = 5 14 Height = 290 15 Top = 5 16 Width = 736 18 17 Align = alClient 19 BorderSpacing.Around = 418 BorderSpacing.Around = 5 20 19 Columns = < 21 20 item 22 21 Caption = 'Name' 23 Width = 1 0022 Width = 120 24 23 end 25 24 item 26 25 Caption = 'Mode' 27 Width = 1 0026 Width = 120 28 27 end 29 28 item 30 29 Caption = 'Cells' 31 Width = 1 0030 Width = 120 32 31 end 33 32 item 34 33 Caption = 'Discovered' 35 Width = 1 0034 Width = 120 36 35 end 37 36 item 38 37 Caption = 'Cities' 39 Width = 1 0038 Width = 120 40 39 end 41 40 item 42 41 Caption = 'Units' 43 Width = 1 0042 Width = 120 44 43 end 45 44 item 46 45 Caption = 'Win objective cells' 47 Width = 1 0046 Width = 150 48 47 end> 49 48 OwnerData = True … … 56 55 end 57 56 object PopupMenu1: TPopupMenu 58 left = 14359 top = 11057 Left = 172 58 Top = 132 60 59 object MenuItem1: TMenuItem 61 60 Action = ASpectate … … 63 62 end 64 63 object ActionList1: TActionList 65 left = 35866 top = 11164 Left = 448 65 Top = 136 67 66 object ASpectate: TAction 68 67 Caption = 'Spectate' … … 76 75 Column = 0 77 76 Order = soNone 78 left = 54479 top = 11077 Left = 653 78 Top = 132 80 79 end 81 80 end -
trunk/Forms/FormPlayersStats.pas
r316 r317 1 unit UFormPlayersStats;1 unit FormPlayersStats; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, 7 Menus, ActnList, UGame, ListViewSort;7 Menus, ActnList, Game, ListViewSort, FormEx; 8 8 9 9 type … … 11 11 { TFormPlayersStats } 12 12 13 TFormPlayersStats = class(TForm )13 TFormPlayersStats = class(TFormEx) 14 14 ASpectate: TAction; 15 15 ActionList1: TActionList; … … 19 19 PopupMenu1: TPopupMenu; 20 20 procedure ASpectateExecute(Sender: TObject); 21 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);22 21 procedure FormShow(Sender: TObject); 23 22 procedure ListView1Data(Sender: TObject; Item: TListItem); … … 28 27 end; 29 28 30 var31 FormPlayersStats: TFormPlayersStats;32 33 29 34 30 implementation 35 31 36 32 uses 37 UCore, UPlayer;33 Core, Player; 38 34 39 35 {$R *.lfm} … … 43 39 procedure TFormPlayersStats.ListView1Data(Sender: TObject; Item: TListItem); 44 40 begin 45 with Core. Game do41 with Core.Core.Game do 46 42 if Item.Index < ListViewSort1.List.Count then 47 43 with TPlayer(ListViewSort1.List[Item.Index]) do begin … … 81 77 begin 82 78 ListViewSort1.List.Clear; 83 for I := 0 to Core. Game.Players.Count - 1 do begin84 ListViewSort1.List.Add(Core. Game.Players[I]);79 for I := 0 to Core.Core.Game.Players.Count - 1 do begin 80 ListViewSort1.List.Add(Core.Core.Game.Players[I]); 85 81 end; 86 82 end; … … 88 84 procedure TFormPlayersStats.FormShow(Sender: TObject); 89 85 begin 90 Core.PersistentForm.Load(Self);91 Core.ThemeManager1.UseTheme(Self);92 Core.CoolTranslator1.TranslateComponentRecursive(Self);93 86 ReloadList; 94 end;95 96 procedure TFormPlayersStats.FormClose(Sender: TObject;97 var CloseAction: TCloseAction);98 begin99 Core.PersistentForm.Save(Self);100 87 end; 101 88 … … 103 90 begin 104 91 if Assigned(ListView1.Selected) then 105 Core. Spectate(TPlayer(ListView1.Selected.Data));92 Core.Core.Spectate(TPlayer(ListView1.Selected.Data)); 106 93 end; 107 94 -
trunk/Forms/FormServer.lfm
r316 r317 1 1 object FormServer: TFormServer 2 Left = 6912 Left = 1078 3 3 Height = 210 4 Top = 3894 Top = 615 5 5 Width = 403 6 6 Caption = 'Server' 7 7 ClientHeight = 210 8 8 ClientWidth = 403 9 DesignTimePPI = 120 10 OnShow = FormShow 11 LCLVersion = '2.0.0.4' 9 DesignTimePPI = 144 10 LCLVersion = '3.4.0.0' 12 11 object Label1: TLabel 13 Left = 1 014 Height = 2 015 Top = 2 016 Width = 4312 Left = 12 13 Height = 26 14 Top = 24 15 Width = 56 17 16 Caption = 'Name:' 18 17 ParentColor = False … … 20 19 end 21 20 object EditName: TEdit 22 Left = 1 3623 Height = 2824 Top = 1 425 Width = 2 3421 Left = 163 22 Height = 43 23 Top = 17 24 Width = 281 26 25 ParentFont = False 27 26 TabOrder = 0 28 27 end 29 28 object Label2: TLabel 30 Left = 1 031 Height = 2 032 Top = 6033 Width = 5629 Left = 12 30 Height = 26 31 Top = 72 32 Width = 74 34 33 Caption = 'Address:' 35 34 ParentColor = False … … 37 36 end 38 37 object EditAddress: TEdit 39 Left = 1 3640 Height = 2841 Top = 5342 Width = 2 3638 Left = 163 39 Height = 43 40 Top = 64 41 Width = 283 43 42 ParentFont = False 44 43 TabOrder = 1 45 44 end 46 45 object Label3: TLabel 47 Left = 1 048 Height = 2 049 Top = 1 0050 Width = 3046 Left = 12 47 Height = 26 48 Top = 120 49 Width = 40 51 50 Caption = 'Port:' 52 51 ParentColor = False … … 54 53 end 55 54 object SpinEdit1: TSpinEdit 56 Left = 1 3657 Height = 2858 Top = 9359 Width = 9755 Left = 163 56 Height = 43 57 Top = 112 58 Width = 116 60 59 MaxValue = 65535 61 60 ParentFont = False … … 63 62 end 64 63 object ButtonCancel: TButton 65 Left = 2 4066 Height = 3 167 Top = 1 5568 Width = 9464 Left = 288 65 Height = 37 66 Top = 186 67 Width = 113 69 68 Caption = 'Cancel' 70 69 ModalResult = 2 … … 73 72 end 74 73 object ButtonOk: TButton 75 Left = 8076 Height = 3 177 Top = 1 5578 Width = 9474 Left = 96 75 Height = 37 76 Top = 186 77 Width = 113 79 78 Caption = 'OK' 80 79 ModalResult = 1 81 OnClick = ButtonOkClick82 80 ParentFont = False 83 81 TabOrder = 4 82 OnClick = ButtonOkClick 84 83 end 85 84 end -
trunk/Forms/FormServer.pas
r316 r317 1 unit UFormServer;1 unit FormServer; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 7 Spin, UServerList;7 Spin, ServerList, FormEx; 8 8 9 9 type … … 11 11 { TFormServer } 12 12 13 TFormServer = class(TForm )13 TFormServer = class(TFormEx) 14 14 ButtonCancel: TButton; 15 15 ButtonOk: TButton; … … 21 21 SpinEdit1: TSpinEdit; 22 22 procedure ButtonOkClick(Sender: TObject); 23 procedure FormShow(Sender: TObject);24 23 private 25 24 FServerInfo: TServerInfo; … … 31 30 end; 32 31 33 var34 FormServer: TFormServer;35 36 32 37 33 implementation … … 39 35 {$R *.lfm} 40 36 41 uses42 UCore;43 44 37 { TFormServer } 45 46 procedure TFormServer.FormShow(Sender: TObject);47 begin48 Core.ThemeManager1.UseTheme(Self);49 end;50 38 51 39 procedure TFormServer.ButtonOkClick(Sender: TObject); -
trunk/Forms/FormSettings.lfm
r316 r317 1 1 object FormSettings: TFormSettings 2 Left = 5353 Height = 2994 Top = 3865 Width = 4802 Left = 851 3 Height = 613 4 Top = 413 5 Width = 857 6 6 ActiveControl = ButtonOk 7 7 Caption = 'Settings' 8 ClientHeight = 299 9 ClientWidth = 480 10 Constraints.MinHeight = 250 11 Constraints.MinWidth = 378 12 DesignTimePPI = 120 13 OnClose = FormClose 8 ClientHeight = 613 9 ClientWidth = 857 10 Constraints.MinHeight = 300 11 Constraints.MinWidth = 454 12 DesignTimePPI = 144 14 13 OnCreate = FormCreate 15 14 OnShow = FormShow 16 15 Position = poMainFormCenter 17 LCLVersion = ' 2.0.0.4'16 LCLVersion = '3.4.0.0' 18 17 object ButtonOk: TButton 19 Left = 41120 Height = 2 121 Top = 26622 Width = 6218 Left = 775 19 Height = 25 20 Top = 574 21 Width = 74 23 22 Anchors = [akRight, akBottom] 24 23 Caption = 'Ok' … … 28 27 end 29 28 object ButtonCancel: TButton 30 Left = 33231 Height = 2 132 Top = 26633 Width = 6229 Left = 680 30 Height = 25 31 Top = 574 32 Width = 74 34 33 Anchors = [akRight, akBottom] 35 34 Caption = 'Cancel' … … 39 38 end 40 39 object PageControl1: TPageControl 41 Left = 742 Height = 24543 Top = 744 Width = 46640 Left = 8 41 Height = 558 42 Top = 8 43 Width = 841 45 44 ActivePage = TabSheetGeneral 46 45 Align = alTop 47 46 Anchors = [akTop, akLeft, akRight, akBottom] 48 BorderSpacing.Around = 747 BorderSpacing.Around = 8 49 48 ParentFont = False 50 49 TabIndex = 0 … … 52 51 object TabSheetGeneral: TTabSheet 53 52 Caption = 'General' 54 ClientHeight = 21255 ClientWidth = 45853 ClientHeight = 518 54 ClientWidth = 831 56 55 ParentFont = False 57 56 object Panel1: TPanel 58 57 Left = 0 59 Height = 21258 Height = 518 60 59 Top = 0 61 Width = 45860 Width = 831 62 61 Align = alClient 63 62 BevelOuter = bvNone 64 ClientHeight = 21265 ClientWidth = 45863 ClientHeight = 518 64 ClientWidth = 831 66 65 ParentFont = False 67 66 TabOrder = 0 68 67 object Label1: TLabel 69 Left = 1770 Height = 2 071 Top = 2772 Width = 6868 Left = 20 69 Height = 26 70 Top = 32 71 Width = 88 73 72 Caption = 'Language:' 74 73 ParentColor = False … … 76 75 end 77 76 object ComboBoxLanguage: TComboBox 78 Left = 1 4879 Height = 2880 Top = 2 081 Width = 1 6382 ItemHeight = 2077 Left = 178 78 Height = 42 79 Top = 24 80 Width = 196 81 ItemHeight = 0 83 82 ParentFont = False 84 83 Style = csDropDownList … … 86 85 end 87 86 object ComboBoxTheme: TComboBox 88 Left = 1 4789 Height = 2890 Top = 6091 Width = 1 6392 ItemHeight = 2087 Left = 176 88 Height = 42 89 Top = 72 90 Width = 196 91 ItemHeight = 0 93 92 ParentFont = False 94 93 Style = csDropDownList … … 96 95 end 97 96 object Label6: TLabel 98 Left = 1799 Height = 2 0100 Top = 67101 Width = 4897 Left = 20 98 Height = 26 99 Top = 80 100 Width = 63 102 101 Caption = 'Theme:' 103 102 ParentColor = False … … 105 104 end 106 105 object SpinEditAnimSpeed: TSpinEdit 107 Left = 193108 Height = 28109 Top = 1 00110 Width = 1 02106 Left = 232 107 Height = 43 108 Top = 120 109 Width = 122 111 110 ParentFont = False 112 111 TabOrder = 2 113 112 end 114 113 object Label3: TLabel 115 Left = 3 07116 Height = 2 0117 Top = 1 03118 Width = 1 2114 Left = 368 115 Height = 26 116 Top = 124 117 Width = 15 119 118 Caption = '%' 120 119 ParentColor = False … … 122 121 end 123 122 object Label2: TLabel 124 Left = 17125 Height = 2 0126 Top = 1 00127 Width = 1 16123 Left = 20 124 Height = 26 125 Top = 120 126 Width = 149 128 127 Caption = 'Animation speed:' 129 128 ParentColor = False … … 131 130 end 132 131 object CheckBoxAutoSaveTurn: TCheckBox 133 Left = 17134 Height = 24135 Top = 1 28136 Width = 2 13132 Left = 20 133 Height = 30 134 Top = 154 135 Width = 269 137 136 Caption = 'Autosave game on each turn' 138 137 ParentFont = False … … 140 139 end 141 140 object CheckBoxReopenLastFile: TCheckBox 142 Left = 17143 Height = 24144 Top = 1 62145 Width = 198141 Left = 20 142 Height = 30 143 Top = 194 144 Width = 248 146 145 Caption = 'Reopen last game on start' 147 146 ParentFont = False … … 152 151 object TabSheetDebug: TTabSheet 153 152 Caption = 'Debug' 154 ClientHeight = 260155 ClientWidth = 554153 ClientHeight = 518 154 ClientWidth = 831 156 155 ParentFont = False 157 156 object Panel2: TPanel 158 157 Left = 0 159 Height = 229158 Height = 518 160 159 Top = 0 161 Width = 583160 Width = 831 162 161 Align = alClient 163 162 BevelOuter = bvNone 164 ClientHeight = 229165 ClientWidth = 583163 ClientHeight = 518 164 ClientWidth = 831 166 165 ParentFont = False 167 166 TabOrder = 0 168 167 object CheckBox2: TCheckBox 169 Left = 1 3170 Height = 2 0171 Top = 27172 Width = 557168 Left = 16 169 Height = 24 170 Top = 32 171 Width = 799 173 172 Anchors = [akTop, akLeft, akRight] 174 173 AutoSize = False 175 174 Caption = 'Automatic DPI' 175 ParentFont = False 176 TabOrder = 0 176 177 OnChange = CheckBox2Change 177 ParentFont = False178 TabOrder = 0179 178 end 180 179 object Label4: TLabel 181 Left = 1 2182 Height = 26 183 Top = 56180 Left = 14 181 Height = 26 182 Top = 67 184 183 Width = 35 185 184 Caption = 'DPI:' … … 188 187 end 189 188 object SpinEditX: TSpinEdit 190 Left = 87191 Height = 36192 Top = 53193 Width = 80189 Left = 104 190 Height = 43 191 Top = 64 192 Width = 96 194 193 MaxValue = 500 195 194 MinValue = 20 … … 199 198 end 200 199 object Label5: TLabel 201 Left = 173202 Height = 26 203 Top = 56200 Left = 208 201 Height = 26 202 Top = 67 204 203 Width = 10 205 204 Caption = 'x' … … 208 207 end 209 208 object SpinEditY: TSpinEdit 210 Left = 193211 Height = 36212 Top = 53213 Width = 75209 Left = 232 210 Height = 43 211 Top = 64 212 Width = 90 214 213 MaxValue = 500 215 214 MinValue = 20 … … 219 218 end 220 219 object CheckBoxDevelMode: TCheckBox 221 Left = 1 3222 Height = 2 2223 Top = 1 13224 Width = 560220 Left = 16 221 Height = 26 222 Top = 136 223 Width = 803 225 224 Anchors = [akTop, akLeft, akRight] 226 225 AutoSize = False -
trunk/Forms/FormSettings.pas
r316 r317 1 unit UFormSettings;1 unit FormSettings; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 7 Spin, ComCtrls, ExtCtrls ;7 Spin, ComCtrls, ExtCtrls, FormEx; 8 8 9 9 type … … 11 11 { TFormSettings } 12 12 13 TFormSettings = class(TForm )13 TFormSettings = class(TFormEx) 14 14 ButtonOk: TButton; 15 15 ButtonCancel: TButton; … … 35 35 TabSheetDebug: TTabSheet; 36 36 procedure CheckBox2Change(Sender: TObject); 37 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);38 37 procedure FormCreate(Sender: TObject); 39 38 procedure FormShow(Sender: TObject); … … 43 42 end; 44 43 45 var46 FormSettings: TFormSettings;47 44 48 45 … … 52 49 53 50 uses 54 UCore, Languages, Theme;51 Core, Languages, Theme; 55 52 56 53 { TFormSettings } … … 62 59 end; 63 60 64 procedure TFormSettings.FormClose(Sender: TObject; var CloseAction: TCloseAction65 );66 begin67 Core.PersistentForm.Save(Self);68 end;69 70 61 procedure TFormSettings.FormCreate(Sender: TObject); 71 62 begin 72 63 PageControl1.TabIndex := 0; 73 Core.CoolTranslator1.TranslateComponentRecursive(Self); 74 Core.ThemeManager1.Themes.LoadToStrings(ComboBoxTheme.Items); 75 Core.CoolTranslator1.LanguageListToStrings(ComboBoxLanguage.Items); 64 Core.Core.ThemeManager1.Themes.LoadToStrings(ComboBoxTheme.Items); 65 Core.Core.Translator1.LanguageListToStrings(ComboBoxLanguage.Items); 76 66 end; 77 67 78 68 procedure TFormSettings.FormShow(Sender: TObject); 79 69 begin 80 Core.PersistentForm.Load(Self);81 Core.ThemeManager1.UseTheme(Self);82 70 {$IFDEF DEBUG} 83 71 TabSheetDebug.TabVisible := True; … … 89 77 procedure TFormSettings.Load; 90 78 begin 91 ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Core.Co olTranslator1.Language);79 ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Core.Core.Translator1.Language); 92 80 if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0; 93 ComboBoxTheme.ItemIndex := ComboBoxTheme.Items.IndexOfObject(Core. ThemeManager1.Theme);81 ComboBoxTheme.ItemIndex := ComboBoxTheme.Items.IndexOfObject(Core.Core.ThemeManager1.Theme); 94 82 if ComboBoxTheme.ItemIndex = -1 then ComboBoxTheme.ItemIndex := 0; 95 CheckBoxDevelMode.Checked := Core. DevelMode;96 SpinEditAnimSpeed.Value := Core. AnimationSpeed;97 CheckBox2.Checked := Core. ScaleDPI1.AutoDetect;98 SpinEditX.Value := Core. ScaleDPI1.DPI.X;99 SpinEditY.Value := Core. ScaleDPI1.DPI.Y;100 CheckBoxAutoSaveTurn.Checked := Core. AutoSaveEnabled;101 CheckBoxReopenLastFile.Checked := Core. ReopenLastFile;83 CheckBoxDevelMode.Checked := Core.Core.DevelMode; 84 SpinEditAnimSpeed.Value := Core.Core.AnimationSpeed; 85 CheckBox2.Checked := Core.Core.ScaleDPI1.AutoDetect; 86 SpinEditX.Value := Core.Core.ScaleDPI1.DPI.X; 87 SpinEditY.Value := Core.Core.ScaleDPI1.DPI.Y; 88 CheckBoxAutoSaveTurn.Checked := Core.Core.AutoSaveEnabled; 89 CheckBoxReopenLastFile.Checked := Core.Core.ReopenLastFile; 102 90 end; 103 91 … … 105 93 begin 106 94 if ComboBoxLanguage.ItemIndex <> -1 then 107 Core.Co olTranslator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);95 Core.Core.Translator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]); 108 96 if ComboBoxTheme.ItemIndex <> -1 then 109 Core. ThemeManager1.Theme := TTheme(ComboBoxTheme.Items.Objects[ComboBoxTheme.ItemIndex]);110 Core. DevelMode := CheckBoxDevelMode.Checked;111 Core. AnimationSpeed := SpinEditAnimSpeed.Value;112 Core. ScaleDPI1.AutoDetect := CheckBox2.Checked;113 Core. ScaleDPI1.DPI := Point(SpinEditX.Value, SpinEditY.Value);114 Core. AutoSaveEnabled := CheckBoxAutoSaveTurn.Checked;115 Core. ReopenLastFile := CheckBoxReopenLastFile.Checked;97 Core.Core.ThemeManager1.Theme := TTheme(ComboBoxTheme.Items.Objects[ComboBoxTheme.ItemIndex]); 98 Core.Core.DevelMode := CheckBoxDevelMode.Checked; 99 Core.Core.AnimationSpeed := SpinEditAnimSpeed.Value; 100 Core.Core.ScaleDPI1.AutoDetect := CheckBox2.Checked; 101 Core.Core.ScaleDPI1.DPI := Point(SpinEditX.Value, SpinEditY.Value); 102 Core.Core.AutoSaveEnabled := CheckBoxAutoSaveTurn.Checked; 103 Core.Core.ReopenLastFile := CheckBoxReopenLastFile.Checked; 116 104 end; 117 105 -
trunk/Forms/FormUnitMoves.lfm
r316 r317 1 1 object FormUnitMoves: TFormUnitMoves 2 Left = 7303 Height = 4 184 Top = 2115 Width = 8022 Left = 879 3 Height = 499 4 Top = 514 5 Width = 950 6 6 Caption = 'Unit moves' 7 ClientHeight = 418 8 ClientWidth = 802 9 DesignTimePPI = 120 10 OnClose = FormClose 7 ClientHeight = 499 8 ClientWidth = 950 9 DesignTimePPI = 144 11 10 OnShow = FormShow 12 LCLVersion = ' 2.0.0.4'11 LCLVersion = '3.4.0.0' 13 12 object ListView1: TListView 14 13 Left = 0 15 Height = 4 1814 Height = 499 16 15 Top = 0 17 Width = 80216 Width = 950 18 17 Align = alClient 19 18 Columns = < 20 19 item 21 20 Caption = 'From cell' 22 Width = 1 5021 Width = 180 23 22 end 24 23 item 25 24 Caption = 'To cell' 26 Width = 1 5025 Width = 180 27 26 end 28 27 item 29 28 Caption = 'Once count' 30 Width = 1 5029 Width = 180 31 30 end 32 31 item 33 32 Caption = 'Repeat count' 34 Width = 3 3233 Width = 398 35 34 end> 36 35 OwnerData = True -
trunk/Forms/FormUnitMoves.pas
r316 r317 1 unit UFormUnitMoves;1 unit FormUnitMoves; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls; 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, 7 FormEx; 7 8 8 9 type … … 10 11 { TFormUnitMoves } 11 12 12 TFormUnitMoves = class(TForm )13 TFormUnitMoves = class(TFormEx) 13 14 ListView1: TListView; 14 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);15 15 procedure FormShow(Sender: TObject); 16 16 procedure ListView1Data(Sender: TObject; Item: TListItem); 17 private18 19 17 public 20 18 procedure ReloadList; 21 19 end; 22 20 23 var24 FormUnitMoves: TFormUnitMoves;25 21 26 22 implementation 27 23 28 24 uses 29 UGame, UCore, UPlayer;25 Game, Core, Player; 30 26 31 27 {$R *.lfm} … … 35 31 procedure TFormUnitMoves.ListView1Data(Sender: TObject; Item: TListItem); 36 32 begin 37 if Assigned(Core. Game) and Assigned(Core.Game.CurrentPlayer) then38 with Core. Game.CurrentPlayer do33 if Assigned(Core.Core.Game) and Assigned(Core.Core.Game.CurrentPlayer) then 34 with Core.Core.Game.CurrentPlayer do 39 35 if (Mode = pmHuman) and (Item.Index < Moves.Count) then 40 36 with TUnitMove(Moves[Item.Index]) do begin … … 48 44 procedure TFormUnitMoves.FormShow(Sender: TObject); 49 45 begin 50 Core.PersistentForm.Load(Self);51 Core.ThemeManager1.UseTheme(Self);52 Core.CoolTranslator1.TranslateComponentRecursive(Self);53 46 ReloadList; 54 end;55 56 procedure TFormUnitMoves.FormClose(Sender: TObject;57 var CloseAction: TCloseAction);58 begin59 Core.PersistentForm.Save(Self);60 47 end; 61 48 62 49 procedure TFormUnitMoves.ReloadList; 63 50 begin 64 if Assigned(Core. Game) and Assigned(Core.Game.CurrentPlayer) and65 (Core. Game.CurrentPlayer.Mode = pmHuman) then66 ListView1.Items.Count := Core. Game.CurrentPlayer.Moves.Count51 if Assigned(Core.Core.Game) and Assigned(Core.Core.Game.CurrentPlayer) and 52 (Core.Core.Game.CurrentPlayer.Mode = pmHuman) then 53 ListView1.Items.Count := Core.Core.Game.CurrentPlayer.Moves.Count 67 54 else ListView1.Items.Count := 0; 68 55 ListView1.Refresh; -
trunk/Game.pas
r316 r317 1 unit UGame;1 unit Game; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, ExtCtrls, Graphics, XMLConf, XMLRead, XMLWrite, Forms, 7 DOM, Math, LazFileUtils, XML, Dialogs, LCLType, LCLIntf, UBuilding, UGeometry,8 UPlayer, UMap, UMapType, UUnit, UGameSystem;7 DOM, Math, LazFileUtils, XML, Dialogs, LCLType, LCLIntf, Building, Geometry, 8 Player, Map, MapType, &Unit, GameSystem; 9 9 10 10 const -
trunk/GameClient.pas
r316 r317 1 unit UGameClient;1 unit GameClient; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, UGame, Forms, Generics.Collections, UGameProtocol,7 UGameServer, UCommThread, Threading, UCommFrame, UPlayer;6 Classes, SysUtils, Game, Forms, Generics.Collections, GameProtocol, 7 GameServer, CommThread, Threading, CommFrame, Player; 8 8 9 9 type … … 79 79 80 80 uses 81 UClientGUI;81 ClientGUI; 82 82 83 83 { TClients } -
trunk/GameConnection.pas
r316 r317 1 unit UGameConnection;1 unit GameConnection; 2 2 3 3 interface -
trunk/GameProtocol.pas
r316 r317 1 unit UGameProtocol;1 unit GameProtocol; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, UGame, UVarBlockSerializer, UCommPin, SpecializedList;6 Classes, SysUtils, Game, UVarBlockSerializer, CommPin, SpecializedList; 7 7 8 8 type -
trunk/GameServer.pas
r316 r317 1 unit UGameServer;1 unit GameServer; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, UGame, DOM, XMLConf, Generics.Collections, UGameProtocol,7 UCommFrame, UPlayer;6 Classes, SysUtils, Game, DOM, XMLConf, Generics.Collections, GameProtocol, 7 CommFrame, Player; 8 8 9 9 type -
trunk/GameSystem.pas
r316 r317 1 unit UGameSystem;1 unit GameSystem; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, Generics.Collections, UUnit, DOM, XMLRead, XMLWrite, XML, XMLConf,7 FileUtil, LazFileUtils, UMapType, UNation, UBuilding;6 Classes, SysUtils, Generics.Collections, &Unit, DOM, XMLRead, XMLWrite, XML, XMLConf, 7 FileUtil, LazFileUtils, MapType, Nation, Building; 8 8 9 9 type -
trunk/Geometry.pas
r316 r317 1 unit UGeometry;1 unit Geometry; 2 2 3 3 interface -
trunk/GeometryClasses.pas
r316 r317 1 unit UGeometryClasses;1 unit GeometryClasses; 2 2 3 3 interface -
trunk/ItemList.pas
r316 r317 1 unit UItemList;1 unit ItemList; 2 2 3 3 interface -
trunk/Languages/xtactics.cs.po
r313 r317 1 1 msgid "" 2 2 msgstr "" 3 "Content-Type: text/plain; charset=UTF-8\n"4 3 "Project-Id-Version: \n" 5 4 "POT-Creation-Date: \n" … … 7 6 "Last-Translator: Chronos <robie@centrum.cz>\n" 8 7 "Language-Team: \n" 8 "Language: cs\n" 9 9 "MIME-Version: 1.0\n" 10 "Content-Type: text/plain; charset=UTF-8\n" 10 11 "Content-Transfer-Encoding: 8bit\n" 11 "X-Generator: Poedit 2.2.1\n" 12 "Language: cs\n" 13 14 #: tcore.aabout.caption 15 msgctxt "tcore.aabout.caption" 16 msgid "About" 17 msgstr "O aplikaci" 18 19 #: tcore.aexit.caption 20 msgctxt "TCORE.AEXIT.CAPTION" 21 msgid "Exit" 22 msgstr "Odejít" 23 24 #: tcore.aexit.hint 25 msgid "Exit application" 26 msgstr "Ukončit aplikaci" 27 28 #: tcore.afullscreen.caption 29 msgid "Full screen mode" 30 msgstr "Režim celé obrazovky" 31 32 #: tcore.agameend.caption 33 msgctxt "TCORE.AGAMEEND.CAPTION" 34 msgid "End" 35 msgstr "Ukončit" 36 37 #: tcore.agameend.hint 38 msgid "End game" 39 msgstr "Ukončit hru" 40 41 #: tcore.agameload.caption 42 msgctxt "tcore.agameload.caption" 43 msgid "Load" 44 msgstr "Načíst" 45 46 #: tcore.agamenew.caption 47 msgctxt "TCORE.AGAMENEW.CAPTION" 48 msgid "New" 49 msgstr "Nová" 50 51 #: tcore.agamenew.hint 52 msgctxt "tcore.agamenew.hint" 53 msgid "New game" 54 msgstr "Nová hra" 55 56 #: tcore.agamerestart.caption 57 msgctxt "TCORE.AGAMERESTART.CAPTION" 58 msgid "Restart" 59 msgstr "Restartovat" 60 61 #: tcore.agamerestart.hint 62 msgid "Restart game" 63 msgstr "Restartovat hru" 64 65 #: tcore.agamesave.caption 66 msgctxt "tcore.agamesave.caption" 67 msgid "Save" 68 msgstr "Uložit" 69 70 #: tcore.agamesaveas.caption 71 msgid "Save as..." 72 msgstr "Uložit jako..." 73 74 #: tcore.ahelp.caption 75 msgctxt "tcore.ahelp.caption" 76 msgid "Help" 77 msgstr "Nápověda" 78 79 #: tcore.anewspectatorclient.caption 80 msgid "New spectator client" 81 msgstr "Nový klient divák" 82 83 #: tcore.aplayersstats.caption 84 msgid "Players statistics" 85 msgstr "Statistiky hráčů" 86 87 #: tcore.applicationinfo.description 88 msgid "A turn-based strategy game inspired by classic Risk board game. The game is highly configurable to allow to adjust battle field and game rules." 89 msgstr "" 90 91 #: tcore.asettings.caption 92 msgctxt "tcore.asettings.caption" 93 msgid "Settings" 94 msgstr "Nastavení" 95 96 #: tcore.asettings.hint 97 msgid "Application settings" 98 msgstr "Nastavení aplikace" 99 100 #: tcore.ashowcharts.caption 101 msgctxt "tcore.ashowcharts.caption" 102 msgid "Charts" 103 msgstr "Grafy" 104 105 #: tcore.ashowkeyshortcuts.caption 106 msgctxt "tcore.ashowkeyshortcuts.caption" 107 msgid "Key shortcuts" 108 msgstr "Klávesové zkratky" 109 110 #: tcore.ashowunitmoves.caption 111 msgctxt "tcore.ashowunitmoves.caption" 112 msgid "Unit moves" 113 msgstr "Pohyby jednotek" 114 115 #: tcore.atogglefogofwar.caption 116 msgid "Toggle fog of war" 117 msgstr "Přepnout Skrytou mapu" 118 119 #: tformcharts.caption 120 msgctxt "tformcharts.caption" 121 msgid "Charts" 122 msgstr "Grafy" 123 124 #: tformcharts.combobox1.text 125 msgctxt "tformcharts.combobox1.text" 12 "X-Generator: Poedit 3.4.2\n" 13 14 #: building.sbonusattack 15 msgctxt "building.sbonusattack" 16 msgid "Unit attack bonus" 17 msgstr "Útočný bonus jednotky" 18 19 #: building.sbonusdefense 20 msgctxt "building.sbonusdefense" 21 msgid "Unit defense bonus" 22 msgstr "Obranný bonus jednotky" 23 24 #: building.sbonusgrow 25 msgctxt "building.sbonusgrow" 26 msgid "Unit grow bonus" 27 msgstr "Růstový bonus jednotky" 28 29 #: building.sbonusviewrange 30 msgctxt "building.sbonusviewrange" 31 msgid "Unit view range bonus" 32 msgstr "Dohledový bonus jednotky" 33 34 #: building.sbuildingkind 35 msgctxt "building.sbuildingkind" 36 msgid "Building" 37 msgstr "Budovy" 38 39 #: building.scity 40 msgctxt "building.scity" 41 msgid "City" 42 msgstr "Město" 43 44 #: building.scost 45 msgctxt "building.scost" 46 msgid "Cost" 47 msgstr "Cena" 48 49 #: building.snone 50 msgctxt "building.snone" 51 msgid "None" 52 msgstr "Žádný" 53 54 #: building.sspecialtype 55 msgctxt "building.sspecialtype" 56 msgid "Special type" 57 msgstr "Speciální typ" 58 59 #: clientgui.swrongarrowangle 60 #, object-pascal-format 61 msgctxt "clientgui.swrongarrowangle" 62 msgid "Wrong arrow angle %s" 63 msgstr "Nesprávný úhel šipky %s" 64 65 #: clientgui.szerozoomnotalowed 66 msgctxt "clientgui.szerozoomnotalowed" 67 msgid "Zero zoom not allowed" 68 msgstr "Nulové přiblížení není povoleno" 69 70 #: core.sendgame 71 msgctxt "core.sendgame" 72 msgid "End game?" 73 msgstr "Ukončit hru?" 74 75 #: core.sendgamequestion 76 msgctxt "core.sendgamequestion" 77 msgid "Do you want to end current game?" 78 msgstr "Chcete ukončit aktuální hru?" 79 80 #: core.sfiledialogfilter 81 msgctxt "core.sfiledialogfilter" 82 msgid "xTactics games (.xtg)|*.xtg|All files|*.*" 83 msgstr "xTactics hry (.xtg)|*.xtg|Všechny soubory|*.*" 84 85 #: core.smissingserverclientforplayer 86 msgctxt "core.smissingserverclientforplayer" 87 msgid "Server client for current player not found." 88 msgstr "Chybí klient serveru pro aktuálního hráče." 89 90 #: core.splayersnotinitialized 91 #, object-pascal-format 92 msgctxt "core.splayersnotinitialized" 93 msgid "Not all players were initialized with start cell. Needed %d, initialized %d. Change map parameters to have more terrain cells." 94 msgstr "Ne všichni hráči byli vytvoření. Potřeba %d, vytvořeno %d. Změňte parametry mapy abyste měli více políček země." 95 96 #: core.splayerswins 97 #, object-pascal-format 98 msgctxt "core.splayerswins" 99 msgid "Players %s win" 100 msgstr "Hráči %s vyhráli" 101 102 #: core.splayerwins 103 #, object-pascal-format 104 msgctxt "core.splayerwins" 105 msgid "Player %s wins" 106 msgstr "Hráč %s vyhrál" 107 108 #: core.srestartgame 109 msgctxt "core.srestartgame" 110 msgid "Restart game?" 111 msgstr "Restartovat hru?" 112 113 #: core.srestartgamequestion 114 msgctxt "core.srestartgamequestion" 115 msgid "Do you want to restart current game?" 116 msgstr "Chcete restartovat aktuální hru?" 117 118 #: formcharts.scitiescount 119 msgctxt "formcharts.scitiescount" 120 msgid "Cities count" 121 msgstr "Počet měst" 122 123 #: formcharts.sdiscoveredcells 124 msgctxt "formcharts.sdiscoveredcells" 125 msgid "Discovered cells" 126 msgstr "Objevených buněk" 127 128 #: formcharts.smilitarypower 129 msgctxt "formcharts.smilitarypower" 130 msgid "Military power" 131 msgstr "Vojenská síla" 132 133 #: formcharts.soccupiedcells 134 msgctxt "formcharts.soccupiedcells" 126 135 msgid "Occupied cells" 127 136 msgstr "Obsazené buňky" 128 137 129 #: tformchat.buttonmessagesend.caption 130 msgid "Send" 131 msgstr "Odeslat" 132 133 #: tformchat.caption 134 msgid "Chat" 135 msgstr "Pokec" 136 137 #: tformchat.label1.caption 138 msgid "Chat:" 139 msgstr "Pokec:" 140 141 #: tformclient.agameendturn.caption 142 msgctxt "tformclient.agameendturn.caption" 143 msgid "End turn" 144 msgstr "Ukončit tah" 145 146 #: tformclient.astatusbarvisible.caption 147 msgctxt "tformclient.astatusbarvisible.caption" 148 msgid "Statusbar visible" 149 msgstr "Viditelná stavová lišta" 150 151 #: tformclient.asurrender.caption 152 msgctxt "tformclient.asurrender.caption" 138 #: formcharts.swinobjectivecells 139 msgctxt "formcharts.swinobjectivecells" 140 msgid "Win objective cells" 141 msgstr "Buňky cíle vítězství" 142 143 #: formclient.ssurrender 144 msgctxt "formclient.ssurrender" 153 145 msgid "Surrender" 154 146 msgstr "Vzdát se" 155 147 156 #: tformclient.atoolbarbigicons.caption 157 msgctxt "tformclient.atoolbarbigicons.caption" 158 msgid "Toolbar big icons" 159 msgstr "Velké ikony panelu" 160 161 #: tformclient.atoolbarvisible.caption 162 msgctxt "tformclient.atoolbarvisible.caption" 163 msgid "Toolbar visible" 164 msgstr "Viditelný nástrojový panel" 165 166 #: tformclient.azoomall.caption 167 msgctxt "tformclient.azoomall.caption" 168 msgid "Zoom all" 169 msgstr "Zobrazit vše" 170 171 #: tformclient.azoomin.caption 172 msgctxt "tformclient.azoomin.caption" 173 msgid "Zoom in" 174 msgstr "Přiblížit" 175 176 #: tformclient.azoomout.caption 177 msgctxt "tformclient.azoomout.caption" 178 msgid "Zoom out" 179 msgstr "Oddálit" 180 181 #: tformclient.caption 182 msgid "Client" 183 msgstr "Klient" 184 185 #: tformgamesystem.buttoncancel.caption 186 msgctxt "tformgamesystem.buttoncancel.caption" 187 msgid "Cancel" 188 msgstr "Zrušit" 189 190 #: tformgamesystem.buttonload.caption 191 msgctxt "tformgamesystem.buttonload.caption" 192 msgid "Load" 193 msgstr "Načíst" 194 195 #: tformgamesystem.buttonok.caption 196 msgctxt "tformgamesystem.buttonok.caption" 197 msgid "OK" 198 msgstr "OK" 199 200 #: tformgamesystem.buttonsave.caption 201 msgctxt "tformgamesystem.buttonsave.caption" 202 msgid "Save" 203 msgstr "Uložit" 204 205 #: tformgamesystem.caption 206 msgctxt "tformgamesystem.caption" 207 msgid "Game system" 208 msgstr "Herní systém" 209 210 #: tformgamesystem.checkboxemptycellsneutral.caption 211 msgctxt "tformgamesystem.checkboxemptycellsneutral.caption" 212 msgid "Set cells without player units as neutral" 213 msgstr "Nastavit buňky bez jednotek hráče jako neutrální" 214 215 #: tformgamesystem.checkboxunitsmoveimmediately.caption 216 msgctxt "tformgamesystem.checkboxunitsmoveimmediately.caption" 217 msgid "Units move immediately" 218 msgstr "Okamžitý pohyb jednotek" 219 220 #: tformgamesystem.checkboxunitssplitmerge.caption 221 msgctxt "tformgamesystem.checkboxunitssplitmerge.caption" 222 msgid "Units can split or merge" 223 msgstr "Dělení nebo slučování jednotek" 224 225 #: tformgamesystem.tabsheetbuildings.caption 226 msgid "Buildings" 227 msgstr "Budovy" 228 229 #: tformgamesystem.tabsheetgeneral.caption 230 msgctxt "tformgamesystem.tabsheetgeneral.caption" 231 msgid "General" 232 msgstr "Obecné" 233 234 #: tformgamesystem.tabsheetnations.caption 235 msgctxt "tformgamesystem.tabsheetnations.caption" 236 msgid "Nations" 237 msgstr "Národy" 238 239 #: tformgamesystem.tabsheetunits.caption 240 msgctxt "tformgamesystem.tabsheetunits.caption" 241 msgid "Units" 242 msgstr "Jednotky" 243 244 #: tformgamesystems.aadd.caption 245 msgctxt "tformgamesystems.aadd.caption" 246 msgid "Add" 247 msgstr "Přidat" 248 249 #: tformgamesystems.aclone.caption 250 msgctxt "tformgamesystems.aclone.caption" 251 msgid "Clone" 252 msgstr "Klonovat" 253 254 #: tformgamesystems.amodify.caption 255 msgctxt "tformgamesystems.amodify.caption" 256 msgid "Modify" 257 msgstr "Upravit" 258 259 #: tformgamesystems.aremove.caption 260 msgctxt "tformgamesystems.aremove.caption" 261 msgid "Remove" 262 msgstr "Odstranit" 263 264 #: tformgamesystems.aselectall.caption 265 msgctxt "tformgamesystems.aselectall.caption" 266 msgid "Select all" 267 msgstr "Vybrat vše" 268 269 #: tformgamesystems.caption 270 msgid "Game systems" 271 msgstr "Herní systémy" 272 273 #: tformgamesystems.listview1.columns[0].caption 274 msgctxt "tformgamesystems.listview1.columns[0].caption" 275 msgid "Name" 276 msgstr "Jméno" 277 278 #: tformhelp.caption 279 msgctxt "tformhelp.caption" 280 msgid "Help" 281 msgstr "Nápověda" 282 283 #: tformitem.buttoncancel.caption 284 msgctxt "tformitem.buttoncancel.caption" 285 msgid "Cancel" 286 msgstr "Zrušit" 287 288 #: tformitem.buttonok.caption 289 msgctxt "tformitem.buttonok.caption" 290 msgid "OK" 291 msgstr "OK" 292 293 #: tformitem.caption 294 msgctxt "tformitem.caption" 295 msgid "Item" 296 msgstr "Položka" 297 298 #: tformkeyshortcuts.caption 299 msgctxt "tformkeyshortcuts.caption" 300 msgid "Key shortcuts" 301 msgstr "Klávesové zkratky" 302 303 #: tformkeyshortcuts.listview1.columns[0].caption 304 msgid "Action" 305 msgstr "Akce" 306 307 #: tformkeyshortcuts.listview1.columns[1].caption 308 msgid "Window" 309 msgstr "Okno" 310 311 #: tformkeyshortcuts.listview1.columns[2].caption 312 msgid "Shortcut" 313 msgstr "Zkratka" 314 315 #: tformkeyshortcuts.menuitem1.caption 316 msgid "Execute" 317 msgstr "Vykonat" 318 319 #: tformlist.aadd.caption 320 msgctxt "tformlist.aadd.caption" 321 msgid "Add" 322 msgstr "Přidat" 323 324 #: tformlist.aclone.caption 325 msgctxt "tformlist.aclone.caption" 326 msgid "Clone" 327 msgstr "Klonovat" 328 329 #: tformlist.amodify.caption 330 msgctxt "tformlist.amodify.caption" 331 msgid "Modify" 332 msgstr "Upravit" 333 334 #: tformlist.aremove.caption 335 msgctxt "tformlist.aremove.caption" 336 msgid "Remove" 337 msgstr "Odstranit" 338 339 #: tformlist.aselectall.caption 340 msgctxt "tformlist.aselectall.caption" 341 msgid "Select all" 342 msgstr "Vybrat vše" 343 344 #: tformlist.caption 345 msgid "List" 346 msgstr "Seznam" 347 348 #: tformlist.listview1.columns[0].caption 349 msgctxt "tformlist.listview1.columns[0].caption" 350 msgid "Name" 351 msgstr "Jméno" 352 353 #: tformmain.amapgridvisible.caption 354 msgid "Map grid visible" 355 msgstr "Mřížka mapy viditelná" 356 357 #: tformmain.astatusbarvisible.caption 358 msgid "Status bar visible" 359 msgstr "Stavová lišta viditelná" 360 361 #: tformmain.atoolbarbigicons.caption 362 msgctxt "tformmain.atoolbarbigicons.caption" 363 msgid "Toolbar big icons" 364 msgstr "Velké ikony panelu" 365 366 #: tformmain.atoolbarvisible.caption 367 msgctxt "tformmain.atoolbarvisible.caption" 368 msgid "Toolbar visible" 369 msgstr "Viditelný nástrojový panel" 370 371 #: tformmain.aunitshapevisible.caption 372 msgid "Unit shape visible" 373 msgstr "Obrys jednotek viditelný" 374 375 #: tformmain.caption 376 msgctxt "tformmain.caption" 377 msgid "xTactics" 378 msgstr "xTactics" 379 380 #: tformmain.menuitem1.caption 381 msgctxt "tformmain.menuitem1.caption" 382 msgid "Game" 383 msgstr "Hra" 384 385 #: tformmain.menuitem10.caption 386 msgctxt "tformmain.menuitem10.caption" 387 msgid "View" 388 msgstr "Zobrazení" 389 390 #: tformmain.menuitem11.caption 391 msgctxt "tformmain.menuitem11.caption" 392 msgid "Zoom all" 393 msgstr "Zobrazit vše" 394 395 #: tformmain.menuitem12.caption 396 msgctxt "tformmain.menuitem12.caption" 397 msgid "Zoom in" 398 msgstr "Přiblížit" 399 400 #: tformmain.menuitem13.caption 401 msgctxt "tformmain.menuitem13.caption" 402 msgid "Zoom out" 403 msgstr "Oddálit" 404 405 #: tformmain.menuitem16.caption 406 msgctxt "tformmain.menuitem16.caption" 407 msgid "Help" 408 msgstr "Nápověda" 409 410 #: tformmain.menuitem8.caption 411 msgctxt "tformmain.menuitem8.caption" 412 msgid "Tools" 413 msgstr "Nástroje" 414 415 #: tformmain.menuitemdebug.caption 416 msgctxt "tformmain.menuitemdebug.caption" 417 msgid "Debug" 418 msgstr "Ladění" 419 420 #: tformmain.menuitemloadrecent.caption 421 msgctxt "tformmain.menuitemloadrecent.caption" 422 msgid "Load recent" 423 msgstr "Načíst nedávné" 424 425 #: tformmove.buttoncancel.caption 426 msgctxt "tformmove.buttoncancel.caption" 427 msgid "Cancel" 428 msgstr "Zrušit" 429 430 #: tformmove.buttonok.caption 431 msgctxt "tformmove.buttonok.caption" 432 msgid "Ok" 433 msgstr "Ok" 434 435 #: tformmove.buttononcemax.caption 436 msgctxt "tformmove.buttononcemax.caption" 437 msgid "Max" 438 msgstr "Max" 439 440 #: tformmove.buttononcemin.caption 441 msgctxt "tformmove.buttononcemin.caption" 442 msgid "Min" 443 msgstr "Min" 444 445 #: tformmove.buttonremove.caption 446 msgid "Delete" 447 msgstr "Odstranit" 448 449 #: tformmove.buttonrepeatmax.caption 450 msgctxt "tformmove.buttonrepeatmax.caption" 451 msgid "Max" 452 msgstr "Max" 453 454 #: tformmove.buttonrepeatmin.caption 455 msgctxt "tformmove.buttonrepeatmin.caption" 456 msgid "Min" 457 msgstr "Min" 458 459 #: tformmove.caption 460 msgid "Move" 461 msgstr "Přesun" 462 463 #: tformmove.label1.caption 464 msgid "Once:" 465 msgstr "Jednou:" 466 467 #: tformmove.label2.caption 468 msgid "Every turn:" 469 msgstr "Každý tah:" 470 471 #: tformmove.label3.caption 472 msgid "Win probability:" 473 msgstr "Pravděpodobnost vítězství:" 474 475 #: tformmove.labelwinprobability.caption 476 msgctxt "tformmove.labelwinprobability.caption" 477 msgid " " 478 msgstr " " 479 480 #: tformnew.aserveradd.caption 481 msgctxt "tformnew.aserveradd.caption" 482 msgid "Add" 483 msgstr "Přidat" 484 485 #: tformnew.aservermodify.caption 486 msgctxt "tformnew.aservermodify.caption" 487 msgid "Modify" 488 msgstr "Upravit" 489 490 #: tformnew.aserverremove.caption 491 msgctxt "tformnew.aserverremove.caption" 492 msgid "Remove" 493 msgstr "Odstranit" 494 495 #: tformnew.buttoncancel.caption 496 msgctxt "tformnew.buttoncancel.caption" 497 msgid "Cancel" 498 msgstr "Zrušit" 499 500 #: tformnew.buttongamesystems.caption 501 msgid "Manage" 502 msgstr "Spravovat" 503 504 #: tformnew.buttonimagebrowse.caption 505 msgctxt "tformnew.buttonimagebrowse.caption" 506 msgid "Browse" 507 msgstr "Vybrat" 508 509 #: tformnew.buttonok.caption 510 msgctxt "tformnew.buttonok.caption" 511 msgid "Ok" 512 msgstr "Ok" 513 514 #: tformnew.buttonrandomize.caption 515 msgid "Randomize" 516 msgstr "Náhodně" 517 518 #: tformnew.caption 519 msgctxt "tformnew.caption" 520 msgid "New game" 521 msgstr "Nová hra" 522 523 #: tformnew.checkboxbridges.caption 524 msgid "Bridges between cells" 525 msgstr "Mosty mezi buňkami" 526 527 #: tformnew.checkboxcity.caption 528 msgctxt "tformnew.checkboxcity.caption" 529 msgid "Cities" 530 msgstr "Města" 531 532 #: tformnew.checkboxcyclicmap.caption 533 msgid "Cyclic map" 534 msgstr "Cyklická mapa" 535 536 #: tformnew.checkboxfogofwar.caption 537 msgid "Fog of war" 538 msgstr "Skrytá mapa" 539 540 #: tformnew.checkboxsymetricmap.caption 541 msgid "Symetric map" 542 msgstr "Symetrická mapa" 543 544 #: tformnew.checkboxvoid.caption 545 msgid "Inaccessible places" 546 msgstr "Nepřístupná políčka" 547 548 #: tformnew.label1.caption 549 msgid "Map width:" 550 msgstr "Šířka mapy:" 551 552 #: tformnew.label10.caption 553 msgid "Max units per cell:" 554 msgstr "Nejvíce jednotek na buňku:" 555 556 #: tformnew.label11.caption 557 msgctxt "tformnew.label11.caption" 558 msgid "Port:" 559 msgstr "Port:" 560 561 #: tformnew.label12.caption 562 msgctxt "tformnew.label12.caption" 563 msgid "Address:" 564 msgstr "Adresa:" 565 566 #: tformnew.label13.caption 567 msgid "Number of turns:" 568 msgstr "Počet tahů:" 569 570 #: tformnew.label14.caption 571 msgid "Special cells count:" 572 msgstr "Počet speciálních buněk:" 573 574 #: tformnew.label15.caption 575 msgid "Preview:" 576 msgstr "Náhled:" 577 578 #: tformnew.label16.caption 579 msgid "Game system:" 580 msgstr "Herní systém:" 581 582 #: tformnew.label2.caption 583 msgid "Map height:" 584 msgstr "Výška mapy:" 585 586 #: tformnew.label3.caption 587 msgctxt "tformnew.label3.caption" 588 msgid "%" 589 msgstr "%" 590 591 #: tformnew.label4.caption 592 msgctxt "tformnew.label4.caption" 593 msgid "%" 594 msgstr "%" 595 596 #: tformnew.label5.caption 597 msgid "Grid type:" 598 msgstr "Typ mřížky:" 599 600 #: tformnew.label6.caption 601 msgid "Win objective:" 602 msgstr "Cíl vítězství:" 603 604 #: tformnew.label7.caption 605 msgid "Max random neutral units:" 606 msgstr "Nejvíce náhodných neutrálních jednotek:" 607 608 #: tformnew.label8.caption 609 msgid "Map shape:" 610 msgstr "Tvar mapy:" 611 612 #: tformnew.label9.caption 613 msgid "Image file:" 614 msgstr "Soubor obrázku:" 615 616 #: tformnew.listviewservers.columns[0].caption 617 msgctxt "tformnew.listviewservers.columns[0].caption" 618 msgid "Name" 619 msgstr "Jméno" 620 621 #: tformnew.listviewservers.columns[1].caption 622 msgctxt "tformnew.listviewservers.columns[1].caption" 623 msgid "Address" 624 msgstr "Adresa" 625 626 #: tformnew.radiobuttonmodelocal.caption 627 msgid "Local" 628 msgstr "Místní" 629 630 #: tformnew.radiobuttonmodenetworkclient.caption 631 msgctxt "tformnew.radiobuttonmodenetworkclient.caption" 632 msgid "Network client" 633 msgstr "Síťový klient" 634 635 #: tformnew.radiobuttonmodenetworkserver.caption 636 msgctxt "tformnew.radiobuttonmodenetworkserver.caption" 637 msgid "Network server" 638 msgstr "Síťový server" 639 640 #: tformnew.radiogroupgrowamount.caption 641 msgid "Per turn grow amount" 642 msgstr "Množství růstu za tah" 643 644 #: tformnew.radiogroupgrowcells.caption 645 msgid "Growing cells" 646 msgstr "Rostoucí buňky" 647 648 #: tformnew.tabsheetmap.caption 649 msgctxt "tformnew.tabsheetmap.caption" 650 msgid "Map" 651 msgstr "Mapa" 652 653 #: tformnew.tabsheetmode.caption 654 msgctxt "tformnew.tabsheetmode.caption" 655 msgid "Mode" 656 msgstr "Režim" 657 658 #: tformnew.tabsheetplayers.caption 659 msgctxt "tformnew.tabsheetplayers.caption" 660 msgid "Players" 661 msgstr "Hráči" 662 663 #: tformnew.tabsheetrules.caption 664 msgctxt "tformnew.tabsheetrules.caption" 665 msgid "Rules" 666 msgstr "Pravidla" 667 668 #: tformplayersstats.aspectate.caption 669 msgid "Spectate" 670 msgstr "Pozorovat" 671 672 #: tformplayersstats.caption 673 msgid "Players stats" 674 msgstr "Statistiky hráčů" 675 676 #: tformplayersstats.listview1.columns[0].caption 677 msgctxt "tformplayersstats.listview1.columns[0].caption" 678 msgid "Name" 679 msgstr "Jméno" 680 681 #: tformplayersstats.listview1.columns[1].caption 682 msgctxt "tformplayersstats.listview1.columns[1].caption" 683 msgid "Mode" 684 msgstr "Režim" 685 686 #: tformplayersstats.listview1.columns[2].caption 687 msgid "Cells" 688 msgstr "Buněk" 689 690 #: tformplayersstats.listview1.columns[3].caption 691 msgctxt "tformplayersstats.listview1.columns[3].caption" 692 msgid "Discovered" 693 msgstr "Objevených" 694 695 #: tformplayersstats.listview1.columns[4].caption 696 msgctxt "tformplayersstats.listview1.columns[4].caption" 697 msgid "Cities" 698 msgstr "Města" 699 700 #: tformplayersstats.listview1.columns[5].caption 701 msgctxt "tformplayersstats.listview1.columns[5].caption" 702 msgid "Units" 703 msgstr "Jednotky" 704 705 #: tformplayersstats.listview1.columns[6].caption 706 msgctxt "tformplayersstats.listview1.columns[6].caption" 707 msgid "Win objective cells" 708 msgstr "Buňky cíle vítězství" 709 710 #: tformserver.buttoncancel.caption 711 msgctxt "tformserver.buttoncancel.caption" 712 msgid "Cancel" 713 msgstr "Zrušit" 714 715 #: tformserver.buttonok.caption 716 msgctxt "tformserver.buttonok.caption" 717 msgid "OK" 718 msgstr "OK" 719 720 #: tformserver.caption 721 msgid "Server" 722 msgstr "Server" 723 724 #: tformserver.label1.caption 725 msgctxt "tformserver.label1.caption" 726 msgid "Name:" 727 msgstr "Jméno:" 728 729 #: tformserver.label2.caption 730 msgctxt "tformserver.label2.caption" 731 msgid "Address:" 732 msgstr "Adresa:" 733 734 #: tformserver.label3.caption 735 msgctxt "tformserver.label3.caption" 736 msgid "Port:" 737 msgstr "Port:" 738 739 #: tformsettings.buttoncancel.caption 740 msgctxt "tformsettings.buttoncancel.caption" 741 msgid "Cancel" 742 msgstr "Zrušit" 743 744 #: tformsettings.buttonok.caption 745 msgctxt "tformsettings.buttonok.caption" 746 msgid "Ok" 747 msgstr "Ok" 748 749 #: tformsettings.caption 750 msgctxt "tformsettings.caption" 751 msgid "Settings" 752 msgstr "Nastavení" 753 754 #: tformsettings.checkbox2.caption 755 msgid "Automatic DPI" 756 msgstr "Automatické DPI" 757 758 #: tformsettings.checkboxautosaveturn.caption 759 msgctxt "tformsettings.checkboxautosaveturn.caption" 760 msgid "Autosave game on each turn" 761 msgstr "Automaticky uložit hru po každém tahu" 762 763 #: tformsettings.checkboxdevelmode.caption 764 msgid "Developer mode" 765 msgstr "Vývojářský režim" 766 767 #: tformsettings.checkboxreopenlastfile.caption 768 msgid "Reopen last game on start" 769 msgstr "Znovu otevřít poslední hru při startu" 770 771 #: tformsettings.label1.caption 772 msgid "Language:" 773 msgstr "Jazyk:" 774 775 #: tformsettings.label2.caption 776 msgid "Animation speed:" 777 msgstr "Rychlost animace:" 778 779 #: tformsettings.label3.caption 780 msgctxt "tformsettings.label3.caption" 781 msgid "%" 782 msgstr "%" 783 784 #: tformsettings.label4.caption 785 msgid "DPI:" 786 msgstr "DPI:" 787 788 #: tformsettings.label5.caption 789 msgid "x" 790 msgstr "x" 791 792 #: tformsettings.label6.caption 793 msgid "Theme:" 794 msgstr "Téma:" 795 796 #: tformsettings.tabsheetdebug.caption 797 msgctxt "tformsettings.tabsheetdebug.caption" 798 msgid "Debug" 799 msgstr "Ladění" 800 801 #: tformsettings.tabsheetgeneral.caption 802 msgctxt "tformsettings.tabsheetgeneral.caption" 803 msgid "General" 804 msgstr "Obecné" 805 806 #: tformunitmoves.caption 807 msgctxt "tformunitmoves.caption" 808 msgid "Unit moves" 809 msgstr "Pohyby jednotek" 810 811 #: tformunitmoves.listview1.columns[0].caption 812 msgid "From cell" 813 msgstr "Z buňky" 814 815 #: tformunitmoves.listview1.columns[1].caption 816 msgid "To cell" 817 msgstr "Do buňky" 818 819 #: tformunitmoves.listview1.columns[2].caption 820 msgid "Once count" 821 msgstr "Počet jednou" 822 823 #: tformunitmoves.listview1.columns[3].caption 824 msgid "Repeat count" 825 msgstr "Opakovaný počet" 826 827 #: ubuilding.sbonusattack 828 msgid "Unit attack bonus" 829 msgstr "Útočný bonus jednotky" 830 831 #: ubuilding.sbonusdefense 832 msgid "Unit defense bonus" 833 msgstr "Obranný bonus jednotky" 834 835 #: ubuilding.sbonusgrow 836 msgid "Unit grow bonus" 837 msgstr "Růstový bonus jednotky" 838 839 #: ubuilding.sbonusviewrange 840 msgid "Unit view range bonus" 841 msgstr "Dohledový bonus jednotky" 842 843 #: ubuilding.sbuildingkind 844 msgctxt "ubuilding.sbuildingkind" 845 msgid "Building" 846 msgstr "Budovy" 847 848 #: ubuilding.scity 849 msgid "City" 850 msgstr "Město" 851 852 #: ubuilding.scost 853 msgctxt "ubuilding.scost" 854 msgid "Cost" 855 msgstr "Cena" 856 857 #: ubuilding.snone 858 msgctxt "ubuilding.snone" 859 msgid "None" 860 msgstr "Žádný" 861 862 #: ubuilding.sspecialtype 863 msgid "Special type" 864 msgstr "Speciální typ" 865 866 #: uclientgui.swrongarrowangle 867 #, object-pascal-format 868 msgid "Wrong arrow angle %s" 869 msgstr "Nesprávný úhel šipky %s" 870 871 #: uclientgui.szerozoomnotalowed 872 msgctxt "uclientgui.szerozoomnotalowed" 873 msgid "Zero zoom not allowed" 874 msgstr "Nulové přiblížení není povoleno" 875 876 #: ucore.sendgame 877 msgid "End game?" 878 msgstr "Ukončit hru?" 879 880 #: ucore.sendgamequestion 881 msgid "Do you want to end current game?" 882 msgstr "Chcete ukončit aktuální hru?" 883 884 #: ucore.sfiledialogfilter 885 msgid "xTactics games (.xtg)|*.xtg|All files|*.*" 886 msgstr "xTactics hry (.xtg)|*.xtg|Všechny soubory|*.*" 887 888 #: ucore.smissingserverclientforplayer 889 msgid "Server client for current player not found." 890 msgstr "Chybí klient serveru pro aktuálního hráče" 891 892 #: ucore.splayersnotinitialized 893 #, object-pascal-format 894 msgid "Not all players were initialized with start cell. Needed %d, initialized %d. Change map parameters to have more terrain cells." 895 msgstr "Ne všichni hráči byli vytvoření. Potřeba %d, vytvořeno %d. Změňte parametry mapy abyste měli více políček země." 896 897 #: ucore.splayerswins 898 #, object-pascal-format 899 msgid "Players %s win" 900 msgstr "Hráči %s vyhráli" 901 902 #: ucore.splayerwins 903 #, object-pascal-format 904 msgctxt "ucore.splayerwins" 905 msgid "Player %s wins" 906 msgstr "Hráč %s vyhrál" 907 908 #: ucore.srestartgame 909 msgid "Restart game?" 910 msgstr "Restartovat hru?" 911 912 #: ucore.srestartgamequestion 913 msgid "Do you want to restart current game?" 914 msgstr "Chcete restartovat aktuální hru?" 915 916 #: uformcharts.scitiescount 917 msgid "Cities count" 918 msgstr "Počet měst" 919 920 #: uformcharts.sdiscoveredcells 921 msgid "Discovered cells" 922 msgstr "Objevených buněk" 923 924 #: uformcharts.smilitarypower 925 msgid "Military power" 926 msgstr "Vojenská síla" 927 928 #: uformcharts.soccupiedcells 929 msgctxt "uformcharts.soccupiedcells" 930 msgid "Occupied cells" 931 msgstr "Obsazené buňky" 932 933 #: uformcharts.swinobjectivecells 934 msgctxt "uformcharts.swinobjectivecells" 935 msgid "Win objective cells" 936 msgstr "Buňky cíle vítězství" 937 938 #: uformclient.ssurrender 939 msgctxt "uformclient.ssurrender" 940 msgid "Surrender" 941 msgstr "Vzdát se" 942 943 #: uformclient.ssurrenderquestion 148 #: formclient.ssurrenderquestion 149 msgctxt "formclient.ssurrenderquestion" 944 150 msgid "Do you want to surrender current game?" 945 151 msgstr "Chcete vzdát aktuální hru?" 946 152 947 #: uformclient.sturn948 msgctxt " uformclient.sturn"153 #: formclient.sturn 154 msgctxt "formclient.sturn" 949 155 msgid "turn" 950 156 msgstr "tah" 951 157 952 #: uformgamesystem.sfiledialogfilter 158 #: formgamesystem.sfiledialogfilter 159 msgctxt "formgamesystem.sfiledialogfilter" 953 160 msgid "xTactics game system (.xts)|*.xts|All files|*.*" 954 161 msgstr "xTactics herní systém (.xts)|*.xts|Všechny soubory|*.*" 955 162 956 #: uformgamesystems.snewgamesystem 163 #: formgamesystems.snewgamesystem 164 msgctxt "formgamesystems.snewgamesystem" 957 165 msgid "New game system" 958 166 msgstr "Nový herní systém" 959 167 960 #: uformgamesystems.sremoveitems961 msgctxt " uformgamesystems.sremoveitems"168 #: formgamesystems.sremoveitems 169 msgctxt "formgamesystems.sremoveitems" 962 170 msgid "Remove items" 963 171 msgstr "Odstranit položky" 964 172 965 #: uformgamesystems.sremoveitemsquery966 msgctxt " uformgamesystems.sremoveitemsquery"173 #: formgamesystems.sremoveitemsquery 174 msgctxt "formgamesystems.sremoveitemsquery" 967 175 msgid "Do you want to remove selected items?" 968 176 msgstr "Opravdu chcete odstranit vybrané položky?" 969 177 970 #: uformhelp.scontent 971 #, fuzzy 972 #| msgid "" 973 #| "xTactics is a risk based strategic game. Main focus of the game is to offer player various possibilities to configure game conditions. Map for game is generated randomly for each play. Game is multiplayer so single player can play with other human opponents or with many computer opponents.\n" 974 #| "\n" 975 #| "Each cell has defined number of units which can be instructed to attack enemy or neutral adjacent cells. Units can also defend against enemy attach from adjacent cells. You can move units inside your territory. \n" 976 #| "Number of units in cells grows by square root of number of units. More units cell contains, more units is added each turn. Maximum number to which units grow is 99. Cell can have more units but excessive cells will die gradually every turn to balance to number 99.\n" 977 #| "\n" 978 #| "Resolution of attack of units is determined by rule similar to one which is used in Risk game. Battle consist of several fights. Each fight attacker can use up to 3 units and defender up to 2 units. Number of units for each side determine number of dices. Both sides roll their dices and order them in descending order. Each side takes one dice with highest value. One who has dice with higher value wins. In case of tie, defender wins. Loser lose its unit and another pair of dices is evaluated. This process is calculated automatically and for each planned attack win probability is displayed.\n" 979 #| "\n" 980 #| "Units can be moved by clicking on owned cell and then by clicking on target neutral or enemy cell. Moves can be set to be repeated every turn with defined number of units. Repeated unit moves can be set in Unit move dialog or simply by holding Control key while selecting target cell. If there are multiple unit moves from one cell to more other cells and you want to move all available cells to target cell, then you can do so by holding Shift key while selecting target cell.\n" 178 #: formhelp.scontent 179 msgctxt "formhelp.scontent" 981 180 msgid "" 982 181 "xTactics is a risk based strategic game. Main focus of the game is to offer player various possibilities to configure game conditions. Map for game is generated randomly for each play. Game is multiplayer so single player can play with other human opponents or with many computer opponents.\n" … … 996 195 "Vyhodnocení útoku jednotek je určen pravidlem podobným tomu, které je použito u hry Risk. Bitva se skládá z několika bojů. Každá boj útočník může použít do 3 jednotek a obránce do 2 jednotek. Počet jednotek pro každou stranu určuje počet kostek. Obě strany házejí jejich kostkami a seřadí je v sestupném pořadí. Každá strana bere jednu kostku s nejvyšší hodnotou. Ten, který má kostku s vyšší hodnotou vyhrává. V případě remízy, vyhrává obránce. Prohrávající ztrácí své jednotky a další pár kostek je vyhodnocen. Tento proces je vypočítáván automaticky a pro každý plánovaný útok je zobrazena odhadovaná pravděpodobnost.\n" 997 196 "\n" 998 "Jednotky lze přesouvat kliknutím na vlastněnou buňku a pak kliknutím na cílovou neutrální nebo nepřátelskou buňku. Přesuny lze nastavit jako opakující se každá tak s určeným počtem jednotek. Opakující se přesuny jednotek lze nastavit v okně Přesun jednotek nebo jednoduše pomocí držení klávesy Control při výběru cílové buňky. Pokud je více přesunů z jedené buňky do více jiných a chcete přesunout všechny dostupné do cílové buňky, tak to můžete provést pomocí držení klávesy Shift a výběru cílové buňky.\n" 999 1000 #: uformkeyshortcuts.sglobal 197 "Jednotky lze přesouvat kliknutím na vlastněnou buňku a pak kliknutím na cílovou neutrální nebo nepřátelskou buňku. Přesuny lze nastavit jako opakující se každá tak s určeným počtem jednotek. Opakující se přesuny jednotek lze nastavit v okně Přesun jednotek nebo jednoduše pomocí držení klávesy Control při výběru cílové buňky. Pokud je více přesunů z jedené buňky do více jiných a chcete přesunout všechny dostupné do cílové buňky, tak to můžete provést pomocí držení klávesy Shift a výběru cílové buňky." 198 199 #: formkeyshortcuts.sglobal 200 msgctxt "formkeyshortcuts.sglobal" 1001 201 msgid "Global" 1002 202 msgstr "Globální" 1003 203 1004 #: uformkeyshortcuts.smainform 204 #: formkeyshortcuts.smainform 205 msgctxt "formkeyshortcuts.smainform" 1005 206 msgid "Main window" 1006 207 msgstr "Hlavní okno" 1007 208 1008 #: uformlist.snew1009 msgctxt " uformlist.snew"209 #: formlist.snew 210 msgctxt "formlist.snew" 1010 211 msgid "New" 1011 212 msgstr "Nová" 1012 213 1013 #: uformlist.sremoveitems1014 msgctxt " uformlist.sremoveitems"214 #: formlist.sremoveitems 215 msgctxt "formlist.sremoveitems" 1015 216 msgid "Remove items" 1016 217 msgstr "Odstranit položky" 1017 218 1018 #: uformlist.sremoveitemsquery1019 msgctxt " uformlist.sremoveitemsquery"219 #: formlist.sremoveitemsquery 220 msgctxt "formlist.sremoveitemsquery" 1020 221 msgid "Do you want to remove selected items?" 1021 222 msgstr "Opravdu chcete odstranit vybrané položky?" 1022 223 1023 #: uformmain.sturn1024 msgctxt " uformmain.sturn"224 #: formmain.sturn 225 msgctxt "formmain.sturn" 1025 226 msgid "turn" 1026 227 msgstr "tah" 1027 228 1028 #: uformnew.sfromimagefile 229 #: formnew.sfromimagefile 230 msgctxt "formnew.sfromimagefile" 1029 231 msgid "From image file" 1030 232 msgstr "Obrázek ze souboru" 1031 233 1032 #: uformnew.sgrowamountbyone 234 #: formnew.sgrowamountbyone 235 msgctxt "formnew.sgrowamountbyone" 1033 236 msgid "By one" 1034 237 msgstr "O jeden" 1035 238 1036 #: uformnew.sgrowamountbysquareroot 239 #: formnew.sgrowamountbysquareroot 240 msgctxt "formnew.sgrowamountbysquareroot" 1037 241 msgid "By square root" 1038 242 msgstr "O odmocninu" 1039 243 1040 #: uformnew.sgrownone1041 msgctxt " uformnew.sgrownone"244 #: formnew.sgrownone 245 msgctxt "formnew.sgrownone" 1042 246 msgid "None" 1043 247 msgstr "Nikde" 1044 248 1045 #: uformnew.sgrowplayerallcells 249 #: formnew.sgrowplayerallcells 250 msgctxt "formnew.sgrowplayerallcells" 1046 251 msgid "Player all cells" 1047 252 msgstr "Všechny buňky hráče" 1048 253 1049 #: uformnew.sgrowplayercities 254 #: formnew.sgrowplayercities 255 msgctxt "formnew.sgrowplayercities" 1050 256 msgid "Player cities" 1051 257 msgstr "Města hráče" 1052 258 1053 #: uformnew.srectangular 259 #: formnew.srectangular 260 msgctxt "formnew.srectangular" 1054 261 msgid "Rectangular" 1055 262 msgstr "Obdelníkový" 1056 263 1057 #: uformnew.sremoveserver 264 #: formnew.sremoveserver 265 msgctxt "formnew.sremoveserver" 1058 266 msgid "Remove server" 1059 267 msgstr "Odstranit server" 1060 268 1061 #: uformnew.sremoveserverquery 269 #: formnew.sremoveserverquery 270 msgctxt "formnew.sremoveserverquery" 1062 271 msgid "Do you want to remove server?" 1063 272 msgstr "Chcete odstranit server?" 1064 273 1065 #: uformnew.srounded 274 #: formnew.srounded 275 msgctxt "formnew.srounded" 1066 276 msgid "Rounded" 1067 277 msgstr "Zakulacený" 1068 278 1069 #: uformnew.swinobjectivecaptureentiremap 279 #: formnew.swinobjectivecaptureentiremap 280 msgctxt "formnew.swinobjectivecaptureentiremap" 1070 281 msgid "Capture entire map" 1071 282 msgstr "Obsadit celou mapu" 1072 283 1073 #: uformnew.swinobjectivecaptureposition 284 #: formnew.swinobjectivecaptureposition 285 msgctxt "formnew.swinobjectivecaptureposition" 1074 286 msgid "Capture all special cells" 1075 287 msgstr "Dobít všechny speciální buňky" 1076 288 1077 #: uformnew.swinobjectivedefeatallcities 289 #: formnew.swinobjectivedefeatallcities 290 msgctxt "formnew.swinobjectivedefeatallcities" 1078 291 msgid "Defeat all oponents cities" 1079 292 msgstr "Porazit všechny města nepřátelů" 1080 293 1081 #: uformnew.swinobjectivedefeatalloponents 294 #: formnew.swinobjectivedefeatalloponents 295 msgctxt "formnew.swinobjectivedefeatalloponents" 1082 296 msgid "Defeat all oponents" 1083 297 msgstr "Porazit všechny nepřátele" 1084 298 1085 #: uformnew.swinobjectivenone1086 msgctxt " uformnew.swinobjectivenone"299 #: formnew.swinobjectivenone 300 msgctxt "formnew.swinobjectivenone" 1087 301 msgid "None" 1088 msgstr "Žádný" 1089 1090 #: uformnew.swinobjectivestayaliveforturns 302 msgstr "Nikde" 303 304 #: formnew.swinobjectivestayaliveforturns 305 msgctxt "formnew.swinobjectivestayaliveforturns" 1091 306 msgid "Stay alive for number of turns" 1092 307 msgstr "Zůstat naživu určený počet tahů" 1093 308 1094 #: ugame.scomputer1095 msgctxt " ugame.scomputer"309 #: game.scomputer 310 msgctxt "game.scomputer" 1096 311 msgid "Computer" 1097 312 msgstr "Počítač" 1098 313 1099 #: ugame.shuman1100 msgctxt " ugame.shuman"314 #: game.shuman 315 msgctxt "game.shuman" 1101 316 msgid "Human" 1102 317 msgstr "Člověk" 1103 318 1104 #: ugame.sminimumplayers 319 #: game.sminimumplayers 320 msgctxt "game.sminimumplayers" 1105 321 msgid "You need at least one player" 1106 322 msgstr "Potřebujete alespoň jednoho hráče" 1107 323 1108 #: ugame.snewgamefile 324 #: game.snewgamefile 325 msgctxt "game.snewgamefile" 1109 326 msgid "New game.xtg" 1110 327 msgstr "Nová hra.xtg" 1111 328 1112 #: ugame.splayer1113 msgctxt " ugame.splayer"329 #: game.splayer 330 msgctxt "game.splayer" 1114 331 msgid "Player" 1115 332 msgstr "Hráč" 1116 333 1117 #: ugame.sspectator 334 #: game.sspectator 335 msgctxt "game.sspectator" 1118 336 msgid "Spectator" 1119 337 msgstr "Divák" 1120 338 1121 #: ugame.sunsupportedmaptype 339 #: game.sunsupportedmaptype 340 msgctxt "game.sunsupportedmaptype" 1122 341 msgid "Unsupported map type" 1123 342 msgstr "Nepodporovaný typ mapy" 1124 343 1125 #: ugame.swrongfileformat1126 msgctxt " ugame.swrongfileformat"344 #: game.swrongfileformat 345 msgctxt "game.swrongfileformat" 1127 346 msgid "Wrong file format" 1128 347 msgstr "Chybný formát souboru" 1129 348 1130 #: ugamesystem.sgamesystem1131 msgctxt " ugamesystem.sgamesystem"349 #: gamesystem.sgamesystem 350 msgctxt "gamesystem.sgamesystem" 1132 351 msgid "Game system" 1133 352 msgstr "Herní systém" 1134 353 1135 #: ugamesystem.swrongfileformat1136 msgctxt " ugamesystem.swrongfileformat"354 #: gamesystem.swrongfileformat 355 msgctxt "gamesystem.swrongfileformat" 1137 356 msgid "Wrong file format" 1138 357 msgstr "Chybný formát souboru" 1139 358 1140 #: uitemlist.sitem1141 msgctxt " uitemlist.sitem"359 #: itemlist.sitem 360 msgctxt "itemlist.sitem" 1142 361 msgid "Item" 1143 362 msgstr "Položka" 1144 363 1145 #: uitemlist.sname1146 msgctxt " uitemlist.sname"364 #: itemlist.sname 365 msgctxt "itemlist.sname" 1147 366 msgid "Name" 1148 367 msgstr "Jméno" 1149 368 1150 #: uitemlist.sno 369 #: itemlist.sno 370 msgctxt "itemlist.sno" 1151 371 msgid "No" 1152 372 msgstr "Ne" 1153 373 1154 #: uitemlist.sunsupporteddatatype374 #: itemlist.sunsupporteddatatype 1155 375 #, object-pascal-format 376 msgctxt "itemlist.sunsupporteddatatype" 1156 377 msgid "Unsupported field value data type %s" 1157 378 msgstr "Nepodporovaný datový typ hodnoty pole %s" 1158 379 1159 #: uitemlist.syes 380 #: itemlist.syes 381 msgctxt "itemlist.syes" 1160 382 msgid "Yes" 1161 383 msgstr "Ano" 1162 384 1163 #: umap.scellremoveneighborerror1164 msgctxt " umap.scellremoveneighborerror"385 #: map.scellremoveneighborerror 386 msgctxt "map.scellremoveneighborerror" 1165 387 msgid "Can't remove cell from neighbour cell" 1166 388 msgstr "Nelze odstranit buňku ze sousední buňky" 1167 389 1168 #: umap.snegativecellpowernotallowed1169 msgctxt " umap.snegativecellpowernotallowed"390 #: map.snegativecellpowernotallowed 391 msgctxt "map.snegativecellpowernotallowed" 1170 392 msgid "Not allowed to substract power under zero to negative value" 1171 393 msgstr "Není povoleno odečíst sílu pod nulu do záporné hodnoty" 1172 394 1173 #: umaptype.sgridtypehexagonhorizontal 395 #: maptype.sgridtypehexagonhorizontal 396 msgctxt "maptype.sgridtypehexagonhorizontal" 1174 397 msgid "Hexagonal horizontal" 1175 398 msgstr "Hexagonální vodorovná" 1176 399 1177 #: umaptype.sgridtypehexagonvertical 400 #: maptype.sgridtypehexagonvertical 401 msgctxt "maptype.sgridtypehexagonvertical" 1178 402 msgid "Hexagonal vertical" 1179 403 msgstr "Hexagonální svislá" 1180 404 1181 #: umaptype.sgridtypeisometric1182 msgctxt " umaptype.sgridtypeisometric"405 #: maptype.sgridtypeisometric 406 msgctxt "maptype.sgridtypeisometric" 1183 407 msgid "Isometric" 1184 408 msgstr "Izometrická" 1185 409 1186 #: umaptype.sgridtyperandom1187 msgctxt " umaptype.sgridtyperandom"410 #: maptype.sgridtyperandom 411 msgctxt "maptype.sgridtyperandom" 1188 412 msgid "Random" 1189 413 msgstr "Náhodná" 1190 414 1191 #: umaptype.sgridtypesquare1192 msgctxt " umaptype.sgridtypesquare"415 #: maptype.sgridtypesquare 416 msgctxt "maptype.sgridtypesquare" 1193 417 msgid "Square" 1194 418 msgstr "Čtvercová" 1195 419 1196 #: umaptype.sgridtypetriangle1197 msgctxt " umaptype.sgridtypetriangle"420 #: maptype.sgridtypetriangle 421 msgctxt "maptype.sgridtypetriangle" 1198 422 msgid "Triangural" 1199 423 msgstr "Trojúhelníková" 1200 424 1201 #: unation.scolor1202 msgctxt " unation.scolor"425 #: nation.scolor 426 msgctxt "nation.scolor" 1203 427 msgid "Color" 1204 428 msgstr "Barva" 1205 429 1206 #: unation.snation1207 msgctxt " unation.snation"430 #: nation.snation 431 msgctxt "nation.snation" 1208 432 msgid "Nation" 1209 433 msgstr "Národ" 1210 434 1211 #: uplayer.sagressivity 435 #: player.sagressivity 436 msgctxt "player.sagressivity" 1212 437 msgid "Agressivity" 1213 438 msgstr "Agresivita" 1214 439 1215 #: uplayer.sattackerpowerpositive1216 msgctxt " uplayer.sattackerpowerpositive"440 #: player.sattackerpowerpositive 441 msgctxt "player.sattackerpowerpositive" 1217 442 msgid "Attacker power have to be higher then 0." 1218 443 msgstr "Síla útočníka musí být větší než 0." 1219 444 1220 #: uplayer.scolor1221 msgctxt " uplayer.scolor"445 #: player.scolor 446 msgctxt "player.scolor" 1222 447 msgid "Color" 1223 448 msgstr "Barva" 1224 449 1225 #: uplayer.scomputer1226 msgctxt " uplayer.scomputer"450 #: player.scomputer 451 msgctxt "player.scomputer" 1227 452 msgid "Computer" 1228 453 msgstr "Počítač" 1229 454 1230 #: uplayer.sdefenderpowerpositive1231 msgctxt " uplayer.sdefenderpowerpositive"455 #: player.sdefenderpowerpositive 456 msgctxt "player.sdefenderpowerpositive" 1232 457 msgid "Defender power have to be higher then or equal to 0." 1233 458 msgstr "Síla obránce musí být vyšší než nebo rovna nule." 1234 459 1235 #: uplayer.sdefensive1236 msgctxt " uplayer.sdefensive"460 #: player.sdefensive 461 msgctxt "player.sdefensive" 1237 462 msgid "Defensive" 1238 463 msgstr "Obranný" 1239 464 1240 #: uplayer.shigh1241 msgctxt " uplayer.shigh"465 #: player.shigh 466 msgctxt "player.shigh" 1242 467 msgid "High" 1243 468 msgstr "Vysoká" 1244 469 1245 #: uplayer.shuman1246 msgctxt " uplayer.shuman"470 #: player.shuman 471 msgctxt "player.shuman" 1247 472 msgid "Human" 1248 473 msgstr "Člověk" 1249 474 1250 #: uplayer.slow1251 msgctxt " uplayer.slow"475 #: player.slow 476 msgctxt "player.slow" 1252 477 msgid "Low" 1253 478 msgstr "Nízká" 1254 479 1255 #: uplayer.smedium1256 msgctxt " uplayer.smedium"480 #: player.smedium 481 msgctxt "player.smedium" 1257 482 msgid "Medium" 1258 483 msgstr "Střední" 1259 484 1260 #: uplayer.smode1261 msgctxt " uplayer.smode"485 #: player.smode 486 msgctxt "player.smode" 1262 487 msgid "Mode" 1263 488 msgstr "Režim" 1264 489 1265 #: uplayer.snation1266 msgctxt " uplayer.snation"490 #: player.snation 491 msgctxt "player.snation" 1267 492 msgid "Nation" 1268 493 msgstr "Národ" 1269 494 1270 #: uplayer.sstartunits1271 msgctxt " uplayer.sstartunits"495 #: player.sstartunits 496 msgctxt "player.sstartunits" 1272 497 msgid "Start units" 1273 498 msgstr "Počátečních jednotek" 1274 499 1275 #: uplayer.sunfinishedbattle1276 msgctxt " uplayer.sunfinishedbattle"500 #: player.sunfinishedbattle 501 msgctxt "player.sunfinishedbattle" 1277 502 msgid "Unfinished battle" 1278 503 msgstr "Neukončená bitva" 1279 504 1280 #: uunit.scost 1281 msgctxt "uunit.scost" 505 #: tcore.aabout.caption 506 msgctxt "tcore.aabout.caption" 507 msgid "About" 508 msgstr "O aplikaci" 509 510 #: tcore.aexit.caption 511 msgctxt "TCORE.AEXIT.CAPTION" 512 msgid "Exit" 513 msgstr "Odejít" 514 515 #: tcore.aexit.hint 516 msgid "Exit application" 517 msgstr "Ukončit aplikaci" 518 519 #: tcore.afullscreen.caption 520 msgid "Full screen mode" 521 msgstr "Režim celé obrazovky" 522 523 #: tcore.agameend.caption 524 msgctxt "TCORE.AGAMEEND.CAPTION" 525 msgid "End" 526 msgstr "Ukončit" 527 528 #: tcore.agameend.hint 529 msgid "End game" 530 msgstr "Ukončit hru" 531 532 #: tcore.agameload.caption 533 msgctxt "tcore.agameload.caption" 534 msgid "Load" 535 msgstr "Načíst" 536 537 #: tcore.agamenew.caption 538 msgctxt "TCORE.AGAMENEW.CAPTION" 539 msgid "New" 540 msgstr "Nová" 541 542 #: tcore.agamenew.hint 543 msgctxt "tcore.agamenew.hint" 544 msgid "New game" 545 msgstr "Nová hra" 546 547 #: tcore.agamerestart.caption 548 msgctxt "TCORE.AGAMERESTART.CAPTION" 549 msgid "Restart" 550 msgstr "Restartovat" 551 552 #: tcore.agamerestart.hint 553 msgid "Restart game" 554 msgstr "Restartovat hru" 555 556 #: tcore.agamesave.caption 557 msgctxt "tcore.agamesave.caption" 558 msgid "Save" 559 msgstr "Uložit" 560 561 #: tcore.agamesaveas.caption 562 msgid "Save as..." 563 msgstr "Uložit jako..." 564 565 #: tcore.ahelp.caption 566 msgctxt "tcore.ahelp.caption" 567 msgid "Help" 568 msgstr "Nápověda" 569 570 #: tcore.anewspectatorclient.caption 571 msgid "New spectator client" 572 msgstr "Nový klient divák" 573 574 #: tcore.aplayersstats.caption 575 msgid "Players statistics" 576 msgstr "Statistiky hráčů" 577 578 #: tcore.applicationinfo.description 579 msgid "A turn-based strategy game inspired by classic Risk board game. The game is highly configurable to allow to adjust battle field and game rules." 580 msgstr "Tahová strategická hra inspirované klasickou deskovou hrou Risk. Hraje je vysoce nastavitelná a umožňuje upravit bitevní políčka a herní pravidla." 581 582 #: tcore.asettings.caption 583 msgctxt "tcore.asettings.caption" 584 msgid "Settings" 585 msgstr "Nastavení" 586 587 #: tcore.asettings.hint 588 msgid "Application settings" 589 msgstr "Nastavení aplikace" 590 591 #: tcore.ashowcharts.caption 592 msgctxt "tcore.ashowcharts.caption" 593 msgid "Charts" 594 msgstr "Grafy" 595 596 #: tcore.ashowkeyshortcuts.caption 597 msgctxt "tcore.ashowkeyshortcuts.caption" 598 msgid "Key shortcuts" 599 msgstr "Klávesové zkratky" 600 601 #: tcore.ashowunitmoves.caption 602 msgctxt "tcore.ashowunitmoves.caption" 603 msgid "Unit moves" 604 msgstr "Pohyby jednotek" 605 606 #: tcore.atogglefogofwar.caption 607 msgid "Toggle fog of war" 608 msgstr "Přepnout Skrytou mapu" 609 610 #: tcore.savedialog1.title 611 msgid "Save as" 612 msgstr "Uložit jako" 613 614 #: tformcharts.caption 615 msgctxt "tformcharts.caption" 616 msgid "Charts" 617 msgstr "Grafy" 618 619 #: tformcharts.combobox1.text 620 msgctxt "tformcharts.combobox1.text" 621 msgid "Occupied cells" 622 msgstr "Obsazených buněk" 623 624 #: tformchat.buttonmessagesend.caption 625 msgid "Send" 626 msgstr "Odeslat" 627 628 #: tformchat.caption 629 msgid "Chat" 630 msgstr "Pokec" 631 632 #: tformchat.label1.caption 633 msgid "Chat:" 634 msgstr "Pokec:" 635 636 #: tformclient.agameendturn.caption 637 msgctxt "tformclient.agameendturn.caption" 638 msgid "End turn" 639 msgstr "Ukončit tah" 640 641 #: tformclient.astatusbarvisible.caption 642 msgctxt "tformclient.astatusbarvisible.caption" 643 msgid "Statusbar visible" 644 msgstr "Viditelná stavová lišta" 645 646 #: tformclient.asurrender.caption 647 msgctxt "tformclient.asurrender.caption" 648 msgid "Surrender" 649 msgstr "Vzdát se" 650 651 #: tformclient.atoolbarbigicons.caption 652 msgctxt "tformclient.atoolbarbigicons.caption" 653 msgid "Toolbar big icons" 654 msgstr "Velké ikony panelu" 655 656 #: tformclient.atoolbarvisible.caption 657 msgctxt "tformclient.atoolbarvisible.caption" 658 msgid "Toolbar visible" 659 msgstr "Viditelný nástrojový panel" 660 661 #: tformclient.azoomall.caption 662 msgctxt "tformclient.azoomall.caption" 663 msgid "Zoom all" 664 msgstr "Zobrazit vše" 665 666 #: tformclient.azoomin.caption 667 msgctxt "tformclient.azoomin.caption" 668 msgid "Zoom in" 669 msgstr "Přiblížit" 670 671 #: tformclient.azoomout.caption 672 msgctxt "tformclient.azoomout.caption" 673 msgid "Zoom out" 674 msgstr "Oddálit" 675 676 #: tformclient.caption 677 msgid "Client" 678 msgstr "Klient" 679 680 #: tformgamesystem.buttoncancel.caption 681 msgctxt "tformgamesystem.buttoncancel.caption" 682 msgid "Cancel" 683 msgstr "Zrušit" 684 685 #: tformgamesystem.buttonload.caption 686 msgctxt "tformgamesystem.buttonload.caption" 687 msgid "Load" 688 msgstr "Načíst" 689 690 #: tformgamesystem.buttonok.caption 691 msgctxt "tformgamesystem.buttonok.caption" 692 msgid "OK" 693 msgstr "OK" 694 695 #: tformgamesystem.buttonsave.caption 696 msgctxt "tformgamesystem.buttonsave.caption" 697 msgid "Save" 698 msgstr "Uložit" 699 700 #: tformgamesystem.caption 701 msgctxt "tformgamesystem.caption" 702 msgid "Game system" 703 msgstr "Herní systém" 704 705 #: tformgamesystem.checkboxemptycellsneutral.caption 706 msgid "Set cells without player units as neutral" 707 msgstr "Nastavit buňky bez jednotek hráčů jako neutrální" 708 709 #: tformgamesystem.checkboxunitsmoveimmediately.caption 710 msgid "Units move immediately" 711 msgstr "Jednotky se hned přesouvají" 712 713 #: tformgamesystem.checkboxunitssplitmerge.caption 714 msgid "Units can split or merge" 715 msgstr "Jednotky lze rozdělit a sloučit" 716 717 #: tformgamesystem.tabsheetbuildings.caption 718 msgid "Buildings" 719 msgstr "Budovy" 720 721 #: tformgamesystem.tabsheetgeneral.caption 722 msgctxt "tformgamesystem.tabsheetgeneral.caption" 723 msgid "General" 724 msgstr "Obecné" 725 726 #: tformgamesystem.tabsheetnations.caption 727 msgid "Nations" 728 msgstr "Národy" 729 730 #: tformgamesystem.tabsheetunits.caption 731 msgctxt "tformgamesystem.tabsheetunits.caption" 732 msgid "Units" 733 msgstr "Jednotky" 734 735 #: tformgamesystems.aadd.caption 736 msgctxt "tformgamesystems.aadd.caption" 737 msgid "Add" 738 msgstr "Přidat" 739 740 #: tformgamesystems.aclone.caption 741 msgctxt "tformgamesystems.aclone.caption" 742 msgid "Clone" 743 msgstr "Klonovat" 744 745 #: tformgamesystems.amodify.caption 746 msgctxt "tformgamesystems.amodify.caption" 747 msgid "Modify" 748 msgstr "Upravit" 749 750 #: tformgamesystems.aremove.caption 751 msgctxt "tformgamesystems.aremove.caption" 752 msgid "Remove" 753 msgstr "Odstranit" 754 755 #: tformgamesystems.aselectall.caption 756 msgctxt "tformgamesystems.aselectall.caption" 757 msgid "Select all" 758 msgstr "Vybrat vše" 759 760 #: tformgamesystems.caption 761 msgid "Game systems" 762 msgstr "Herní systémy" 763 764 #: tformgamesystems.listview1.columns[0].caption 765 msgctxt "tformgamesystems.listview1.columns[0].caption" 766 msgid "Name" 767 msgstr "Jméno" 768 769 #: tformhelp.caption 770 msgctxt "tformhelp.caption" 771 msgid "Help" 772 msgstr "Nápověda" 773 774 #: tformitem.buttoncancel.caption 775 msgctxt "tformitem.buttoncancel.caption" 776 msgid "Cancel" 777 msgstr "Zrušit" 778 779 #: tformitem.buttonok.caption 780 msgctxt "tformitem.buttonok.caption" 781 msgid "OK" 782 msgstr "OK" 783 784 #: tformitem.caption 785 msgctxt "tformitem.caption" 786 msgid "Item" 787 msgstr "Položka" 788 789 #: tformkeyshortcuts.caption 790 msgctxt "tformkeyshortcuts.caption" 791 msgid "Key shortcuts" 792 msgstr "Klávesové zkratky" 793 794 #: tformkeyshortcuts.listview1.columns[0].caption 795 msgid "Action" 796 msgstr "Akce" 797 798 #: tformkeyshortcuts.listview1.columns[1].caption 799 msgid "Window" 800 msgstr "Okno" 801 802 #: tformkeyshortcuts.listview1.columns[2].caption 803 msgid "Shortcut" 804 msgstr "Zkratka" 805 806 #: tformkeyshortcuts.menuitem1.caption 807 msgid "Execute" 808 msgstr "Vykonat" 809 810 #: tformlist.aadd.caption 811 msgctxt "tformlist.aadd.caption" 812 msgid "Add" 813 msgstr "Přidat" 814 815 #: tformlist.aclone.caption 816 msgctxt "tformlist.aclone.caption" 817 msgid "Clone" 818 msgstr "Klonovat" 819 820 #: tformlist.amodify.caption 821 msgctxt "tformlist.amodify.caption" 822 msgid "Modify" 823 msgstr "Upravit" 824 825 #: tformlist.aremove.caption 826 msgctxt "tformlist.aremove.caption" 827 msgid "Remove" 828 msgstr "Odstranit" 829 830 #: tformlist.aselectall.caption 831 msgctxt "tformlist.aselectall.caption" 832 msgid "Select all" 833 msgstr "Vybrat vše" 834 835 #: tformlist.caption 836 msgid "List" 837 msgstr "Seznam" 838 839 #: tformlist.listview1.columns[0].caption 840 msgctxt "tformlist.listview1.columns[0].caption" 841 msgid "Name" 842 msgstr "Jméno" 843 844 #: tformmain.amapgridvisible.caption 845 msgid "Map grid visible" 846 msgstr "Mřížka mapy viditelná" 847 848 #: tformmain.astatusbarvisible.caption 849 msgid "Status bar visible" 850 msgstr "Stavová lišta viditelná" 851 852 #: tformmain.atoolbarbigicons.caption 853 msgctxt "tformmain.atoolbarbigicons.caption" 854 msgid "Toolbar big icons" 855 msgstr "Velké ikony panelu" 856 857 #: tformmain.atoolbarvisible.caption 858 msgctxt "tformmain.atoolbarvisible.caption" 859 msgid "Toolbar visible" 860 msgstr "Viditelný nástrojový panel" 861 862 #: tformmain.aunitshapevisible.caption 863 msgid "Unit shape visible" 864 msgstr "Obrys jednotek viditelný" 865 866 #: tformmain.caption 867 msgctxt "tformmain.caption" 868 msgid "xTactics" 869 msgstr "xTactics" 870 871 #: tformmain.menuitem1.caption 872 msgctxt "tformmain.menuitem1.caption" 873 msgid "Game" 874 msgstr "Hra" 875 876 #: tformmain.menuitem10.caption 877 msgctxt "tformmain.menuitem10.caption" 878 msgid "View" 879 msgstr "Zobrazení" 880 881 #: tformmain.menuitem11.caption 882 msgctxt "tformmain.menuitem11.caption" 883 msgid "Zoom all" 884 msgstr "Zobrazit vše" 885 886 #: tformmain.menuitem12.caption 887 msgctxt "tformmain.menuitem12.caption" 888 msgid "Zoom in" 889 msgstr "Přiblížit" 890 891 #: tformmain.menuitem13.caption 892 msgctxt "tformmain.menuitem13.caption" 893 msgid "Zoom out" 894 msgstr "Oddálit" 895 896 #: tformmain.menuitem16.caption 897 msgctxt "tformmain.menuitem16.caption" 898 msgid "Help" 899 msgstr "Nápověda" 900 901 #: tformmain.menuitem8.caption 902 msgctxt "tformmain.menuitem8.caption" 903 msgid "Tools" 904 msgstr "Nástroje" 905 906 #: tformmain.menuitemdebug.caption 907 msgctxt "tformmain.menuitemdebug.caption" 908 msgid "Debug" 909 msgstr "Ladění" 910 911 #: tformmain.menuitemloadrecent.caption 912 msgctxt "tformmain.menuitemloadrecent.caption" 913 msgid "Load recent" 914 msgstr "Načíst nedávné" 915 916 #: tformmove.buttoncancel.caption 917 msgctxt "tformmove.buttoncancel.caption" 918 msgid "Cancel" 919 msgstr "Zrušit" 920 921 #: tformmove.buttonok.caption 922 msgctxt "tformmove.buttonok.caption" 923 msgid "Ok" 924 msgstr "Ok" 925 926 #: tformmove.buttononcemax.caption 927 msgctxt "tformmove.buttononcemax.caption" 928 msgid "Max" 929 msgstr "Max" 930 931 #: tformmove.buttononcemin.caption 932 msgctxt "tformmove.buttononcemin.caption" 933 msgid "Min" 934 msgstr "Min" 935 936 #: tformmove.buttonremove.caption 937 msgid "Delete" 938 msgstr "Smazat" 939 940 #: tformmove.buttonrepeatmax.caption 941 msgctxt "tformmove.buttonrepeatmax.caption" 942 msgid "Max" 943 msgstr "Max" 944 945 #: tformmove.buttonrepeatmin.caption 946 msgctxt "tformmove.buttonrepeatmin.caption" 947 msgid "Min" 948 msgstr "Min" 949 950 #: tformmove.caption 951 msgid "Move" 952 msgstr "Přesun" 953 954 #: tformmove.label1.caption 955 msgid "Once:" 956 msgstr "Jednorázově:" 957 958 #: tformmove.label2.caption 959 msgid "Every turn:" 960 msgstr "Každý tah:" 961 962 #: tformmove.label3.caption 963 msgid "Win probability:" 964 msgstr "Pravděpodobnost výhry:" 965 966 #: tformmove.labelwinprobability.caption 967 msgid " " 968 msgstr " " 969 970 #: tformnew.aserveradd.caption 971 msgctxt "tformnew.aserveradd.caption" 972 msgid "Add" 973 msgstr "Přidat" 974 975 #: tformnew.aservermodify.caption 976 msgctxt "tformnew.aservermodify.caption" 977 msgid "Modify" 978 msgstr "Upravit" 979 980 #: tformnew.aserverremove.caption 981 msgctxt "tformnew.aserverremove.caption" 982 msgid "Remove" 983 msgstr "Odstranit" 984 985 #: tformnew.buttoncancel.caption 986 msgctxt "tformnew.buttoncancel.caption" 987 msgid "Cancel" 988 msgstr "Zrušit" 989 990 #: tformnew.buttongamesystems.caption 991 msgid "Manage" 992 msgstr "Spravovat" 993 994 #: tformnew.buttonimagebrowse.caption 995 msgctxt "tformnew.buttonimagebrowse.caption" 996 msgid "Browse" 997 msgstr "Vybrat" 998 999 #: tformnew.buttonok.caption 1000 msgctxt "tformnew.buttonok.caption" 1001 msgid "Ok" 1002 msgstr "Ok" 1003 1004 #: tformnew.buttonrandomize.caption 1005 msgid "Randomize" 1006 msgstr "Náhodně" 1007 1008 #: tformnew.caption 1009 msgctxt "tformnew.caption" 1010 msgid "New game" 1011 msgstr "Nová hra" 1012 1013 #: tformnew.checkboxbridges.caption 1014 msgid "Bridges between cells" 1015 msgstr "Mosty mezi buňkami" 1016 1017 #: tformnew.checkboxcity.caption 1018 msgctxt "tformnew.checkboxcity.caption" 1019 msgid "Cities" 1020 msgstr "Města" 1021 1022 #: tformnew.checkboxcyclicmap.caption 1023 msgid "Cyclic map" 1024 msgstr "Cyklická mapa" 1025 1026 #: tformnew.checkboxfogofwar.caption 1027 msgid "Fog of war" 1028 msgstr "Skrytá mapa" 1029 1030 #: tformnew.checkboxsymetricmap.caption 1031 msgid "Symetric map" 1032 msgstr "Symetrická mapa" 1033 1034 #: tformnew.checkboxvoid.caption 1035 msgid "Inaccessible places" 1036 msgstr "Nepřístupná políčka" 1037 1038 #: tformnew.label1.caption 1039 msgid "Map width:" 1040 msgstr "Šířka mapy:" 1041 1042 #: tformnew.label10.caption 1043 msgid "Max units per cell:" 1044 msgstr "Nejvíce jednotek na buňku:" 1045 1046 #: tformnew.label11.caption 1047 msgctxt "tformnew.label11.caption" 1048 msgid "Port:" 1049 msgstr "Port:" 1050 1051 #: tformnew.label12.caption 1052 msgctxt "tformnew.label12.caption" 1053 msgid "Address:" 1054 msgstr "Adresa:" 1055 1056 #: tformnew.label13.caption 1057 msgid "Number of turns:" 1058 msgstr "Počet tahů:" 1059 1060 #: tformnew.label14.caption 1061 msgid "Special cells count:" 1062 msgstr "Počet speciálních buněk:" 1063 1064 #: tformnew.label15.caption 1065 msgid "Preview:" 1066 msgstr "Náhled:" 1067 1068 #: tformnew.label16.caption 1069 msgid "Game system:" 1070 msgstr "Herní systém:" 1071 1072 #: tformnew.label2.caption 1073 msgid "Map height:" 1074 msgstr "Výška mapy:" 1075 1076 #: tformnew.label3.caption 1077 msgctxt "tformnew.label3.caption" 1078 msgid "%" 1079 msgstr "%" 1080 1081 #: tformnew.label4.caption 1082 msgctxt "tformnew.label4.caption" 1083 msgid "%" 1084 msgstr "%" 1085 1086 #: tformnew.label5.caption 1087 msgid "Grid type:" 1088 msgstr "Typ mřížky:" 1089 1090 #: tformnew.label6.caption 1091 msgid "Win objective:" 1092 msgstr "Cíl vítězství:" 1093 1094 #: tformnew.label7.caption 1095 msgid "Max random neutral units:" 1096 msgstr "Nejvíce náhodných neutrálních jednotek:" 1097 1098 #: tformnew.label8.caption 1099 msgid "Map shape:" 1100 msgstr "Tvar mapy:" 1101 1102 #: tformnew.label9.caption 1103 msgid "Image file:" 1104 msgstr "Soubor obrázku:" 1105 1106 #: tformnew.listviewservers.columns[0].caption 1107 msgctxt "tformnew.listviewservers.columns[0].caption" 1108 msgid "Name" 1109 msgstr "Jméno" 1110 1111 #: tformnew.listviewservers.columns[1].caption 1112 msgctxt "tformnew.listviewservers.columns[1].caption" 1113 msgid "Address" 1114 msgstr "Adresa" 1115 1116 #: tformnew.radiobuttonmodelocal.caption 1117 msgid "Local" 1118 msgstr "Místní" 1119 1120 #: tformnew.radiobuttonmodenetworkclient.caption 1121 msgctxt "tformnew.radiobuttonmodenetworkclient.caption" 1122 msgid "Network client" 1123 msgstr "Síťový klient" 1124 1125 #: tformnew.radiobuttonmodenetworkserver.caption 1126 msgctxt "tformnew.radiobuttonmodenetworkserver.caption" 1127 msgid "Network server" 1128 msgstr "Síťový server" 1129 1130 #: tformnew.radiogroupgrowamount.caption 1131 msgid "Per turn grow amount" 1132 msgstr "Množství růstu za tah" 1133 1134 #: tformnew.radiogroupgrowcells.caption 1135 msgid "Growing cells" 1136 msgstr "Rostoucí buňky" 1137 1138 #: tformnew.tabsheetmap.caption 1139 msgctxt "tformnew.tabsheetmap.caption" 1140 msgid "Map" 1141 msgstr "Mapa" 1142 1143 #: tformnew.tabsheetmode.caption 1144 msgctxt "tformnew.tabsheetmode.caption" 1145 msgid "Mode" 1146 msgstr "Režim" 1147 1148 #: tformnew.tabsheetplayers.caption 1149 msgctxt "tformnew.tabsheetplayers.caption" 1150 msgid "Players" 1151 msgstr "Hráči" 1152 1153 #: tformnew.tabsheetrules.caption 1154 msgctxt "tformnew.tabsheetrules.caption" 1155 msgid "Rules" 1156 msgstr "Pravidla" 1157 1158 #: tformplayersstats.aspectate.caption 1159 msgid "Spectate" 1160 msgstr "Divák" 1161 1162 #: tformplayersstats.caption 1163 msgid "Players stats" 1164 msgstr "Statistiky hráčů" 1165 1166 #: tformplayersstats.listview1.columns[0].caption 1167 msgctxt "tformplayersstats.listview1.columns[0].caption" 1168 msgid "Name" 1169 msgstr "Jméno" 1170 1171 #: tformplayersstats.listview1.columns[1].caption 1172 msgctxt "tformplayersstats.listview1.columns[1].caption" 1173 msgid "Mode" 1174 msgstr "Režim" 1175 1176 #: tformplayersstats.listview1.columns[2].caption 1177 msgid "Cells" 1178 msgstr "Buňky" 1179 1180 #: tformplayersstats.listview1.columns[3].caption 1181 msgid "Discovered" 1182 msgstr "Objeveno" 1183 1184 #: tformplayersstats.listview1.columns[4].caption 1185 msgctxt "tformplayersstats.listview1.columns[4].caption" 1186 msgid "Cities" 1187 msgstr "Města" 1188 1189 #: tformplayersstats.listview1.columns[5].caption 1190 msgctxt "tformplayersstats.listview1.columns[5].caption" 1191 msgid "Units" 1192 msgstr "Jednotky" 1193 1194 #: tformplayersstats.listview1.columns[6].caption 1195 msgctxt "tformplayersstats.listview1.columns[6].caption" 1196 msgid "Win objective cells" 1197 msgstr "Buňky výherního cíle" 1198 1199 #: tformserver.buttoncancel.caption 1200 msgctxt "tformserver.buttoncancel.caption" 1201 msgid "Cancel" 1202 msgstr "Zrušit" 1203 1204 #: tformserver.buttonok.caption 1205 msgctxt "tformserver.buttonok.caption" 1206 msgid "OK" 1207 msgstr "OK" 1208 1209 #: tformserver.caption 1210 msgid "Server" 1211 msgstr "Server" 1212 1213 #: tformserver.label1.caption 1214 msgctxt "tformserver.label1.caption" 1215 msgid "Name:" 1216 msgstr "Jméno:" 1217 1218 #: tformserver.label2.caption 1219 msgctxt "tformserver.label2.caption" 1220 msgid "Address:" 1221 msgstr "Adresa:" 1222 1223 #: tformserver.label3.caption 1224 msgctxt "tformserver.label3.caption" 1225 msgid "Port:" 1226 msgstr "Port:" 1227 1228 #: tformsettings.buttoncancel.caption 1229 msgctxt "tformsettings.buttoncancel.caption" 1230 msgid "Cancel" 1231 msgstr "Zrušit" 1232 1233 #: tformsettings.buttonok.caption 1234 msgctxt "tformsettings.buttonok.caption" 1235 msgid "Ok" 1236 msgstr "Ok" 1237 1238 #: tformsettings.caption 1239 msgctxt "tformsettings.caption" 1240 msgid "Settings" 1241 msgstr "Nastavení" 1242 1243 #: tformsettings.checkbox2.caption 1244 msgid "Automatic DPI" 1245 msgstr "Automatické DPI" 1246 1247 #: tformsettings.checkboxautosaveturn.caption 1248 msgid "Autosave game on each turn" 1249 msgstr "Uložit hru po každém tahu" 1250 1251 #: tformsettings.checkboxdevelmode.caption 1252 msgid "Developer mode" 1253 msgstr "Vývojářský režim" 1254 1255 #: tformsettings.checkboxreopenlastfile.caption 1256 msgid "Reopen last game on start" 1257 msgstr "Znovu otevřít poslední hru při startu" 1258 1259 #: tformsettings.label1.caption 1260 msgid "Language:" 1261 msgstr "Jazyk:" 1262 1263 #: tformsettings.label2.caption 1264 msgid "Animation speed:" 1265 msgstr "Rychlost animace:" 1266 1267 #: tformsettings.label3.caption 1268 msgctxt "tformsettings.label3.caption" 1269 msgid "%" 1270 msgstr "%" 1271 1272 #: tformsettings.label4.caption 1273 msgid "DPI:" 1274 msgstr "DPI:" 1275 1276 #: tformsettings.label5.caption 1277 msgid "x" 1278 msgstr "x" 1279 1280 #: tformsettings.label6.caption 1281 msgid "Theme:" 1282 msgstr "Téma:" 1283 1284 #: tformsettings.tabsheetdebug.caption 1285 msgctxt "tformsettings.tabsheetdebug.caption" 1286 msgid "Debug" 1287 msgstr "Ladění" 1288 1289 #: tformsettings.tabsheetgeneral.caption 1290 msgctxt "tformsettings.tabsheetgeneral.caption" 1291 msgid "General" 1292 msgstr "Obecné" 1293 1294 #: tformunitmoves.caption 1295 msgctxt "tformunitmoves.caption" 1296 msgid "Unit moves" 1297 msgstr "Pohyby jednotek" 1298 1299 #: tformunitmoves.listview1.columns[0].caption 1300 msgid "From cell" 1301 msgstr "Z buňky" 1302 1303 #: tformunitmoves.listview1.columns[1].caption 1304 msgid "To cell" 1305 msgstr "Do buňky" 1306 1307 #: tformunitmoves.listview1.columns[2].caption 1308 msgid "Once count" 1309 msgstr "Jednorázově" 1310 1311 #: tformunitmoves.listview1.columns[3].caption 1312 msgid "Repeat count" 1313 msgstr "Opakovaně" 1314 1315 #: unit.scost 1316 msgctxt "unit.scost" 1282 1317 msgid "Cost" 1283 1318 msgstr "Cena" 1284 1319 1285 #: uunit.smoves 1320 #: unit.smoves 1321 msgctxt "unit.smoves" 1286 1322 msgid "Moves" 1287 1323 msgstr "Pohyby" 1288 1324 1289 #: uunit.spowerattack 1325 #: unit.spowerattack 1326 msgctxt "unit.spowerattack" 1290 1327 msgid "Attack power" 1291 1328 msgstr "Síla útoku" 1292 1329 1293 #: uunit.spowerdefense 1330 #: unit.spowerdefense 1331 msgctxt "unit.spowerdefense" 1294 1332 msgid "Defense power" 1295 1333 msgstr "Síla obrany" 1296 1334 1297 #: uunit.sstack 1335 #: unit.sstack 1336 msgctxt "unit.sstack" 1298 1337 msgid "Stack" 1299 1338 msgstr "Sada" 1300 1339 1301 #: u unit.sunitkind1302 msgctxt "u unit.sunitkind"1340 #: unit.sunitkind 1341 msgctxt "unit.sunitkind" 1303 1342 msgid "Unit kind" 1304 1343 msgstr "Druh jednotky" 1305 1344 1306 #: uunit.sviewrange 1345 #: unit.sviewrange 1346 msgctxt "unit.sviewrange" 1307 1347 msgid "View range" 1308 1348 msgstr "Dohled" -
trunk/Languages/xtactics.pot
r313 r317 2 2 msgstr "Content-Type: text/plain; charset=UTF-8" 3 3 4 #: tcore.aabout.caption 5 msgid "About" 6 msgstr "" 7 8 #: tcore.aexit.caption 9 msgid "Exit" 10 msgstr "" 11 12 #: tcore.aexit.hint 13 msgid "Exit application" 14 msgstr "" 15 16 #: tcore.afullscreen.caption 17 msgid "Full screen mode" 18 msgstr "" 19 20 #: tcore.agameend.caption 21 msgid "End" 22 msgstr "" 23 24 #: tcore.agameend.hint 25 msgid "End game" 26 msgstr "" 27 28 #: tcore.agameload.caption 29 msgctxt "tcore.agameload.caption" 30 msgid "Load" 31 msgstr "" 32 33 #: tcore.agamenew.caption 34 msgctxt "tcore.agamenew.caption" 35 msgid "New" 36 msgstr "" 37 38 #: tcore.agamenew.hint 39 msgctxt "tcore.agamenew.hint" 40 msgid "New game" 41 msgstr "" 42 43 #: tcore.agamerestart.caption 44 msgid "Restart" 45 msgstr "" 46 47 #: tcore.agamerestart.hint 48 msgid "Restart game" 49 msgstr "" 50 51 #: tcore.agamesave.caption 52 msgctxt "tcore.agamesave.caption" 53 msgid "Save" 54 msgstr "" 55 56 #: tcore.agamesaveas.caption 57 msgid "Save as..." 58 msgstr "" 59 60 #: tcore.ahelp.caption 61 msgctxt "tcore.ahelp.caption" 62 msgid "Help" 63 msgstr "" 64 65 #: tcore.anewspectatorclient.caption 66 msgid "New spectator client" 67 msgstr "" 68 69 #: tcore.aplayersstats.caption 70 msgid "Players statistics" 71 msgstr "" 72 73 #: tcore.applicationinfo.description 74 msgid "A turn-based strategy game inspired by classic Risk board game. The game is highly configurable to allow to adjust battle field and game rules." 75 msgstr "" 76 77 #: tcore.asettings.caption 78 msgctxt "tcore.asettings.caption" 79 msgid "Settings" 80 msgstr "" 81 82 #: tcore.asettings.hint 83 msgid "Application settings" 84 msgstr "" 85 86 #: tcore.ashowcharts.caption 87 msgctxt "tcore.ashowcharts.caption" 88 msgid "Charts" 89 msgstr "" 90 91 #: tcore.ashowkeyshortcuts.caption 92 msgctxt "tcore.ashowkeyshortcuts.caption" 93 msgid "Key shortcuts" 94 msgstr "" 95 96 #: tcore.ashowunitmoves.caption 97 msgctxt "tcore.ashowunitmoves.caption" 98 msgid "Unit moves" 99 msgstr "" 100 101 #: tcore.atogglefogofwar.caption 102 msgid "Toggle fog of war" 103 msgstr "" 104 105 #: tformcharts.caption 106 msgctxt "tformcharts.caption" 107 msgid "Charts" 108 msgstr "" 109 110 #: tformcharts.combobox1.text 111 msgctxt "tformcharts.combobox1.text" 4 #: building.sbonusattack 5 msgctxt "building.sbonusattack" 6 msgid "Unit attack bonus" 7 msgstr "" 8 9 #: building.sbonusdefense 10 msgctxt "building.sbonusdefense" 11 msgid "Unit defense bonus" 12 msgstr "" 13 14 #: building.sbonusgrow 15 msgctxt "building.sbonusgrow" 16 msgid "Unit grow bonus" 17 msgstr "" 18 19 #: building.sbonusviewrange 20 msgctxt "building.sbonusviewrange" 21 msgid "Unit view range bonus" 22 msgstr "" 23 24 #: building.sbuildingkind 25 msgctxt "building.sbuildingkind" 26 msgid "Building" 27 msgstr "" 28 29 #: building.scity 30 msgctxt "building.scity" 31 msgid "City" 32 msgstr "" 33 34 #: building.scost 35 msgctxt "building.scost" 36 msgid "Cost" 37 msgstr "" 38 39 #: building.snone 40 msgctxt "building.snone" 41 msgid "None" 42 msgstr "" 43 44 #: building.sspecialtype 45 msgctxt "building.sspecialtype" 46 msgid "Special type" 47 msgstr "" 48 49 #: clientgui.swrongarrowangle 50 #, object-pascal-format 51 msgctxt "clientgui.swrongarrowangle" 52 msgid "Wrong arrow angle %s" 53 msgstr "" 54 55 #: clientgui.szerozoomnotalowed 56 msgctxt "clientgui.szerozoomnotalowed" 57 msgid "Zero zoom not allowed" 58 msgstr "" 59 60 #: core.sendgame 61 msgctxt "core.sendgame" 62 msgid "End game?" 63 msgstr "" 64 65 #: core.sendgamequestion 66 msgctxt "core.sendgamequestion" 67 msgid "Do you want to end current game?" 68 msgstr "" 69 70 #: core.sfiledialogfilter 71 msgctxt "core.sfiledialogfilter" 72 msgid "xTactics games (.xtg)|*.xtg|All files|*.*" 73 msgstr "" 74 75 #: core.smissingserverclientforplayer 76 msgctxt "core.smissingserverclientforplayer" 77 msgid "Server client for current player not found." 78 msgstr "" 79 80 #: core.splayersnotinitialized 81 #, object-pascal-format 82 msgctxt "core.splayersnotinitialized" 83 msgid "Not all players were initialized with start cell. Needed %d, initialized %d. Change map parameters to have more terrain cells." 84 msgstr "" 85 86 #: core.splayerswins 87 #, object-pascal-format 88 msgctxt "core.splayerswins" 89 msgid "Players %s win" 90 msgstr "" 91 92 #: core.splayerwins 93 #, object-pascal-format 94 msgctxt "core.splayerwins" 95 msgid "Player %s wins" 96 msgstr "" 97 98 #: core.srestartgame 99 msgctxt "core.srestartgame" 100 msgid "Restart game?" 101 msgstr "" 102 103 #: core.srestartgamequestion 104 msgctxt "core.srestartgamequestion" 105 msgid "Do you want to restart current game?" 106 msgstr "" 107 108 #: formcharts.scitiescount 109 msgctxt "formcharts.scitiescount" 110 msgid "Cities count" 111 msgstr "" 112 113 #: formcharts.sdiscoveredcells 114 msgctxt "formcharts.sdiscoveredcells" 115 msgid "Discovered cells" 116 msgstr "" 117 118 #: formcharts.smilitarypower 119 msgctxt "formcharts.smilitarypower" 120 msgid "Military power" 121 msgstr "" 122 123 #: formcharts.soccupiedcells 124 msgctxt "formcharts.soccupiedcells" 112 125 msgid "Occupied cells" 113 126 msgstr "" 114 127 115 #: tformchat.buttonmessagesend.caption 116 msgid "Send" 117 msgstr "" 118 119 #: tformchat.caption 120 msgid "Chat" 121 msgstr "" 122 123 #: tformchat.label1.caption 124 msgid "Chat:" 125 msgstr "" 126 127 #: tformclient.agameendturn.caption 128 msgid "End turn" 129 msgstr "" 130 131 #: tformclient.astatusbarvisible.caption 132 msgid "Statusbar visible" 133 msgstr "" 134 135 #: tformclient.asurrender.caption 136 msgctxt "tformclient.asurrender.caption" 128 #: formcharts.swinobjectivecells 129 msgctxt "formcharts.swinobjectivecells" 130 msgid "Win objective cells" 131 msgstr "" 132 133 #: formclient.ssurrender 134 msgctxt "formclient.ssurrender" 137 135 msgid "Surrender" 138 136 msgstr "" 139 137 140 #: tformclient.atoolbarbigicons.caption 141 msgctxt "tformclient.atoolbarbigicons.caption" 142 msgid "Toolbar big icons" 143 msgstr "" 144 145 #: tformclient.atoolbarvisible.caption 146 msgctxt "tformclient.atoolbarvisible.caption" 147 msgid "Toolbar visible" 148 msgstr "" 149 150 #: tformclient.azoomall.caption 151 msgctxt "tformclient.azoomall.caption" 152 msgid "Zoom all" 153 msgstr "" 154 155 #: tformclient.azoomin.caption 156 msgctxt "tformclient.azoomin.caption" 157 msgid "Zoom in" 158 msgstr "" 159 160 #: tformclient.azoomout.caption 161 msgctxt "tformclient.azoomout.caption" 162 msgid "Zoom out" 163 msgstr "" 164 165 #: tformclient.caption 166 msgid "Client" 167 msgstr "" 168 169 #: tformgamesystem.buttoncancel.caption 170 msgctxt "tformgamesystem.buttoncancel.caption" 171 msgid "Cancel" 172 msgstr "" 173 174 #: tformgamesystem.buttonload.caption 175 msgctxt "tformgamesystem.buttonload.caption" 176 msgid "Load" 177 msgstr "" 178 179 #: tformgamesystem.buttonok.caption 180 msgctxt "tformgamesystem.buttonok.caption" 181 msgid "OK" 182 msgstr "" 183 184 #: tformgamesystem.buttonsave.caption 185 msgctxt "tformgamesystem.buttonsave.caption" 186 msgid "Save" 187 msgstr "" 188 189 #: tformgamesystem.caption 190 msgctxt "tformgamesystem.caption" 191 msgid "Game system" 192 msgstr "" 193 194 #: tformgamesystem.checkboxemptycellsneutral.caption 195 msgid "Set cells without player units as neutral" 196 msgstr "" 197 198 #: tformgamesystem.checkboxunitsmoveimmediately.caption 199 msgid "Units move immediately" 200 msgstr "" 201 202 #: tformgamesystem.checkboxunitssplitmerge.caption 203 msgid "Units can split or merge" 204 msgstr "" 205 206 #: tformgamesystem.tabsheetbuildings.caption 207 msgid "Buildings" 208 msgstr "" 209 210 #: tformgamesystem.tabsheetgeneral.caption 211 msgctxt "tformgamesystem.tabsheetgeneral.caption" 212 msgid "General" 213 msgstr "" 214 215 #: tformgamesystem.tabsheetnations.caption 216 msgid "Nations" 217 msgstr "" 218 219 #: tformgamesystem.tabsheetunits.caption 220 msgctxt "tformgamesystem.tabsheetunits.caption" 221 msgid "Units" 222 msgstr "" 223 224 #: tformgamesystems.aadd.caption 225 msgctxt "tformgamesystems.aadd.caption" 226 msgid "Add" 227 msgstr "" 228 229 #: tformgamesystems.aclone.caption 230 msgctxt "tformgamesystems.aclone.caption" 231 msgid "Clone" 232 msgstr "" 233 234 #: tformgamesystems.amodify.caption 235 msgctxt "tformgamesystems.amodify.caption" 236 msgid "Modify" 237 msgstr "" 238 239 #: tformgamesystems.aremove.caption 240 msgctxt "tformgamesystems.aremove.caption" 241 msgid "Remove" 242 msgstr "" 243 244 #: tformgamesystems.aselectall.caption 245 msgctxt "tformgamesystems.aselectall.caption" 246 msgid "Select all" 247 msgstr "" 248 249 #: tformgamesystems.caption 250 msgid "Game systems" 251 msgstr "" 252 253 #: tformgamesystems.listview1.columns[0].caption 254 msgctxt "tformgamesystems.listview1.columns[0].caption" 255 msgid "Name" 256 msgstr "" 257 258 #: tformhelp.caption 259 msgctxt "tformhelp.caption" 260 msgid "Help" 261 msgstr "" 262 263 #: tformitem.buttoncancel.caption 264 msgctxt "tformitem.buttoncancel.caption" 265 msgid "Cancel" 266 msgstr "" 267 268 #: tformitem.buttonok.caption 269 msgctxt "tformitem.buttonok.caption" 270 msgid "OK" 271 msgstr "" 272 273 #: tformitem.caption 274 msgctxt "tformitem.caption" 275 msgid "Item" 276 msgstr "" 277 278 #: tformkeyshortcuts.caption 279 msgctxt "tformkeyshortcuts.caption" 280 msgid "Key shortcuts" 281 msgstr "" 282 283 #: tformkeyshortcuts.listview1.columns[0].caption 284 msgid "Action" 285 msgstr "" 286 287 #: tformkeyshortcuts.listview1.columns[1].caption 288 msgid "Window" 289 msgstr "" 290 291 #: tformkeyshortcuts.listview1.columns[2].caption 292 msgid "Shortcut" 293 msgstr "" 294 295 #: tformkeyshortcuts.menuitem1.caption 296 msgid "Execute" 297 msgstr "" 298 299 #: tformlist.aadd.caption 300 msgctxt "tformlist.aadd.caption" 301 msgid "Add" 302 msgstr "" 303 304 #: tformlist.aclone.caption 305 msgctxt "tformlist.aclone.caption" 306 msgid "Clone" 307 msgstr "" 308 309 #: tformlist.amodify.caption 310 msgctxt "tformlist.amodify.caption" 311 msgid "Modify" 312 msgstr "" 313 314 #: tformlist.aremove.caption 315 msgctxt "tformlist.aremove.caption" 316 msgid "Remove" 317 msgstr "" 318 319 #: tformlist.aselectall.caption 320 msgctxt "tformlist.aselectall.caption" 321 msgid "Select all" 322 msgstr "" 323 324 #: tformlist.caption 325 msgid "List" 326 msgstr "" 327 328 #: tformlist.listview1.columns[0].caption 329 msgctxt "tformlist.listview1.columns[0].caption" 330 msgid "Name" 331 msgstr "" 332 333 #: tformmain.amapgridvisible.caption 334 msgid "Map grid visible" 335 msgstr "" 336 337 #: tformmain.astatusbarvisible.caption 338 msgid "Status bar visible" 339 msgstr "" 340 341 #: tformmain.atoolbarbigicons.caption 342 msgctxt "tformmain.atoolbarbigicons.caption" 343 msgid "Toolbar big icons" 344 msgstr "" 345 346 #: tformmain.atoolbarvisible.caption 347 msgctxt "tformmain.atoolbarvisible.caption" 348 msgid "Toolbar visible" 349 msgstr "" 350 351 #: tformmain.aunitshapevisible.caption 352 msgid "Unit shape visible" 353 msgstr "" 354 355 #: tformmain.caption 356 msgid "xTactics" 357 msgstr "" 358 359 #: tformmain.menuitem1.caption 360 msgid "Game" 361 msgstr "" 362 363 #: tformmain.menuitem10.caption 364 msgid "View" 365 msgstr "" 366 367 #: tformmain.menuitem11.caption 368 msgctxt "tformmain.menuitem11.caption" 369 msgid "Zoom all" 370 msgstr "" 371 372 #: tformmain.menuitem12.caption 373 msgctxt "tformmain.menuitem12.caption" 374 msgid "Zoom in" 375 msgstr "" 376 377 #: tformmain.menuitem13.caption 378 msgctxt "tformmain.menuitem13.caption" 379 msgid "Zoom out" 380 msgstr "" 381 382 #: tformmain.menuitem16.caption 383 msgctxt "tformmain.menuitem16.caption" 384 msgid "Help" 385 msgstr "" 386 387 #: tformmain.menuitem8.caption 388 msgid "Tools" 389 msgstr "" 390 391 #: tformmain.menuitemdebug.caption 392 msgctxt "tformmain.menuitemdebug.caption" 393 msgid "Debug" 394 msgstr "" 395 396 #: tformmain.menuitemloadrecent.caption 397 msgid "Load recent" 398 msgstr "" 399 400 #: tformmove.buttoncancel.caption 401 msgctxt "tformmove.buttoncancel.caption" 402 msgid "Cancel" 403 msgstr "" 404 405 #: tformmove.buttonok.caption 406 msgctxt "tformmove.buttonok.caption" 407 msgid "Ok" 408 msgstr "" 409 410 #: tformmove.buttononcemax.caption 411 msgctxt "tformmove.buttononcemax.caption" 412 msgid "Max" 413 msgstr "" 414 415 #: tformmove.buttononcemin.caption 416 msgctxt "tformmove.buttononcemin.caption" 417 msgid "Min" 418 msgstr "" 419 420 #: tformmove.buttonremove.caption 421 msgid "Delete" 422 msgstr "" 423 424 #: tformmove.buttonrepeatmax.caption 425 msgctxt "tformmove.buttonrepeatmax.caption" 426 msgid "Max" 427 msgstr "" 428 429 #: tformmove.buttonrepeatmin.caption 430 msgctxt "tformmove.buttonrepeatmin.caption" 431 msgid "Min" 432 msgstr "" 433 434 #: tformmove.caption 435 msgid "Move" 436 msgstr "" 437 438 #: tformmove.label1.caption 439 msgid "Once:" 440 msgstr "" 441 442 #: tformmove.label2.caption 443 msgid "Every turn:" 444 msgstr "" 445 446 #: tformmove.label3.caption 447 msgid "Win probability:" 448 msgstr "" 449 450 #: tformmove.labelwinprobability.caption 451 msgid " " 452 msgstr "" 453 454 #: tformnew.aserveradd.caption 455 msgctxt "tformnew.aserveradd.caption" 456 msgid "Add" 457 msgstr "" 458 459 #: tformnew.aservermodify.caption 460 msgctxt "tformnew.aservermodify.caption" 461 msgid "Modify" 462 msgstr "" 463 464 #: tformnew.aserverremove.caption 465 msgctxt "tformnew.aserverremove.caption" 466 msgid "Remove" 467 msgstr "" 468 469 #: tformnew.buttoncancel.caption 470 msgctxt "tformnew.buttoncancel.caption" 471 msgid "Cancel" 472 msgstr "" 473 474 #: tformnew.buttongamesystems.caption 475 msgid "Manage" 476 msgstr "" 477 478 #: tformnew.buttonimagebrowse.caption 479 msgid "Browse" 480 msgstr "" 481 482 #: tformnew.buttonok.caption 483 msgctxt "tformnew.buttonok.caption" 484 msgid "Ok" 485 msgstr "" 486 487 #: tformnew.buttonrandomize.caption 488 msgid "Randomize" 489 msgstr "" 490 491 #: tformnew.caption 492 msgctxt "tformnew.caption" 493 msgid "New game" 494 msgstr "" 495 496 #: tformnew.checkboxbridges.caption 497 msgid "Bridges between cells" 498 msgstr "" 499 500 #: tformnew.checkboxcity.caption 501 msgctxt "tformnew.checkboxcity.caption" 502 msgid "Cities" 503 msgstr "" 504 505 #: tformnew.checkboxcyclicmap.caption 506 msgid "Cyclic map" 507 msgstr "" 508 509 #: tformnew.checkboxfogofwar.caption 510 msgid "Fog of war" 511 msgstr "" 512 513 #: tformnew.checkboxsymetricmap.caption 514 msgid "Symetric map" 515 msgstr "" 516 517 #: tformnew.checkboxvoid.caption 518 msgid "Inaccessible places" 519 msgstr "" 520 521 #: tformnew.label1.caption 522 msgid "Map width:" 523 msgstr "" 524 525 #: tformnew.label10.caption 526 msgid "Max units per cell:" 527 msgstr "" 528 529 #: tformnew.label11.caption 530 msgctxt "tformnew.label11.caption" 531 msgid "Port:" 532 msgstr "" 533 534 #: tformnew.label12.caption 535 msgctxt "tformnew.label12.caption" 536 msgid "Address:" 537 msgstr "" 538 539 #: tformnew.label13.caption 540 msgid "Number of turns:" 541 msgstr "" 542 543 #: tformnew.label14.caption 544 msgid "Special cells count:" 545 msgstr "" 546 547 #: tformnew.label15.caption 548 msgid "Preview:" 549 msgstr "" 550 551 #: tformnew.label16.caption 552 msgid "Game system:" 553 msgstr "" 554 555 #: tformnew.label2.caption 556 msgid "Map height:" 557 msgstr "" 558 559 #: tformnew.label3.caption 560 msgctxt "tformnew.label3.caption" 561 msgid "%" 562 msgstr "" 563 564 #: tformnew.label4.caption 565 msgctxt "tformnew.label4.caption" 566 msgid "%" 567 msgstr "" 568 569 #: tformnew.label5.caption 570 msgid "Grid type:" 571 msgstr "" 572 573 #: tformnew.label6.caption 574 msgid "Win objective:" 575 msgstr "" 576 577 #: tformnew.label7.caption 578 msgid "Max random neutral units:" 579 msgstr "" 580 581 #: tformnew.label8.caption 582 msgid "Map shape:" 583 msgstr "" 584 585 #: tformnew.label9.caption 586 msgid "Image file:" 587 msgstr "" 588 589 #: tformnew.listviewservers.columns[0].caption 590 msgctxt "tformnew.listviewservers.columns[0].caption" 591 msgid "Name" 592 msgstr "" 593 594 #: tformnew.listviewservers.columns[1].caption 595 msgid "Address" 596 msgstr "" 597 598 #: tformnew.radiobuttonmodelocal.caption 599 msgid "Local" 600 msgstr "" 601 602 #: tformnew.radiobuttonmodenetworkclient.caption 603 msgid "Network client" 604 msgstr "" 605 606 #: tformnew.radiobuttonmodenetworkserver.caption 607 msgid "Network server" 608 msgstr "" 609 610 #: tformnew.radiogroupgrowamount.caption 611 msgid "Per turn grow amount" 612 msgstr "" 613 614 #: tformnew.radiogroupgrowcells.caption 615 msgid "Growing cells" 616 msgstr "" 617 618 #: tformnew.tabsheetmap.caption 619 msgid "Map" 620 msgstr "" 621 622 #: tformnew.tabsheetmode.caption 623 msgctxt "tformnew.tabsheetmode.caption" 624 msgid "Mode" 625 msgstr "" 626 627 #: tformnew.tabsheetplayers.caption 628 msgid "Players" 629 msgstr "" 630 631 #: tformnew.tabsheetrules.caption 632 msgid "Rules" 633 msgstr "" 634 635 #: tformplayersstats.aspectate.caption 636 msgid "Spectate" 637 msgstr "" 638 639 #: tformplayersstats.caption 640 msgid "Players stats" 641 msgstr "" 642 643 #: tformplayersstats.listview1.columns[0].caption 644 msgctxt "tformplayersstats.listview1.columns[0].caption" 645 msgid "Name" 646 msgstr "" 647 648 #: tformplayersstats.listview1.columns[1].caption 649 msgctxt "tformplayersstats.listview1.columns[1].caption" 650 msgid "Mode" 651 msgstr "" 652 653 #: tformplayersstats.listview1.columns[2].caption 654 msgid "Cells" 655 msgstr "" 656 657 #: tformplayersstats.listview1.columns[3].caption 658 msgid "Discovered" 659 msgstr "" 660 661 #: tformplayersstats.listview1.columns[4].caption 662 msgctxt "tformplayersstats.listview1.columns[4].caption" 663 msgid "Cities" 664 msgstr "" 665 666 #: tformplayersstats.listview1.columns[5].caption 667 msgctxt "tformplayersstats.listview1.columns[5].caption" 668 msgid "Units" 669 msgstr "" 670 671 #: tformplayersstats.listview1.columns[6].caption 672 msgctxt "tformplayersstats.listview1.columns[6].caption" 673 msgid "Win objective cells" 674 msgstr "" 675 676 #: tformserver.buttoncancel.caption 677 msgctxt "tformserver.buttoncancel.caption" 678 msgid "Cancel" 679 msgstr "" 680 681 #: tformserver.buttonok.caption 682 msgctxt "tformserver.buttonok.caption" 683 msgid "OK" 684 msgstr "" 685 686 #: tformserver.caption 687 msgid "Server" 688 msgstr "" 689 690 #: tformserver.label1.caption 691 msgid "Name:" 692 msgstr "" 693 694 #: tformserver.label2.caption 695 msgctxt "tformserver.label2.caption" 696 msgid "Address:" 697 msgstr "" 698 699 #: tformserver.label3.caption 700 msgctxt "tformserver.label3.caption" 701 msgid "Port:" 702 msgstr "" 703 704 #: tformsettings.buttoncancel.caption 705 msgctxt "tformsettings.buttoncancel.caption" 706 msgid "Cancel" 707 msgstr "" 708 709 #: tformsettings.buttonok.caption 710 msgctxt "tformsettings.buttonok.caption" 711 msgid "Ok" 712 msgstr "" 713 714 #: tformsettings.caption 715 msgctxt "tformsettings.caption" 716 msgid "Settings" 717 msgstr "" 718 719 #: tformsettings.checkbox2.caption 720 msgid "Automatic DPI" 721 msgstr "" 722 723 #: tformsettings.checkboxautosaveturn.caption 724 msgid "Autosave game on each turn" 725 msgstr "" 726 727 #: tformsettings.checkboxdevelmode.caption 728 msgid "Developer mode" 729 msgstr "" 730 731 #: tformsettings.checkboxreopenlastfile.caption 732 msgid "Reopen last game on start" 733 msgstr "" 734 735 #: tformsettings.label1.caption 736 msgid "Language:" 737 msgstr "" 738 739 #: tformsettings.label2.caption 740 msgid "Animation speed:" 741 msgstr "" 742 743 #: tformsettings.label3.caption 744 msgctxt "tformsettings.label3.caption" 745 msgid "%" 746 msgstr "" 747 748 #: tformsettings.label4.caption 749 msgid "DPI:" 750 msgstr "" 751 752 #: tformsettings.label5.caption 753 msgid "x" 754 msgstr "" 755 756 #: tformsettings.label6.caption 757 msgid "Theme:" 758 msgstr "" 759 760 #: tformsettings.tabsheetdebug.caption 761 msgctxt "tformsettings.tabsheetdebug.caption" 762 msgid "Debug" 763 msgstr "" 764 765 #: tformsettings.tabsheetgeneral.caption 766 msgctxt "tformsettings.tabsheetgeneral.caption" 767 msgid "General" 768 msgstr "" 769 770 #: tformunitmoves.caption 771 msgctxt "tformunitmoves.caption" 772 msgid "Unit moves" 773 msgstr "" 774 775 #: tformunitmoves.listview1.columns[0].caption 776 msgid "From cell" 777 msgstr "" 778 779 #: tformunitmoves.listview1.columns[1].caption 780 msgid "To cell" 781 msgstr "" 782 783 #: tformunitmoves.listview1.columns[2].caption 784 msgid "Once count" 785 msgstr "" 786 787 #: tformunitmoves.listview1.columns[3].caption 788 msgid "Repeat count" 789 msgstr "" 790 791 #: ubuilding.sbonusattack 792 msgid "Unit attack bonus" 793 msgstr "" 794 795 #: ubuilding.sbonusdefense 796 msgid "Unit defense bonus" 797 msgstr "" 798 799 #: ubuilding.sbonusgrow 800 msgid "Unit grow bonus" 801 msgstr "" 802 803 #: ubuilding.sbonusviewrange 804 msgid "Unit view range bonus" 805 msgstr "" 806 807 #: ubuilding.sbuildingkind 808 msgid "Building" 809 msgstr "" 810 811 #: ubuilding.scity 812 msgid "City" 813 msgstr "" 814 815 #: ubuilding.scost 816 msgctxt "ubuilding.scost" 817 msgid "Cost" 818 msgstr "" 819 820 #: ubuilding.snone 821 msgctxt "ubuilding.snone" 822 msgid "None" 823 msgstr "" 824 825 #: ubuilding.sspecialtype 826 msgid "Special type" 827 msgstr "" 828 829 #: uclientgui.swrongarrowangle 830 #, object-pascal-format 831 msgid "Wrong arrow angle %s" 832 msgstr "" 833 834 #: uclientgui.szerozoomnotalowed 835 msgid "Zero zoom not allowed" 836 msgstr "" 837 838 #: ucore.sendgame 839 msgid "End game?" 840 msgstr "" 841 842 #: ucore.sendgamequestion 843 msgid "Do you want to end current game?" 844 msgstr "" 845 846 #: ucore.sfiledialogfilter 847 msgid "xTactics games (.xtg)|*.xtg|All files|*.*" 848 msgstr "" 849 850 #: ucore.smissingserverclientforplayer 851 msgid "Server client for current player not found." 852 msgstr "" 853 854 #: ucore.splayersnotinitialized 855 #, object-pascal-format 856 msgid "Not all players were initialized with start cell. Needed %d, initialized %d. Change map parameters to have more terrain cells." 857 msgstr "" 858 859 #: ucore.splayerswins 860 #, object-pascal-format 861 msgid "Players %s win" 862 msgstr "" 863 864 #: ucore.splayerwins 865 #, object-pascal-format 866 msgid "Player %s wins" 867 msgstr "" 868 869 #: ucore.srestartgame 870 msgid "Restart game?" 871 msgstr "" 872 873 #: ucore.srestartgamequestion 874 msgid "Do you want to restart current game?" 875 msgstr "" 876 877 #: uformcharts.scitiescount 878 msgid "Cities count" 879 msgstr "" 880 881 #: uformcharts.sdiscoveredcells 882 msgid "Discovered cells" 883 msgstr "" 884 885 #: uformcharts.smilitarypower 886 msgid "Military power" 887 msgstr "" 888 889 #: uformcharts.soccupiedcells 890 msgctxt "uformcharts.soccupiedcells" 891 msgid "Occupied cells" 892 msgstr "" 893 894 #: uformcharts.swinobjectivecells 895 msgctxt "uformcharts.swinobjectivecells" 896 msgid "Win objective cells" 897 msgstr "" 898 899 #: uformclient.ssurrender 900 msgctxt "uformclient.ssurrender" 901 msgid "Surrender" 902 msgstr "" 903 904 #: uformclient.ssurrenderquestion 138 #: formclient.ssurrenderquestion 139 msgctxt "formclient.ssurrenderquestion" 905 140 msgid "Do you want to surrender current game?" 906 141 msgstr "" 907 142 908 #: uformclient.sturn909 msgctxt " uformclient.sturn"143 #: formclient.sturn 144 msgctxt "formclient.sturn" 910 145 msgid "turn" 911 146 msgstr "" 912 147 913 #: uformgamesystem.sfiledialogfilter 148 #: formgamesystem.sfiledialogfilter 149 msgctxt "formgamesystem.sfiledialogfilter" 914 150 msgid "xTactics game system (.xts)|*.xts|All files|*.*" 915 151 msgstr "" 916 152 917 #: uformgamesystems.snewgamesystem 153 #: formgamesystems.snewgamesystem 154 msgctxt "formgamesystems.snewgamesystem" 918 155 msgid "New game system" 919 156 msgstr "" 920 157 921 #: uformgamesystems.sremoveitems922 msgctxt " uformgamesystems.sremoveitems"158 #: formgamesystems.sremoveitems 159 msgctxt "formgamesystems.sremoveitems" 923 160 msgid "Remove items" 924 161 msgstr "" 925 162 926 #: uformgamesystems.sremoveitemsquery927 msgctxt " uformgamesystems.sremoveitemsquery"163 #: formgamesystems.sremoveitemsquery 164 msgctxt "formgamesystems.sremoveitemsquery" 928 165 msgid "Do you want to remove selected items?" 929 166 msgstr "" 930 167 931 #: uformhelp.scontent 168 #: formhelp.scontent 169 msgctxt "formhelp.scontent" 932 170 msgid "" 933 171 "xTactics is a risk based strategic game. Main focus of the game is to offer player various possibilities to configure game conditions. Map for game is generated randomly for each play. Game is multiplayer so single player can play with other human opponents or with many computer opponents.\n" … … 941 179 msgstr "" 942 180 943 #: uformkeyshortcuts.sglobal 181 #: formkeyshortcuts.sglobal 182 msgctxt "formkeyshortcuts.sglobal" 944 183 msgid "Global" 945 184 msgstr "" 946 185 947 #: uformkeyshortcuts.smainform 186 #: formkeyshortcuts.smainform 187 msgctxt "formkeyshortcuts.smainform" 948 188 msgid "Main window" 949 189 msgstr "" 950 190 951 #: uformlist.snew952 msgctxt " uformlist.snew"191 #: formlist.snew 192 msgctxt "formlist.snew" 953 193 msgid "New" 954 194 msgstr "" 955 195 956 #: uformlist.sremoveitems957 msgctxt " uformlist.sremoveitems"196 #: formlist.sremoveitems 197 msgctxt "formlist.sremoveitems" 958 198 msgid "Remove items" 959 199 msgstr "" 960 200 961 #: uformlist.sremoveitemsquery962 msgctxt " uformlist.sremoveitemsquery"201 #: formlist.sremoveitemsquery 202 msgctxt "formlist.sremoveitemsquery" 963 203 msgid "Do you want to remove selected items?" 964 204 msgstr "" 965 205 966 #: uformmain.sturn967 msgctxt " uformmain.sturn"206 #: formmain.sturn 207 msgctxt "formmain.sturn" 968 208 msgid "turn" 969 209 msgstr "" 970 210 971 #: uformnew.sfromimagefile 211 #: formnew.sfromimagefile 212 msgctxt "formnew.sfromimagefile" 972 213 msgid "From image file" 973 214 msgstr "" 974 215 975 #: uformnew.sgrowamountbyone 216 #: formnew.sgrowamountbyone 217 msgctxt "formnew.sgrowamountbyone" 976 218 msgid "By one" 977 219 msgstr "" 978 220 979 #: uformnew.sgrowamountbysquareroot 221 #: formnew.sgrowamountbysquareroot 222 msgctxt "formnew.sgrowamountbysquareroot" 980 223 msgid "By square root" 981 224 msgstr "" 982 225 983 #: uformnew.sgrownone984 msgctxt " uformnew.sgrownone"226 #: formnew.sgrownone 227 msgctxt "formnew.sgrownone" 985 228 msgid "None" 986 229 msgstr "" 987 230 988 #: uformnew.sgrowplayerallcells 231 #: formnew.sgrowplayerallcells 232 msgctxt "formnew.sgrowplayerallcells" 989 233 msgid "Player all cells" 990 234 msgstr "" 991 235 992 #: uformnew.sgrowplayercities 236 #: formnew.sgrowplayercities 237 msgctxt "formnew.sgrowplayercities" 993 238 msgid "Player cities" 994 239 msgstr "" 995 240 996 #: uformnew.srectangular 241 #: formnew.srectangular 242 msgctxt "formnew.srectangular" 997 243 msgid "Rectangular" 998 244 msgstr "" 999 245 1000 #: uformnew.sremoveserver 246 #: formnew.sremoveserver 247 msgctxt "formnew.sremoveserver" 1001 248 msgid "Remove server" 1002 249 msgstr "" 1003 250 1004 #: uformnew.sremoveserverquery 251 #: formnew.sremoveserverquery 252 msgctxt "formnew.sremoveserverquery" 1005 253 msgid "Do you want to remove server?" 1006 254 msgstr "" 1007 255 1008 #: uformnew.srounded 256 #: formnew.srounded 257 msgctxt "formnew.srounded" 1009 258 msgid "Rounded" 1010 259 msgstr "" 1011 260 1012 #: uformnew.swinobjectivecaptureentiremap 261 #: formnew.swinobjectivecaptureentiremap 262 msgctxt "formnew.swinobjectivecaptureentiremap" 1013 263 msgid "Capture entire map" 1014 264 msgstr "" 1015 265 1016 #: uformnew.swinobjectivecaptureposition 266 #: formnew.swinobjectivecaptureposition 267 msgctxt "formnew.swinobjectivecaptureposition" 1017 268 msgid "Capture all special cells" 1018 269 msgstr "" 1019 270 1020 #: uformnew.swinobjectivedefeatallcities 271 #: formnew.swinobjectivedefeatallcities 272 msgctxt "formnew.swinobjectivedefeatallcities" 1021 273 msgid "Defeat all oponents cities" 1022 274 msgstr "" 1023 275 1024 #: uformnew.swinobjectivedefeatalloponents 276 #: formnew.swinobjectivedefeatalloponents 277 msgctxt "formnew.swinobjectivedefeatalloponents" 1025 278 msgid "Defeat all oponents" 1026 279 msgstr "" 1027 280 1028 #: uformnew.swinobjectivenone1029 msgctxt " uformnew.swinobjectivenone"281 #: formnew.swinobjectivenone 282 msgctxt "formnew.swinobjectivenone" 1030 283 msgid "None" 1031 284 msgstr "" 1032 285 1033 #: uformnew.swinobjectivestayaliveforturns 286 #: formnew.swinobjectivestayaliveforturns 287 msgctxt "formnew.swinobjectivestayaliveforturns" 1034 288 msgid "Stay alive for number of turns" 1035 289 msgstr "" 1036 290 1037 #: ugame.scomputer1038 msgctxt " ugame.scomputer"291 #: game.scomputer 292 msgctxt "game.scomputer" 1039 293 msgid "Computer" 1040 294 msgstr "" 1041 295 1042 #: ugame.shuman1043 msgctxt " ugame.shuman"296 #: game.shuman 297 msgctxt "game.shuman" 1044 298 msgid "Human" 1045 299 msgstr "" 1046 300 1047 #: ugame.sminimumplayers 301 #: game.sminimumplayers 302 msgctxt "game.sminimumplayers" 1048 303 msgid "You need at least one player" 1049 304 msgstr "" 1050 305 1051 #: ugame.snewgamefile 306 #: game.snewgamefile 307 msgctxt "game.snewgamefile" 1052 308 msgid "New game.xtg" 1053 309 msgstr "" 1054 310 1055 #: ugame.splayer 311 #: game.splayer 312 msgctxt "game.splayer" 1056 313 msgid "Player" 1057 314 msgstr "" 1058 315 1059 #: ugame.sspectator 316 #: game.sspectator 317 msgctxt "game.sspectator" 1060 318 msgid "Spectator" 1061 319 msgstr "" 1062 320 1063 #: ugame.sunsupportedmaptype 321 #: game.sunsupportedmaptype 322 msgctxt "game.sunsupportedmaptype" 1064 323 msgid "Unsupported map type" 1065 324 msgstr "" 1066 325 1067 #: ugame.swrongfileformat1068 msgctxt " ugame.swrongfileformat"326 #: game.swrongfileformat 327 msgctxt "game.swrongfileformat" 1069 328 msgid "Wrong file format" 1070 329 msgstr "" 1071 330 1072 #: ugamesystem.sgamesystem1073 msgctxt " ugamesystem.sgamesystem"331 #: gamesystem.sgamesystem 332 msgctxt "gamesystem.sgamesystem" 1074 333 msgid "Game system" 1075 334 msgstr "" 1076 335 1077 #: ugamesystem.swrongfileformat1078 msgctxt " ugamesystem.swrongfileformat"336 #: gamesystem.swrongfileformat 337 msgctxt "gamesystem.swrongfileformat" 1079 338 msgid "Wrong file format" 1080 339 msgstr "" 1081 340 1082 #: uitemlist.sitem1083 msgctxt " uitemlist.sitem"341 #: itemlist.sitem 342 msgctxt "itemlist.sitem" 1084 343 msgid "Item" 1085 344 msgstr "" 1086 345 1087 #: uitemlist.sname1088 msgctxt " uitemlist.sname"346 #: itemlist.sname 347 msgctxt "itemlist.sname" 1089 348 msgid "Name" 1090 349 msgstr "" 1091 350 1092 #: uitemlist.sno 351 #: itemlist.sno 352 msgctxt "itemlist.sno" 1093 353 msgid "No" 1094 354 msgstr "" 1095 355 1096 #: uitemlist.sunsupporteddatatype356 #: itemlist.sunsupporteddatatype 1097 357 #, object-pascal-format 358 msgctxt "itemlist.sunsupporteddatatype" 1098 359 msgid "Unsupported field value data type %s" 1099 360 msgstr "" 1100 361 1101 #: uitemlist.syes 362 #: itemlist.syes 363 msgctxt "itemlist.syes" 1102 364 msgid "Yes" 1103 365 msgstr "" 1104 366 1105 #: umap.scellremoveneighborerror 367 #: map.scellremoveneighborerror 368 msgctxt "map.scellremoveneighborerror" 1106 369 msgid "Can't remove cell from neighbour cell" 1107 370 msgstr "" 1108 371 1109 #: umap.snegativecellpowernotallowed 372 #: map.snegativecellpowernotallowed 373 msgctxt "map.snegativecellpowernotallowed" 1110 374 msgid "Not allowed to substract power under zero to negative value" 1111 375 msgstr "" 1112 376 1113 #: umaptype.sgridtypehexagonhorizontal 377 #: maptype.sgridtypehexagonhorizontal 378 msgctxt "maptype.sgridtypehexagonhorizontal" 1114 379 msgid "Hexagonal horizontal" 1115 380 msgstr "" 1116 381 1117 #: umaptype.sgridtypehexagonvertical 382 #: maptype.sgridtypehexagonvertical 383 msgctxt "maptype.sgridtypehexagonvertical" 1118 384 msgid "Hexagonal vertical" 1119 385 msgstr "" 1120 386 1121 #: umaptype.sgridtypeisometric 387 #: maptype.sgridtypeisometric 388 msgctxt "maptype.sgridtypeisometric" 1122 389 msgid "Isometric" 1123 390 msgstr "" 1124 391 1125 #: umaptype.sgridtyperandom 392 #: maptype.sgridtyperandom 393 msgctxt "maptype.sgridtyperandom" 1126 394 msgid "Random" 1127 395 msgstr "" 1128 396 1129 #: umaptype.sgridtypesquare 397 #: maptype.sgridtypesquare 398 msgctxt "maptype.sgridtypesquare" 1130 399 msgid "Square" 1131 400 msgstr "" 1132 401 1133 #: umaptype.sgridtypetriangle 402 #: maptype.sgridtypetriangle 403 msgctxt "maptype.sgridtypetriangle" 1134 404 msgid "Triangural" 1135 405 msgstr "" 1136 406 1137 #: unation.scolor1138 msgctxt " unation.scolor"407 #: nation.scolor 408 msgctxt "nation.scolor" 1139 409 msgid "Color" 1140 410 msgstr "" 1141 411 1142 #: unation.snation1143 msgctxt " unation.snation"412 #: nation.snation 413 msgctxt "nation.snation" 1144 414 msgid "Nation" 1145 415 msgstr "" 1146 416 1147 #: uplayer.sagressivity 417 #: player.sagressivity 418 msgctxt "player.sagressivity" 1148 419 msgid "Agressivity" 1149 420 msgstr "" 1150 421 1151 #: uplayer.sattackerpowerpositive 422 #: player.sattackerpowerpositive 423 msgctxt "player.sattackerpowerpositive" 1152 424 msgid "Attacker power have to be higher then 0." 1153 425 msgstr "" 1154 426 1155 #: uplayer.scolor1156 msgctxt " uplayer.scolor"427 #: player.scolor 428 msgctxt "player.scolor" 1157 429 msgid "Color" 1158 430 msgstr "" 1159 431 1160 #: uplayer.scomputer1161 msgctxt " uplayer.scomputer"432 #: player.scomputer 433 msgctxt "player.scomputer" 1162 434 msgid "Computer" 1163 435 msgstr "" 1164 436 1165 #: uplayer.sdefenderpowerpositive 437 #: player.sdefenderpowerpositive 438 msgctxt "player.sdefenderpowerpositive" 1166 439 msgid "Defender power have to be higher then or equal to 0." 1167 440 msgstr "" 1168 441 1169 #: uplayer.sdefensive 442 #: player.sdefensive 443 msgctxt "player.sdefensive" 1170 444 msgid "Defensive" 1171 445 msgstr "" 1172 446 1173 #: uplayer.shigh 447 #: player.shigh 448 msgctxt "player.shigh" 1174 449 msgid "High" 1175 450 msgstr "" 1176 451 1177 #: uplayer.shuman1178 msgctxt " uplayer.shuman"452 #: player.shuman 453 msgctxt "player.shuman" 1179 454 msgid "Human" 1180 455 msgstr "" 1181 456 1182 #: uplayer.slow 457 #: player.slow 458 msgctxt "player.slow" 1183 459 msgid "Low" 1184 460 msgstr "" 1185 461 1186 #: uplayer.smedium 462 #: player.smedium 463 msgctxt "player.smedium" 1187 464 msgid "Medium" 1188 465 msgstr "" 1189 466 1190 #: uplayer.smode1191 msgctxt " uplayer.smode"467 #: player.smode 468 msgctxt "player.smode" 1192 469 msgid "Mode" 1193 470 msgstr "" 1194 471 1195 #: uplayer.snation1196 msgctxt " uplayer.snation"472 #: player.snation 473 msgctxt "player.snation" 1197 474 msgid "Nation" 1198 475 msgstr "" 1199 476 1200 #: uplayer.sstartunits 477 #: player.sstartunits 478 msgctxt "player.sstartunits" 1201 479 msgid "Start units" 1202 480 msgstr "" 1203 481 1204 #: uplayer.sunfinishedbattle 482 #: player.sunfinishedbattle 483 msgctxt "player.sunfinishedbattle" 1205 484 msgid "Unfinished battle" 1206 485 msgstr "" 1207 486 1208 #: uunit.scost 1209 msgctxt "uunit.scost" 487 #: tcore.aabout.caption 488 msgid "About" 489 msgstr "" 490 491 #: tcore.aexit.caption 492 msgid "Exit" 493 msgstr "" 494 495 #: tcore.aexit.hint 496 msgid "Exit application" 497 msgstr "" 498 499 #: tcore.afullscreen.caption 500 msgid "Full screen mode" 501 msgstr "" 502 503 #: tcore.agameend.caption 504 msgid "End" 505 msgstr "" 506 507 #: tcore.agameend.hint 508 msgid "End game" 509 msgstr "" 510 511 #: tcore.agameload.caption 512 msgctxt "tcore.agameload.caption" 513 msgid "Load" 514 msgstr "" 515 516 #: tcore.agamenew.caption 517 msgctxt "tcore.agamenew.caption" 518 msgid "New" 519 msgstr "" 520 521 #: tcore.agamenew.hint 522 msgctxt "tcore.agamenew.hint" 523 msgid "New game" 524 msgstr "" 525 526 #: tcore.agamerestart.caption 527 msgid "Restart" 528 msgstr "" 529 530 #: tcore.agamerestart.hint 531 msgid "Restart game" 532 msgstr "" 533 534 #: tcore.agamesave.caption 535 msgctxt "tcore.agamesave.caption" 536 msgid "Save" 537 msgstr "" 538 539 #: tcore.agamesaveas.caption 540 msgid "Save as..." 541 msgstr "" 542 543 #: tcore.ahelp.caption 544 msgctxt "tcore.ahelp.caption" 545 msgid "Help" 546 msgstr "" 547 548 #: tcore.anewspectatorclient.caption 549 msgid "New spectator client" 550 msgstr "" 551 552 #: tcore.aplayersstats.caption 553 msgid "Players statistics" 554 msgstr "" 555 556 #: tcore.applicationinfo.description 557 msgid "A turn-based strategy game inspired by classic Risk board game. The game is highly configurable to allow to adjust battle field and game rules." 558 msgstr "" 559 560 #: tcore.asettings.caption 561 msgctxt "tcore.asettings.caption" 562 msgid "Settings" 563 msgstr "" 564 565 #: tcore.asettings.hint 566 msgid "Application settings" 567 msgstr "" 568 569 #: tcore.ashowcharts.caption 570 msgctxt "tcore.ashowcharts.caption" 571 msgid "Charts" 572 msgstr "" 573 574 #: tcore.ashowkeyshortcuts.caption 575 msgctxt "tcore.ashowkeyshortcuts.caption" 576 msgid "Key shortcuts" 577 msgstr "" 578 579 #: tcore.ashowunitmoves.caption 580 msgctxt "tcore.ashowunitmoves.caption" 581 msgid "Unit moves" 582 msgstr "" 583 584 #: tcore.atogglefogofwar.caption 585 msgid "Toggle fog of war" 586 msgstr "" 587 588 #: tcore.savedialog1.title 589 msgid "Save as" 590 msgstr "" 591 592 #: tformcharts.caption 593 msgctxt "tformcharts.caption" 594 msgid "Charts" 595 msgstr "" 596 597 #: tformcharts.combobox1.text 598 msgctxt "tformcharts.combobox1.text" 599 msgid "Occupied cells" 600 msgstr "" 601 602 #: tformchat.buttonmessagesend.caption 603 msgid "Send" 604 msgstr "" 605 606 #: tformchat.caption 607 msgid "Chat" 608 msgstr "" 609 610 #: tformchat.label1.caption 611 msgid "Chat:" 612 msgstr "" 613 614 #: tformclient.agameendturn.caption 615 msgid "End turn" 616 msgstr "" 617 618 #: tformclient.astatusbarvisible.caption 619 msgid "Statusbar visible" 620 msgstr "" 621 622 #: tformclient.asurrender.caption 623 msgctxt "tformclient.asurrender.caption" 624 msgid "Surrender" 625 msgstr "" 626 627 #: tformclient.atoolbarbigicons.caption 628 msgctxt "tformclient.atoolbarbigicons.caption" 629 msgid "Toolbar big icons" 630 msgstr "" 631 632 #: tformclient.atoolbarvisible.caption 633 msgctxt "tformclient.atoolbarvisible.caption" 634 msgid "Toolbar visible" 635 msgstr "" 636 637 #: tformclient.azoomall.caption 638 msgctxt "tformclient.azoomall.caption" 639 msgid "Zoom all" 640 msgstr "" 641 642 #: tformclient.azoomin.caption 643 msgctxt "tformclient.azoomin.caption" 644 msgid "Zoom in" 645 msgstr "" 646 647 #: tformclient.azoomout.caption 648 msgctxt "tformclient.azoomout.caption" 649 msgid "Zoom out" 650 msgstr "" 651 652 #: tformclient.caption 653 msgid "Client" 654 msgstr "" 655 656 #: tformgamesystem.buttoncancel.caption 657 msgctxt "tformgamesystem.buttoncancel.caption" 658 msgid "Cancel" 659 msgstr "" 660 661 #: tformgamesystem.buttonload.caption 662 msgctxt "tformgamesystem.buttonload.caption" 663 msgid "Load" 664 msgstr "" 665 666 #: tformgamesystem.buttonok.caption 667 msgctxt "tformgamesystem.buttonok.caption" 668 msgid "OK" 669 msgstr "" 670 671 #: tformgamesystem.buttonsave.caption 672 msgctxt "tformgamesystem.buttonsave.caption" 673 msgid "Save" 674 msgstr "" 675 676 #: tformgamesystem.caption 677 msgctxt "tformgamesystem.caption" 678 msgid "Game system" 679 msgstr "" 680 681 #: tformgamesystem.checkboxemptycellsneutral.caption 682 msgid "Set cells without player units as neutral" 683 msgstr "" 684 685 #: tformgamesystem.checkboxunitsmoveimmediately.caption 686 msgid "Units move immediately" 687 msgstr "" 688 689 #: tformgamesystem.checkboxunitssplitmerge.caption 690 msgid "Units can split or merge" 691 msgstr "" 692 693 #: tformgamesystem.tabsheetbuildings.caption 694 msgid "Buildings" 695 msgstr "" 696 697 #: tformgamesystem.tabsheetgeneral.caption 698 msgctxt "tformgamesystem.tabsheetgeneral.caption" 699 msgid "General" 700 msgstr "" 701 702 #: tformgamesystem.tabsheetnations.caption 703 msgid "Nations" 704 msgstr "" 705 706 #: tformgamesystem.tabsheetunits.caption 707 msgctxt "tformgamesystem.tabsheetunits.caption" 708 msgid "Units" 709 msgstr "" 710 711 #: tformgamesystems.aadd.caption 712 msgctxt "tformgamesystems.aadd.caption" 713 msgid "Add" 714 msgstr "" 715 716 #: tformgamesystems.aclone.caption 717 msgctxt "tformgamesystems.aclone.caption" 718 msgid "Clone" 719 msgstr "" 720 721 #: tformgamesystems.amodify.caption 722 msgctxt "tformgamesystems.amodify.caption" 723 msgid "Modify" 724 msgstr "" 725 726 #: tformgamesystems.aremove.caption 727 msgctxt "tformgamesystems.aremove.caption" 728 msgid "Remove" 729 msgstr "" 730 731 #: tformgamesystems.aselectall.caption 732 msgctxt "tformgamesystems.aselectall.caption" 733 msgid "Select all" 734 msgstr "" 735 736 #: tformgamesystems.caption 737 msgid "Game systems" 738 msgstr "" 739 740 #: tformgamesystems.listview1.columns[0].caption 741 msgctxt "tformgamesystems.listview1.columns[0].caption" 742 msgid "Name" 743 msgstr "" 744 745 #: tformhelp.caption 746 msgctxt "tformhelp.caption" 747 msgid "Help" 748 msgstr "" 749 750 #: tformitem.buttoncancel.caption 751 msgctxt "tformitem.buttoncancel.caption" 752 msgid "Cancel" 753 msgstr "" 754 755 #: tformitem.buttonok.caption 756 msgctxt "tformitem.buttonok.caption" 757 msgid "OK" 758 msgstr "" 759 760 #: tformitem.caption 761 msgctxt "tformitem.caption" 762 msgid "Item" 763 msgstr "" 764 765 #: tformkeyshortcuts.caption 766 msgctxt "tformkeyshortcuts.caption" 767 msgid "Key shortcuts" 768 msgstr "" 769 770 #: tformkeyshortcuts.listview1.columns[0].caption 771 msgid "Action" 772 msgstr "" 773 774 #: tformkeyshortcuts.listview1.columns[1].caption 775 msgid "Window" 776 msgstr "" 777 778 #: tformkeyshortcuts.listview1.columns[2].caption 779 msgid "Shortcut" 780 msgstr "" 781 782 #: tformkeyshortcuts.menuitem1.caption 783 msgid "Execute" 784 msgstr "" 785 786 #: tformlist.aadd.caption 787 msgctxt "tformlist.aadd.caption" 788 msgid "Add" 789 msgstr "" 790 791 #: tformlist.aclone.caption 792 msgctxt "tformlist.aclone.caption" 793 msgid "Clone" 794 msgstr "" 795 796 #: tformlist.amodify.caption 797 msgctxt "tformlist.amodify.caption" 798 msgid "Modify" 799 msgstr "" 800 801 #: tformlist.aremove.caption 802 msgctxt "tformlist.aremove.caption" 803 msgid "Remove" 804 msgstr "" 805 806 #: tformlist.aselectall.caption 807 msgctxt "tformlist.aselectall.caption" 808 msgid "Select all" 809 msgstr "" 810 811 #: tformlist.caption 812 msgid "List" 813 msgstr "" 814 815 #: tformlist.listview1.columns[0].caption 816 msgctxt "tformlist.listview1.columns[0].caption" 817 msgid "Name" 818 msgstr "" 819 820 #: tformmain.amapgridvisible.caption 821 msgid "Map grid visible" 822 msgstr "" 823 824 #: tformmain.astatusbarvisible.caption 825 msgid "Status bar visible" 826 msgstr "" 827 828 #: tformmain.atoolbarbigicons.caption 829 msgctxt "tformmain.atoolbarbigicons.caption" 830 msgid "Toolbar big icons" 831 msgstr "" 832 833 #: tformmain.atoolbarvisible.caption 834 msgctxt "tformmain.atoolbarvisible.caption" 835 msgid "Toolbar visible" 836 msgstr "" 837 838 #: tformmain.aunitshapevisible.caption 839 msgid "Unit shape visible" 840 msgstr "" 841 842 #: tformmain.caption 843 msgid "xTactics" 844 msgstr "" 845 846 #: tformmain.menuitem1.caption 847 msgid "Game" 848 msgstr "" 849 850 #: tformmain.menuitem10.caption 851 msgid "View" 852 msgstr "" 853 854 #: tformmain.menuitem11.caption 855 msgctxt "tformmain.menuitem11.caption" 856 msgid "Zoom all" 857 msgstr "" 858 859 #: tformmain.menuitem12.caption 860 msgctxt "tformmain.menuitem12.caption" 861 msgid "Zoom in" 862 msgstr "" 863 864 #: tformmain.menuitem13.caption 865 msgctxt "tformmain.menuitem13.caption" 866 msgid "Zoom out" 867 msgstr "" 868 869 #: tformmain.menuitem16.caption 870 msgctxt "tformmain.menuitem16.caption" 871 msgid "Help" 872 msgstr "" 873 874 #: tformmain.menuitem8.caption 875 msgid "Tools" 876 msgstr "" 877 878 #: tformmain.menuitemdebug.caption 879 msgctxt "tformmain.menuitemdebug.caption" 880 msgid "Debug" 881 msgstr "" 882 883 #: tformmain.menuitemloadrecent.caption 884 msgid "Load recent" 885 msgstr "" 886 887 #: tformmove.buttoncancel.caption 888 msgctxt "tformmove.buttoncancel.caption" 889 msgid "Cancel" 890 msgstr "" 891 892 #: tformmove.buttonok.caption 893 msgctxt "tformmove.buttonok.caption" 894 msgid "Ok" 895 msgstr "" 896 897 #: tformmove.buttononcemax.caption 898 msgctxt "tformmove.buttononcemax.caption" 899 msgid "Max" 900 msgstr "" 901 902 #: tformmove.buttononcemin.caption 903 msgctxt "tformmove.buttononcemin.caption" 904 msgid "Min" 905 msgstr "" 906 907 #: tformmove.buttonremove.caption 908 msgid "Delete" 909 msgstr "" 910 911 #: tformmove.buttonrepeatmax.caption 912 msgctxt "tformmove.buttonrepeatmax.caption" 913 msgid "Max" 914 msgstr "" 915 916 #: tformmove.buttonrepeatmin.caption 917 msgctxt "tformmove.buttonrepeatmin.caption" 918 msgid "Min" 919 msgstr "" 920 921 #: tformmove.caption 922 msgid "Move" 923 msgstr "" 924 925 #: tformmove.label1.caption 926 msgid "Once:" 927 msgstr "" 928 929 #: tformmove.label2.caption 930 msgid "Every turn:" 931 msgstr "" 932 933 #: tformmove.label3.caption 934 msgid "Win probability:" 935 msgstr "" 936 937 #: tformmove.labelwinprobability.caption 938 msgid " " 939 msgstr "" 940 941 #: tformnew.aserveradd.caption 942 msgctxt "tformnew.aserveradd.caption" 943 msgid "Add" 944 msgstr "" 945 946 #: tformnew.aservermodify.caption 947 msgctxt "tformnew.aservermodify.caption" 948 msgid "Modify" 949 msgstr "" 950 951 #: tformnew.aserverremove.caption 952 msgctxt "tformnew.aserverremove.caption" 953 msgid "Remove" 954 msgstr "" 955 956 #: tformnew.buttoncancel.caption 957 msgctxt "tformnew.buttoncancel.caption" 958 msgid "Cancel" 959 msgstr "" 960 961 #: tformnew.buttongamesystems.caption 962 msgid "Manage" 963 msgstr "" 964 965 #: tformnew.buttonimagebrowse.caption 966 msgid "Browse" 967 msgstr "" 968 969 #: tformnew.buttonok.caption 970 msgctxt "tformnew.buttonok.caption" 971 msgid "Ok" 972 msgstr "" 973 974 #: tformnew.buttonrandomize.caption 975 msgid "Randomize" 976 msgstr "" 977 978 #: tformnew.caption 979 msgctxt "tformnew.caption" 980 msgid "New game" 981 msgstr "" 982 983 #: tformnew.checkboxbridges.caption 984 msgid "Bridges between cells" 985 msgstr "" 986 987 #: tformnew.checkboxcity.caption 988 msgctxt "tformnew.checkboxcity.caption" 989 msgid "Cities" 990 msgstr "" 991 992 #: tformnew.checkboxcyclicmap.caption 993 msgid "Cyclic map" 994 msgstr "" 995 996 #: tformnew.checkboxfogofwar.caption 997 msgid "Fog of war" 998 msgstr "" 999 1000 #: tformnew.checkboxsymetricmap.caption 1001 msgid "Symetric map" 1002 msgstr "" 1003 1004 #: tformnew.checkboxvoid.caption 1005 msgid "Inaccessible places" 1006 msgstr "" 1007 1008 #: tformnew.label1.caption 1009 msgid "Map width:" 1010 msgstr "" 1011 1012 #: tformnew.label10.caption 1013 msgid "Max units per cell:" 1014 msgstr "" 1015 1016 #: tformnew.label11.caption 1017 msgctxt "tformnew.label11.caption" 1018 msgid "Port:" 1019 msgstr "" 1020 1021 #: tformnew.label12.caption 1022 msgctxt "tformnew.label12.caption" 1023 msgid "Address:" 1024 msgstr "" 1025 1026 #: tformnew.label13.caption 1027 msgid "Number of turns:" 1028 msgstr "" 1029 1030 #: tformnew.label14.caption 1031 msgid "Special cells count:" 1032 msgstr "" 1033 1034 #: tformnew.label15.caption 1035 msgid "Preview:" 1036 msgstr "" 1037 1038 #: tformnew.label16.caption 1039 msgid "Game system:" 1040 msgstr "" 1041 1042 #: tformnew.label2.caption 1043 msgid "Map height:" 1044 msgstr "" 1045 1046 #: tformnew.label3.caption 1047 msgctxt "tformnew.label3.caption" 1048 msgid "%" 1049 msgstr "" 1050 1051 #: tformnew.label4.caption 1052 msgctxt "tformnew.label4.caption" 1053 msgid "%" 1054 msgstr "" 1055 1056 #: tformnew.label5.caption 1057 msgid "Grid type:" 1058 msgstr "" 1059 1060 #: tformnew.label6.caption 1061 msgid "Win objective:" 1062 msgstr "" 1063 1064 #: tformnew.label7.caption 1065 msgid "Max random neutral units:" 1066 msgstr "" 1067 1068 #: tformnew.label8.caption 1069 msgid "Map shape:" 1070 msgstr "" 1071 1072 #: tformnew.label9.caption 1073 msgid "Image file:" 1074 msgstr "" 1075 1076 #: tformnew.listviewservers.columns[0].caption 1077 msgctxt "tformnew.listviewservers.columns[0].caption" 1078 msgid "Name" 1079 msgstr "" 1080 1081 #: tformnew.listviewservers.columns[1].caption 1082 msgid "Address" 1083 msgstr "" 1084 1085 #: tformnew.radiobuttonmodelocal.caption 1086 msgid "Local" 1087 msgstr "" 1088 1089 #: tformnew.radiobuttonmodenetworkclient.caption 1090 msgid "Network client" 1091 msgstr "" 1092 1093 #: tformnew.radiobuttonmodenetworkserver.caption 1094 msgid "Network server" 1095 msgstr "" 1096 1097 #: tformnew.radiogroupgrowamount.caption 1098 msgid "Per turn grow amount" 1099 msgstr "" 1100 1101 #: tformnew.radiogroupgrowcells.caption 1102 msgid "Growing cells" 1103 msgstr "" 1104 1105 #: tformnew.tabsheetmap.caption 1106 msgid "Map" 1107 msgstr "" 1108 1109 #: tformnew.tabsheetmode.caption 1110 msgctxt "tformnew.tabsheetmode.caption" 1111 msgid "Mode" 1112 msgstr "" 1113 1114 #: tformnew.tabsheetplayers.caption 1115 msgid "Players" 1116 msgstr "" 1117 1118 #: tformnew.tabsheetrules.caption 1119 msgid "Rules" 1120 msgstr "" 1121 1122 #: tformplayersstats.aspectate.caption 1123 msgid "Spectate" 1124 msgstr "" 1125 1126 #: tformplayersstats.caption 1127 msgid "Players stats" 1128 msgstr "" 1129 1130 #: tformplayersstats.listview1.columns[0].caption 1131 msgctxt "tformplayersstats.listview1.columns[0].caption" 1132 msgid "Name" 1133 msgstr "" 1134 1135 #: tformplayersstats.listview1.columns[1].caption 1136 msgctxt "tformplayersstats.listview1.columns[1].caption" 1137 msgid "Mode" 1138 msgstr "" 1139 1140 #: tformplayersstats.listview1.columns[2].caption 1141 msgid "Cells" 1142 msgstr "" 1143 1144 #: tformplayersstats.listview1.columns[3].caption 1145 msgid "Discovered" 1146 msgstr "" 1147 1148 #: tformplayersstats.listview1.columns[4].caption 1149 msgctxt "tformplayersstats.listview1.columns[4].caption" 1150 msgid "Cities" 1151 msgstr "" 1152 1153 #: tformplayersstats.listview1.columns[5].caption 1154 msgctxt "tformplayersstats.listview1.columns[5].caption" 1155 msgid "Units" 1156 msgstr "" 1157 1158 #: tformplayersstats.listview1.columns[6].caption 1159 msgctxt "tformplayersstats.listview1.columns[6].caption" 1160 msgid "Win objective cells" 1161 msgstr "" 1162 1163 #: tformserver.buttoncancel.caption 1164 msgctxt "tformserver.buttoncancel.caption" 1165 msgid "Cancel" 1166 msgstr "" 1167 1168 #: tformserver.buttonok.caption 1169 msgctxt "tformserver.buttonok.caption" 1170 msgid "OK" 1171 msgstr "" 1172 1173 #: tformserver.caption 1174 msgid "Server" 1175 msgstr "" 1176 1177 #: tformserver.label1.caption 1178 msgid "Name:" 1179 msgstr "" 1180 1181 #: tformserver.label2.caption 1182 msgctxt "tformserver.label2.caption" 1183 msgid "Address:" 1184 msgstr "" 1185 1186 #: tformserver.label3.caption 1187 msgctxt "tformserver.label3.caption" 1188 msgid "Port:" 1189 msgstr "" 1190 1191 #: tformsettings.buttoncancel.caption 1192 msgctxt "tformsettings.buttoncancel.caption" 1193 msgid "Cancel" 1194 msgstr "" 1195 1196 #: tformsettings.buttonok.caption 1197 msgctxt "tformsettings.buttonok.caption" 1198 msgid "Ok" 1199 msgstr "" 1200 1201 #: tformsettings.caption 1202 msgctxt "tformsettings.caption" 1203 msgid "Settings" 1204 msgstr "" 1205 1206 #: tformsettings.checkbox2.caption 1207 msgid "Automatic DPI" 1208 msgstr "" 1209 1210 #: tformsettings.checkboxautosaveturn.caption 1211 msgid "Autosave game on each turn" 1212 msgstr "" 1213 1214 #: tformsettings.checkboxdevelmode.caption 1215 msgid "Developer mode" 1216 msgstr "" 1217 1218 #: tformsettings.checkboxreopenlastfile.caption 1219 msgid "Reopen last game on start" 1220 msgstr "" 1221 1222 #: tformsettings.label1.caption 1223 msgid "Language:" 1224 msgstr "" 1225 1226 #: tformsettings.label2.caption 1227 msgid "Animation speed:" 1228 msgstr "" 1229 1230 #: tformsettings.label3.caption 1231 msgctxt "tformsettings.label3.caption" 1232 msgid "%" 1233 msgstr "" 1234 1235 #: tformsettings.label4.caption 1236 msgid "DPI:" 1237 msgstr "" 1238 1239 #: tformsettings.label5.caption 1240 msgid "x" 1241 msgstr "" 1242 1243 #: tformsettings.label6.caption 1244 msgid "Theme:" 1245 msgstr "" 1246 1247 #: tformsettings.tabsheetdebug.caption 1248 msgctxt "tformsettings.tabsheetdebug.caption" 1249 msgid "Debug" 1250 msgstr "" 1251 1252 #: tformsettings.tabsheetgeneral.caption 1253 msgctxt "tformsettings.tabsheetgeneral.caption" 1254 msgid "General" 1255 msgstr "" 1256 1257 #: tformunitmoves.caption 1258 msgctxt "tformunitmoves.caption" 1259 msgid "Unit moves" 1260 msgstr "" 1261 1262 #: tformunitmoves.listview1.columns[0].caption 1263 msgid "From cell" 1264 msgstr "" 1265 1266 #: tformunitmoves.listview1.columns[1].caption 1267 msgid "To cell" 1268 msgstr "" 1269 1270 #: tformunitmoves.listview1.columns[2].caption 1271 msgid "Once count" 1272 msgstr "" 1273 1274 #: tformunitmoves.listview1.columns[3].caption 1275 msgid "Repeat count" 1276 msgstr "" 1277 1278 #: unit.scost 1279 msgctxt "unit.scost" 1210 1280 msgid "Cost" 1211 1281 msgstr "" 1212 1282 1213 #: uunit.smoves 1283 #: unit.smoves 1284 msgctxt "unit.smoves" 1214 1285 msgid "Moves" 1215 1286 msgstr "" 1216 1287 1217 #: uunit.spowerattack 1288 #: unit.spowerattack 1289 msgctxt "unit.spowerattack" 1218 1290 msgid "Attack power" 1219 1291 msgstr "" 1220 1292 1221 #: uunit.spowerdefense 1293 #: unit.spowerdefense 1294 msgctxt "unit.spowerdefense" 1222 1295 msgid "Defense power" 1223 1296 msgstr "" 1224 1297 1225 #: uunit.sstack 1298 #: unit.sstack 1299 msgctxt "unit.sstack" 1226 1300 msgid "Stack" 1227 1301 msgstr "" 1228 1302 1229 #: uunit.sunitkind 1303 #: unit.sunitkind 1304 msgctxt "unit.sunitkind" 1230 1305 msgid "Unit kind" 1231 1306 msgstr "" 1232 1307 1233 #: uunit.sviewrange 1308 #: unit.sviewrange 1309 msgctxt "unit.sviewrange" 1234 1310 msgid "View range" 1235 1311 msgstr "" -
trunk/Map.pas
r316 r317 1 unit UMap;1 unit Map; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, Graphics, ExtCtrls, UGeometry, DOM, Generics.Collections,7 Generics.Defaults, UBuilding, XML, UUnit;6 Classes, SysUtils, Graphics, ExtCtrls, Geometry, DOM, Generics.Collections, 7 Generics.Defaults, Building, XML, &Unit; 8 8 9 9 const … … 196 196 197 197 uses 198 UPlayer, UGame;198 Player, Game; 199 199 200 200 { TCellLink } -
trunk/MapType.pas
r316 r317 1 unit UMapType;1 unit MapType; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, XMLRead, XMLWrite, DOM, UGeometry, UMap;6 Classes, SysUtils, XMLRead, XMLWrite, DOM, Geometry, Map; 7 7 8 8 type -
trunk/Nation.pas
r316 r317 1 unit UNation;1 unit Nation; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, Graphics, UItemList;6 Classes, SysUtils, Graphics, ItemList; 7 7 8 8 type -
trunk/Packages/Common/JobProgressView.pas
r315 r317 339 339 Caption := SPleaseWait + STerminate; 340 340 end; 341 342 341 343 342 { TJobProgressView } -
trunk/Packages/PinConnection/CommFrame.pas
r316 r317 1 unit UCommFrame; 2 3 {$mode Delphi}{$H+} 1 unit CommFrame; 4 2 5 3 interface … … 7 5 uses 8 6 Classes, Dialogs, SysUtils, SpecializedList, UBinarySerializer, 9 UCommPin;7 CommPin; 10 8 11 9 type -
trunk/Packages/PinConnection/CommPin.pas
r316 r317 1 unit UCommPin; 2 3 {$mode Delphi}{$H+}{$M+} 1 unit CommPin; 4 2 5 3 interface … … 75 73 destructor Destroy; override; 76 74 end; 75 77 76 78 77 implementation -
trunk/Packages/PinConnection/CommThread.pas
r316 r317 1 unit UCommThread; 2 3 {$mode Delphi}{$H+} 1 unit CommThread; 4 2 5 3 interface 6 4 7 5 uses 8 Classes, SysUtils, UCommPin, SyncObjs, Common,6 Classes, SysUtils, CommPin, SyncObjs, Common, 9 7 DateUtils, Threading, SpecializedList, UBinarySerializer; 10 8 … … 49 47 destructor Destroy; override; 50 48 end; 49 51 50 52 51 implementation -
trunk/Player.pas
r316 r317 1 unit UPlayer;1 unit Player; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, Graphics, UMap, DOM, Generics.Collections, Generics.Defaults,7 XMLConf, XML, Math, UGeometry, UUnit, UNation, UItemList;6 Classes, SysUtils, Graphics, Map, DOM, Generics.Collections, Generics.Defaults, 7 XMLConf, XML, Math, Geometry, &Unit, Nation, ItemList; 8 8 9 9 type … … 205 205 206 206 uses 207 UGame, UGameSystem, UBuilding;207 Game, GameSystem, Building; 208 208 209 209 resourcestring … … 1030 1030 begin 1031 1031 for I := 0 to PlayerMap.Cells.Count - 1 do 1032 with TPlayerCell(PlayerMap.Cells[I])do begin1032 with PlayerMap.Cells[I] do begin 1033 1033 if Assigned(MapCell.OneUnit) and (MapCell.OneUnit.Power = 0) then begin 1034 1034 OneUnit := MapCell.OneUnit; … … 1044 1044 begin 1045 1045 for I := 0 to Units.Count - 1 do 1046 TUnit(Units[I]).Moves := TUnit(Units[I]).Kind.Moves;1046 Units[I].Moves := Units[I].Kind.Moves; 1047 1047 end; 1048 1048 … … 1356 1356 NewNode := Node.OwnerDocument.CreateElement('TurnStat'); 1357 1357 Node.AppendChild(NewNode); 1358 TGameTurnStat(Items[I]).SaveToNode(NewNode); 1359 end; 1360 end; 1361 1358 Items[I].SaveToNode(NewNode); 1359 end; 1360 end; 1362 1361 1363 1362 end. -
trunk/ServerList.pas
r316 r317 1 unit UServerList;1 unit ServerList; 2 2 3 3 interface … … 43 43 44 44 uses 45 UGameServer;45 GameServer; 46 46 47 47 { TServerInfo } -
trunk/TCP.pas
r316 r317 1 unit UTCP;1 unit TCP; 2 2 3 3 interface -
trunk/Unit.pas
r316 r317 1 unit UUnit;1 unit &Unit; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, Generics.Collections, UGeometry, DOM, XML, UItemList;6 Classes, SysUtils, Generics.Collections, Geometry, DOM, XML, ItemList; 7 7 8 8 type … … 79 79 80 80 uses 81 UPlayer, UMap, UGame;81 Player, Map, Game; 82 82 83 83 resourcestring … … 90 90 SUnitKind = 'Unit kind'; 91 91 92 93 92 { TUnitKind } 94 93 -
trunk/xtactics.lpi
r315 r317 115 115 </Unit0> 116 116 <Unit1> 117 <Filename Value=" UGame.pas"/>117 <Filename Value="Game.pas"/> 118 118 <IsPartOfProject Value="True"/> 119 119 </Unit1> 120 120 <Unit2> 121 <Filename Value=" UCore.pas"/>121 <Filename Value="Core.pas"/> 122 122 <IsPartOfProject Value="True"/> 123 123 <ComponentName Value="Core"/> … … 126 126 </Unit2> 127 127 <Unit3> 128 <Filename Value="Forms/ UFormSettings.pas"/>128 <Filename Value="Forms/FormSettings.pas"/> 129 129 <IsPartOfProject Value="True"/> 130 130 <ComponentName Value="FormSettings"/> … … 133 133 </Unit3> 134 134 <Unit4> 135 <Filename Value="Forms/ UFormMain.pas"/>135 <Filename Value="Forms/FormMain.pas"/> 136 136 <IsPartOfProject Value="True"/> 137 137 <ComponentName Value="FormMain"/> … … 140 140 </Unit4> 141 141 <Unit5> 142 <Filename Value="Forms/ UFormMove.pas"/>142 <Filename Value="Forms/FormMove.pas"/> 143 143 <IsPartOfProject Value="True"/> 144 144 <ComponentName Value="FormMove"/> … … 147 147 </Unit5> 148 148 <Unit6> 149 <Filename Value="Forms/ UFormNew.pas"/>149 <Filename Value="Forms/FormNew.pas"/> 150 150 <IsPartOfProject Value="True"/> 151 151 <ComponentName Value="FormNew"/> … … 154 154 </Unit6> 155 155 <Unit7> 156 <Filename Value="Forms/ UFormHelp.pas"/>156 <Filename Value="Forms/FormHelp.pas"/> 157 157 <IsPartOfProject Value="True"/> 158 158 <ComponentName Value="FormHelp"/> … … 161 161 </Unit7> 162 162 <Unit8> 163 <Filename Value="Forms/ UFormCharts.pas"/>163 <Filename Value="Forms/FormCharts.pas"/> 164 164 <IsPartOfProject Value="True"/> 165 165 <ComponentName Value="FormCharts"/> … … 168 168 </Unit8> 169 169 <Unit9> 170 <Filename Value="Forms/ UFormUnitMoves.pas"/>170 <Filename Value="Forms/FormUnitMoves.pas"/> 171 171 <IsPartOfProject Value="True"/> 172 172 <ComponentName Value="FormUnitMoves"/> … … 175 175 </Unit9> 176 176 <Unit10> 177 <Filename Value="Forms/ UFormChat.pas"/>177 <Filename Value="Forms/FormChat.pas"/> 178 178 <IsPartOfProject Value="True"/> 179 179 <ComponentName Value="FormChat"/> … … 182 182 </Unit10> 183 183 <Unit11> 184 <Filename Value=" UTCP.pas"/>184 <Filename Value="TCP.pas"/> 185 185 <IsPartOfProject Value="True"/> 186 186 </Unit11> 187 187 <Unit12> 188 <Filename Value=" UServerList.pas"/>188 <Filename Value="ServerList.pas"/> 189 189 <IsPartOfProject Value="True"/> 190 190 </Unit12> 191 191 <Unit13> 192 <Filename Value="Forms/ UFormClient.pas"/>192 <Filename Value="Forms/FormClient.pas"/> 193 193 <IsPartOfProject Value="True"/> 194 194 <ComponentName Value="FormClient"/> … … 197 197 </Unit13> 198 198 <Unit14> 199 <Filename Value="Forms/ UFormPlayersStats.pas"/>199 <Filename Value="Forms/FormPlayersStats.pas"/> 200 200 <IsPartOfProject Value="True"/> 201 201 <ComponentName Value="FormPlayersStats"/> … … 204 204 </Unit14> 205 205 <Unit15> 206 <Filename Value=" UGameServer.pas"/>206 <Filename Value="GameServer.pas"/> 207 207 <IsPartOfProject Value="True"/> 208 208 </Unit15> 209 209 <Unit16> 210 <Filename Value=" UGameClient.pas"/>210 <Filename Value="GameClient.pas"/> 211 211 <IsPartOfProject Value="True"/> 212 212 </Unit16> 213 213 <Unit17> 214 <Filename Value=" UGameProtocol.pas"/>214 <Filename Value="GameProtocol.pas"/> 215 215 <IsPartOfProject Value="True"/> 216 216 </Unit17> 217 217 <Unit18> 218 <Filename Value="Packages/PinConnection/ UCommPin.pas"/>218 <Filename Value="Packages/PinConnection/CommPin.pas"/> 219 219 <IsPartOfProject Value="True"/> 220 220 </Unit18> 221 221 <Unit19> 222 <Filename Value=" UGeometry.pas"/>222 <Filename Value="Geometry.pas"/> 223 223 <IsPartOfProject Value="True"/> 224 224 </Unit19> 225 225 <Unit20> 226 <Filename Value=" UGeometryClasses.pas"/>226 <Filename Value="GeometryClasses.pas"/> 227 227 <IsPartOfProject Value="True"/> 228 228 </Unit20> 229 229 <Unit21> 230 <Filename Value="Forms/ UFormServer.pas"/>230 <Filename Value="Forms/FormServer.pas"/> 231 231 <IsPartOfProject Value="True"/> 232 232 <ComponentName Value="FormServer"/> … … 235 235 </Unit21> 236 236 <Unit22> 237 <Filename Value=" UClientAI.pas"/>237 <Filename Value="ClientAI.pas"/> 238 238 <IsPartOfProject Value="True"/> 239 239 </Unit22> 240 240 <Unit23> 241 <Filename Value=" UGameConnection.pas"/>241 <Filename Value="GameConnection.pas"/> 242 242 <IsPartOfProject Value="True"/> 243 243 </Unit23> 244 244 <Unit24> 245 <Filename Value="Packages/PinConnection/ UCommThread.pas"/>245 <Filename Value="Packages/PinConnection/CommThread.pas"/> 246 246 <IsPartOfProject Value="True"/> 247 247 </Unit24> 248 248 <Unit25> 249 <Filename Value="Forms/ UFormKeyShortcuts.pas"/>249 <Filename Value="Forms/FormKeyShortcuts.pas"/> 250 250 <IsPartOfProject Value="True"/> 251 251 <ComponentName Value="FormKeyShortcuts"/> … … 254 254 </Unit25> 255 255 <Unit26> 256 <Filename Value="Packages/PinConnection/ UCommFrame.pas"/>256 <Filename Value="Packages/PinConnection/CommFrame.pas"/> 257 257 <IsPartOfProject Value="True"/> 258 258 </Unit26> 259 259 <Unit27> 260 <Filename Value=" UMapType.pas"/>260 <Filename Value="MapType.pas"/> 261 261 <IsPartOfProject Value="True"/> 262 262 </Unit27> 263 263 <Unit28> 264 <Filename Value=" UMap.pas"/>264 <Filename Value="Map.pas"/> 265 265 <IsPartOfProject Value="True"/> 266 266 </Unit28> 267 267 <Unit29> 268 <Filename Value=" UPlayer.pas"/>268 <Filename Value="Player.pas"/> 269 269 <IsPartOfProject Value="True"/> 270 270 </Unit29> 271 271 <Unit30> 272 <Filename Value=" UClientGUI.pas"/>272 <Filename Value="ClientGUI.pas"/> 273 273 <IsPartOfProject Value="True"/> 274 274 </Unit30> 275 275 <Unit31> 276 <Filename Value="UUnit.pas"/> 277 <IsPartOfProject Value="True"/> 276 <Filename Value="Unit.pas"/> 277 <IsPartOfProject Value="True"/> 278 <UnitName Value="&Unit"/> 278 279 </Unit31> 279 280 <Unit32> 280 <Filename Value=" UGameSystem.pas"/>281 <Filename Value="GameSystem.pas"/> 281 282 <IsPartOfProject Value="True"/> 282 283 </Unit32> 283 284 <Unit33> 284 <Filename Value=" UBuilding.pas"/>285 <Filename Value="Building.pas"/> 285 286 <IsPartOfProject Value="True"/> 286 287 </Unit33> 287 288 <Unit34> 288 <Filename Value="Forms/ UFormGameSystem.pas"/>289 <Filename Value="Forms/FormGameSystem.pas"/> 289 290 <IsPartOfProject Value="True"/> 290 291 <ComponentName Value="FormGameSystem"/> … … 293 294 </Unit34> 294 295 <Unit35> 295 <Filename Value="Forms/ UFormGameSystems.pas"/>296 <Filename Value="Forms/FormGameSystems.pas"/> 296 297 <IsPartOfProject Value="True"/> 297 298 <ComponentName Value="FormGameSystems"/> … … 300 301 </Unit35> 301 302 <Unit36> 302 <Filename Value=" UNation.pas"/>303 <Filename Value="Nation.pas"/> 303 304 <IsPartOfProject Value="True"/> 304 305 </Unit36> 305 306 <Unit37> 306 <Filename Value=" UItemList.pas"/>307 <Filename Value="ItemList.pas"/> 307 308 <IsPartOfProject Value="True"/> 308 309 </Unit37> 309 310 <Unit38> 310 <Filename Value="Forms/ UFormList.pas"/>311 <Filename Value="Forms/FormList.pas"/> 311 312 <IsPartOfProject Value="True"/> 312 313 <ComponentName Value="FormList"/> … … 315 316 </Unit38> 316 317 <Unit39> 317 <Filename Value="Forms/ UFormItem.pas"/>318 <Filename Value="Forms/FormItem.pas"/> 318 319 <IsPartOfProject Value="True"/> 319 320 <ComponentName Value="FormItem"/> -
trunk/xtactics.lpr
r316 r317 8 8 {$ENDIF} 9 9 Interfaces, // this includes the LCL widgetset 10 Forms, tachartlazaruspkg, UGame, UCore, Common,10 Forms, tachartlazaruspkg, Game, Core, Common, 11 11 TemplateGenerics 12 12 { you can add units after this }, 13 SysUtils, UFormMain, CoolStreaming;13 SysUtils, FormMain, CoolStreaming; 14 14 15 15 {$R *.res} … … 31 31 Application.Scaled:=True; 32 32 Application.Initialize; 33 Application.CreateForm(TCore, Core); 34 Application.CreateForm(TFormMain, FormMain); 33 Application.CreateForm(TCore, Core.Core); 35 34 Application.Run; 36 35 end.
Note:
See TracChangeset
for help on using the changeset viewer.