Changeset 317


Ignore:
Timestamp:
Jun 21, 2024, 12:44:53 PM (5 months ago)
Author:
chronos
Message:
  • Modified: Remove U prefix from unit names.
  • Modified: Use TFormEx for all forms for code simplification.
Location:
trunk
Files:
8 added
10 deleted
5 edited
65 moved

Legend:

Unmodified
Added
Removed
  • trunk/Building.pas

    r316 r317  
    1 unit UBuilding;
     1unit Building;
    22
    33interface
    44
    55uses
    6   Classes, SysUtils, UItemList;
     6  Classes, SysUtils, ItemList;
    77
    88type
     
    6666
    6767uses
    68   UMap;
     68  Map;
    6969
    7070{ TBuildings }
  • trunk/ClientAI.pas

    r316 r317  
    1 unit UClientAI;
     1unit ClientAI;
    22
    33interface
    44
    55uses
    6   Classes, SysUtils, UGameClient, UGame, Math, UPlayer, UMap, Generics.Defaults;
     6  Classes, SysUtils, GameClient, Game, Math, Player, Map, Generics.Defaults;
    77
    88type
  • trunk/ClientGUI.pas

    r316 r317  
    1 unit UClientGUI;
     1unit ClientGUI;
    22
    33interface
    44
    55uses
    6   Types, Classes, SysUtils, Graphics, UGameClient, UPlayer, UMap, UGame, UGeometry,
     6  Types, Classes, SysUtils, Graphics, GameClient, Player, Map, Game, Geometry,
    77  Math;
    88
     
    7070
    7171uses
    72   UBuilding;
     72  Building;
    7373
    7474resourcestring
  • trunk/Core.lfm

    r316 r317  
    327327    }
    328328  end
    329   object CoolTranslator1: TTranslator
     329  object Translator1: TTranslator
    330330    POFilesFolder = 'Languages'
    331     OnTranslate = CoolTranslator1Translate
     331    OnTranslate = Translator1Translate
    332332    Left = 137
    333333    Top = 436
     
    12971297  end
    12981298  object SaveDialog1: TSaveDialog
     1299    Title = 'Save as'
    12991300    DefaultExt = '.xtmap'
    13001301    Left = 1126
     
    18371838    Top = 180
    18381839  end
    1839   object PersistentForm: TPersistentForm
     1840  object PersistentForm1: TPersistentForm
    18401841    MinVisiblePart = 50
    18411842    EntireVisible = False
  • trunk/Core.lrj

    r316 r317  
    2222{"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"},
    2323{"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"},
    2425{"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."}
    2526]}
  • trunk/Core.pas

    r316 r317  
    1 unit UCore;
     1unit Core;
    22
    33interface
     
    55uses
    66  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;
    1111
    1212type
     
    3434    AGameNew: TAction;
    3535    AGameRestart: TAction;
    36     CoolTranslator1: TTranslator;
     36    Translator1: TTranslator;
    3737    ImageListLarge: TImageList;
    3838    ImageListSmall: TImageList;
    3939    LastOpenedList1: TLastOpenedList;
    4040    OpenDialog1: TOpenDialog;
    41     PersistentForm: TPersistentForm;
     41    PersistentForm1: TPersistentForm;
    4242    SaveDialog1: TSaveDialog;
    4343    ScaleDPI1: TScaleDPI;
     
    6161    procedure AShowUnitMovesExecute(Sender: TObject);
    6262    procedure AToggleFogOfWarExecute(Sender: TObject);
    63     procedure CoolTranslator1Translate(Sender: TObject);
     63    procedure Translator1Translate(Sender: TObject);
    6464    procedure DataModuleCreate(Sender: TObject);
    6565    procedure DataModuleDestroy(Sender: TObject);
     
    9999    AutoSaveEnabled: Boolean;
    100100    ReopenLastFile: Boolean;
    101     FormClients: TObjectList<TFormClient>;
     101    FormClients: TFormClients;
    102102    LocalClients: TClients;
    103103    ServerList: TServerList;
    104104    GameSystems: TGameSystems;
     105    FormMain: TFormMain;
    105106    procedure ReopenGameOnInit;
    106107    procedure LoadConfig;
     
    128129
    129130uses
    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;
    132133
    133134const
     
    145146  SMissingServerClientForPlayer = 'Server client for current player not found.';
    146147
     148procedure Translate;
     149begin
     150  Game.InitStrings;
     151end;
    147152
    148153{ TCore }
     
    196201begin
    197202  RegistryContext := TRegistryContext.Create(HKEY_CURRENT_USER, DefaultRegKey);
    198   PersistentForm.RegistryContext := RegistryContext;
     203  PersistentForm1.RegistryContext := RegistryContext;
    199204  XMLConfig1.Filename := GetAppConfigDir(False) + 'Config.xml';
    200205
     
    205210  AutoSaveEnabled := XMLConfig1.GetValue('AutoSave', True);
    206211  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', '')));
    208213  ScaleDPI1.DPI := Point(XMLConfig1.GetValue('DPIX', 96), XMLConfig1.GetValue('DPIY', 96));
    209214  ScaleDPI1.AutoDetect := XMLConfig1.GetValue('DPIAuto', True);
     
    215220procedure TCore.SaveConfig;
    216221begin
    217   XMLConfig1.SetValue('Language', WideString(CoolTranslator1.Language.Code));
     222  XMLConfig1.SetValue('Language', WideString(Translator1.Language.Code));
    218223  XMLConfig1.SetValue('Theme', WideString(ThemeManager1.Theme.Name));
    219224  LastOpenedList1.SaveToXMLConfig(XMLConfig1, 'RecentFiles');
     
    277282begin
    278283  FirstHuman := Game.Players.GetFirstHuman;
    279   if Assigned(FirstHuman) then FormClient.Client := TClientGUI(LocalClients.SearchPlayer(FirstHuman))
     284  if Assigned(FirstHuman) then FormMain.FormClient.Client := TClientGUI(LocalClients.SearchPlayer(FirstHuman))
    280285    else begin
    281       FormClient.Client := TClientGUI(LocalClients.New(SSpectator));
    282       FormClient.Client.LocalServer := Server;
    283       FormClient.Client.ConnectType := ctLocal;
    284       FormClient.Client.Active := True;
    285       FormClient.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;
    286291    end;
    287292end;
     
    339344var
    340345  NewServer: TServer;
     346  FormNew: TFormNew;
    341347begin
    342348  FormNew := TFormNew.Create(nil);
     
    394400
    395401procedure TCore.AHelpExecute(Sender: TObject);
     402var
     403  FormHelp: TFormHelp;
    396404begin
    397405  FormHelp := TFormHelp.Create(Self);
     
    410418procedure TCore.APlayersStatsExecute(Sender: TObject);
    411419begin
    412   if not Assigned(FormPlayersStats) then
    413     FormPlayersStats := TFormPlayersStats.Create(nil);
    414   FormPlayersStats.Show;
     420  if not Assigned(FormMain.FormPlayersStats) then
     421    FormMain.FormPlayersStats := TFormPlayersStats.Create(nil);
     422  FormMain.FormPlayersStats.Show;
    415423end;
    416424
    417425procedure TCore.ASettingsExecute(Sender: TObject);
     426var
     427  FormSettings: TFormSettings;
    418428begin
    419429  FormSettings := TFormSettings.Create(nil);
     
    434444procedure TCore.AShowChartsExecute(Sender: TObject);
    435445begin
    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;
    438449end;
    439450
    440451procedure TCore.AShowKeyShortcutsExecute(Sender: TObject);
    441452begin
    442   if not Assigned(FormKeyShortcuts) then FormKeyShortcuts := TFormKeyShortcuts.Create(nil);
    443   FormKeyShortcuts.Show;
     453  if not Assigned(FormMain.FormKeyShortcuts) then FormMain.FormKeyShortcuts := TFormKeyShortcuts.Create(nil);
     454  FormMain.FormKeyShortcuts.Show;
    444455end;
    445456
    446457procedure TCore.AShowUnitMovesExecute(Sender: TObject);
    447458begin
    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;
    450462end;
    451463
     
    456468end;
    457469
    458 procedure TCore.CoolTranslator1Translate(Sender: TObject);
    459 begin
    460   UGame.InitStrings;
    461   CoolTranslator1.TranslateComponentRecursive(FormClient);
     470procedure TCore.Translator1Translate(Sender: TObject);
     471begin
     472  Translate;
     473  if Assigned(FormMain) then
     474    Translator1.TranslateComponentRecursive(FormMain.FormClient);
    462475end;
    463476
     
    473486    GameFilesDir := LinuxGameFilesDir;
    474487  // If installed in Linux system then use installation directory for po files
    475   if not DirectoryExists(CoolTranslator1.POFilesFolder) and DirectoryExists(LinuxLanguagesDir) then
    476     CoolTranslator1.POFilesFolder := LinuxLanguagesDir;
     488  if not DirectoryExists(Translator1.POFilesFolder) and DirectoryExists(LinuxLanguagesDir) then
     489    Translator1.POFilesFolder := LinuxLanguagesDir;
    477490  {$ENDIF}
    478491
     
    493506  XMLConfig1.Filename := GetAppConfigDir(False) + 'Config.xml';
    494507  ForceDirectories(GetAppConfigDir(False));
    495   FormClients := TObjectList<TFormClient>.Create;
     508  FormClients := TFormClients.Create;
    496509  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;
    497520end;
    498521
     
    500523begin
    501524  FreeAndNil(ServerList);
    502   if Assigned(FormPlayersStats) then FreeAndNil(FormPlayersStats);
    503   if Assigned(FormUnitMoves) then FreeAndNil(FormUnitMoves);
    504   if Assigned(FormCharts) then FreeAndNil(FormCharts);
    505   if Assigned(FormKeyShortcuts) 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);
    506529  FreeAndNil(FormClients);
    507530  FreeAndNil(StoredDimension);
     
    511534  FreeAndNil(GameSettings);
    512535  FreeAndNil(GameSystems);
     536  FreeAndNil(FormMain);
    513537end;
    514538
    515539procedure TCore.LastOpenedList1Change(Sender: TObject);
    516540begin
    517   LastOpenedList1.LoadToMenuItem(FormMain.MenuItemLoadRecent, LoadRecentExecute);
     541  if Assigned(FormMain) then
     542    LastOpenedList1.LoadToMenuItem(FormMain.MenuItemLoadRecent, LoadRecentExecute);
    518543end;
    519544
     
    538563  // Create local LocalClients for human players
    539564  LocalClients.Clear;
    540   FormClient.Client := nil;
     565  FormMain.FormClient.Client := nil;
    541566  for I := 0 to Game.Players.Count - 1 do begin
    542567    Player := TPlayer(Game.Players[I]);
     
    573598  if Assigned(ServerClient) then ServerClient.TurnStart
    574599    else raise Exception.Create(SMissingServerClientForPlayer);
    575   FormClient.AZoomAll.Execute;
     600  FormMain.FormClient.AZoomAll.Execute;
    576601end;
    577602
    578603procedure TCore.UpdateOtherForms;
    579604begin
    580   if Assigned(FormCharts) and FormCharts.Visible then FormCharts.Redraw;
    581   if Assigned(FormUnitMoves) and FormUnitMoves.Visible then FormUnitMoves.ReloadList;
    582   if Assigned(FormPlayersStats) and FormPlayersStats.Visible then FormPlayersStats.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;
    583608end;
    584609
     
    589614begin
    590615  // Copy all actions from docked form to main form so keyboard shortcuts will be active
    591   for I := 0 to FormClient.ActionList1.ActionCount - 1 do begin
     616  for I := 0 to FormMain.FormClient.ActionList1.ActionCount - 1 do begin
    592617    Action := TAction.Create(FormMain);
    593     Action.Assign(TAction(FormClient.ActionList1.Actions[I]));
     618    Action.Assign(TAction(FormMain.FormClient.ActionList1.Actions[I]));
    594619    Action.ActionList := FormMain.ActionList1;
    595620  end;
     
    625650begin
    626651  FullScreen := not FullScreen;
    627   PersistentForm.Form := FormMain;
    628   PersistentForm.SetFullScreen(FullScreen);
     652  PersistentForm1.Form := FormMain;
     653  PersistentForm1.SetFullScreen(FullScreen);
    629654  UpdateInterface;
    630655end;
     
    673698  // Create local LocalClients for human players
    674699  LocalClients.Clear;
    675   FormClient.Client := nil;
     700  FormMain.FormClient.Client := nil;
    676701  for I := 0 to Game.Players.Count - 1 do begin
    677702    Player := TPlayer(Game.Players[I]);
     
    722747    if Game.CurrentPlayer.Mode = pmHuman then begin
    723748      PlayerClient := LocalClients.SearchPlayer(Game.CurrentPlayer);
    724       if Assigned(PlayerClient) then FormClient.Client := TClientGUI(PlayerClient);
     749      if Assigned(PlayerClient) then FormMain.FormClient.Client := TClientGUI(PlayerClient);
    725750    end;
    726751
     
    733758procedure TCore.DoMoveUpdated(UnitMove: TUnitMove);
    734759begin
    735   if Assigned(FormUnitMoves) and FormUnitMoves.Visible then
    736     FormUnitMoves.ReloadList;
     760  if Assigned(FormMain.FormUnitMoves) and FormMain.FormUnitMoves.Visible then
     761    FormMain.FormUnitMoves.ReloadList;
    737762end;
    738763
  • trunk/Forms/FormCharts.lfm

    r316 r317  
    11object FormCharts: TFormCharts
    2   Left = 562
     2  Left = 808
    33  Height = 709
    4   Top = 333
     4  Top = 365
    55  Width = 944
    66  Caption = 'Charts'
    77  ClientHeight = 709
    88  ClientWidth = 944
    9   DesignTimePPI = 120
    10   OnClose = FormClose
     9  DesignTimePPI = 144
    1110  OnShow = FormShow
    12   LCLVersion = '2.0.0.4'
     11  LCLVersion = '3.4.0.0'
    1312  object Chart1: TChart
    14     Left = 8
    15     Height = 648
    16     Top = 56
    17     Width = 932
     13    Left = 10
     14    Height = 636
     15    Top = 67
     16    Width = 929
    1817    AxisList = <   
    1918      item
     
    3938  end
    4039  object ComboBox1: TComboBox
    41     Left = 24
    42     Height = 28
    43     Top = 8
    44     Width = 392
    45     ItemHeight = 20
     40    Left = 29
     41    Height = 38
     42    Top = 10
     43    Width = 470
     44    ItemHeight = 0
    4645    ItemIndex = 0
    4746    Items.Strings = (
     
    5150      'Cities count'
    5251    )
    53     OnChange = ComboBox1Change
    5452    Style = csDropDownList
    5553    TabOrder = 1
    5654    Text = 'Occupied cells'
     55    OnChange = ComboBox1Change
    5756  end
    5857end
  • trunk/Forms/FormCharts.pas

    r316 r317  
    1 unit UFormCharts;
     1unit FormCharts;
    22
    33interface
     
    55uses
    66  Classes, SysUtils, FileUtil, TAGraph, TASeries, Forms, Controls, Graphics,
    7   Dialogs, StdCtrls;
     7  Dialogs, StdCtrls, FormEx;
    88
    99type
     
    1111  { TFormCharts }
    1212
    13   TFormCharts = class(TForm)
     13  TFormCharts = class(TFormEx)
    1414    Chart1: TChart;
    1515    ComboBox1: TComboBox;
    1616    procedure ComboBox1Change(Sender: TObject);
    17     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    1817    procedure FormShow(Sender: TObject);
    1918  public
     
    2120    procedure Translate;
    2221  end;
    23 
    24 var
    25   FormCharts: TFormCharts;
    2622
    2723
     
    3127
    3228uses
    33   UCore, UGame, UPlayer;
     29  Core, Game, Player;
    3430
    3531resourcestring
     
    4844end;
    4945
    50 procedure TFormCharts.FormClose(Sender: TObject; var CloseAction: TCloseAction);
    51 begin
    52   Core.PersistentForm.Save(Self);
    53 end;
    54 
    5546procedure TFormCharts.FormShow(Sender: TObject);
    5647begin
    57   Core.PersistentForm.Load(Self);
    58   Core.ThemeManager1.UseTheme(Self);
    5948  Redraw;
    6049  Translate;
     
    7059begin
    7160  Chart1.Series.Clear;
    72   for I := 0 to Core.Game.Players.Count - 1 do
    73   with TPlayer(Core.Game.Players[I]) do begin
     61  for I := 0 to Core.Core.Game.Players.Count - 1 do
     62  with TPlayer(Core.Core.Game.Players[I]) do begin
    7463    NewSeries := TLineSeries.Create(nil);
    7564    NewSeries.LinePen.Color := Color;
     
    8978  LastIndex: Integer;
    9079begin
    91   Core.CoolTranslator1.TranslateComponentRecursive(Self);
     80  Core.Core.Translator1.TranslateComponentRecursive(Self);
    9281  with ComboBox1 do begin
    9382    LastIndex := ItemIndex;
  • trunk/Forms/FormChat.lfm

    r316 r317  
    11object FormChat: TFormChat
    2   Left = 496
    3   Height = 368
    4   Top = 328
    5   Width = 439
     2  Left = 1060
     3  Height = 442
     4  Top = 536
     5  Width = 527
    66  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'
    1311  object MemoChat: TMemo
    14     Left = 7
    15     Height = 302
    16     Top = 27
    17     Width = 424
     12    Left = 8
     13    Height = 363
     14    Top = 32
     15    Width = 509
    1816    Anchors = [akTop, akLeft, akRight, akBottom]
    1917    ParentFont = False
     
    2321  end
    2422  object EditMessage: TEdit
    25     Left = 7
    26     Height = 28
    27     Top = 334
    28     Width = 342
     23    Left = 8
     24    Height = 43
     25    Top = 392
     26    Width = 411
    2927    Anchors = [akLeft, akRight, akBottom]
    30     OnKeyPress = EditMessageKeyPress
    3128    ParentFont = False
    3229    TabOrder = 1
     30    OnKeyPress = EditMessageKeyPress
    3331  end
    3432  object ButtonMessageSend: TButton
    35     Left = 353
    36     Height = 26
    37     Top = 335
    38     Width = 78
     33    Left = 423
     34    Height = 31
     35    Top = 403
     36    Width = 94
    3937    Anchors = [akRight, akBottom]
    4038    Caption = 'Send'
    41     OnClick = ButtonMessageSendClick
    4239    ParentFont = False
    4340    TabOrder = 2
     41    OnClick = ButtonMessageSendClick
    4442  end
    4543  object Label1: TLabel
    46     Left = 8
    47     Height = 20
    48     Top = 3
    49     Width = 33
     44    Left = 10
     45    Height = 26
     46    Top = 4
     47    Width = 43
    5048    Caption = 'Chat:'
    5149    ParentColor = False
  • trunk/Forms/FormChat.pas

    r316 r317  
    1 unit UFormChat;
     1unit FormChat;
    22
    33interface
     
    55uses
    66  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    7   UGame, UGameClient;
     7  Game, GameClient, FormEx;
    88
    99type
     
    1111  { TFormChat }
    1212
    13   TFormChat = class(TForm)
     13  TFormChat = class(TFormEx)
    1414    ButtonMessageSend: TButton;
    1515    EditMessage: TEdit;
     
    1818    procedure ButtonMessageSendClick(Sender: TObject);
    1919    procedure EditMessageKeyPress(Sender: TObject; var Key: char);
    20     procedure FormCreate(Sender: TObject);
    21     procedure FormShow(Sender: TObject);
    22   private
    23 
    2420  public
    2521    Client: TClient;
    2622  end;
    27 
    28 var
    29   FormChat: TFormChat;
    3023
    3124
     
    3427{$R *.lfm}
    3528
    36 uses
    37   UCore;
    38 
    3929{ TFormChat }
    4030
     
    4232begin
    4333  if Key = #13 then ButtonMessageSend.Click;
    44 end;
    45 
    46 procedure TFormChat.FormCreate(Sender: TObject);
    47 begin
    48   Core.CoolTranslator1.TranslateComponentRecursive(Self);
    49 end;
    50 
    51 procedure TFormChat.FormShow(Sender: TObject);
    52 begin
    53   Core.ThemeManager1.UseTheme(Self);
    5434end;
    5535
  • trunk/Forms/FormClient.lfm

    r316 r317  
    11object FormClient: TFormClient
    2   Left = 528
     2  Left = 887
    33  Height = 621
    4   Top = 280
     4  Top = 404
    55  Width = 775
    66  Caption = 'Client'
    77  ClientHeight = 621
    88  ClientWidth = 775
    9   DesignTimePPI = 120
     9  DesignTimePPI = 144
    1010  OnClose = FormClose
    1111  OnCreate = FormCreate
     
    1313  OnKeyUp = FormKeyUp
    1414  OnShow = FormShow
    15   LCLVersion = '2.0.0.4'
     15  LCLVersion = '3.4.0.0'
    1616  WindowState = wsMaximized
    1717  object StatusBar1: TStatusBar
     
    2222    Panels = <   
    2323      item
    24         Width = 167
     24        Width = 200
    2525      end   
    2626      item
    27         Width = 125
     27        Width = 150
    2828      end   
    2929      item
    30         Width = 83
     30        Width = 100
    3131      end>
    3232    ParentFont = False
     
    3737    Height = 593
    3838    Top = 0
    39     Width = 27
     39    Width = 32
    4040    Align = alLeft
    41     ButtonHeight = 27
    42     ButtonWidth = 27
     41    ButtonHeight = 32
     42    ButtonWidth = 32
    4343    Images = Core.ImageListSmall
    4444    ParentFont = False
     
    5454    object ToolButton6: TToolButton
    5555      Left = 1
    56       Top = 61
     56      Top = 71
    5757      Action = AZoomIn
    5858    end
    5959    object ToolButton7: TToolButton
    6060      Left = 1
    61       Top = 88
     61      Top = 103
    6262      Action = AZoomOut
    6363    end
    6464    object ToolButton8: TToolButton
    6565      Left = 1
    66       Top = 115
     66      Top = 135
    6767      Action = AZoomAll
    6868    end
    6969    object ToolButton9: TToolButton
    7070      Left = 1
    71       Top = 56
    72       Width = 27
     71      Top = 66
     72      Width = 32
    7373      AutoSize = True
    7474      Style = tbsDivider
     
    7676    object ToolButton1: TToolButton
    7777      Left = 1
    78       Top = 29
     78      Top = 34
    7979      Action = ASurrender
    8080    end
    8181  end
    8282  object PaintBox1: TPaintBox
    83     Left = 27
     83    Left = 32
    8484    Height = 593
    8585    Top = 0
    86     Width = 748
     86    Width = 743
    8787    Align = alClient
    8888    ParentFont = False
     
    9999    Interval = 20
    100100    OnTimer = Timer1Timer
    101     left = 133
    102     top = 133
     101    Left = 160
     102    Top = 160
    103103  end
    104104  object ActionList1: TActionList
    105105    Images = Core.ImageListSmall
    106     left = 233
    107     top = 127
     106    Left = 280
     107    Top = 152
    108108    object AZoomIn: TAction
    109109      Caption = 'Zoom in'
     
    152152  end
    153153  object PopupMenuToolbar: TPopupMenu
    154     left = 377
    155     top = 82
     154    Left = 452
     155    Top = 98
    156156    object MenuItem18: TMenuItem
    157157      Action = AToolBarBigIcons
  • trunk/Forms/FormClient.pas

    r316 r317  
    1 unit UFormClient;
     1unit FormClient;
    22
    33interface
     
    55uses
    66  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;
    910
    1011const
     
    1819  { TFormClient }
    1920
    20   TFormClient = class(TForm)
     21  TFormClient = class(TFormEx)
    2122    ASurrender: TAction;
    2223    AGameEndTurn: TAction;
     
    9394    procedure DoClientDestroy(Sender: TObject);
    9495  public
    95     FormMain: TFormMain;
    9696    procedure LoadConfig(Config: TXmlConfig; Path: string);
    9797    procedure SaveConfig(Config: TXmlConfig; Path: string);
     
    101101  end;
    102102
    103 var
    104   FormClient: TFormClient;
     103  TFormClients = class(TObjectList<TFormClient>)
     104  end;
    105105
    106106const
     
    111111
    112112uses
    113   UCore, UFormMove;
     113  Core, FormMove;
    114114
    115115resourcestring
     
    321321  if RedrawPending and not Drawing then begin
    322322    Drawing := True;
    323     if not Core.DevelMode then RedrawPending := False;
     323    if not Core.Core.DevelMode then RedrawPending := False;
    324324    TimerPeriod := (9 * TimerPeriod + (Now - LastTimerTime)) / 10;
    325325    LastTimerTime := Now;
     
    327327    StatusBar1.Panels[1].Text := IntToStr(Trunc(DrawDuration / OneMillisecond)) + ' / ' +
    328328      IntToStr(Trunc(TimerPeriod / OneMillisecond)) + ' ms' +
    329       ' ' + IntToStr(Core.Game.Map.CellLinks.Count);
     329      ' ' + IntToStr(Core.Core.Game.Map.CellLinks.Count);
    330330    NewCaption := 'xTactics';
    331     if Assigned(Core.Game.CurrentPlayer) then
    332       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;
    333333    Caption := NewCaption;
    334334    Drawing := False;
     
    350350    FClient.OnNextPlayer := DoNextPlayer;
    351351    FClient.View.DestRect := TRect.CreateBounds(TPoint.Create(0, 0), TPoint.Create(PaintBox1.Width, PaintBox1.Height));
    352     FClient.CellGridVisible := Core.CellGridVisible;
    353     FClient.UnitShapeVisible := Core.UnitShapeVisible;
     352    FClient.CellGridVisible := Core.Core.CellGridVisible;
     353    FClient.UnitShapeVisible := Core.Core.UnitShapeVisible;
    354354  end;
    355355  Redraw;
     
    399399begin
    400400  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;
    406406  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;
    412412  end;
    413413  ToolBar1.Visible := AToolBarVisible.Checked;
     
    433433  TimerPeriod := 0;
    434434  LastTimerTime := Now;
    435   Core.CoolTranslator1.TranslateComponentRecursive(Self);
    436435end;
    437436
    438437procedure TFormClient.AZoomAllExecute(Sender: TObject);
    439438begin
    440   with Core, Game, Client, View do begin
     439  with Core.Core, Game, Client, View do begin
    441440    ZoomAll;
    442441  end;
     
    512511procedure TFormClient.FormClose(Sender: TObject; var CloseAction: TCloseAction);
    513512begin
    514   SaveConfig(Core.XMLConfig1, 'FormClient');
    515   Core.PersistentForm.Save(Self);
     513  SaveConfig(Core.Core.XMLConfig1, 'FormClient');
    516514end;
    517515
     
    529527begin
    530528  if (Key = EscapeKey) or (Key = ControlKey) then
    531   if Assigned(Core.Game.CurrentPlayer) then begin
     529  if Assigned(Core.Core.Game.CurrentPlayer) then begin
    532530    Client.View.SelectedCell := nil;
    533531    Redraw;
     
    538536begin
    539537  SetToolbarHints;
    540   LoadConfig(Core.XMLConfig1, 'FormClient');
    541   Core.PersistentForm.Load(Self);
    542   Core.ThemeManager1.UseTheme(Self);
     538  LoadConfig(Core.Core.XMLConfig1, 'FormClient');
    543539  UpdateInterface;
    544540  Redraw;
     
    585581    Cell := nil;
    586582    OldCell := Client.View.FocusedCell;
    587     with Core.Game do
     583    with Core.Core.Game do
    588584      if Assigned(Client.ControlPlayer) then begin
    589585        if Map.Cyclic then begin
     
    619615  if (Abs(StartMousePoint.X - X) < Trunc(Screen.PixelsPerInch * MouseMinDiff)) and
    620616  (Abs(StartMousePoint.Y - Y) < Trunc(Screen.PixelsPerInch * MouseMinDiff)) then begin
    621     if Core.Game.Running and (Core.Game.CurrentPlayer.Mode = pmHuman) and
    622     (Core.Game.CurrentPlayer = Client.ControlPlayer) then begin
     617    if Core.Core.Game.Running and (Core.Core.Game.CurrentPlayer.Mode = pmHuman) and
     618    (Core.Core.Game.CurrentPlayer = Client.ControlPlayer) then begin
    623619      Client.View.SelectCell(TPoint.Create(X, Y), Client.ControlPlayer, Shift);
    624620      Redraw;
  • trunk/Forms/FormGameSystem.lfm

    r316 r317  
    11object FormGameSystem: TFormGameSystem
    2   Left = 571
    3   Height = 482
    4   Top = 364
    5   Width = 651
     2  Left = 954
     3  Height = 578
     4  Top = 479
     5  Width = 781
    66  Caption = 'Game system'
    7   ClientHeight = 482
    8   ClientWidth = 651
    9   DesignTimePPI = 120
    10   OnClose = FormClose
     7  ClientHeight = 578
     8  ClientWidth = 781
     9  DesignTimePPI = 144
    1110  OnCreate = FormCreate
    1211  OnDestroy = FormDestroy
    13   OnShow = FormShow
    14   LCLVersion = '2.0.0.4'
     12  LCLVersion = '3.4.0.0'
    1513  object ButtonSave: TButton
    16     Left = 133
    17     Height = 32
    18     Top = 440
    19     Width = 94
     14    Left = 160
     15    Height = 38
     16    Top = 528
     17    Width = 113
    2018    Anchors = [akLeft, akBottom]
    2119    Caption = 'Save'
    22     OnClick = ButtonSaveClick
    2320    ParentFont = False
    2421    TabOrder = 0
     22    OnClick = ButtonSaveClick
    2523  end
    2624  object ButtonLoad: TButton
    27     Left = 20
    28     Height = 32
    29     Top = 440
    30     Width = 94
     25    Left = 24
     26    Height = 38
     27    Top = 528
     28    Width = 113
    3129    Anchors = [akLeft, akBottom]
    3230    Caption = 'Load'
    33     OnClick = ButtonLoadClick
    3431    ParentFont = False
    3532    TabOrder = 1
     33    OnClick = ButtonLoadClick
    3634  end
    3735  object ButtonCancel: TButton
    38     Left = 420
    39     Height = 32
    40     Top = 440
    41     Width = 94
     36    Left = 504
     37    Height = 38
     38    Top = 528
     39    Width = 113
    4240    Anchors = [akRight, akBottom]
    4341    Caption = 'Cancel'
     
    4745  end
    4846  object ButtonOk: TButton
    49     Left = 539
    50     Height = 32
    51     Top = 440
    52     Width = 94
     47    Left = 646
     48    Height = 38
     49    Top = 528
     50    Width = 113
    5351    Anchors = [akRight, akBottom]
    5452    Caption = 'OK'
     
    5856  end
    5957  object PageControl1: TPageControl
    60     Left = 13
    61     Height = 414
    62     Top = 13
    63     Width = 620
     58    Left = 16
     59    Height = 496
     60    Top = 16
     61    Width = 743
    6462    ActivePage = TabSheetBuildings
    6563    Anchors = [akTop, akLeft, akRight, akBottom]
     
    7068      Caption = 'General'
    7169      ClientHeight = 456
    72       ClientWidth = 734
     70      ClientWidth = 733
    7371      ParentFont = False
    7472      object CheckBoxEmptyCellsNeutral: TCheckBox
    75         Left = 13
     73        Left = 16
    7674        Height = 30
    77         Top = 13
    78         Width = 362
     75        Top = 16
     76        Width = 357
    7977        Caption = 'Set cells without player units as neutral'
    8078        ParentFont = False
     
    8280      end
    8381      object CheckBoxUnitsSplitMerge: TCheckBox
    84         Left = 13
     82        Left = 16
    8583        Height = 30
    86         Top = 46
    87         Width = 231
     84        Top = 55
     85        Width = 229
    8886        Caption = 'Units can split or merge'
    8987        ParentFont = False
     
    9189      end
    9290      object CheckBoxUnitsMoveImmediately: TCheckBox
    93         Left = 13
     91        Left = 16
    9492        Height = 30
    95         Top = 79
    96         Width = 234
     93        Top = 95
     94        Width = 232
    9795        Caption = 'Units move immediately'
    9896        ParentFont = False
     
    114112  end
    115113  object OpenDialog1: TOpenDialog
    116     left = 367
    117     top = 133
     114    Left = 440
     115    Top = 160
    118116  end
    119117  object SaveDialog1: TSaveDialog
    120     left = 193
    121     top = 133
     118    Left = 232
     119    Top = 160
    122120  end
    123121end
  • trunk/Forms/FormGameSystem.pas

    r316 r317  
    1 unit UFormGameSystem;
     1unit FormGameSystem;
    22
    33interface
     
    55uses
    66  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    7   ComCtrls, UGameSystem, UFormList;
     7  ComCtrls, GameSystem, FormList, FormEx;
    88
    99type
     
    1111  { TFormGameSystem }
    1212
    13   TFormGameSystem = class(TForm)
     13  TFormGameSystem = class(TFormEx)
    1414    ButtonCancel: TButton;
    1515    ButtonOk: TButton;
     
    2828    procedure ButtonLoadClick(Sender: TObject);
    2929    procedure ButtonSaveClick(Sender: TObject);
    30     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    3130    procedure FormCreate(Sender: TObject);
    3231    procedure FormDestroy(Sender: TObject);
    33     procedure FormShow(Sender: TObject);
    3432  private
    3533    FGameSystem: TGameSystem;
     
    4442  end;
    4543
    46 var
    47   FormGameSystem: TFormGameSystem;
    48 
    4944
    5045implementation
    5146
    5247{$R *.lfm}
    53 
    54 uses
    55   UCore;
    5648
    5749resourcestring
     
    8274end;
    8375
    84 procedure TFormGameSystem.FormClose(Sender: TObject;
    85   var CloseAction: TCloseAction);
    86 begin
    87   Core.PersistentForm.Save(Self);
    88 end;
    89 
    9076procedure TFormGameSystem.FormCreate(Sender: TObject);
    9177begin
    92   Core.ThemeManager1.UseTheme(Self);
    93   Core.CoolTranslator1.TranslateComponentRecursive(Self);
    9478  FormUnitKinds := TFormList.Create(nil);
    9579  FormUnitKinds.ManualDock(TabSheetUnits, nil, alClient);
     
    11296  FreeAndNil(FormUnitKinds);
    11397  FreeAndNil(FormBuildingKinds);
    114 end;
    115 
    116 procedure TFormGameSystem.FormShow(Sender: TObject);
    117 begin
    118   Core.PersistentForm.Load(Self);
    11998end;
    12099
  • trunk/Forms/FormGameSystems.lfm

    r316 r317  
    11object FormGameSystems: TFormGameSystems
    2   Left = 779
    3   Height = 300
    4   Top = 236
    5   Width = 400
     2  Left = 1080
     3  Height = 360
     4  Top = 570
     5  Width = 480
    66  Caption = 'Game systems'
    7   ClientHeight = 300
    8   ClientWidth = 400
    9   DesignTimePPI = 120
    10   OnClose = FormClose
     7  ClientHeight = 360
     8  ClientWidth = 480
     9  DesignTimePPI = 144
    1110  OnCreate = FormCreate
    1211  OnDestroy = FormDestroy
    1312  OnShow = FormShow
    14   LCLVersion = '2.0.0.4'
     13  LCLVersion = '3.4.0.0'
    1514  object ListView1: TListView
    1615    Left = 0
    17     Height = 268
     16    Height = 322
    1817    Top = 0
    19     Width = 400
     18    Width = 480
    2019    Align = alClient
    2120    Columns = <   
    2221      item
    2322        Caption = 'Name'
    24         Width = 388
     23        Width = 466
    2524      end>
    2625    MultiSelect = True
     
    3938  object ToolBar1: TToolBar
    4039    Left = 0
    41     Top = 268
    42     Width = 400
     40    Height = 38
     41    Top = 322
     42    Width = 480
    4343    Align = alBottom
    4444    Images = Core.ImageListSmall
     
    5151    end
    5252    object ToolButton2: TToolButton
    53       Left = 30
     53      Left = 36
    5454      Top = 2
    5555      Action = AModify
    5656    end
    5757    object ToolButton3: TToolButton
    58       Left = 59
     58      Left = 71
    5959      Top = 2
    6060      Action = ARemove
    6161    end
    6262    object ToolButton4: TToolButton
    63       Left = 88
     63      Left = 106
    6464      Top = 2
    6565      Action = AClone
     
    6868  object ActionList1: TActionList
    6969    Images = Core.ImageListSmall
    70     left = 173
    71     top = 136
     70    Left = 208
     71    Top = 163
    7272    object AAdd: TAction
    7373      Caption = 'Add'
     
    9797  object PopupMenu1: TPopupMenu
    9898    Images = Core.ImageListSmall
    99     left = 293
    100     top = 133
     99    Left = 352
     100    Top = 160
    101101    object MenuItem1: TMenuItem
    102102      Action = AAdd
  • trunk/Forms/FormGameSystems.pas

    r316 r317  
    1 unit UFormGameSystems;
     1unit FormGameSystems;
    22
    33interface
     
    55uses
    66  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
    7   ActnList, Menus, UGameSystem;
     7  ActnList, Menus, GameSystem, FormEx;
    88
    99type
     
    1111  { TFormGameSystems }
    1212
    13   TFormGameSystems = class(TForm)
     13  TFormGameSystems = class(TFormEx)
    1414    AAdd: TAction;
    1515    ASelectAll: TAction;
     
    3434    procedure ARemoveExecute(Sender: TObject);
    3535    procedure ASelectAllExecute(Sender: TObject);
    36     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    3736    procedure FormCreate(Sender: TObject);
    3837    procedure FormDestroy(Sender: TObject);
     
    5150  end;
    5251
    53 var
    54   FormGameSystems: TFormGameSystems;
    55 
    5652
    5753implementation
     
    6056
    6157uses
    62   UCore, UFormGameSystem;
     58  FormGameSystem;
    6359
    6460resourcestring
     
    9086var
    9187  TempEntry: TGameSystem;
     88  FormGameSystem: TFormGameSystem;
    9289begin
    9390  if Assigned(ListView1.Selected) then
     
    114111var
    115112  TempEntry: TGameSystem;
     113  FormGameSystem: TFormGameSystem;
    116114begin
    117115  TempEntry := TGameSystem.Create;
     
    141139end;
    142140
    143 procedure TFormGameSystems.FormClose(Sender: TObject;
    144   var CloseAction: TCloseAction);
    145 begin
    146   Core.PersistentForm.Save(Self);
    147 end;
    148 
    149141procedure TFormGameSystems.FormCreate(Sender: TObject);
    150142var
    151143  I: Integer;
    152144begin
    153   Core.CoolTranslator1.TranslateComponentRecursive(Self);
    154   Core.ThemeManager1.UseTheme(Self);
    155145  for I := 0 to ToolBar1.ButtonCount - 1 do
    156146    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
     
    164154procedure TFormGameSystems.FormShow(Sender: TObject);
    165155begin
    166   Core.PersistentForm.Load(Self);
    167156  UpdateList;
    168157  UpdateInterface;
  • trunk/Forms/FormHelp.lfm

    r316 r317  
    11object FormHelp: TFormHelp
    2   Left = 566
    3   Height = 663
    4   Top = 237
    5   Width = 1012
     2  Left = 1040
     3  Height = 432
     4  Top = 540
     5  Width = 582
    66  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
    1312  OnCreate = FormCreate
    14   OnShow = FormShow
    1513  Position = poMainFormCenter
    16   LCLVersion = '2.0.0.4'
     14  LCLVersion = '3.4.0.0'
    1715  object Memo1: TMemo
    18     Left = 6
    19     Height = 651
    20     Top = 6
    21     Width = 1000
     16    Left = 7
     17    Height = 418
     18    Top = 7
     19    Width = 568
    2220    Align = alClient
    23     BorderSpacing.Around = 6
     21    BorderSpacing.Around = 7
    2422    ReadOnly = True
    2523    ScrollBars = ssAutoBoth
  • trunk/Forms/FormHelp.pas

    r316 r317  
    1 unit UFormHelp;
     1unit FormHelp;
    22
    33interface
    44
    55uses
    6   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
     6  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
     7  FormEx;
    78
    89type
     
    1011  { TFormHelp }
    1112
    12   TFormHelp = class(TForm)
     13  TFormHelp = class(TFormEx)
    1314    Memo1: TMemo;
    14     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    1515    procedure FormCreate(Sender: TObject);
    16     procedure FormShow(Sender: TObject);
    1716  end;
    18 
    19 var
    20   FormHelp: TFormHelp;
    2117
    2218
    2319implementation
    24 
    25 uses
    26   UCore;
    2720
    2821resourcestring
     
    6053procedure TFormHelp.FormCreate(Sender: TObject);
    6154begin
    62   Core.CoolTranslator1.TranslateComponentRecursive(Self);
    6355  Memo1.Lines.Text := SContent;
    64 end;
    65 
    66 procedure TFormHelp.FormClose(Sender: TObject; var CloseAction: TCloseAction);
    67 begin
    68   Core.PersistentForm.Save(Self);
    69 end;
    70 
    71 procedure TFormHelp.FormShow(Sender: TObject);
    72 begin
    73   Core.PersistentForm.Load(Self);
    74   Core.ThemeManager1.UseTheme(Self);
    7556end;
    7657
  • trunk/Forms/FormItem.lfm

    r316 r317  
    11object FormItem: TFormItem
    2   Left = 570
     2  Left = 1040
    33  Height = 360
    4   Top = 429
     4  Top = 540
    55  Width = 480
    66  Caption = 'Item'
     
    88  ClientWidth = 480
    99  DesignTimePPI = 144
    10   OnClose = FormClose
    1110  OnCreate = FormCreate
    1211  OnDestroy = FormDestroy
    13   OnShow = FormShow
    14   LCLVersion = '2.0.2.0'
     12  LCLVersion = '3.4.0.0'
    1513  object ButtonOk: TButton
    1614    Left = 89
     
    2119    Caption = 'OK'
    2220    ModalResult = 1
    23     OnClick = ButtonOkClick
    2421    ParentFont = False
    2522    TabOrder = 0
     23    OnClick = ButtonOkClick
    2624  end
    2725  object ButtonCancel: TButton
  • trunk/Forms/FormItem.pas

    r316 r317  
    1 unit UFormItem;
     1unit FormItem;
    22
    33interface
    44
    55uses
    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;
    88
    99type
     
    1111  { TFormItem }
    1212
    13   TFormItem = class(TForm)
     13  TFormItem = class(TFormEx)
    1414    ButtonOk: TButton;
    1515    ButtonCancel: TButton;
    1616    procedure ButtonOkClick(Sender: TObject);
    17     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    1817    procedure FormCreate(Sender: TObject);
    1918    procedure FormDestroy(Sender: TObject);
    20     procedure FormShow(Sender: TObject);
    2119  private
    2220    FItem: TItem;
     
    3331  end;
    3432
    35 var
    36   FormItem: TFormItem;
    37 
    3833
    3934implementation
     
    4237
    4338uses
    44   UCore;
     39  Core;
    4540
    4641{ TFormItem }
     
    5146end;
    5247
    53 procedure TFormItem.FormClose(Sender: TObject; var CloseAction: TCloseAction);
    54 begin
    55   Core.PersistentForm.Save(Self);
    56 end;
    57 
    5848procedure TFormItem.FormCreate(Sender: TObject);
    5949begin
    60   Core.CoolTranslator1.TranslateComponentRecursive(Self);
    61   Core.ThemeManager1.UseTheme(Self);
    6250  DataControls := TObjectList<TControl>.Create;
    6351  DataLabels := TObjectList<TLabel>.Create;
     
    6654procedure TFormItem.FormDestroy(Sender: TObject);
    6755begin
    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);
    7558end;
    7659
     
    221204    NewControl.Top := Y;
    222205    NewControl.Parent := Self;
    223     Core.CoolTranslator1.TranslateComponent(NewControl);
    224     Core.ThemeManager1.ApplyTheme(NewControl);
     206    Core.Core.Translator1.TranslateComponent(NewControl);
     207    Core.Core.ThemeManager1.ApplyTheme(NewControl);
    225208    NewControl.Visible := True;
    226209    DataControls.Add(NewControl);
  • trunk/Forms/FormKeyShortcuts.lfm

    r316 r317  
    11object FormKeyShortcuts: TFormKeyShortcuts
    2   Left = 528
    3   Height = 437
    4   Top = 303
    5   Width = 527
     2  Left = 1016
     3  Height = 524
     4  Top = 501
     5  Width = 632
    66  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
    1210  OnShow = FormShow
    13   LCLVersion = '2.0.0.4'
     11  LCLVersion = '3.4.0.0'
    1412  object ListView1: TListView
    15     Left = 4
    16     Height = 429
    17     Top = 4
    18     Width = 519
     13    Left = 5
     14    Height = 514
     15    Top = 5
     16    Width = 622
    1917    Align = alClient
    20     BorderSpacing.Around = 4
     18    BorderSpacing.Around = 5
    2119    Columns = <   
    2220      item
    2321        Caption = 'Action'
    24         Width = 200
     22        Width = 240
    2523      end   
    2624      item
    2725        Caption = 'Window'
    28         Width = 200
     26        Width = 240
    2927      end   
    3028      item
    3129        Caption = 'Shortcut'
    32         Width = 80
     30        Width = 127
    3331      end>
    3432    LargeImages = Core.ImageListLarge
     
    4139  end
    4240  object PopupMenu1: TPopupMenu
    43     left = 299
    44     top = 187
     41    Left = 359
     42    Top = 224
    4543    object MenuItem1: TMenuItem
    4644      Caption = 'Execute'
  • trunk/Forms/FormKeyShortcuts.pas

    r316 r317  
    1 unit UFormKeyShortcuts;
     1unit FormKeyShortcuts;
    22
    33interface
     
    55uses
    66  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
    7   ComCtrls, ActnList, LCLProc, Menus;
     7  ComCtrls, ActnList, LCLProc, Menus, FormEx;
    88
    99type
     
    1111  { TFormKeyShortcuts }
    1212
    13   TFormKeyShortcuts = class(TForm)
     13  TFormKeyShortcuts = class(TFormEx)
    1414    ListView1: TListView;
    1515    MenuItem1: TMenuItem;
    1616    PopupMenu1: TPopupMenu;
    17     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    18     procedure FormCreate(Sender: TObject);
    1917    procedure FormShow(Sender: TObject);
    2018    procedure MenuItem1Click(Sender: TObject);
     
    2321  end;
    2422
    25 var
    26   FormKeyShortcuts: TFormKeyShortcuts;
    27 
    2823
    2924implementation
    3025
    3126uses
    32   UFormMain, UCore;
     27  FormMain, Core;
    3328
    3429resourcestring
     
    4035procedure TFormKeyShortcuts.FormShow(Sender: TObject);
    4136begin
    42   Core.PersistentForm.Load(Self);
    43   Core.ThemeManager1.UseTheme(Self);
    4437  try
    4538    ListView1.BeginUpdate;
    4639    ListView1.Clear;
    47     LoadFromComponent(Core);
    48     LoadFromComponent(FormMain);
     40    LoadFromComponent(Core.Core);
     41    LoadFromComponent(Core.Core.FormMain);
    4942  finally
    5043    ListView1.EndUpdate;
     
    5649  if Assigned(ListView1.Selected) then
    5750    TAction(ListView1.Selected.Data).Execute;
    58 end;
    59 
    60 procedure TFormKeyShortcuts.FormClose(Sender: TObject;
    61   var CloseAction: TCloseAction);
    62 begin
    63   Core.PersistentForm.Save(Self);
    64 end;
    65 
    66 procedure TFormKeyShortcuts.FormCreate(Sender: TObject);
    67 begin
    68   Core.CoolTranslator1.TranslateComponentRecursive(Self);
    6951end;
    7052
     
    9981
    10082initialization
    101   {$I UFormKeyShortcuts.lrs}
     83  {$I FormKeyShortcuts.lrs}
    10284
    10385end.
  • trunk/Forms/FormList.lfm

    r316 r317  
    11object FormList: TFormList
    2   Left = 779
     2  Left = 1040
    33  Height = 360
    4   Top = 236
     4  Top = 540
    55  Width = 480
    66  Caption = 'List'
     
    88  ClientWidth = 480
    99  DesignTimePPI = 144
    10   OnClose = FormClose
    1110  OnCreate = FormCreate
    1211  OnShow = FormShow
    13   LCLVersion = '2.0.2.0'
     12  LCLVersion = '3.4.0.0'
    1413  object ListView1: TListView
    1514    Left = 0
     
    7069  object ActionList1: TActionList
    7170    Images = Core.ImageListSmall
    72     left = 208
    73     top = 163
     71    Left = 208
     72    Top = 163
    7473    object AAdd: TAction
    7574      Caption = 'Add'
     
    10099  object PopupMenu1: TPopupMenu
    101100    Images = Core.ImageListSmall
    102     left = 352
    103     top = 160
     101    Left = 352
     102    Top = 160
    104103    object MenuItem1: TMenuItem
    105104      Action = AAdd
  • trunk/Forms/FormList.pas

    r316 r317  
    1 unit UFormList;
     1unit FormList;
    22
    33interface
     
    55uses
    66  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
    7   ActnList, Menus, UItemList;
     7  ActnList, Menus, ItemList, FormEx;
    88
    99type
    1010  { TFormList }
    1111
    12   TFormList = class(TForm)
     12  TFormList = class(TFormEx)
    1313    AAdd: TAction;
    1414    ASelectAll: TAction;
     
    3434    procedure ARemoveExecute(Sender: TObject);
    3535    procedure ASelectAllExecute(Sender: TObject);
    36     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    3736    procedure FormCreate(Sender: TObject);
    3837    procedure FormShow(Sender: TObject);
     
    5857  end;
    5958
    60 var
    61   FormList: TFormList;
    62 
    6359
    6460implementation
     
    6763
    6864uses
    69   UCore, UFormItem;
     65  FormItem;
    7066
    7167resourcestring
     
    176172end;
    177173
    178 procedure TFormList.FormClose(Sender: TObject;
    179   var CloseAction: TCloseAction);
    180 begin
    181   Core.PersistentForm.Save(Self);
    182 end;
    183 
    184174procedure TFormList.FormCreate(Sender: TObject);
    185175var
    186176  I: Integer;
    187177begin
    188   Core.CoolTranslator1.TranslateComponentRecursive(Self);
    189   Core.ThemeManager1.UseTheme(Self);
    190178  for I := 0 to ToolBar1.ButtonCount - 1 do
    191179    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
     
    196184procedure TFormList.FormShow(Sender: TObject);
    197185begin
    198   Core.PersistentForm.Load(Self);
    199186  UpdateListViewColumns;
    200187  UpdateList;
  • trunk/Forms/FormMain.lfm

    r316 r317  
    11object FormMain: TFormMain
    2   Left = 826
    3   Height = 745
    4   Top = 419
    5   Width = 930
     2  Left = 534
     3  Height = 993
     4  Top = 223
     5  Width = 1491
    66  Caption = 'xTactics'
    7   ClientHeight = 711
    8   ClientWidth = 930
     7  ClientHeight = 993
     8  ClientWidth = 1491
    99  DesignTimePPI = 144
    1010  Menu = MainMenu1
     
    1515  OnKeyUp = FormKeyUp
    1616  OnShow = FormShow
    17   LCLVersion = '2.0.12.0'
     17  LCLVersion = '3.4.0.0'
    1818  object ToolBar1: TToolBar
    1919    Left = 0
    2020    Height = 40
    2121    Top = 0
    22     Width = 930
     22    Width = 1491
    2323    ButtonHeight = 32
    2424    ButtonWidth = 32
     
    7979  object PanelMain: TPanel
    8080    Left = 0
    81     Height = 671
     81    Height = 953
    8282    Top = 40
    83     Width = 930
     83    Width = 1491
    8484    Align = alClient
    8585    BevelOuter = bvNone
  • trunk/Forms/FormMain.pas

    r316 r317  
    1 unit UFormMain;
     1unit FormMain;
    22
    33interface
     
    55uses
    66  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;
    89
    910const
     
    1516  { TFormMain }
    1617
    17   TFormMain = class(TForm)
     18  TFormMain = class(TFormEx)
    1819    AUnitShapeVisible: TAction;
    1920    AMapGridVisible: TAction;
     
    9394    procedure UpdateClientForms;
    9495  public
     96    FormClient: TFormClient;
     97    FormKeyShortcuts: TFormKeyShortcuts;
     98    FormPlayersStats: TFormPlayersStats;
     99    FormUnitMoves: TFormUnitMoves;
     100    FormCharts: TFormCharts;
    95101    procedure LoadConfig(Config: TXmlConfig; Path: string);
    96102    procedure SaveConfig(Config: TXmlConfig; Path: string);
     
    98104  end;
    99105
    100 var
    101   FormMain: TFormMain;
    102 
    103106
    104107implementation
    105108
    106109uses
    107   UCore, UFormClient;
     110  Core;
    108111
    109112resourcestring
     
    124127begin
    125128  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;
    128132  Caption := NewCaption;
    129133end;
     
    150154begin
    151155  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;
    157161  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;
    163167  end;
    164168  ToolBar1.Visible := AToolBarVisible.Checked;
     
    227231procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
    228232begin
    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;
    235238end;
    236239
    237240procedure TFormMain.FormDestroy(Sender: TObject);
    238241begin
    239   FormClient.Free;
     242  FreeAndNil(FormClient);
    240243end;
    241244
    242245procedure TFormMain.ApplicationStart(Ptr: IntPtr);
    243246begin
    244   Core.ReopenGameOnInit;
     247  Core.Core.ReopenGameOnInit;
    245248end;
    246249
     
    255258  FormClient.AStatusBarVisible.Checked := AStatusBarVisible.Checked;
    256259  FormClient.AStatusBarVisible.Update;
    257   Core.CellGridVisible := AMapGridVisible.Checked;
    258   Core.UnitShapeVisible := AUnitShapeVisible.Checked;
     260  Core.Core.CellGridVisible := AMapGridVisible.Checked;
     261  Core.Core.UnitShapeVisible := AUnitShapeVisible.Checked;
    259262  if Assigned(FormClient.Client) then begin
    260     FormClient.Client.CellGridVisible := Core.CellGridVisible;
    261     FormClient.Client.UnitShapeVisible := Core.UnitShapeVisible;
     263    FormClient.Client.CellGridVisible := Core.Core.CellGridVisible;
     264    FormClient.Client.UnitShapeVisible := Core.Core.UnitShapeVisible;
    262265  end;
    263266  FormClient.Redraw;
    264   for I := 0 to Core.FormClients.Count - 1 do begin
    265     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 begin
    272       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;
    274277    end;
    275     Core.FormClients[I].Redraw;
     278    Core.Core.FormClients[I].Redraw;
    276279  end;
    277280end;
     
    280283begin
    281284  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');
    291291    ReloadView;
    292292    FormClient.Show;
  • trunk/Forms/FormMove.lfm

    r316 r317  
    11object FormMove: TFormMove
    2   Left = 435
    3   Height = 232
    4   Top = 153
    5   Width = 351
     2  Left = 1104
     3  Height = 278
     4  Top = 604
     5  Width = 421
    66  ActiveControl = ButtonOk
    77  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
    1513  OnKeyPress = FormKeyPress
    1614  OnShow = FormShow
    1715  Position = poMainFormCenter
    18   LCLVersion = '2.0.0.4'
     16  LCLVersion = '3.4.0.0'
    1917  object SpinEditOnce: TSpinEdit
    20     Left = 173
    21     Height = 28
    22     Top = 33
    23     Width = 82
     18    Left = 208
     19    Height = 43
     20    Top = 40
     21    Width = 98
    2422    OnChange = SpinEditOnceChange
    2523    OnKeyPress = FormKeyPress
     
    2826  end
    2927  object Label1: TLabel
    30     Left = 13
    31     Height = 20
    32     Top = 33
    33     Width = 37
     28    Left = 16
     29    Height = 26
     30    Top = 40
     31    Width = 49
    3432    Caption = 'Once:'
    3533    ParentColor = False
     
    3735  end
    3836  object ButtonOk: TButton
    39     Left = 247
    40     Height = 32
    41     Top = 187
    42     Width = 83
     37    Left = 296
     38    Height = 38
     39    Top = 224
     40    Width = 100
    4341    Caption = 'Ok'
    4442    Default = True
     
    4846  end
    4947  object ButtonCancel: TButton
    50     Left = 147
    51     Height = 32
    52     Top = 187
    53     Width = 83
     48    Left = 176
     49    Height = 38
     50    Top = 224
     51    Width = 100
    5452    Caption = 'Cancel'
    5553    ModalResult = 2
     
    5856  end
    5957  object Label2: TLabel
    60     Left = 20
    61     Height = 20
    62     Top = 113
    63     Width = 68
     58    Left = 24
     59    Height = 26
     60    Top = 136
     61    Width = 90
    6462    Caption = 'Every turn:'
    6563    ParentColor = False
     
    6765  end
    6866  object SpinEditRepeat: TSpinEdit
    69     Left = 173
    70     Height = 28
    71     Top = 107
    72     Width = 82
     67    Left = 208
     68    Height = 43
     69    Top = 128
     70    Width = 98
    7371    OnChange = SpinEditRepeatChange
    7472    OnKeyPress = FormKeyPress
     
    7775  end
    7876  object TrackBarOnce: TTrackBar
    79     Left = 73
    80     Height = 48
    81     Top = 67
    82     Width = 205
     77    Left = 88
     78    Height = 58
     79    Top = 80
     80    Width = 245
    8381    OnChange = TrackBarOnceChange
    8482    PageSize = 1
     
    9189  end
    9290  object TrackBarRepeat: TTrackBar
    93     Left = 80
    94     Height = 48
    95     Top = 140
    96     Width = 193
     91    Left = 96
     92    Height = 58
     93    Top = 168
     94    Width = 231
    9795    OnChange = TrackBarRepeatChange
    9896    PageSize = 1
     
    105103  end
    106104  object ButtonOnceMin: TButton
    107     Left = 7
    108     Height = 32
    109     Top = 73
    110     Width = 67
     105    Left = 8
     106    Height = 38
     107    Top = 88
     108    Width = 80
    111109    Caption = 'Min'
    112     OnClick = ButtonOnceMinClick
    113110    ParentFont = False
    114111    TabOrder = 6
     112    OnClick = ButtonOnceMinClick
    115113  end
    116114  object ButtonOnceMax: TButton
    117     Left = 277
    118     Height = 32
    119     Top = 73
    120     Width = 67
     115    Left = 333
     116    Height = 38
     117    Top = 88
     118    Width = 80
    121119    Anchors = [akTop, akRight]
    122120    Caption = 'Max'
    123     OnClick = ButtonOnceMaxClick
    124121    ParentFont = False
    125122    TabOrder = 7
     123    OnClick = ButtonOnceMaxClick
    126124  end
    127125  object ButtonRepeatMin: TButton
    128     Left = 7
    129     Height = 32
    130     Top = 147
    131     Width = 67
     126    Left = 8
     127    Height = 38
     128    Top = 176
     129    Width = 80
    132130    Caption = 'Min'
    133     OnClick = ButtonRepeatMinClick
    134131    ParentFont = False
    135132    TabOrder = 8
     133    OnClick = ButtonRepeatMinClick
    136134  end
    137135  object ButtonRepeatMax: TButton
    138     Left = 277
    139     Height = 32
    140     Top = 147
    141     Width = 67
     136    Left = 333
     137    Height = 38
     138    Top = 176
     139    Width = 80
    142140    Anchors = [akTop, akRight]
    143141    Caption = 'Max'
    144     OnClick = ButtonRepeatMaxClick
    145142    ParentFont = False
    146143    TabOrder = 9
     144    OnClick = ButtonRepeatMaxClick
    147145  end
    148146  object Label3: TLabel
    149     Left = 13
    150     Height = 20
    151     Top = 7
    152     Width = 106
     147    Left = 16
     148    Height = 26
     149    Top = 8
     150    Width = 134
    153151    Caption = 'Win probability:'
    154152    ParentColor = False
     
    156154  end
    157155  object LabelWinProbability: TLabel
    158     Left = 220
    159     Height = 20
    160     Top = 7
    161     Width = 12
     156    Left = 264
     157    Height = 26
     158    Top = 8
     159    Width = 15
    162160    Caption = '   '
    163161    ParentColor = False
     
    165163  end
    166164  object ButtonRemove: TButton
    167     Left = 40
    168     Height = 32
    169     Top = 187
    170     Width = 83
     165    Left = 48
     166    Height = 38
     167    Top = 224
     168    Width = 100
    171169    Caption = 'Delete'
    172     OnClick = ButtonRemoveClick
    173170    ParentFont = False
    174171    TabOrder = 10
     172    OnClick = ButtonRemoveClick
    175173  end
    176174end
  • trunk/Forms/FormMove.pas

    r316 r317  
    1 unit UFormMove;
     1unit FormMove;
    22
    33interface
     
    55uses
    66  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Spin,
    7   StdCtrls, ComCtrls;
     7  StdCtrls, ComCtrls, FormEx;
    88
    99type
     
    1111  { TFormMove }
    1212
    13   TFormMove = class(TForm)
     13  TFormMove = class(TFormEx)
    1414    ButtonRemove: TButton;
    1515    ButtonRepeatMax: TButton;
     
    3030    procedure ButtonRemoveClick(Sender: TObject);
    3131    procedure ButtonRepeatMinClick(Sender: TObject);
    32     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    33     procedure FormCreate(Sender: TObject);
    3432    procedure ButtonOnceMinClick(Sender: TObject);
    3533    procedure ButtonRepeatMaxClick(Sender: TObject);
     
    4846  end;
    4947
    50 var
    51   FormMove: TFormMove;
    52 
    5348
    5449implementation
     
    5752
    5853uses
    59   UCore;
     54  Core;
    6055
    6156{ TFormMove }
     
    7873  Label3.Visible := ShowWinProbability;
    7974  LabelWinProbability.Caption :=
    80     IntToStr(Round(Core.Game.AttackProbability(AttackCount + SpinEditOnce.Value,
     75    IntToStr(Round(Core.Core.Game.AttackProbability(AttackCount + SpinEditOnce.Value,
    8176    DefendCount) * 100)) + ' %';
    8277end;
     
    9186procedure TFormMove.FormShow(Sender: TObject);
    9287begin
    93   Core.PersistentForm.Load(Self);
    94   Core.ThemeManager1.UseTheme(Self);
    9588  if SpinEditOnce.MaxValue < SpinEditOnce.Value then begin
    9689    SpinEditOnce.Enabled := False;
     
    128121end;
    129122
    130 procedure TFormMove.FormClose(Sender: TObject; var CloseAction: TCloseAction);
    131 begin
    132   Core.PersistentForm.Save(Self);
    133 end;
    134 
    135 procedure TFormMove.FormCreate(Sender: TObject);
    136 begin
    137   Core.CoolTranslator1.TranslateComponentRecursive(Self);
    138 end;
    139 
    140123procedure TFormMove.ButtonOnceMinClick(Sender: TObject);
    141124begin
  • trunk/Forms/FormNew.lfm

    r316 r317  
    11object FormNew: TFormNew
    2   Left = 478
    3   Height = 745
    4   Top = 526
    5   Width = 1211
     2  Left = 449
     3  Height = 688
     4  Top = 511
     5  Width = 1209
    66  Caption = 'New game'
    7   ClientHeight = 745
    8   ClientWidth = 1211
     7  ClientHeight = 688
     8  ClientWidth = 1209
    99  Constraints.MinHeight = 502
    1010  Constraints.MinWidth = 667
    1111  DesignTimePPI = 144
    12   OnClose = FormClose
    1312  OnCreate = FormCreate
    1413  OnDestroy = FormDestroy
    1514  OnShow = FormShow
    1615  Position = poMainFormCenter
    17   LCLVersion = '2.0.2.0'
     16  LCLVersion = '3.4.0.0'
    1817  object PageControl1: TPageControl
    1918    Left = 4
    20     Height = 635
     19    Height = 578
    2120    Top = 60
    22     Width = 806
    23     ActivePage = TabSheetRules
     21    Width = 804
     22    ActivePage = TabSheetPlayers
    2423    Align = alClient
    2524    BorderSpacing.Around = 4
    2625    ParentFont = False
    27     TabIndex = 3
     26    TabIndex = 1
    2827    TabOrder = 0
    2928    OnChange = PageControl1Change
    3029    object TabSheetMode: TTabSheet
    3130      Caption = 'Mode'
    32       ClientHeight = 595
    33       ClientWidth = 796
     31      ClientHeight = 538
     32      ClientWidth = 794
    3433      ParentFont = False
    3534      object Panel3: TPanel
    3635        Left = 0
    37         Height = 596
     36        Height = 538
    3837        Top = 0
    39         Width = 796
     38        Width = 794
    4039        Align = alClient
    4140        BevelOuter = bvNone
    42         ClientHeight = 596
    43         ClientWidth = 796
     41        ClientHeight = 538
     42        ClientWidth = 794
    4443        ParentFont = False
    4544        TabOrder = 0
     
    5150          Caption = 'Local'
    5251          Checked = True
    53           OnChange = RadioButtonModeLocalChange
    5452          ParentFont = False
    5553          TabOrder = 0
    5654          TabStop = True
     55          OnChange = RadioButtonModeLocalChange
    5756        end
    5857        object RadioButtonModeNetworkServer: TRadioButton
     
    6059          Height = 30
    6160          Top = 48
    62           Width = 156
     61          Width = 155
    6362          Caption = 'Network server'
     63          ParentFont = False
     64          TabOrder = 1
    6465          OnChange = RadioButtonModeLocalChange
    65           ParentFont = False
    66           TabOrder = 1
    6766        end
    6867        object RadioButtonModeNetworkClient: TRadioButton
     
    7069          Height = 30
    7170          Top = 152
    72           Width = 151
     71          Width = 149
    7372          Caption = 'Network client'
     73          ParentFont = False
     74          TabOrder = 2
    7475          OnChange = RadioButtonModeLocalChange
    75           ParentFont = False
    76           TabOrder = 2
    7776        end
    7877        object EditServerAddress: TEdit
     
    9796          Height = 26
    9897          Top = 88
    99           Width = 41
     98          Width = 40
    10099          Caption = 'Port:'
    101100          ParentColor = False
     
    113112        object ListViewServers: TListView
    114113          Left = 26
    115           Height = 365
     114          Height = 307
    116115          Top = 181
    117116          Width = 334
     
    142141          Left = 26
    143142          Height = 31
    144           Top = 557
     143          Top = 499
    145144          Width = 94
    146145          Action = AServerAdd
     
    152151          Left = 240
    153152          Height = 31
    154           Top = 557
     153          Top = 499
    155154          Width = 94
    156155          Action = AServerRemove
     
    162161          Left = 136
    163162          Height = 30
    164           Top = 556
     163          Top = 498
    165164          Width = 94
    166165          Action = AServerModify
     
    173172    object TabSheetPlayers: TTabSheet
    174173      Caption = 'Players'
    175       ClientHeight = 595
    176       ClientWidth = 796
     174      ClientHeight = 538
     175      ClientWidth = 794
    177176      ParentFont = False
    178177      object Panel2: TPanel
    179178        Left = 0
    180         Height = 596
     179        Height = 538
    181180        Top = 0
    182         Width = 796
     181        Width = 794
    183182        Align = alClient
    184183        BevelOuter = bvNone
     
    189188    object TabSheetMap: TTabSheet
    190189      Caption = 'Map'
    191       ClientHeight = 595
    192       ClientWidth = 796
     190      ClientHeight = 538
     191      ClientWidth = 794
    193192      OnShow = TabSheetMapShow
    194193      ParentFont = False
    195194      object Panel1: TPanel
    196195        Left = 0
    197         Height = 596
     196        Height = 538
    198197        Top = 0
    199         Width = 796
     198        Width = 794
    200199        Align = alClient
    201200        BevelOuter = bvNone
    202         ClientHeight = 596
    203         ClientWidth = 796
     201        ClientHeight = 538
     202        ClientWidth = 794
    204203        ParentFont = False
    205204        TabOrder = 0
     
    208207          Height = 26
    209208          Top = 10
    210           Width = 95
     209          Width = 94
    211210          Caption = 'Map width:'
    212211          ParentColor = False
     
    217216          Height = 26
    218217          Top = 58
    219           Width = 102
     218          Width = 101
    220219          Caption = 'Map height:'
    221220          ParentColor = False
     
    248247          Height = 58
    249248          Top = 8
    250           Width = 545
     249          Width = 543
    251250          Max = 100
    252251          Min = 2
     
    262261          Height = 58
    263262          Top = 49
    264           Width = 545
     263          Width = 543
    265264          Max = 100
    266265          Min = 2
     
    276275          Height = 26
    277276          Top = 104
    278           Width = 83
     277          Width = 82
    279278          Caption = 'Grid type:'
    280279          ParentColor = False
     
    283282        object ComboBoxGridType: TComboBox
    284283          Left = 146
    285           Height = 28
     284          Height = 38
    286285          Top = 104
    287286          Width = 304
     
    294293            'Isometric'
    295294          )
    296           OnChange = ComboBoxGridTypeChange
    297295          ParentFont = False
    298296          Style = csDropDownList
    299297          TabOrder = 4
     298          OnChange = ComboBoxGridTypeChange
    300299        end
    301300        object ComboBoxMapShape: TComboBox
    302301          Left = 146
    303           Height = 28
     302          Height = 38
    304303          Top = 144
    305304          Width = 304
     
    310309            'Triangular'
    311310          )
    312           OnChange = ComboBoxMapShapeChange
    313311          ParentFont = False
    314312          Style = csDropDownList
    315313          TabOrder = 5
     314          OnChange = ComboBoxMapShapeChange
    316315        end
    317316        object Label8: TLabel
     
    328327          Height = 26
    329328          Top = 248
    330           Width = 308
     329          Width = 543
    331330          Anchors = [akTop, akLeft, akRight]
    332331          AutoSize = False
    333332          Caption = 'Symetric map'
     333          ParentFont = False
     334          TabOrder = 6
    334335          OnChange = CheckBoxSymetricMapChange
    335           ParentFont = False
    336           TabOrder = 6
    337336        end
    338337        object SpinEditVoidPercent: TSpinEdit
     
    353352          Width = 189
    354353          Caption = 'Inaccessible places'
     354          ParentFont = False
     355          TabOrder = 8
    355356          OnChange = CheckBoxVoidChange
    356           ParentFont = False
    357           TabOrder = 8
    358357        end
    359358        object CheckBoxCity: TCheckBox
     
    361360          Height = 30
    362361          Top = 368
    363           Width = 73
     362          Width = 72
    364363          Caption = 'Cities'
     364          ParentFont = False
     365          TabOrder = 9
    365366          OnChange = CheckBoxCityChange
    366           ParentFont = False
    367           TabOrder = 9
    368367        end
    369368        object SpinEditCityPercent: TSpinEdit
     
    411410          Height = 26
    412411          Top = 496
    413           Width = 227
     412          Width = 225
    414413          Caption = 'Max random neutral units:'
    415414          ParentColor = False
     
    420419          Height = 43
    421420          Top = 184
    422           Width = 530
     421          Width = 543
    423422          Anchors = [akTop, akLeft, akRight]
     423          ParentFont = False
     424          TabOrder = 12
    424425          OnChange = EditImageFileChange
    425           ParentFont = False
    426           TabOrder = 12
    427426        end
    428427        object ButtonImageBrowse: TButton
    429           Left = 681
     428          Left = 679
    430429          Height = 38
    431430          Top = 190
     
    433432          Anchors = [akTop, akRight]
    434433          Caption = 'Browse'
     434          ParentFont = False
     435          TabOrder = 13
    435436          OnClick = ButtonImageBrowseClick
    436           ParentFont = False
    437           TabOrder = 13
    438437        end
    439438        object Label9: TLabel
     
    450449          Height = 30
    451450          Top = 408
    452           Width = 212
     451          Width = 211
    453452          Caption = 'Bridges between cells'
     453          ParentFont = False
     454          TabOrder = 14
    454455          OnChange = CheckBoxBridgesChange
    455           ParentFont = False
    456           TabOrder = 14
    457456        end
    458457        object SpinEditMaxPower: TSpinEdit
     
    472471          Height = 26
    473472          Top = 448
    474           Width = 156
     473          Width = 155
    475474          Caption = 'Max units per cell:'
    476475          ParentColor = False
     
    481480          Height = 26
    482481          Top = 283
    483           Width = 308
     482          Width = 543
    484483          Anchors = [akTop, akLeft, akRight]
    485484          AutoSize = False
    486485          Caption = 'Cyclic map'
     486          ParentFont = False
     487          TabOrder = 16
    487488          OnChange = CheckBoxCyclicMapChange
    488           ParentFont = False
    489           TabOrder = 16
    490489        end
    491490        object Image1: TImage
     
    493492          Height = 316
    494493          Top = 272
    495           Width = 359
     494          Width = 542
    496495          Anchors = [akTop, akLeft, akRight]
    497496          OnResize = Image1Resize
     
    512511          Width = 154
    513512          Caption = 'Randomize'
     513          ParentFont = False
     514          TabOrder = 17
    514515          OnClick = ButtonRandomizeClick
    515           ParentFont = False
    516           TabOrder = 17
    517516        end
    518517      end
     
    520519    object TabSheetRules: TTabSheet
    521520      Caption = 'Rules'
    522       ClientHeight = 595
    523       ClientWidth = 796
     521      ClientHeight = 538
     522      ClientWidth = 794
    524523      ParentFont = False
    525524      object Panel4: TPanel
    526525        Left = 0
    527         Height = 595
     526        Height = 538
    528527        Top = 0
    529         Width = 796
     528        Width = 794
    530529        Align = alClient
    531530        BevelOuter = bvNone
    532         ClientHeight = 595
    533         ClientWidth = 796
     531        ClientHeight = 538
     532        ClientWidth = 794
    534533        ParentFont = False
    535534        TabOrder = 0
     
    562561          Height = 26
    563562          Top = 248
    564           Width = 120
     563          Width = 119
    565564          Caption = 'Win objective:'
    566565          ParentColor = False
     
    579578            'Stay alive for number of turns'
    580579          )
    581           OnChange = ComboBoxWinObjectiveChange
    582580          ParentFont = False
    583581          Style = csDropDownList
    584582          TabOrder = 1
     583          OnChange = ComboBoxWinObjectiveChange
    585584        end
    586585        object RadioGroupGrowAmount: TRadioGroup
     
    620619          Height = 78
    621620          Top = 290
    622           Width = 773
     621          Width = 771
    623622          ActivePage = TabSheetCaptureEntireMap
    624623          Anchors = [akTop, akLeft, akRight]
     
    635634          object TabSheetCaptureCells: TTabSheet
    636635            ClientHeight = 74
    637             ClientWidth = 763
     636            ClientWidth = 761
    638637            ParentFont = False
    639638            object Label14: TLabel
    640639              Left = 8
    641               Height = 20
     640              Height = 26
    642641              Top = 16
    643               Width = 125
     642              Width = 161
    644643              Caption = 'Special cells count:'
    645644              ParentColor = False
     
    648647            object SpinEditSpecialCells: TSpinEdit
    649648              Left = 236
    650               Height = 28
     649              Height = 43
    651650              Top = 8
    652651              Width = 158
     
    660659          object TabSheetStayAliveTurns: TTabSheet
    661660            ClientHeight = 74
    662             ClientWidth = 763
     661            ClientWidth = 761
    663662            ParentFont = False
    664663            object Label13: TLabel
    665664              Left = 8
    666               Height = 20
     665              Height = 26
    667666              Top = 16
    668               Width = 111
     667              Width = 146
    669668              Caption = 'Number of turns:'
    670669              ParentColor = False
     
    673672            object SpinEditTurns: TSpinEdit
    674673              Left = 236
    675               Height = 28
     674              Height = 43
    676675              Top = 8
    677676              Width = 158
     
    696695    Left = 0
    697696    Height = 46
    698     Top = 699
    699     Width = 1211
     697    Top = 642
     698    Width = 1209
    700699    Align = alBottom
    701700    BevelOuter = bvNone
    702701    ClientHeight = 46
    703     ClientWidth = 1211
     702    ClientWidth = 1209
    704703    ParentFont = False
    705704    TabOrder = 1
    706705    object ButtonOk: TButton
    707       Left = 1024
     706      Left = 1022
    708707      Height = 25
    709708      Top = 7
     
    712711      Caption = 'Ok'
    713712      ModalResult = 1
    714       OnClick = ButtonOkClick
    715713      ParentFont = False
    716714      TabOrder = 0
     715      OnClick = ButtonOkClick
    717716    end
    718717    object ButtonCancel: TButton
    719       Left = 1127
     718      Left = 1125
    720719      Height = 25
    721720      Top = 7
     
    729728  end
    730729  object PanelChat: TPanel
    731     Left = 820
    732     Height = 643
     730    Left = 818
     731    Height = 586
    733732    Top = 56
    734733    Width = 391
     
    739738  end
    740739  object Splitter1: TSplitter
    741     Left = 814
    742     Height = 643
     740    Left = 812
     741    Height = 586
    743742    Top = 56
    744743    Width = 6
     
    750749    Height = 56
    751750    Top = 0
    752     Width = 1211
     751    Width = 1209
    753752    Align = alTop
    754753    BevelOuter = bvNone
    755754    ClientHeight = 56
    756     ClientWidth = 1211
     755    ClientWidth = 1209
    757756    ParentFont = False
    758757    TabOrder = 4
     
    761760      Height = 26
    762761      Top = 16
    763       Width = 121
     762      Width = 120
    764763      Caption = 'Game system:'
    765764      ParentColor = False
     
    772771      Width = 254
    773772      ItemHeight = 0
    774       OnChange = ComboBoxGameSystemChange
    775773      ParentFont = False
    776774      Style = csDropDownList
    777775      TabOrder = 0
     776      OnChange = ComboBoxGameSystemChange
    778777    end
    779778    object ButtonGameSystems: TButton
     
    783782      Width = 113
    784783      Caption = 'Manage'
    785       OnClick = ButtonGameSystemsClick
    786784      ParentFont = False
    787785      TabOrder = 1
     786      OnClick = ButtonGameSystemsClick
    788787    end
    789788  end
    790789  object ActionList1: TActionList
    791790    Images = Core.ImageListSmall
    792     left = 864
    793     top = 216
     791    Left = 864
     792    Top = 216
    794793    object AServerAdd: TAction
    795794      Caption = 'Add'
     
    806805  end
    807806  object OpenPictureDialog1: TOpenPictureDialog
    808     left = 864
    809     top = 360
     807    Left = 864
     808    Top = 360
    810809  end
    811810  object PopupMenuServers: TPopupMenu
    812     left = 864
    813     top = 136
     811    Left = 864
     812    Top = 136
    814813    object MenuItem4: TMenuItem
    815814      Action = AServerAdd
     
    825824    Interval = 500
    826825    OnTimer = TimerMapPreviewTimer
    827     left = 864
    828     top = 446
     826    Left = 864
     827    Top = 446
    829828  end
    830829end
  • trunk/Forms/FormNew.pas

    r316 r317  
    1 unit UFormNew;
     1unit FormNew;
    22
    33interface
     
    55uses
    66  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;
    99
    1010type
     
    1212  { TFormNew }
    1313
    14   TFormNew = class(TForm)
     14  TFormNew = class(TFormEx)
    1515    ActionList1: TActionList;
    1616    AServerAdd: TAction;
     
    115115    procedure ComboBoxWinObjectiveChange(Sender: TObject);
    116116    procedure EditImageFileChange(Sender: TObject);
    117     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    118117    procedure FormCreate(Sender: TObject);
    119118    procedure FormDestroy(Sender: TObject);
     
    143142    NewRandSeed: Cardinal;
    144143    FormPlayers: TFormList;
     144    FormChat: TFormChat;
    145145    procedure LoadGame(Game: TGame);
    146146    procedure SaveGame(Game: TGame);
     
    158158  end;
    159159
    160 var
    161   FormNew: TFormNew;
    162 
    163160
    164161implementation
     
    167164
    168165uses
    169   UFormChat, UCore, UFormServer, UClientGUI, UFormClient,
    170   UFormGameSystems, UMapType;
     166  Core, FormServer, ClientGUI, FormClient, FormGameSystems, MapType;
    171167
    172168resourcestring
     
    350346  ComboBoxGameSystem.Items.BeginUpdate;
    351347  try
    352     while ComboBoxGameSystem.Items.Count > Core.GameSystems.Count do
     348    while ComboBoxGameSystem.Items.Count > Core.Core.GameSystems.Count do
    353349      ComboBoxGameSystem.Items.Delete(ComboBoxGameSystem.Items.Count - 1);
    354     while ComboBoxGameSystem.Items.Count < Core.GameSystems.Count do
     350    while ComboBoxGameSystem.Items.Count < Core.Core.GameSystems.Count do
    355351      ComboBoxGameSystem.Items.Add('');
    356     for I := 0 to Core.GameSystems.Count - 1 do begin
    357       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];
    359355    end;
    360356    if Assigned(LastSystem) then
     
    457453    ItemIndex := LastIndex;
    458454  end;
    459   Core.CoolTranslator1.TranslateComponentRecursive(Self);
     455  Core.Core.Translator1.TranslateComponentRecursive(Self);
    460456end;
    461457
     
    500496  Randomize;
    501497  NewRandSeed := RandSeed;
    502   Core.PersistentForm.Load(Self);
    503   Core.ThemeManager1.UseTheme(Self);
    504498  ReloadView;
    505499  //Height := Trunc(1.5 * Height);
     
    583577end;
    584578
    585 procedure TFormNew.FormClose(Sender: TObject; var CloseAction: TCloseAction);
    586 begin
    587   Core.PersistentForm.Save(Self);
    588 end;
    589 
    590579procedure TFormNew.AServerAddExecute(Sender: TObject);
    591580var
    592581  NewServerInfo: TServerInfo;
     582  FormServer: TFormServer;
    593583begin
    594584  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;
    602595end;
    603596
     
    605598var
    606599  ServerInfo: TServerInfo;
     600  FormServer: TFormServer;
    607601begin
    608602  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;
    615612end;
    616613
     
    629626
    630627procedure TFormNew.ButtonGameSystemsClick(Sender: TObject);
     628var
     629  FormGameSystems: TFormGameSystems;
    631630begin
    632631  FormGameSystems := TFormGameSystems.Create(nil);
    633632  try
    634     FormGameSystems.GameSystems := Core.GameSystems;
     633    FormGameSystems.GameSystems := Core.Core.GameSystems;
    635634    FormGameSystems.ShowModal;
    636635    ReloadGameSystemsMenu;
     
    683682    SpinEditServerPort.Value := LocalNetworkPort;
    684683  end;
    685   ServerList.Assign(Core.ServerList);
     684  ServerList.Assign(Core.Core.ServerList);
    686685  LoadGame(Server.Game);
    687686end;
     
    703702    end;
    704703  end;
    705   Core.ServerList.Assign(ServerList);
     704  Core.Core.ServerList.Assign(ServerList);
    706705  SaveGame(Server.Game);
    707706end;
  • trunk/Forms/FormPlayersStats.lfm

    r316 r317  
    11object FormPlayersStats: TFormPlayersStats
    2   Left = 468
     2  Left = 907
    33  Height = 300
    4   Top = 477
     4  Top = 570
    55  Width = 746
    66  Caption = 'Players stats'
    77  ClientHeight = 300
    88  ClientWidth = 746
    9   DesignTimePPI = 120
    10   OnClose = FormClose
     9  DesignTimePPI = 144
    1110  OnShow = FormShow
    12   LCLVersion = '2.0.0.4'
     11  LCLVersion = '3.4.0.0'
    1312  object ListView1: TListView
    14     Left = 4
    15     Height = 292
    16     Top = 4
    17     Width = 738
     13    Left = 5
     14    Height = 290
     15    Top = 5
     16    Width = 736
    1817    Align = alClient
    19     BorderSpacing.Around = 4
     18    BorderSpacing.Around = 5
    2019    Columns = <   
    2120      item
    2221        Caption = 'Name'
    23         Width = 100
     22        Width = 120
    2423      end   
    2524      item
    2625        Caption = 'Mode'
    27         Width = 100
     26        Width = 120
    2827      end   
    2928      item
    3029        Caption = 'Cells'
    31         Width = 100
     30        Width = 120
    3231      end   
    3332      item
    3433        Caption = 'Discovered'
    35         Width = 100
     34        Width = 120
    3635      end   
    3736      item
    3837        Caption = 'Cities'
    39         Width = 100
     38        Width = 120
    4039      end   
    4140      item
    4241        Caption = 'Units'
    43         Width = 100
     42        Width = 120
    4443      end   
    4544      item
    4645        Caption = 'Win objective cells'
    47         Width = 100
     46        Width = 150
    4847      end>
    4948    OwnerData = True
     
    5655  end
    5756  object PopupMenu1: TPopupMenu
    58     left = 143
    59     top = 110
     57    Left = 172
     58    Top = 132
    6059    object MenuItem1: TMenuItem
    6160      Action = ASpectate
     
    6362  end
    6463  object ActionList1: TActionList
    65     left = 358
    66     top = 111
     64    Left = 448
     65    Top = 136
    6766    object ASpectate: TAction
    6867      Caption = 'Spectate'
     
    7675    Column = 0
    7776    Order = soNone
    78     left = 544
    79     top = 110
     77    Left = 653
     78    Top = 132
    8079  end
    8180end
  • trunk/Forms/FormPlayersStats.pas

    r316 r317  
    1 unit UFormPlayersStats;
     1unit FormPlayersStats;
    22
    33interface
     
    55uses
    66  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
    7   Menus, ActnList, UGame, ListViewSort;
     7  Menus, ActnList, Game, ListViewSort, FormEx;
    88
    99type
     
    1111  { TFormPlayersStats }
    1212
    13   TFormPlayersStats = class(TForm)
     13  TFormPlayersStats = class(TFormEx)
    1414    ASpectate: TAction;
    1515    ActionList1: TActionList;
     
    1919    PopupMenu1: TPopupMenu;
    2020    procedure ASpectateExecute(Sender: TObject);
    21     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    2221    procedure FormShow(Sender: TObject);
    2322    procedure ListView1Data(Sender: TObject; Item: TListItem);
     
    2827  end;
    2928
    30 var
    31   FormPlayersStats: TFormPlayersStats;
    32 
    3329
    3430implementation
    3531
    3632uses
    37   UCore, UPlayer;
     33  Core, Player;
    3834
    3935{$R *.lfm}
     
    4339procedure TFormPlayersStats.ListView1Data(Sender: TObject; Item: TListItem);
    4440begin
    45   with Core.Game do
     41  with Core.Core.Game do
    4642  if Item.Index < ListViewSort1.List.Count then
    4743  with TPlayer(ListViewSort1.List[Item.Index]) do begin
     
    8177begin
    8278  ListViewSort1.List.Clear;
    83   for I := 0 to Core.Game.Players.Count - 1 do begin
    84     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]);
    8581  end;
    8682end;
     
    8884procedure TFormPlayersStats.FormShow(Sender: TObject);
    8985begin
    90   Core.PersistentForm.Load(Self);
    91   Core.ThemeManager1.UseTheme(Self);
    92   Core.CoolTranslator1.TranslateComponentRecursive(Self);
    9386  ReloadList;
    94 end;
    95 
    96 procedure TFormPlayersStats.FormClose(Sender: TObject;
    97   var CloseAction: TCloseAction);
    98 begin
    99   Core.PersistentForm.Save(Self);
    10087end;
    10188
     
    10390begin
    10491  if Assigned(ListView1.Selected) then
    105     Core.Spectate(TPlayer(ListView1.Selected.Data));
     92    Core.Core.Spectate(TPlayer(ListView1.Selected.Data));
    10693end;
    10794
  • trunk/Forms/FormServer.lfm

    r316 r317  
    11object FormServer: TFormServer
    2   Left = 691
     2  Left = 1078
    33  Height = 210
    4   Top = 389
     4  Top = 615
    55  Width = 403
    66  Caption = 'Server'
    77  ClientHeight = 210
    88  ClientWidth = 403
    9   DesignTimePPI = 120
    10   OnShow = FormShow
    11   LCLVersion = '2.0.0.4'
     9  DesignTimePPI = 144
     10  LCLVersion = '3.4.0.0'
    1211  object Label1: TLabel
    13     Left = 10
    14     Height = 20
    15     Top = 20
    16     Width = 43
     12    Left = 12
     13    Height = 26
     14    Top = 24
     15    Width = 56
    1716    Caption = 'Name:'
    1817    ParentColor = False
     
    2019  end
    2120  object EditName: TEdit
    22     Left = 136
    23     Height = 28
    24     Top = 14
    25     Width = 234
     21    Left = 163
     22    Height = 43
     23    Top = 17
     24    Width = 281
    2625    ParentFont = False
    2726    TabOrder = 0
    2827  end
    2928  object Label2: TLabel
    30     Left = 10
    31     Height = 20
    32     Top = 60
    33     Width = 56
     29    Left = 12
     30    Height = 26
     31    Top = 72
     32    Width = 74
    3433    Caption = 'Address:'
    3534    ParentColor = False
     
    3736  end
    3837  object EditAddress: TEdit
    39     Left = 136
    40     Height = 28
    41     Top = 53
    42     Width = 236
     38    Left = 163
     39    Height = 43
     40    Top = 64
     41    Width = 283
    4342    ParentFont = False
    4443    TabOrder = 1
    4544  end
    4645  object Label3: TLabel
    47     Left = 10
    48     Height = 20
    49     Top = 100
    50     Width = 30
     46    Left = 12
     47    Height = 26
     48    Top = 120
     49    Width = 40
    5150    Caption = 'Port:'
    5251    ParentColor = False
     
    5453  end
    5554  object SpinEdit1: TSpinEdit
    56     Left = 136
    57     Height = 28
    58     Top = 93
    59     Width = 97
     55    Left = 163
     56    Height = 43
     57    Top = 112
     58    Width = 116
    6059    MaxValue = 65535
    6160    ParentFont = False
     
    6362  end
    6463  object ButtonCancel: TButton
    65     Left = 240
    66     Height = 31
    67     Top = 155
    68     Width = 94
     64    Left = 288
     65    Height = 37
     66    Top = 186
     67    Width = 113
    6968    Caption = 'Cancel'
    7069    ModalResult = 2
     
    7372  end
    7473  object ButtonOk: TButton
    75     Left = 80
    76     Height = 31
    77     Top = 155
    78     Width = 94
     74    Left = 96
     75    Height = 37
     76    Top = 186
     77    Width = 113
    7978    Caption = 'OK'
    8079    ModalResult = 1
    81     OnClick = ButtonOkClick
    8280    ParentFont = False
    8381    TabOrder = 4
     82    OnClick = ButtonOkClick
    8483  end
    8584end
  • trunk/Forms/FormServer.pas

    r316 r317  
    1 unit UFormServer;
     1unit FormServer;
    22
    33interface
     
    55uses
    66  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    7   Spin, UServerList;
     7  Spin, ServerList, FormEx;
    88
    99type
     
    1111  { TFormServer }
    1212
    13   TFormServer = class(TForm)
     13  TFormServer = class(TFormEx)
    1414    ButtonCancel: TButton;
    1515    ButtonOk: TButton;
     
    2121    SpinEdit1: TSpinEdit;
    2222    procedure ButtonOkClick(Sender: TObject);
    23     procedure FormShow(Sender: TObject);
    2423  private
    2524    FServerInfo: TServerInfo;
     
    3130  end;
    3231
    33 var
    34   FormServer: TFormServer;
    35 
    3632
    3733implementation
     
    3935{$R *.lfm}
    4036
    41 uses
    42   UCore;
    43 
    4437{ TFormServer }
    45 
    46 procedure TFormServer.FormShow(Sender: TObject);
    47 begin
    48   Core.ThemeManager1.UseTheme(Self);
    49 end;
    5038
    5139procedure TFormServer.ButtonOkClick(Sender: TObject);
  • trunk/Forms/FormSettings.lfm

    r316 r317  
    11object FormSettings: TFormSettings
    2   Left = 535
    3   Height = 299
    4   Top = 386
    5   Width = 480
     2  Left = 851
     3  Height = 613
     4  Top = 413
     5  Width = 857
    66  ActiveControl = ButtonOk
    77  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
    1413  OnCreate = FormCreate
    1514  OnShow = FormShow
    1615  Position = poMainFormCenter
    17   LCLVersion = '2.0.0.4'
     16  LCLVersion = '3.4.0.0'
    1817  object ButtonOk: TButton
    19     Left = 411
    20     Height = 21
    21     Top = 266
    22     Width = 62
     18    Left = 775
     19    Height = 25
     20    Top = 574
     21    Width = 74
    2322    Anchors = [akRight, akBottom]
    2423    Caption = 'Ok'
     
    2827  end
    2928  object ButtonCancel: TButton
    30     Left = 332
    31     Height = 21
    32     Top = 266
    33     Width = 62
     29    Left = 680
     30    Height = 25
     31    Top = 574
     32    Width = 74
    3433    Anchors = [akRight, akBottom]
    3534    Caption = 'Cancel'
     
    3938  end
    4039  object PageControl1: TPageControl
    41     Left = 7
    42     Height = 245
    43     Top = 7
    44     Width = 466
     40    Left = 8
     41    Height = 558
     42    Top = 8
     43    Width = 841
    4544    ActivePage = TabSheetGeneral
    4645    Align = alTop
    4746    Anchors = [akTop, akLeft, akRight, akBottom]
    48     BorderSpacing.Around = 7
     47    BorderSpacing.Around = 8
    4948    ParentFont = False
    5049    TabIndex = 0
     
    5251    object TabSheetGeneral: TTabSheet
    5352      Caption = 'General'
    54       ClientHeight = 212
    55       ClientWidth = 458
     53      ClientHeight = 518
     54      ClientWidth = 831
    5655      ParentFont = False
    5756      object Panel1: TPanel
    5857        Left = 0
    59         Height = 212
     58        Height = 518
    6059        Top = 0
    61         Width = 458
     60        Width = 831
    6261        Align = alClient
    6362        BevelOuter = bvNone
    64         ClientHeight = 212
    65         ClientWidth = 458
     63        ClientHeight = 518
     64        ClientWidth = 831
    6665        ParentFont = False
    6766        TabOrder = 0
    6867        object Label1: TLabel
    69           Left = 17
    70           Height = 20
    71           Top = 27
    72           Width = 68
     68          Left = 20
     69          Height = 26
     70          Top = 32
     71          Width = 88
    7372          Caption = 'Language:'
    7473          ParentColor = False
     
    7675        end
    7776        object ComboBoxLanguage: TComboBox
    78           Left = 148
    79           Height = 28
    80           Top = 20
    81           Width = 163
    82           ItemHeight = 20
     77          Left = 178
     78          Height = 42
     79          Top = 24
     80          Width = 196
     81          ItemHeight = 0
    8382          ParentFont = False
    8483          Style = csDropDownList
     
    8685        end
    8786        object ComboBoxTheme: TComboBox
    88           Left = 147
    89           Height = 28
    90           Top = 60
    91           Width = 163
    92           ItemHeight = 20
     87          Left = 176
     88          Height = 42
     89          Top = 72
     90          Width = 196
     91          ItemHeight = 0
    9392          ParentFont = False
    9493          Style = csDropDownList
     
    9695        end
    9796        object Label6: TLabel
    98           Left = 17
    99           Height = 20
    100           Top = 67
    101           Width = 48
     97          Left = 20
     98          Height = 26
     99          Top = 80
     100          Width = 63
    102101          Caption = 'Theme:'
    103102          ParentColor = False
     
    105104        end
    106105        object SpinEditAnimSpeed: TSpinEdit
    107           Left = 193
    108           Height = 28
    109           Top = 100
    110           Width = 102
     106          Left = 232
     107          Height = 43
     108          Top = 120
     109          Width = 122
    111110          ParentFont = False
    112111          TabOrder = 2
    113112        end
    114113        object Label3: TLabel
    115           Left = 307
    116           Height = 20
    117           Top = 103
    118           Width = 12
     114          Left = 368
     115          Height = 26
     116          Top = 124
     117          Width = 15
    119118          Caption = '%'
    120119          ParentColor = False
     
    122121        end
    123122        object Label2: TLabel
    124           Left = 17
    125           Height = 20
    126           Top = 100
    127           Width = 116
     123          Left = 20
     124          Height = 26
     125          Top = 120
     126          Width = 149
    128127          Caption = 'Animation speed:'
    129128          ParentColor = False
     
    131130        end
    132131        object CheckBoxAutoSaveTurn: TCheckBox
    133           Left = 17
    134           Height = 24
    135           Top = 128
    136           Width = 213
     132          Left = 20
     133          Height = 30
     134          Top = 154
     135          Width = 269
    137136          Caption = 'Autosave game on each turn'
    138137          ParentFont = False
     
    140139        end
    141140        object CheckBoxReopenLastFile: TCheckBox
    142           Left = 17
    143           Height = 24
    144           Top = 162
    145           Width = 198
     141          Left = 20
     142          Height = 30
     143          Top = 194
     144          Width = 248
    146145          Caption = 'Reopen last game on start'
    147146          ParentFont = False
     
    152151    object TabSheetDebug: TTabSheet
    153152      Caption = 'Debug'
    154       ClientHeight = 260
    155       ClientWidth = 554
     153      ClientHeight = 518
     154      ClientWidth = 831
    156155      ParentFont = False
    157156      object Panel2: TPanel
    158157        Left = 0
    159         Height = 229
     158        Height = 518
    160159        Top = 0
    161         Width = 583
     160        Width = 831
    162161        Align = alClient
    163162        BevelOuter = bvNone
    164         ClientHeight = 229
    165         ClientWidth = 583
     163        ClientHeight = 518
     164        ClientWidth = 831
    166165        ParentFont = False
    167166        TabOrder = 0
    168167        object CheckBox2: TCheckBox
    169           Left = 13
    170           Height = 20
    171           Top = 27
    172           Width = 557
     168          Left = 16
     169          Height = 24
     170          Top = 32
     171          Width = 799
    173172          Anchors = [akTop, akLeft, akRight]
    174173          AutoSize = False
    175174          Caption = 'Automatic DPI'
     175          ParentFont = False
     176          TabOrder = 0
    176177          OnChange = CheckBox2Change
    177           ParentFont = False
    178           TabOrder = 0
    179178        end
    180179        object Label4: TLabel
    181           Left = 12
    182           Height = 26
    183           Top = 56
     180          Left = 14
     181          Height = 26
     182          Top = 67
    184183          Width = 35
    185184          Caption = 'DPI:'
     
    188187        end
    189188        object SpinEditX: TSpinEdit
    190           Left = 87
    191           Height = 36
    192           Top = 53
    193           Width = 80
     189          Left = 104
     190          Height = 43
     191          Top = 64
     192          Width = 96
    194193          MaxValue = 500
    195194          MinValue = 20
     
    199198        end
    200199        object Label5: TLabel
    201           Left = 173
    202           Height = 26
    203           Top = 56
     200          Left = 208
     201          Height = 26
     202          Top = 67
    204203          Width = 10
    205204          Caption = 'x'
     
    208207        end
    209208        object SpinEditY: TSpinEdit
    210           Left = 193
    211           Height = 36
    212           Top = 53
    213           Width = 75
     209          Left = 232
     210          Height = 43
     211          Top = 64
     212          Width = 90
    214213          MaxValue = 500
    215214          MinValue = 20
     
    219218        end
    220219        object CheckBoxDevelMode: TCheckBox
    221           Left = 13
    222           Height = 22
    223           Top = 113
    224           Width = 560
     220          Left = 16
     221          Height = 26
     222          Top = 136
     223          Width = 803
    225224          Anchors = [akTop, akLeft, akRight]
    226225          AutoSize = False
  • trunk/Forms/FormSettings.pas

    r316 r317  
    1 unit UFormSettings;
     1unit FormSettings;
    22
    33interface
     
    55uses
    66  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    7   Spin, ComCtrls, ExtCtrls;
     7  Spin, ComCtrls, ExtCtrls, FormEx;
    88
    99type
     
    1111  { TFormSettings }
    1212
    13   TFormSettings = class(TForm)
     13  TFormSettings = class(TFormEx)
    1414    ButtonOk: TButton;
    1515    ButtonCancel: TButton;
     
    3535    TabSheetDebug: TTabSheet;
    3636    procedure CheckBox2Change(Sender: TObject);
    37     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    3837    procedure FormCreate(Sender: TObject);
    3938    procedure FormShow(Sender: TObject);
     
    4342  end;
    4443
    45 var
    46   FormSettings: TFormSettings;
    4744
    4845
     
    5249
    5350uses
    54   UCore, Languages, Theme;
     51  Core, Languages, Theme;
    5552
    5653{ TFormSettings }
     
    6259end;
    6360
    64 procedure TFormSettings.FormClose(Sender: TObject; var CloseAction: TCloseAction
    65   );
    66 begin
    67   Core.PersistentForm.Save(Self);
    68 end;
    69 
    7061procedure TFormSettings.FormCreate(Sender: TObject);
    7162begin
    7263  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);
    7666end;
    7767
    7868procedure TFormSettings.FormShow(Sender: TObject);
    7969begin
    80   Core.PersistentForm.Load(Self);
    81   Core.ThemeManager1.UseTheme(Self);
    8270  {$IFDEF DEBUG}
    8371  TabSheetDebug.TabVisible := True;
     
    8977procedure TFormSettings.Load;
    9078begin
    91   ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Core.CoolTranslator1.Language);
     79  ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Core.Core.Translator1.Language);
    9280  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);
    9482  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;
    10290end;
    10391
     
    10593begin
    10694  if ComboBoxLanguage.ItemIndex <> -1 then
    107     Core.CoolTranslator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
     95    Core.Core.Translator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
    10896   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;
    116104end;
    117105
  • trunk/Forms/FormUnitMoves.lfm

    r316 r317  
    11object FormUnitMoves: TFormUnitMoves
    2   Left = 730
    3   Height = 418
    4   Top = 211
    5   Width = 802
     2  Left = 879
     3  Height = 499
     4  Top = 514
     5  Width = 950
    66  Caption = 'Unit moves'
    7   ClientHeight = 418
    8   ClientWidth = 802
    9   DesignTimePPI = 120
    10   OnClose = FormClose
     7  ClientHeight = 499
     8  ClientWidth = 950
     9  DesignTimePPI = 144
    1110  OnShow = FormShow
    12   LCLVersion = '2.0.0.4'
     11  LCLVersion = '3.4.0.0'
    1312  object ListView1: TListView
    1413    Left = 0
    15     Height = 418
     14    Height = 499
    1615    Top = 0
    17     Width = 802
     16    Width = 950
    1817    Align = alClient
    1918    Columns = <   
    2019      item
    2120        Caption = 'From cell'
    22         Width = 150
     21        Width = 180
    2322      end   
    2423      item
    2524        Caption = 'To cell'
    26         Width = 150
     25        Width = 180
    2726      end   
    2827      item
    2928        Caption = 'Once count'
    30         Width = 150
     29        Width = 180
    3130      end   
    3231      item
    3332        Caption = 'Repeat count'
    34         Width = 332
     33        Width = 398
    3534      end>
    3635    OwnerData = True
  • trunk/Forms/FormUnitMoves.pas

    r316 r317  
    1 unit UFormUnitMoves;
     1unit FormUnitMoves;
    22
    33interface
    44
    55uses
    6   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls;
     6  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
     7  FormEx;
    78
    89type
     
    1011  { TFormUnitMoves }
    1112
    12   TFormUnitMoves = class(TForm)
     13  TFormUnitMoves = class(TFormEx)
    1314    ListView1: TListView;
    14     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    1515    procedure FormShow(Sender: TObject);
    1616    procedure ListView1Data(Sender: TObject; Item: TListItem);
    17   private
    18 
    1917  public
    2018    procedure ReloadList;
    2119  end;
    2220
    23 var
    24   FormUnitMoves: TFormUnitMoves;
    2521
    2622implementation
    2723
    2824uses
    29   UGame, UCore, UPlayer;
     25  Game, Core, Player;
    3026
    3127{$R *.lfm}
     
    3531procedure TFormUnitMoves.ListView1Data(Sender: TObject; Item: TListItem);
    3632begin
    37   if Assigned(Core.Game) and Assigned(Core.Game.CurrentPlayer) then
    38   with Core.Game.CurrentPlayer do
     33  if Assigned(Core.Core.Game) and Assigned(Core.Core.Game.CurrentPlayer) then
     34  with Core.Core.Game.CurrentPlayer do
    3935  if (Mode = pmHuman) and (Item.Index < Moves.Count) then
    4036  with TUnitMove(Moves[Item.Index]) do begin
     
    4844procedure TFormUnitMoves.FormShow(Sender: TObject);
    4945begin
    50   Core.PersistentForm.Load(Self);
    51   Core.ThemeManager1.UseTheme(Self);
    52   Core.CoolTranslator1.TranslateComponentRecursive(Self);
    5346  ReloadList;
    54 end;
    55 
    56 procedure TFormUnitMoves.FormClose(Sender: TObject;
    57   var CloseAction: TCloseAction);
    58 begin
    59   Core.PersistentForm.Save(Self);
    6047end;
    6148
    6249procedure TFormUnitMoves.ReloadList;
    6350begin
    64   if Assigned(Core.Game) and Assigned(Core.Game.CurrentPlayer) and
    65   (Core.Game.CurrentPlayer.Mode = pmHuman) then
    66     ListView1.Items.Count := Core.Game.CurrentPlayer.Moves.Count
     51  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
    6754  else ListView1.Items.Count := 0;
    6855  ListView1.Refresh;
  • trunk/Game.pas

    r316 r317  
    1 unit UGame;
     1unit Game;
    22
    33interface
     
    55uses
    66  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;
    99
    1010const
  • trunk/GameClient.pas

    r316 r317  
    1 unit UGameClient;
     1unit GameClient;
    22
    33interface
    44
    55uses
    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;
    88
    99type
     
    7979
    8080uses
    81   UClientGUI;
     81  ClientGUI;
    8282
    8383{ TClients }
  • trunk/GameConnection.pas

    r316 r317  
    1 unit UGameConnection;
     1unit GameConnection;
    22
    33interface
  • trunk/GameProtocol.pas

    r316 r317  
    1 unit UGameProtocol;
     1unit GameProtocol;
    22
    33interface
    44
    55uses
    6   Classes, SysUtils, UGame, UVarBlockSerializer, UCommPin, SpecializedList;
     6  Classes, SysUtils, Game, UVarBlockSerializer, CommPin, SpecializedList;
    77
    88type
  • trunk/GameServer.pas

    r316 r317  
    1 unit UGameServer;
     1unit GameServer;
    22
    33interface
    44
    55uses
    6   Classes, SysUtils, UGame, DOM, XMLConf, Generics.Collections, UGameProtocol,
    7   UCommFrame, UPlayer;
     6  Classes, SysUtils, Game, DOM, XMLConf, Generics.Collections, GameProtocol,
     7  CommFrame, Player;
    88
    99type
  • trunk/GameSystem.pas

    r316 r317  
    1 unit UGameSystem;
     1unit GameSystem;
    22
    33interface
    44
    55uses
    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;
    88
    99type
  • trunk/Geometry.pas

    r316 r317  
    1 unit UGeometry;
     1unit Geometry;
    22
    33interface
  • trunk/GeometryClasses.pas

    r316 r317  
    1 unit UGeometryClasses;
     1unit GeometryClasses;
    22
    33interface
  • trunk/ItemList.pas

    r316 r317  
    1 unit UItemList;
     1unit ItemList;
    22
    33interface
  • trunk/Languages/xtactics.cs.po

    r313 r317  
    11msgid ""
    22msgstr ""
    3 "Content-Type: text/plain; charset=UTF-8\n"
    43"Project-Id-Version: \n"
    54"POT-Creation-Date: \n"
     
    76"Last-Translator: Chronos <robie@centrum.cz>\n"
    87"Language-Team: \n"
     8"Language: cs\n"
    99"MIME-Version: 1.0\n"
     10"Content-Type: text/plain; charset=UTF-8\n"
    1011"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
     15msgctxt "building.sbonusattack"
     16msgid "Unit attack bonus"
     17msgstr "Útočný bonus jednotky"
     18
     19#: building.sbonusdefense
     20msgctxt "building.sbonusdefense"
     21msgid "Unit defense bonus"
     22msgstr "Obranný bonus jednotky"
     23
     24#: building.sbonusgrow
     25msgctxt "building.sbonusgrow"
     26msgid "Unit grow bonus"
     27msgstr "Růstový bonus jednotky"
     28
     29#: building.sbonusviewrange
     30msgctxt "building.sbonusviewrange"
     31msgid "Unit view range bonus"
     32msgstr "Dohledový bonus jednotky"
     33
     34#: building.sbuildingkind
     35msgctxt "building.sbuildingkind"
     36msgid "Building"
     37msgstr "Budovy"
     38
     39#: building.scity
     40msgctxt "building.scity"
     41msgid "City"
     42msgstr "Město"
     43
     44#: building.scost
     45msgctxt "building.scost"
     46msgid "Cost"
     47msgstr "Cena"
     48
     49#: building.snone
     50msgctxt "building.snone"
     51msgid "None"
     52msgstr "Žádný"
     53
     54#: building.sspecialtype
     55msgctxt "building.sspecialtype"
     56msgid "Special type"
     57msgstr "Speciální typ"
     58
     59#: clientgui.swrongarrowangle
     60#, object-pascal-format
     61msgctxt "clientgui.swrongarrowangle"
     62msgid "Wrong arrow angle %s"
     63msgstr "Nesprávný úhel šipky %s"
     64
     65#: clientgui.szerozoomnotalowed
     66msgctxt "clientgui.szerozoomnotalowed"
     67msgid "Zero zoom not allowed"
     68msgstr "Nulové přiblížení není povoleno"
     69
     70#: core.sendgame
     71msgctxt "core.sendgame"
     72msgid "End game?"
     73msgstr "Ukončit hru?"
     74
     75#: core.sendgamequestion
     76msgctxt "core.sendgamequestion"
     77msgid "Do you want to end current game?"
     78msgstr "Chcete ukončit aktuální hru?"
     79
     80#: core.sfiledialogfilter
     81msgctxt "core.sfiledialogfilter"
     82msgid "xTactics games (.xtg)|*.xtg|All files|*.*"
     83msgstr "xTactics hry (.xtg)|*.xtg|Všechny soubory|*.*"
     84
     85#: core.smissingserverclientforplayer
     86msgctxt "core.smissingserverclientforplayer"
     87msgid "Server client for current player not found."
     88msgstr "Chybí klient serveru pro aktuálního hráče."
     89
     90#: core.splayersnotinitialized
     91#, object-pascal-format
     92msgctxt "core.splayersnotinitialized"
     93msgid "Not all players were initialized with start cell. Needed %d, initialized %d. Change map parameters to have more terrain cells."
     94msgstr "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
     98msgctxt "core.splayerswins"
     99msgid "Players %s win"
     100msgstr "Hráči %s vyhráli"
     101
     102#: core.splayerwins
     103#, object-pascal-format
     104msgctxt "core.splayerwins"
     105msgid "Player %s wins"
     106msgstr "Hráč %s vyhrál"
     107
     108#: core.srestartgame
     109msgctxt "core.srestartgame"
     110msgid "Restart game?"
     111msgstr "Restartovat hru?"
     112
     113#: core.srestartgamequestion
     114msgctxt "core.srestartgamequestion"
     115msgid "Do you want to restart current game?"
     116msgstr "Chcete restartovat aktuální hru?"
     117
     118#: formcharts.scitiescount
     119msgctxt "formcharts.scitiescount"
     120msgid "Cities count"
     121msgstr "Počet měst"
     122
     123#: formcharts.sdiscoveredcells
     124msgctxt "formcharts.sdiscoveredcells"
     125msgid "Discovered cells"
     126msgstr "Objevených buněk"
     127
     128#: formcharts.smilitarypower
     129msgctxt "formcharts.smilitarypower"
     130msgid "Military power"
     131msgstr "Vojenská síla"
     132
     133#: formcharts.soccupiedcells
     134msgctxt "formcharts.soccupiedcells"
    126135msgid "Occupied cells"
    127136msgstr "Obsazené buňky"
    128137
    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
     139msgctxt "formcharts.swinobjectivecells"
     140msgid "Win objective cells"
     141msgstr "Buňky cíle vítězství"
     142
     143#: formclient.ssurrender
     144msgctxt "formclient.ssurrender"
    153145msgid "Surrender"
    154146msgstr "Vzdát se"
    155147
    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
     149msgctxt "formclient.ssurrenderquestion"
    944150msgid "Do you want to surrender current game?"
    945151msgstr "Chcete vzdát aktuální hru?"
    946152
    947 #: uformclient.sturn
    948 msgctxt "uformclient.sturn"
     153#: formclient.sturn
     154msgctxt "formclient.sturn"
    949155msgid "turn"
    950156msgstr "tah"
    951157
    952 #: uformgamesystem.sfiledialogfilter
     158#: formgamesystem.sfiledialogfilter
     159msgctxt "formgamesystem.sfiledialogfilter"
    953160msgid "xTactics game system (.xts)|*.xts|All files|*.*"
    954161msgstr "xTactics herní systém (.xts)|*.xts|Všechny soubory|*.*"
    955162
    956 #: uformgamesystems.snewgamesystem
     163#: formgamesystems.snewgamesystem
     164msgctxt "formgamesystems.snewgamesystem"
    957165msgid "New game system"
    958166msgstr "Nový herní systém"
    959167
    960 #: uformgamesystems.sremoveitems
    961 msgctxt "uformgamesystems.sremoveitems"
     168#: formgamesystems.sremoveitems
     169msgctxt "formgamesystems.sremoveitems"
    962170msgid "Remove items"
    963171msgstr "Odstranit položky"
    964172
    965 #: uformgamesystems.sremoveitemsquery
    966 msgctxt "uformgamesystems.sremoveitemsquery"
     173#: formgamesystems.sremoveitemsquery
     174msgctxt "formgamesystems.sremoveitemsquery"
    967175msgid "Do you want to remove selected items?"
    968176msgstr "Opravdu chcete odstranit vybrané položky?"
    969177
    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
     179msgctxt "formhelp.scontent"
    981180msgid ""
    982181"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"
     
    996195"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"
    997196"\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
     200msgctxt "formkeyshortcuts.sglobal"
    1001201msgid "Global"
    1002202msgstr "Globální"
    1003203
    1004 #: uformkeyshortcuts.smainform
     204#: formkeyshortcuts.smainform
     205msgctxt "formkeyshortcuts.smainform"
    1005206msgid "Main window"
    1006207msgstr "Hlavní okno"
    1007208
    1008 #: uformlist.snew
    1009 msgctxt "uformlist.snew"
     209#: formlist.snew
     210msgctxt "formlist.snew"
    1010211msgid "New"
    1011212msgstr "Nová"
    1012213
    1013 #: uformlist.sremoveitems
    1014 msgctxt "uformlist.sremoveitems"
     214#: formlist.sremoveitems
     215msgctxt "formlist.sremoveitems"
    1015216msgid "Remove items"
    1016217msgstr "Odstranit položky"
    1017218
    1018 #: uformlist.sremoveitemsquery
    1019 msgctxt "uformlist.sremoveitemsquery"
     219#: formlist.sremoveitemsquery
     220msgctxt "formlist.sremoveitemsquery"
    1020221msgid "Do you want to remove selected items?"
    1021222msgstr "Opravdu chcete odstranit vybrané položky?"
    1022223
    1023 #: uformmain.sturn
    1024 msgctxt "uformmain.sturn"
     224#: formmain.sturn
     225msgctxt "formmain.sturn"
    1025226msgid "turn"
    1026227msgstr "tah"
    1027228
    1028 #: uformnew.sfromimagefile
     229#: formnew.sfromimagefile
     230msgctxt "formnew.sfromimagefile"
    1029231msgid "From image file"
    1030232msgstr "Obrázek ze souboru"
    1031233
    1032 #: uformnew.sgrowamountbyone
     234#: formnew.sgrowamountbyone
     235msgctxt "formnew.sgrowamountbyone"
    1033236msgid "By one"
    1034237msgstr "O jeden"
    1035238
    1036 #: uformnew.sgrowamountbysquareroot
     239#: formnew.sgrowamountbysquareroot
     240msgctxt "formnew.sgrowamountbysquareroot"
    1037241msgid "By square root"
    1038242msgstr "O odmocninu"
    1039243
    1040 #: uformnew.sgrownone
    1041 msgctxt "uformnew.sgrownone"
     244#: formnew.sgrownone
     245msgctxt "formnew.sgrownone"
    1042246msgid "None"
    1043247msgstr "Nikde"
    1044248
    1045 #: uformnew.sgrowplayerallcells
     249#: formnew.sgrowplayerallcells
     250msgctxt "formnew.sgrowplayerallcells"
    1046251msgid "Player all cells"
    1047252msgstr "Všechny buňky hráče"
    1048253
    1049 #: uformnew.sgrowplayercities
     254#: formnew.sgrowplayercities
     255msgctxt "formnew.sgrowplayercities"
    1050256msgid "Player cities"
    1051257msgstr "Města hráče"
    1052258
    1053 #: uformnew.srectangular
     259#: formnew.srectangular
     260msgctxt "formnew.srectangular"
    1054261msgid "Rectangular"
    1055262msgstr "Obdelníkový"
    1056263
    1057 #: uformnew.sremoveserver
     264#: formnew.sremoveserver
     265msgctxt "formnew.sremoveserver"
    1058266msgid "Remove server"
    1059267msgstr "Odstranit server"
    1060268
    1061 #: uformnew.sremoveserverquery
     269#: formnew.sremoveserverquery
     270msgctxt "formnew.sremoveserverquery"
    1062271msgid "Do you want to remove server?"
    1063272msgstr "Chcete odstranit server?"
    1064273
    1065 #: uformnew.srounded
     274#: formnew.srounded
     275msgctxt "formnew.srounded"
    1066276msgid "Rounded"
    1067277msgstr "Zakulacený"
    1068278
    1069 #: uformnew.swinobjectivecaptureentiremap
     279#: formnew.swinobjectivecaptureentiremap
     280msgctxt "formnew.swinobjectivecaptureentiremap"
    1070281msgid "Capture entire map"
    1071282msgstr "Obsadit celou mapu"
    1072283
    1073 #: uformnew.swinobjectivecaptureposition
     284#: formnew.swinobjectivecaptureposition
     285msgctxt "formnew.swinobjectivecaptureposition"
    1074286msgid "Capture all special cells"
    1075287msgstr "Dobít všechny speciální buňky"
    1076288
    1077 #: uformnew.swinobjectivedefeatallcities
     289#: formnew.swinobjectivedefeatallcities
     290msgctxt "formnew.swinobjectivedefeatallcities"
    1078291msgid "Defeat all oponents cities"
    1079292msgstr "Porazit všechny města nepřátelů"
    1080293
    1081 #: uformnew.swinobjectivedefeatalloponents
     294#: formnew.swinobjectivedefeatalloponents
     295msgctxt "formnew.swinobjectivedefeatalloponents"
    1082296msgid "Defeat all oponents"
    1083297msgstr "Porazit všechny nepřátele"
    1084298
    1085 #: uformnew.swinobjectivenone
    1086 msgctxt "uformnew.swinobjectivenone"
     299#: formnew.swinobjectivenone
     300msgctxt "formnew.swinobjectivenone"
    1087301msgid "None"
    1088 msgstr "Žádný"
    1089 
    1090 #: uformnew.swinobjectivestayaliveforturns
     302msgstr "Nikde"
     303
     304#: formnew.swinobjectivestayaliveforturns
     305msgctxt "formnew.swinobjectivestayaliveforturns"
    1091306msgid "Stay alive for number of turns"
    1092307msgstr "Zůstat naživu určený počet tahů"
    1093308
    1094 #: ugame.scomputer
    1095 msgctxt "ugame.scomputer"
     309#: game.scomputer
     310msgctxt "game.scomputer"
    1096311msgid "Computer"
    1097312msgstr "Počítač"
    1098313
    1099 #: ugame.shuman
    1100 msgctxt "ugame.shuman"
     314#: game.shuman
     315msgctxt "game.shuman"
    1101316msgid "Human"
    1102317msgstr "Člověk"
    1103318
    1104 #: ugame.sminimumplayers
     319#: game.sminimumplayers
     320msgctxt "game.sminimumplayers"
    1105321msgid "You need at least one player"
    1106322msgstr "Potřebujete alespoň jednoho hráče"
    1107323
    1108 #: ugame.snewgamefile
     324#: game.snewgamefile
     325msgctxt "game.snewgamefile"
    1109326msgid "New game.xtg"
    1110327msgstr "Nová hra.xtg"
    1111328
    1112 #: ugame.splayer
    1113 msgctxt "ugame.splayer"
     329#: game.splayer
     330msgctxt "game.splayer"
    1114331msgid "Player"
    1115332msgstr "Hráč"
    1116333
    1117 #: ugame.sspectator
     334#: game.sspectator
     335msgctxt "game.sspectator"
    1118336msgid "Spectator"
    1119337msgstr "Divák"
    1120338
    1121 #: ugame.sunsupportedmaptype
     339#: game.sunsupportedmaptype
     340msgctxt "game.sunsupportedmaptype"
    1122341msgid "Unsupported map type"
    1123342msgstr "Nepodporovaný typ mapy"
    1124343
    1125 #: ugame.swrongfileformat
    1126 msgctxt "ugame.swrongfileformat"
     344#: game.swrongfileformat
     345msgctxt "game.swrongfileformat"
    1127346msgid "Wrong file format"
    1128347msgstr "Chybný formát souboru"
    1129348
    1130 #: ugamesystem.sgamesystem
    1131 msgctxt "ugamesystem.sgamesystem"
     349#: gamesystem.sgamesystem
     350msgctxt "gamesystem.sgamesystem"
    1132351msgid "Game system"
    1133352msgstr "Herní systém"
    1134353
    1135 #: ugamesystem.swrongfileformat
    1136 msgctxt "ugamesystem.swrongfileformat"
     354#: gamesystem.swrongfileformat
     355msgctxt "gamesystem.swrongfileformat"
    1137356msgid "Wrong file format"
    1138357msgstr "Chybný formát souboru"
    1139358
    1140 #: uitemlist.sitem
    1141 msgctxt "uitemlist.sitem"
     359#: itemlist.sitem
     360msgctxt "itemlist.sitem"
    1142361msgid "Item"
    1143362msgstr "Položka"
    1144363
    1145 #: uitemlist.sname
    1146 msgctxt "uitemlist.sname"
     364#: itemlist.sname
     365msgctxt "itemlist.sname"
    1147366msgid "Name"
    1148367msgstr "Jméno"
    1149368
    1150 #: uitemlist.sno
     369#: itemlist.sno
     370msgctxt "itemlist.sno"
    1151371msgid "No"
    1152372msgstr "Ne"
    1153373
    1154 #: uitemlist.sunsupporteddatatype
     374#: itemlist.sunsupporteddatatype
    1155375#, object-pascal-format
     376msgctxt "itemlist.sunsupporteddatatype"
    1156377msgid "Unsupported field value data type %s"
    1157378msgstr "Nepodporovaný datový typ hodnoty pole %s"
    1158379
    1159 #: uitemlist.syes
     380#: itemlist.syes
     381msgctxt "itemlist.syes"
    1160382msgid "Yes"
    1161383msgstr "Ano"
    1162384
    1163 #: umap.scellremoveneighborerror
    1164 msgctxt "umap.scellremoveneighborerror"
     385#: map.scellremoveneighborerror
     386msgctxt "map.scellremoveneighborerror"
    1165387msgid "Can't remove cell from neighbour cell"
    1166388msgstr "Nelze odstranit buňku ze sousední buňky"
    1167389
    1168 #: umap.snegativecellpowernotallowed
    1169 msgctxt "umap.snegativecellpowernotallowed"
     390#: map.snegativecellpowernotallowed
     391msgctxt "map.snegativecellpowernotallowed"
    1170392msgid "Not allowed to substract power under zero to negative value"
    1171393msgstr "Není povoleno odečíst sílu pod nulu do záporné hodnoty"
    1172394
    1173 #: umaptype.sgridtypehexagonhorizontal
     395#: maptype.sgridtypehexagonhorizontal
     396msgctxt "maptype.sgridtypehexagonhorizontal"
    1174397msgid "Hexagonal horizontal"
    1175398msgstr "Hexagonální vodorovná"
    1176399
    1177 #: umaptype.sgridtypehexagonvertical
     400#: maptype.sgridtypehexagonvertical
     401msgctxt "maptype.sgridtypehexagonvertical"
    1178402msgid "Hexagonal vertical"
    1179403msgstr "Hexagonální svislá"
    1180404
    1181 #: umaptype.sgridtypeisometric
    1182 msgctxt "umaptype.sgridtypeisometric"
     405#: maptype.sgridtypeisometric
     406msgctxt "maptype.sgridtypeisometric"
    1183407msgid "Isometric"
    1184408msgstr "Izometrická"
    1185409
    1186 #: umaptype.sgridtyperandom
    1187 msgctxt "umaptype.sgridtyperandom"
     410#: maptype.sgridtyperandom
     411msgctxt "maptype.sgridtyperandom"
    1188412msgid "Random"
    1189413msgstr "Náhodná"
    1190414
    1191 #: umaptype.sgridtypesquare
    1192 msgctxt "umaptype.sgridtypesquare"
     415#: maptype.sgridtypesquare
     416msgctxt "maptype.sgridtypesquare"
    1193417msgid "Square"
    1194418msgstr "Čtvercová"
    1195419
    1196 #: umaptype.sgridtypetriangle
    1197 msgctxt "umaptype.sgridtypetriangle"
     420#: maptype.sgridtypetriangle
     421msgctxt "maptype.sgridtypetriangle"
    1198422msgid "Triangural"
    1199423msgstr "Trojúhelníková"
    1200424
    1201 #: unation.scolor
    1202 msgctxt "unation.scolor"
     425#: nation.scolor
     426msgctxt "nation.scolor"
    1203427msgid "Color"
    1204428msgstr "Barva"
    1205429
    1206 #: unation.snation
    1207 msgctxt "unation.snation"
     430#: nation.snation
     431msgctxt "nation.snation"
    1208432msgid "Nation"
    1209433msgstr "Národ"
    1210434
    1211 #: uplayer.sagressivity
     435#: player.sagressivity
     436msgctxt "player.sagressivity"
    1212437msgid "Agressivity"
    1213438msgstr "Agresivita"
    1214439
    1215 #: uplayer.sattackerpowerpositive
    1216 msgctxt "uplayer.sattackerpowerpositive"
     440#: player.sattackerpowerpositive
     441msgctxt "player.sattackerpowerpositive"
    1217442msgid "Attacker power have to be higher then 0."
    1218443msgstr "Síla útočníka musí být větší než 0."
    1219444
    1220 #: uplayer.scolor
    1221 msgctxt "uplayer.scolor"
     445#: player.scolor
     446msgctxt "player.scolor"
    1222447msgid "Color"
    1223448msgstr "Barva"
    1224449
    1225 #: uplayer.scomputer
    1226 msgctxt "uplayer.scomputer"
     450#: player.scomputer
     451msgctxt "player.scomputer"
    1227452msgid "Computer"
    1228453msgstr "Počítač"
    1229454
    1230 #: uplayer.sdefenderpowerpositive
    1231 msgctxt "uplayer.sdefenderpowerpositive"
     455#: player.sdefenderpowerpositive
     456msgctxt "player.sdefenderpowerpositive"
    1232457msgid "Defender power have to be higher then or equal to 0."
    1233458msgstr "Síla obránce musí být vyšší než nebo rovna nule."
    1234459
    1235 #: uplayer.sdefensive
    1236 msgctxt "uplayer.sdefensive"
     460#: player.sdefensive
     461msgctxt "player.sdefensive"
    1237462msgid "Defensive"
    1238463msgstr "Obranný"
    1239464
    1240 #: uplayer.shigh
    1241 msgctxt "uplayer.shigh"
     465#: player.shigh
     466msgctxt "player.shigh"
    1242467msgid "High"
    1243468msgstr "Vysoká"
    1244469
    1245 #: uplayer.shuman
    1246 msgctxt "uplayer.shuman"
     470#: player.shuman
     471msgctxt "player.shuman"
    1247472msgid "Human"
    1248473msgstr "Člověk"
    1249474
    1250 #: uplayer.slow
    1251 msgctxt "uplayer.slow"
     475#: player.slow
     476msgctxt "player.slow"
    1252477msgid "Low"
    1253478msgstr "Nízká"
    1254479
    1255 #: uplayer.smedium
    1256 msgctxt "uplayer.smedium"
     480#: player.smedium
     481msgctxt "player.smedium"
    1257482msgid "Medium"
    1258483msgstr "Střední"
    1259484
    1260 #: uplayer.smode
    1261 msgctxt "uplayer.smode"
     485#: player.smode
     486msgctxt "player.smode"
    1262487msgid "Mode"
    1263488msgstr "Režim"
    1264489
    1265 #: uplayer.snation
    1266 msgctxt "uplayer.snation"
     490#: player.snation
     491msgctxt "player.snation"
    1267492msgid "Nation"
    1268493msgstr "Národ"
    1269494
    1270 #: uplayer.sstartunits
    1271 msgctxt "uplayer.sstartunits"
     495#: player.sstartunits
     496msgctxt "player.sstartunits"
    1272497msgid "Start units"
    1273498msgstr "Počátečních jednotek"
    1274499
    1275 #: uplayer.sunfinishedbattle
    1276 msgctxt "uplayer.sunfinishedbattle"
     500#: player.sunfinishedbattle
     501msgctxt "player.sunfinishedbattle"
    1277502msgid "Unfinished battle"
    1278503msgstr "Neukončená bitva"
    1279504
    1280 #: uunit.scost
    1281 msgctxt "uunit.scost"
     505#: tcore.aabout.caption
     506msgctxt "tcore.aabout.caption"
     507msgid "About"
     508msgstr "O aplikaci"
     509
     510#: tcore.aexit.caption
     511msgctxt "TCORE.AEXIT.CAPTION"
     512msgid "Exit"
     513msgstr "Odejít"
     514
     515#: tcore.aexit.hint
     516msgid "Exit application"
     517msgstr "Ukončit aplikaci"
     518
     519#: tcore.afullscreen.caption
     520msgid "Full screen mode"
     521msgstr "Režim celé obrazovky"
     522
     523#: tcore.agameend.caption
     524msgctxt "TCORE.AGAMEEND.CAPTION"
     525msgid "End"
     526msgstr "Ukončit"
     527
     528#: tcore.agameend.hint
     529msgid "End game"
     530msgstr "Ukončit hru"
     531
     532#: tcore.agameload.caption
     533msgctxt "tcore.agameload.caption"
     534msgid "Load"
     535msgstr "Načíst"
     536
     537#: tcore.agamenew.caption
     538msgctxt "TCORE.AGAMENEW.CAPTION"
     539msgid "New"
     540msgstr "Nová"
     541
     542#: tcore.agamenew.hint
     543msgctxt "tcore.agamenew.hint"
     544msgid "New game"
     545msgstr "Nová hra"
     546
     547#: tcore.agamerestart.caption
     548msgctxt "TCORE.AGAMERESTART.CAPTION"
     549msgid "Restart"
     550msgstr "Restartovat"
     551
     552#: tcore.agamerestart.hint
     553msgid "Restart game"
     554msgstr "Restartovat hru"
     555
     556#: tcore.agamesave.caption
     557msgctxt "tcore.agamesave.caption"
     558msgid "Save"
     559msgstr "Uložit"
     560
     561#: tcore.agamesaveas.caption
     562msgid "Save as..."
     563msgstr "Uložit jako..."
     564
     565#: tcore.ahelp.caption
     566msgctxt "tcore.ahelp.caption"
     567msgid "Help"
     568msgstr "Nápověda"
     569
     570#: tcore.anewspectatorclient.caption
     571msgid "New spectator client"
     572msgstr "Nový klient divák"
     573
     574#: tcore.aplayersstats.caption
     575msgid "Players statistics"
     576msgstr "Statistiky hráčů"
     577
     578#: tcore.applicationinfo.description
     579msgid "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."
     580msgstr "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
     583msgctxt "tcore.asettings.caption"
     584msgid "Settings"
     585msgstr "Nastavení"
     586
     587#: tcore.asettings.hint
     588msgid "Application settings"
     589msgstr "Nastavení aplikace"
     590
     591#: tcore.ashowcharts.caption
     592msgctxt "tcore.ashowcharts.caption"
     593msgid "Charts"
     594msgstr "Grafy"
     595
     596#: tcore.ashowkeyshortcuts.caption
     597msgctxt "tcore.ashowkeyshortcuts.caption"
     598msgid "Key shortcuts"
     599msgstr "Klávesové zkratky"
     600
     601#: tcore.ashowunitmoves.caption
     602msgctxt "tcore.ashowunitmoves.caption"
     603msgid "Unit moves"
     604msgstr "Pohyby jednotek"
     605
     606#: tcore.atogglefogofwar.caption
     607msgid "Toggle fog of war"
     608msgstr "Přepnout Skrytou mapu"
     609
     610#: tcore.savedialog1.title
     611msgid "Save as"
     612msgstr "Uložit jako"
     613
     614#: tformcharts.caption
     615msgctxt "tformcharts.caption"
     616msgid "Charts"
     617msgstr "Grafy"
     618
     619#: tformcharts.combobox1.text
     620msgctxt "tformcharts.combobox1.text"
     621msgid "Occupied cells"
     622msgstr "Obsazených buněk"
     623
     624#: tformchat.buttonmessagesend.caption
     625msgid "Send"
     626msgstr "Odeslat"
     627
     628#: tformchat.caption
     629msgid "Chat"
     630msgstr "Pokec"
     631
     632#: tformchat.label1.caption
     633msgid "Chat:"
     634msgstr "Pokec:"
     635
     636#: tformclient.agameendturn.caption
     637msgctxt "tformclient.agameendturn.caption"
     638msgid "End turn"
     639msgstr "Ukončit tah"
     640
     641#: tformclient.astatusbarvisible.caption
     642msgctxt "tformclient.astatusbarvisible.caption"
     643msgid "Statusbar visible"
     644msgstr "Viditelná stavová lišta"
     645
     646#: tformclient.asurrender.caption
     647msgctxt "tformclient.asurrender.caption"
     648msgid "Surrender"
     649msgstr "Vzdát se"
     650
     651#: tformclient.atoolbarbigicons.caption
     652msgctxt "tformclient.atoolbarbigicons.caption"
     653msgid "Toolbar big icons"
     654msgstr "Velké ikony panelu"
     655
     656#: tformclient.atoolbarvisible.caption
     657msgctxt "tformclient.atoolbarvisible.caption"
     658msgid "Toolbar visible"
     659msgstr "Viditelný nástrojový panel"
     660
     661#: tformclient.azoomall.caption
     662msgctxt "tformclient.azoomall.caption"
     663msgid "Zoom all"
     664msgstr "Zobrazit vše"
     665
     666#: tformclient.azoomin.caption
     667msgctxt "tformclient.azoomin.caption"
     668msgid "Zoom in"
     669msgstr "Přiblížit"
     670
     671#: tformclient.azoomout.caption
     672msgctxt "tformclient.azoomout.caption"
     673msgid "Zoom out"
     674msgstr "Oddálit"
     675
     676#: tformclient.caption
     677msgid "Client"
     678msgstr "Klient"
     679
     680#: tformgamesystem.buttoncancel.caption
     681msgctxt "tformgamesystem.buttoncancel.caption"
     682msgid "Cancel"
     683msgstr "Zrušit"
     684
     685#: tformgamesystem.buttonload.caption
     686msgctxt "tformgamesystem.buttonload.caption"
     687msgid "Load"
     688msgstr "Načíst"
     689
     690#: tformgamesystem.buttonok.caption
     691msgctxt "tformgamesystem.buttonok.caption"
     692msgid "OK"
     693msgstr "OK"
     694
     695#: tformgamesystem.buttonsave.caption
     696msgctxt "tformgamesystem.buttonsave.caption"
     697msgid "Save"
     698msgstr "Uložit"
     699
     700#: tformgamesystem.caption
     701msgctxt "tformgamesystem.caption"
     702msgid "Game system"
     703msgstr "Herní systém"
     704
     705#: tformgamesystem.checkboxemptycellsneutral.caption
     706msgid "Set cells without player units as neutral"
     707msgstr "Nastavit buňky bez jednotek hráčů jako neutrální"
     708
     709#: tformgamesystem.checkboxunitsmoveimmediately.caption
     710msgid "Units move immediately"
     711msgstr "Jednotky se hned přesouvají"
     712
     713#: tformgamesystem.checkboxunitssplitmerge.caption
     714msgid "Units can split or merge"
     715msgstr "Jednotky lze rozdělit a sloučit"
     716
     717#: tformgamesystem.tabsheetbuildings.caption
     718msgid "Buildings"
     719msgstr "Budovy"
     720
     721#: tformgamesystem.tabsheetgeneral.caption
     722msgctxt "tformgamesystem.tabsheetgeneral.caption"
     723msgid "General"
     724msgstr "Obecné"
     725
     726#: tformgamesystem.tabsheetnations.caption
     727msgid "Nations"
     728msgstr "Národy"
     729
     730#: tformgamesystem.tabsheetunits.caption
     731msgctxt "tformgamesystem.tabsheetunits.caption"
     732msgid "Units"
     733msgstr "Jednotky"
     734
     735#: tformgamesystems.aadd.caption
     736msgctxt "tformgamesystems.aadd.caption"
     737msgid "Add"
     738msgstr "Přidat"
     739
     740#: tformgamesystems.aclone.caption
     741msgctxt "tformgamesystems.aclone.caption"
     742msgid "Clone"
     743msgstr "Klonovat"
     744
     745#: tformgamesystems.amodify.caption
     746msgctxt "tformgamesystems.amodify.caption"
     747msgid "Modify"
     748msgstr "Upravit"
     749
     750#: tformgamesystems.aremove.caption
     751msgctxt "tformgamesystems.aremove.caption"
     752msgid "Remove"
     753msgstr "Odstranit"
     754
     755#: tformgamesystems.aselectall.caption
     756msgctxt "tformgamesystems.aselectall.caption"
     757msgid "Select all"
     758msgstr "Vybrat vše"
     759
     760#: tformgamesystems.caption
     761msgid "Game systems"
     762msgstr "Herní systémy"
     763
     764#: tformgamesystems.listview1.columns[0].caption
     765msgctxt "tformgamesystems.listview1.columns[0].caption"
     766msgid "Name"
     767msgstr "Jméno"
     768
     769#: tformhelp.caption
     770msgctxt "tformhelp.caption"
     771msgid "Help"
     772msgstr "Nápověda"
     773
     774#: tformitem.buttoncancel.caption
     775msgctxt "tformitem.buttoncancel.caption"
     776msgid "Cancel"
     777msgstr "Zrušit"
     778
     779#: tformitem.buttonok.caption
     780msgctxt "tformitem.buttonok.caption"
     781msgid "OK"
     782msgstr "OK"
     783
     784#: tformitem.caption
     785msgctxt "tformitem.caption"
     786msgid "Item"
     787msgstr "Položka"
     788
     789#: tformkeyshortcuts.caption
     790msgctxt "tformkeyshortcuts.caption"
     791msgid "Key shortcuts"
     792msgstr "Klávesové zkratky"
     793
     794#: tformkeyshortcuts.listview1.columns[0].caption
     795msgid "Action"
     796msgstr "Akce"
     797
     798#: tformkeyshortcuts.listview1.columns[1].caption
     799msgid "Window"
     800msgstr "Okno"
     801
     802#: tformkeyshortcuts.listview1.columns[2].caption
     803msgid "Shortcut"
     804msgstr "Zkratka"
     805
     806#: tformkeyshortcuts.menuitem1.caption
     807msgid "Execute"
     808msgstr "Vykonat"
     809
     810#: tformlist.aadd.caption
     811msgctxt "tformlist.aadd.caption"
     812msgid "Add"
     813msgstr "Přidat"
     814
     815#: tformlist.aclone.caption
     816msgctxt "tformlist.aclone.caption"
     817msgid "Clone"
     818msgstr "Klonovat"
     819
     820#: tformlist.amodify.caption
     821msgctxt "tformlist.amodify.caption"
     822msgid "Modify"
     823msgstr "Upravit"
     824
     825#: tformlist.aremove.caption
     826msgctxt "tformlist.aremove.caption"
     827msgid "Remove"
     828msgstr "Odstranit"
     829
     830#: tformlist.aselectall.caption
     831msgctxt "tformlist.aselectall.caption"
     832msgid "Select all"
     833msgstr "Vybrat vše"
     834
     835#: tformlist.caption
     836msgid "List"
     837msgstr "Seznam"
     838
     839#: tformlist.listview1.columns[0].caption
     840msgctxt "tformlist.listview1.columns[0].caption"
     841msgid "Name"
     842msgstr "Jméno"
     843
     844#: tformmain.amapgridvisible.caption
     845msgid "Map grid visible"
     846msgstr "Mřížka mapy viditelná"
     847
     848#: tformmain.astatusbarvisible.caption
     849msgid "Status bar visible"
     850msgstr "Stavová lišta viditelná"
     851
     852#: tformmain.atoolbarbigicons.caption
     853msgctxt "tformmain.atoolbarbigicons.caption"
     854msgid "Toolbar big icons"
     855msgstr "Velké ikony panelu"
     856
     857#: tformmain.atoolbarvisible.caption
     858msgctxt "tformmain.atoolbarvisible.caption"
     859msgid "Toolbar visible"
     860msgstr "Viditelný nástrojový panel"
     861
     862#: tformmain.aunitshapevisible.caption
     863msgid "Unit shape visible"
     864msgstr "Obrys jednotek viditelný"
     865
     866#: tformmain.caption
     867msgctxt "tformmain.caption"
     868msgid "xTactics"
     869msgstr "xTactics"
     870
     871#: tformmain.menuitem1.caption
     872msgctxt "tformmain.menuitem1.caption"
     873msgid "Game"
     874msgstr "Hra"
     875
     876#: tformmain.menuitem10.caption
     877msgctxt "tformmain.menuitem10.caption"
     878msgid "View"
     879msgstr "Zobrazení"
     880
     881#: tformmain.menuitem11.caption
     882msgctxt "tformmain.menuitem11.caption"
     883msgid "Zoom all"
     884msgstr "Zobrazit vše"
     885
     886#: tformmain.menuitem12.caption
     887msgctxt "tformmain.menuitem12.caption"
     888msgid "Zoom in"
     889msgstr "Přiblížit"
     890
     891#: tformmain.menuitem13.caption
     892msgctxt "tformmain.menuitem13.caption"
     893msgid "Zoom out"
     894msgstr "Oddálit"
     895
     896#: tformmain.menuitem16.caption
     897msgctxt "tformmain.menuitem16.caption"
     898msgid "Help"
     899msgstr "Nápověda"
     900
     901#: tformmain.menuitem8.caption
     902msgctxt "tformmain.menuitem8.caption"
     903msgid "Tools"
     904msgstr "Nástroje"
     905
     906#: tformmain.menuitemdebug.caption
     907msgctxt "tformmain.menuitemdebug.caption"
     908msgid "Debug"
     909msgstr "Ladění"
     910
     911#: tformmain.menuitemloadrecent.caption
     912msgctxt "tformmain.menuitemloadrecent.caption"
     913msgid "Load recent"
     914msgstr "Načíst nedávné"
     915
     916#: tformmove.buttoncancel.caption
     917msgctxt "tformmove.buttoncancel.caption"
     918msgid "Cancel"
     919msgstr "Zrušit"
     920
     921#: tformmove.buttonok.caption
     922msgctxt "tformmove.buttonok.caption"
     923msgid "Ok"
     924msgstr "Ok"
     925
     926#: tformmove.buttononcemax.caption
     927msgctxt "tformmove.buttononcemax.caption"
     928msgid "Max"
     929msgstr "Max"
     930
     931#: tformmove.buttononcemin.caption
     932msgctxt "tformmove.buttononcemin.caption"
     933msgid "Min"
     934msgstr "Min"
     935
     936#: tformmove.buttonremove.caption
     937msgid "Delete"
     938msgstr "Smazat"
     939
     940#: tformmove.buttonrepeatmax.caption
     941msgctxt "tformmove.buttonrepeatmax.caption"
     942msgid "Max"
     943msgstr "Max"
     944
     945#: tformmove.buttonrepeatmin.caption
     946msgctxt "tformmove.buttonrepeatmin.caption"
     947msgid "Min"
     948msgstr "Min"
     949
     950#: tformmove.caption
     951msgid "Move"
     952msgstr "Přesun"
     953
     954#: tformmove.label1.caption
     955msgid "Once:"
     956msgstr "Jednorázově:"
     957
     958#: tformmove.label2.caption
     959msgid "Every turn:"
     960msgstr "Každý tah:"
     961
     962#: tformmove.label3.caption
     963msgid "Win probability:"
     964msgstr "Pravděpodobnost výhry:"
     965
     966#: tformmove.labelwinprobability.caption
     967msgid "   "
     968msgstr "   "
     969
     970#: tformnew.aserveradd.caption
     971msgctxt "tformnew.aserveradd.caption"
     972msgid "Add"
     973msgstr "Přidat"
     974
     975#: tformnew.aservermodify.caption
     976msgctxt "tformnew.aservermodify.caption"
     977msgid "Modify"
     978msgstr "Upravit"
     979
     980#: tformnew.aserverremove.caption
     981msgctxt "tformnew.aserverremove.caption"
     982msgid "Remove"
     983msgstr "Odstranit"
     984
     985#: tformnew.buttoncancel.caption
     986msgctxt "tformnew.buttoncancel.caption"
     987msgid "Cancel"
     988msgstr "Zrušit"
     989
     990#: tformnew.buttongamesystems.caption
     991msgid "Manage"
     992msgstr "Spravovat"
     993
     994#: tformnew.buttonimagebrowse.caption
     995msgctxt "tformnew.buttonimagebrowse.caption"
     996msgid "Browse"
     997msgstr "Vybrat"
     998
     999#: tformnew.buttonok.caption
     1000msgctxt "tformnew.buttonok.caption"
     1001msgid "Ok"
     1002msgstr "Ok"
     1003
     1004#: tformnew.buttonrandomize.caption
     1005msgid "Randomize"
     1006msgstr "Náhodně"
     1007
     1008#: tformnew.caption
     1009msgctxt "tformnew.caption"
     1010msgid "New game"
     1011msgstr "Nová hra"
     1012
     1013#: tformnew.checkboxbridges.caption
     1014msgid "Bridges between cells"
     1015msgstr "Mosty mezi buňkami"
     1016
     1017#: tformnew.checkboxcity.caption
     1018msgctxt "tformnew.checkboxcity.caption"
     1019msgid "Cities"
     1020msgstr "Města"
     1021
     1022#: tformnew.checkboxcyclicmap.caption
     1023msgid "Cyclic map"
     1024msgstr "Cyklická mapa"
     1025
     1026#: tformnew.checkboxfogofwar.caption
     1027msgid "Fog of war"
     1028msgstr "Skrytá mapa"
     1029
     1030#: tformnew.checkboxsymetricmap.caption
     1031msgid "Symetric map"
     1032msgstr "Symetrická mapa"
     1033
     1034#: tformnew.checkboxvoid.caption
     1035msgid "Inaccessible places"
     1036msgstr "Nepřístupná políčka"
     1037
     1038#: tformnew.label1.caption
     1039msgid "Map width:"
     1040msgstr "Šířka mapy:"
     1041
     1042#: tformnew.label10.caption
     1043msgid "Max units per cell:"
     1044msgstr "Nejvíce jednotek na buňku:"
     1045
     1046#: tformnew.label11.caption
     1047msgctxt "tformnew.label11.caption"
     1048msgid "Port:"
     1049msgstr "Port:"
     1050
     1051#: tformnew.label12.caption
     1052msgctxt "tformnew.label12.caption"
     1053msgid "Address:"
     1054msgstr "Adresa:"
     1055
     1056#: tformnew.label13.caption
     1057msgid "Number of turns:"
     1058msgstr "Počet tahů:"
     1059
     1060#: tformnew.label14.caption
     1061msgid "Special cells count:"
     1062msgstr "Počet speciálních buněk:"
     1063
     1064#: tformnew.label15.caption
     1065msgid "Preview:"
     1066msgstr "Náhled:"
     1067
     1068#: tformnew.label16.caption
     1069msgid "Game system:"
     1070msgstr "Herní systém:"
     1071
     1072#: tformnew.label2.caption
     1073msgid "Map height:"
     1074msgstr "Výška mapy:"
     1075
     1076#: tformnew.label3.caption
     1077msgctxt "tformnew.label3.caption"
     1078msgid "%"
     1079msgstr "%"
     1080
     1081#: tformnew.label4.caption
     1082msgctxt "tformnew.label4.caption"
     1083msgid "%"
     1084msgstr "%"
     1085
     1086#: tformnew.label5.caption
     1087msgid "Grid type:"
     1088msgstr "Typ mřížky:"
     1089
     1090#: tformnew.label6.caption
     1091msgid "Win objective:"
     1092msgstr "Cíl vítězství:"
     1093
     1094#: tformnew.label7.caption
     1095msgid "Max random neutral units:"
     1096msgstr "Nejvíce náhodných neutrálních jednotek:"
     1097
     1098#: tformnew.label8.caption
     1099msgid "Map shape:"
     1100msgstr "Tvar mapy:"
     1101
     1102#: tformnew.label9.caption
     1103msgid "Image file:"
     1104msgstr "Soubor obrázku:"
     1105
     1106#: tformnew.listviewservers.columns[0].caption
     1107msgctxt "tformnew.listviewservers.columns[0].caption"
     1108msgid "Name"
     1109msgstr "Jméno"
     1110
     1111#: tformnew.listviewservers.columns[1].caption
     1112msgctxt "tformnew.listviewservers.columns[1].caption"
     1113msgid "Address"
     1114msgstr "Adresa"
     1115
     1116#: tformnew.radiobuttonmodelocal.caption
     1117msgid "Local"
     1118msgstr "Místní"
     1119
     1120#: tformnew.radiobuttonmodenetworkclient.caption
     1121msgctxt "tformnew.radiobuttonmodenetworkclient.caption"
     1122msgid "Network client"
     1123msgstr "Síťový klient"
     1124
     1125#: tformnew.radiobuttonmodenetworkserver.caption
     1126msgctxt "tformnew.radiobuttonmodenetworkserver.caption"
     1127msgid "Network server"
     1128msgstr "Síťový server"
     1129
     1130#: tformnew.radiogroupgrowamount.caption
     1131msgid "Per turn grow amount"
     1132msgstr "Množství růstu za tah"
     1133
     1134#: tformnew.radiogroupgrowcells.caption
     1135msgid "Growing cells"
     1136msgstr "Rostoucí buňky"
     1137
     1138#: tformnew.tabsheetmap.caption
     1139msgctxt "tformnew.tabsheetmap.caption"
     1140msgid "Map"
     1141msgstr "Mapa"
     1142
     1143#: tformnew.tabsheetmode.caption
     1144msgctxt "tformnew.tabsheetmode.caption"
     1145msgid "Mode"
     1146msgstr "Režim"
     1147
     1148#: tformnew.tabsheetplayers.caption
     1149msgctxt "tformnew.tabsheetplayers.caption"
     1150msgid "Players"
     1151msgstr "Hráči"
     1152
     1153#: tformnew.tabsheetrules.caption
     1154msgctxt "tformnew.tabsheetrules.caption"
     1155msgid "Rules"
     1156msgstr "Pravidla"
     1157
     1158#: tformplayersstats.aspectate.caption
     1159msgid "Spectate"
     1160msgstr "Divák"
     1161
     1162#: tformplayersstats.caption
     1163msgid "Players stats"
     1164msgstr "Statistiky hráčů"
     1165
     1166#: tformplayersstats.listview1.columns[0].caption
     1167msgctxt "tformplayersstats.listview1.columns[0].caption"
     1168msgid "Name"
     1169msgstr "Jméno"
     1170
     1171#: tformplayersstats.listview1.columns[1].caption
     1172msgctxt "tformplayersstats.listview1.columns[1].caption"
     1173msgid "Mode"
     1174msgstr "Režim"
     1175
     1176#: tformplayersstats.listview1.columns[2].caption
     1177msgid "Cells"
     1178msgstr "Buňky"
     1179
     1180#: tformplayersstats.listview1.columns[3].caption
     1181msgid "Discovered"
     1182msgstr "Objeveno"
     1183
     1184#: tformplayersstats.listview1.columns[4].caption
     1185msgctxt "tformplayersstats.listview1.columns[4].caption"
     1186msgid "Cities"
     1187msgstr "Města"
     1188
     1189#: tformplayersstats.listview1.columns[5].caption
     1190msgctxt "tformplayersstats.listview1.columns[5].caption"
     1191msgid "Units"
     1192msgstr "Jednotky"
     1193
     1194#: tformplayersstats.listview1.columns[6].caption
     1195msgctxt "tformplayersstats.listview1.columns[6].caption"
     1196msgid "Win objective cells"
     1197msgstr "Buňky výherního cíle"
     1198
     1199#: tformserver.buttoncancel.caption
     1200msgctxt "tformserver.buttoncancel.caption"
     1201msgid "Cancel"
     1202msgstr "Zrušit"
     1203
     1204#: tformserver.buttonok.caption
     1205msgctxt "tformserver.buttonok.caption"
     1206msgid "OK"
     1207msgstr "OK"
     1208
     1209#: tformserver.caption
     1210msgid "Server"
     1211msgstr "Server"
     1212
     1213#: tformserver.label1.caption
     1214msgctxt "tformserver.label1.caption"
     1215msgid "Name:"
     1216msgstr "Jméno:"
     1217
     1218#: tformserver.label2.caption
     1219msgctxt "tformserver.label2.caption"
     1220msgid "Address:"
     1221msgstr "Adresa:"
     1222
     1223#: tformserver.label3.caption
     1224msgctxt "tformserver.label3.caption"
     1225msgid "Port:"
     1226msgstr "Port:"
     1227
     1228#: tformsettings.buttoncancel.caption
     1229msgctxt "tformsettings.buttoncancel.caption"
     1230msgid "Cancel"
     1231msgstr "Zrušit"
     1232
     1233#: tformsettings.buttonok.caption
     1234msgctxt "tformsettings.buttonok.caption"
     1235msgid "Ok"
     1236msgstr "Ok"
     1237
     1238#: tformsettings.caption
     1239msgctxt "tformsettings.caption"
     1240msgid "Settings"
     1241msgstr "Nastavení"
     1242
     1243#: tformsettings.checkbox2.caption
     1244msgid "Automatic DPI"
     1245msgstr "Automatické DPI"
     1246
     1247#: tformsettings.checkboxautosaveturn.caption
     1248msgid "Autosave game on each turn"
     1249msgstr "Uložit hru po každém tahu"
     1250
     1251#: tformsettings.checkboxdevelmode.caption
     1252msgid "Developer mode"
     1253msgstr "Vývojářský režim"
     1254
     1255#: tformsettings.checkboxreopenlastfile.caption
     1256msgid "Reopen last game on start"
     1257msgstr "Znovu otevřít poslední hru při startu"
     1258
     1259#: tformsettings.label1.caption
     1260msgid "Language:"
     1261msgstr "Jazyk:"
     1262
     1263#: tformsettings.label2.caption
     1264msgid "Animation speed:"
     1265msgstr "Rychlost animace:"
     1266
     1267#: tformsettings.label3.caption
     1268msgctxt "tformsettings.label3.caption"
     1269msgid "%"
     1270msgstr "%"
     1271
     1272#: tformsettings.label4.caption
     1273msgid "DPI:"
     1274msgstr "DPI:"
     1275
     1276#: tformsettings.label5.caption
     1277msgid "x"
     1278msgstr "x"
     1279
     1280#: tformsettings.label6.caption
     1281msgid "Theme:"
     1282msgstr "Téma:"
     1283
     1284#: tformsettings.tabsheetdebug.caption
     1285msgctxt "tformsettings.tabsheetdebug.caption"
     1286msgid "Debug"
     1287msgstr "Ladění"
     1288
     1289#: tformsettings.tabsheetgeneral.caption
     1290msgctxt "tformsettings.tabsheetgeneral.caption"
     1291msgid "General"
     1292msgstr "Obecné"
     1293
     1294#: tformunitmoves.caption
     1295msgctxt "tformunitmoves.caption"
     1296msgid "Unit moves"
     1297msgstr "Pohyby jednotek"
     1298
     1299#: tformunitmoves.listview1.columns[0].caption
     1300msgid "From cell"
     1301msgstr "Z buňky"
     1302
     1303#: tformunitmoves.listview1.columns[1].caption
     1304msgid "To cell"
     1305msgstr "Do buňky"
     1306
     1307#: tformunitmoves.listview1.columns[2].caption
     1308msgid "Once count"
     1309msgstr "Jednorázově"
     1310
     1311#: tformunitmoves.listview1.columns[3].caption
     1312msgid "Repeat count"
     1313msgstr "Opakovaně"
     1314
     1315#: unit.scost
     1316msgctxt "unit.scost"
    12821317msgid "Cost"
    12831318msgstr "Cena"
    12841319
    1285 #: uunit.smoves
     1320#: unit.smoves
     1321msgctxt "unit.smoves"
    12861322msgid "Moves"
    12871323msgstr "Pohyby"
    12881324
    1289 #: uunit.spowerattack
     1325#: unit.spowerattack
     1326msgctxt "unit.spowerattack"
    12901327msgid "Attack power"
    12911328msgstr "Síla útoku"
    12921329
    1293 #: uunit.spowerdefense
     1330#: unit.spowerdefense
     1331msgctxt "unit.spowerdefense"
    12941332msgid "Defense power"
    12951333msgstr "Síla obrany"
    12961334
    1297 #: uunit.sstack
     1335#: unit.sstack
     1336msgctxt "unit.sstack"
    12981337msgid "Stack"
    12991338msgstr "Sada"
    13001339
    1301 #: uunit.sunitkind
    1302 msgctxt "uunit.sunitkind"
     1340#: unit.sunitkind
     1341msgctxt "unit.sunitkind"
    13031342msgid "Unit kind"
    13041343msgstr "Druh jednotky"
    13051344
    1306 #: uunit.sviewrange
     1345#: unit.sviewrange
     1346msgctxt "unit.sviewrange"
    13071347msgid "View range"
    13081348msgstr "Dohled"
  • trunk/Languages/xtactics.pot

    r313 r317  
    22msgstr "Content-Type: text/plain; charset=UTF-8"
    33
    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
     5msgctxt "building.sbonusattack"
     6msgid "Unit attack bonus"
     7msgstr ""
     8
     9#: building.sbonusdefense
     10msgctxt "building.sbonusdefense"
     11msgid "Unit defense bonus"
     12msgstr ""
     13
     14#: building.sbonusgrow
     15msgctxt "building.sbonusgrow"
     16msgid "Unit grow bonus"
     17msgstr ""
     18
     19#: building.sbonusviewrange
     20msgctxt "building.sbonusviewrange"
     21msgid "Unit view range bonus"
     22msgstr ""
     23
     24#: building.sbuildingkind
     25msgctxt "building.sbuildingkind"
     26msgid "Building"
     27msgstr ""
     28
     29#: building.scity
     30msgctxt "building.scity"
     31msgid "City"
     32msgstr ""
     33
     34#: building.scost
     35msgctxt "building.scost"
     36msgid "Cost"
     37msgstr ""
     38
     39#: building.snone
     40msgctxt "building.snone"
     41msgid "None"
     42msgstr ""
     43
     44#: building.sspecialtype
     45msgctxt "building.sspecialtype"
     46msgid "Special type"
     47msgstr ""
     48
     49#: clientgui.swrongarrowangle
     50#, object-pascal-format
     51msgctxt "clientgui.swrongarrowangle"
     52msgid "Wrong arrow angle %s"
     53msgstr ""
     54
     55#: clientgui.szerozoomnotalowed
     56msgctxt "clientgui.szerozoomnotalowed"
     57msgid "Zero zoom not allowed"
     58msgstr ""
     59
     60#: core.sendgame
     61msgctxt "core.sendgame"
     62msgid "End game?"
     63msgstr ""
     64
     65#: core.sendgamequestion
     66msgctxt "core.sendgamequestion"
     67msgid "Do you want to end current game?"
     68msgstr ""
     69
     70#: core.sfiledialogfilter
     71msgctxt "core.sfiledialogfilter"
     72msgid "xTactics games (.xtg)|*.xtg|All files|*.*"
     73msgstr ""
     74
     75#: core.smissingserverclientforplayer
     76msgctxt "core.smissingserverclientforplayer"
     77msgid "Server client for current player not found."
     78msgstr ""
     79
     80#: core.splayersnotinitialized
     81#, object-pascal-format
     82msgctxt "core.splayersnotinitialized"
     83msgid "Not all players were initialized with start cell. Needed %d, initialized %d. Change map parameters to have more terrain cells."
     84msgstr ""
     85
     86#: core.splayerswins
     87#, object-pascal-format
     88msgctxt "core.splayerswins"
     89msgid "Players %s win"
     90msgstr ""
     91
     92#: core.splayerwins
     93#, object-pascal-format
     94msgctxt "core.splayerwins"
     95msgid "Player %s wins"
     96msgstr ""
     97
     98#: core.srestartgame
     99msgctxt "core.srestartgame"
     100msgid "Restart game?"
     101msgstr ""
     102
     103#: core.srestartgamequestion
     104msgctxt "core.srestartgamequestion"
     105msgid "Do you want to restart current game?"
     106msgstr ""
     107
     108#: formcharts.scitiescount
     109msgctxt "formcharts.scitiescount"
     110msgid "Cities count"
     111msgstr ""
     112
     113#: formcharts.sdiscoveredcells
     114msgctxt "formcharts.sdiscoveredcells"
     115msgid "Discovered cells"
     116msgstr ""
     117
     118#: formcharts.smilitarypower
     119msgctxt "formcharts.smilitarypower"
     120msgid "Military power"
     121msgstr ""
     122
     123#: formcharts.soccupiedcells
     124msgctxt "formcharts.soccupiedcells"
    112125msgid "Occupied cells"
    113126msgstr ""
    114127
    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
     129msgctxt "formcharts.swinobjectivecells"
     130msgid "Win objective cells"
     131msgstr ""
     132
     133#: formclient.ssurrender
     134msgctxt "formclient.ssurrender"
    137135msgid "Surrender"
    138136msgstr ""
    139137
    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
     139msgctxt "formclient.ssurrenderquestion"
    905140msgid "Do you want to surrender current game?"
    906141msgstr ""
    907142
    908 #: uformclient.sturn
    909 msgctxt "uformclient.sturn"
     143#: formclient.sturn
     144msgctxt "formclient.sturn"
    910145msgid "turn"
    911146msgstr ""
    912147
    913 #: uformgamesystem.sfiledialogfilter
     148#: formgamesystem.sfiledialogfilter
     149msgctxt "formgamesystem.sfiledialogfilter"
    914150msgid "xTactics game system (.xts)|*.xts|All files|*.*"
    915151msgstr ""
    916152
    917 #: uformgamesystems.snewgamesystem
     153#: formgamesystems.snewgamesystem
     154msgctxt "formgamesystems.snewgamesystem"
    918155msgid "New game system"
    919156msgstr ""
    920157
    921 #: uformgamesystems.sremoveitems
    922 msgctxt "uformgamesystems.sremoveitems"
     158#: formgamesystems.sremoveitems
     159msgctxt "formgamesystems.sremoveitems"
    923160msgid "Remove items"
    924161msgstr ""
    925162
    926 #: uformgamesystems.sremoveitemsquery
    927 msgctxt "uformgamesystems.sremoveitemsquery"
     163#: formgamesystems.sremoveitemsquery
     164msgctxt "formgamesystems.sremoveitemsquery"
    928165msgid "Do you want to remove selected items?"
    929166msgstr ""
    930167
    931 #: uformhelp.scontent
     168#: formhelp.scontent
     169msgctxt "formhelp.scontent"
    932170msgid ""
    933171"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"
     
    941179msgstr ""
    942180
    943 #: uformkeyshortcuts.sglobal
     181#: formkeyshortcuts.sglobal
     182msgctxt "formkeyshortcuts.sglobal"
    944183msgid "Global"
    945184msgstr ""
    946185
    947 #: uformkeyshortcuts.smainform
     186#: formkeyshortcuts.smainform
     187msgctxt "formkeyshortcuts.smainform"
    948188msgid "Main window"
    949189msgstr ""
    950190
    951 #: uformlist.snew
    952 msgctxt "uformlist.snew"
     191#: formlist.snew
     192msgctxt "formlist.snew"
    953193msgid "New"
    954194msgstr ""
    955195
    956 #: uformlist.sremoveitems
    957 msgctxt "uformlist.sremoveitems"
     196#: formlist.sremoveitems
     197msgctxt "formlist.sremoveitems"
    958198msgid "Remove items"
    959199msgstr ""
    960200
    961 #: uformlist.sremoveitemsquery
    962 msgctxt "uformlist.sremoveitemsquery"
     201#: formlist.sremoveitemsquery
     202msgctxt "formlist.sremoveitemsquery"
    963203msgid "Do you want to remove selected items?"
    964204msgstr ""
    965205
    966 #: uformmain.sturn
    967 msgctxt "uformmain.sturn"
     206#: formmain.sturn
     207msgctxt "formmain.sturn"
    968208msgid "turn"
    969209msgstr ""
    970210
    971 #: uformnew.sfromimagefile
     211#: formnew.sfromimagefile
     212msgctxt "formnew.sfromimagefile"
    972213msgid "From image file"
    973214msgstr ""
    974215
    975 #: uformnew.sgrowamountbyone
     216#: formnew.sgrowamountbyone
     217msgctxt "formnew.sgrowamountbyone"
    976218msgid "By one"
    977219msgstr ""
    978220
    979 #: uformnew.sgrowamountbysquareroot
     221#: formnew.sgrowamountbysquareroot
     222msgctxt "formnew.sgrowamountbysquareroot"
    980223msgid "By square root"
    981224msgstr ""
    982225
    983 #: uformnew.sgrownone
    984 msgctxt "uformnew.sgrownone"
     226#: formnew.sgrownone
     227msgctxt "formnew.sgrownone"
    985228msgid "None"
    986229msgstr ""
    987230
    988 #: uformnew.sgrowplayerallcells
     231#: formnew.sgrowplayerallcells
     232msgctxt "formnew.sgrowplayerallcells"
    989233msgid "Player all cells"
    990234msgstr ""
    991235
    992 #: uformnew.sgrowplayercities
     236#: formnew.sgrowplayercities
     237msgctxt "formnew.sgrowplayercities"
    993238msgid "Player cities"
    994239msgstr ""
    995240
    996 #: uformnew.srectangular
     241#: formnew.srectangular
     242msgctxt "formnew.srectangular"
    997243msgid "Rectangular"
    998244msgstr ""
    999245
    1000 #: uformnew.sremoveserver
     246#: formnew.sremoveserver
     247msgctxt "formnew.sremoveserver"
    1001248msgid "Remove server"
    1002249msgstr ""
    1003250
    1004 #: uformnew.sremoveserverquery
     251#: formnew.sremoveserverquery
     252msgctxt "formnew.sremoveserverquery"
    1005253msgid "Do you want to remove server?"
    1006254msgstr ""
    1007255
    1008 #: uformnew.srounded
     256#: formnew.srounded
     257msgctxt "formnew.srounded"
    1009258msgid "Rounded"
    1010259msgstr ""
    1011260
    1012 #: uformnew.swinobjectivecaptureentiremap
     261#: formnew.swinobjectivecaptureentiremap
     262msgctxt "formnew.swinobjectivecaptureentiremap"
    1013263msgid "Capture entire map"
    1014264msgstr ""
    1015265
    1016 #: uformnew.swinobjectivecaptureposition
     266#: formnew.swinobjectivecaptureposition
     267msgctxt "formnew.swinobjectivecaptureposition"
    1017268msgid "Capture all special cells"
    1018269msgstr ""
    1019270
    1020 #: uformnew.swinobjectivedefeatallcities
     271#: formnew.swinobjectivedefeatallcities
     272msgctxt "formnew.swinobjectivedefeatallcities"
    1021273msgid "Defeat all oponents cities"
    1022274msgstr ""
    1023275
    1024 #: uformnew.swinobjectivedefeatalloponents
     276#: formnew.swinobjectivedefeatalloponents
     277msgctxt "formnew.swinobjectivedefeatalloponents"
    1025278msgid "Defeat all oponents"
    1026279msgstr ""
    1027280
    1028 #: uformnew.swinobjectivenone
    1029 msgctxt "uformnew.swinobjectivenone"
     281#: formnew.swinobjectivenone
     282msgctxt "formnew.swinobjectivenone"
    1030283msgid "None"
    1031284msgstr ""
    1032285
    1033 #: uformnew.swinobjectivestayaliveforturns
     286#: formnew.swinobjectivestayaliveforturns
     287msgctxt "formnew.swinobjectivestayaliveforturns"
    1034288msgid "Stay alive for number of turns"
    1035289msgstr ""
    1036290
    1037 #: ugame.scomputer
    1038 msgctxt "ugame.scomputer"
     291#: game.scomputer
     292msgctxt "game.scomputer"
    1039293msgid "Computer"
    1040294msgstr ""
    1041295
    1042 #: ugame.shuman
    1043 msgctxt "ugame.shuman"
     296#: game.shuman
     297msgctxt "game.shuman"
    1044298msgid "Human"
    1045299msgstr ""
    1046300
    1047 #: ugame.sminimumplayers
     301#: game.sminimumplayers
     302msgctxt "game.sminimumplayers"
    1048303msgid "You need at least one player"
    1049304msgstr ""
    1050305
    1051 #: ugame.snewgamefile
     306#: game.snewgamefile
     307msgctxt "game.snewgamefile"
    1052308msgid "New game.xtg"
    1053309msgstr ""
    1054310
    1055 #: ugame.splayer
     311#: game.splayer
     312msgctxt "game.splayer"
    1056313msgid "Player"
    1057314msgstr ""
    1058315
    1059 #: ugame.sspectator
     316#: game.sspectator
     317msgctxt "game.sspectator"
    1060318msgid "Spectator"
    1061319msgstr ""
    1062320
    1063 #: ugame.sunsupportedmaptype
     321#: game.sunsupportedmaptype
     322msgctxt "game.sunsupportedmaptype"
    1064323msgid "Unsupported map type"
    1065324msgstr ""
    1066325
    1067 #: ugame.swrongfileformat
    1068 msgctxt "ugame.swrongfileformat"
     326#: game.swrongfileformat
     327msgctxt "game.swrongfileformat"
    1069328msgid "Wrong file format"
    1070329msgstr ""
    1071330
    1072 #: ugamesystem.sgamesystem
    1073 msgctxt "ugamesystem.sgamesystem"
     331#: gamesystem.sgamesystem
     332msgctxt "gamesystem.sgamesystem"
    1074333msgid "Game system"
    1075334msgstr ""
    1076335
    1077 #: ugamesystem.swrongfileformat
    1078 msgctxt "ugamesystem.swrongfileformat"
     336#: gamesystem.swrongfileformat
     337msgctxt "gamesystem.swrongfileformat"
    1079338msgid "Wrong file format"
    1080339msgstr ""
    1081340
    1082 #: uitemlist.sitem
    1083 msgctxt "uitemlist.sitem"
     341#: itemlist.sitem
     342msgctxt "itemlist.sitem"
    1084343msgid "Item"
    1085344msgstr ""
    1086345
    1087 #: uitemlist.sname
    1088 msgctxt "uitemlist.sname"
     346#: itemlist.sname
     347msgctxt "itemlist.sname"
    1089348msgid "Name"
    1090349msgstr ""
    1091350
    1092 #: uitemlist.sno
     351#: itemlist.sno
     352msgctxt "itemlist.sno"
    1093353msgid "No"
    1094354msgstr ""
    1095355
    1096 #: uitemlist.sunsupporteddatatype
     356#: itemlist.sunsupporteddatatype
    1097357#, object-pascal-format
     358msgctxt "itemlist.sunsupporteddatatype"
    1098359msgid "Unsupported field value data type %s"
    1099360msgstr ""
    1100361
    1101 #: uitemlist.syes
     362#: itemlist.syes
     363msgctxt "itemlist.syes"
    1102364msgid "Yes"
    1103365msgstr ""
    1104366
    1105 #: umap.scellremoveneighborerror
     367#: map.scellremoveneighborerror
     368msgctxt "map.scellremoveneighborerror"
    1106369msgid "Can't remove cell from neighbour cell"
    1107370msgstr ""
    1108371
    1109 #: umap.snegativecellpowernotallowed
     372#: map.snegativecellpowernotallowed
     373msgctxt "map.snegativecellpowernotallowed"
    1110374msgid "Not allowed to substract power under zero to negative value"
    1111375msgstr ""
    1112376
    1113 #: umaptype.sgridtypehexagonhorizontal
     377#: maptype.sgridtypehexagonhorizontal
     378msgctxt "maptype.sgridtypehexagonhorizontal"
    1114379msgid "Hexagonal horizontal"
    1115380msgstr ""
    1116381
    1117 #: umaptype.sgridtypehexagonvertical
     382#: maptype.sgridtypehexagonvertical
     383msgctxt "maptype.sgridtypehexagonvertical"
    1118384msgid "Hexagonal vertical"
    1119385msgstr ""
    1120386
    1121 #: umaptype.sgridtypeisometric
     387#: maptype.sgridtypeisometric
     388msgctxt "maptype.sgridtypeisometric"
    1122389msgid "Isometric"
    1123390msgstr ""
    1124391
    1125 #: umaptype.sgridtyperandom
     392#: maptype.sgridtyperandom
     393msgctxt "maptype.sgridtyperandom"
    1126394msgid "Random"
    1127395msgstr ""
    1128396
    1129 #: umaptype.sgridtypesquare
     397#: maptype.sgridtypesquare
     398msgctxt "maptype.sgridtypesquare"
    1130399msgid "Square"
    1131400msgstr ""
    1132401
    1133 #: umaptype.sgridtypetriangle
     402#: maptype.sgridtypetriangle
     403msgctxt "maptype.sgridtypetriangle"
    1134404msgid "Triangural"
    1135405msgstr ""
    1136406
    1137 #: unation.scolor
    1138 msgctxt "unation.scolor"
     407#: nation.scolor
     408msgctxt "nation.scolor"
    1139409msgid "Color"
    1140410msgstr ""
    1141411
    1142 #: unation.snation
    1143 msgctxt "unation.snation"
     412#: nation.snation
     413msgctxt "nation.snation"
    1144414msgid "Nation"
    1145415msgstr ""
    1146416
    1147 #: uplayer.sagressivity
     417#: player.sagressivity
     418msgctxt "player.sagressivity"
    1148419msgid "Agressivity"
    1149420msgstr ""
    1150421
    1151 #: uplayer.sattackerpowerpositive
     422#: player.sattackerpowerpositive
     423msgctxt "player.sattackerpowerpositive"
    1152424msgid "Attacker power have to be higher then 0."
    1153425msgstr ""
    1154426
    1155 #: uplayer.scolor
    1156 msgctxt "uplayer.scolor"
     427#: player.scolor
     428msgctxt "player.scolor"
    1157429msgid "Color"
    1158430msgstr ""
    1159431
    1160 #: uplayer.scomputer
    1161 msgctxt "uplayer.scomputer"
     432#: player.scomputer
     433msgctxt "player.scomputer"
    1162434msgid "Computer"
    1163435msgstr ""
    1164436
    1165 #: uplayer.sdefenderpowerpositive
     437#: player.sdefenderpowerpositive
     438msgctxt "player.sdefenderpowerpositive"
    1166439msgid "Defender power have to be higher then or equal to 0."
    1167440msgstr ""
    1168441
    1169 #: uplayer.sdefensive
     442#: player.sdefensive
     443msgctxt "player.sdefensive"
    1170444msgid "Defensive"
    1171445msgstr ""
    1172446
    1173 #: uplayer.shigh
     447#: player.shigh
     448msgctxt "player.shigh"
    1174449msgid "High"
    1175450msgstr ""
    1176451
    1177 #: uplayer.shuman
    1178 msgctxt "uplayer.shuman"
     452#: player.shuman
     453msgctxt "player.shuman"
    1179454msgid "Human"
    1180455msgstr ""
    1181456
    1182 #: uplayer.slow
     457#: player.slow
     458msgctxt "player.slow"
    1183459msgid "Low"
    1184460msgstr ""
    1185461
    1186 #: uplayer.smedium
     462#: player.smedium
     463msgctxt "player.smedium"
    1187464msgid "Medium"
    1188465msgstr ""
    1189466
    1190 #: uplayer.smode
    1191 msgctxt "uplayer.smode"
     467#: player.smode
     468msgctxt "player.smode"
    1192469msgid "Mode"
    1193470msgstr ""
    1194471
    1195 #: uplayer.snation
    1196 msgctxt "uplayer.snation"
     472#: player.snation
     473msgctxt "player.snation"
    1197474msgid "Nation"
    1198475msgstr ""
    1199476
    1200 #: uplayer.sstartunits
     477#: player.sstartunits
     478msgctxt "player.sstartunits"
    1201479msgid "Start units"
    1202480msgstr ""
    1203481
    1204 #: uplayer.sunfinishedbattle
     482#: player.sunfinishedbattle
     483msgctxt "player.sunfinishedbattle"
    1205484msgid "Unfinished battle"
    1206485msgstr ""
    1207486
    1208 #: uunit.scost
    1209 msgctxt "uunit.scost"
     487#: tcore.aabout.caption
     488msgid "About"
     489msgstr ""
     490
     491#: tcore.aexit.caption
     492msgid "Exit"
     493msgstr ""
     494
     495#: tcore.aexit.hint
     496msgid "Exit application"
     497msgstr ""
     498
     499#: tcore.afullscreen.caption
     500msgid "Full screen mode"
     501msgstr ""
     502
     503#: tcore.agameend.caption
     504msgid "End"
     505msgstr ""
     506
     507#: tcore.agameend.hint
     508msgid "End game"
     509msgstr ""
     510
     511#: tcore.agameload.caption
     512msgctxt "tcore.agameload.caption"
     513msgid "Load"
     514msgstr ""
     515
     516#: tcore.agamenew.caption
     517msgctxt "tcore.agamenew.caption"
     518msgid "New"
     519msgstr ""
     520
     521#: tcore.agamenew.hint
     522msgctxt "tcore.agamenew.hint"
     523msgid "New game"
     524msgstr ""
     525
     526#: tcore.agamerestart.caption
     527msgid "Restart"
     528msgstr ""
     529
     530#: tcore.agamerestart.hint
     531msgid "Restart game"
     532msgstr ""
     533
     534#: tcore.agamesave.caption
     535msgctxt "tcore.agamesave.caption"
     536msgid "Save"
     537msgstr ""
     538
     539#: tcore.agamesaveas.caption
     540msgid "Save as..."
     541msgstr ""
     542
     543#: tcore.ahelp.caption
     544msgctxt "tcore.ahelp.caption"
     545msgid "Help"
     546msgstr ""
     547
     548#: tcore.anewspectatorclient.caption
     549msgid "New spectator client"
     550msgstr ""
     551
     552#: tcore.aplayersstats.caption
     553msgid "Players statistics"
     554msgstr ""
     555
     556#: tcore.applicationinfo.description
     557msgid "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."
     558msgstr ""
     559
     560#: tcore.asettings.caption
     561msgctxt "tcore.asettings.caption"
     562msgid "Settings"
     563msgstr ""
     564
     565#: tcore.asettings.hint
     566msgid "Application settings"
     567msgstr ""
     568
     569#: tcore.ashowcharts.caption
     570msgctxt "tcore.ashowcharts.caption"
     571msgid "Charts"
     572msgstr ""
     573
     574#: tcore.ashowkeyshortcuts.caption
     575msgctxt "tcore.ashowkeyshortcuts.caption"
     576msgid "Key shortcuts"
     577msgstr ""
     578
     579#: tcore.ashowunitmoves.caption
     580msgctxt "tcore.ashowunitmoves.caption"
     581msgid "Unit moves"
     582msgstr ""
     583
     584#: tcore.atogglefogofwar.caption
     585msgid "Toggle fog of war"
     586msgstr ""
     587
     588#: tcore.savedialog1.title
     589msgid "Save as"
     590msgstr ""
     591
     592#: tformcharts.caption
     593msgctxt "tformcharts.caption"
     594msgid "Charts"
     595msgstr ""
     596
     597#: tformcharts.combobox1.text
     598msgctxt "tformcharts.combobox1.text"
     599msgid "Occupied cells"
     600msgstr ""
     601
     602#: tformchat.buttonmessagesend.caption
     603msgid "Send"
     604msgstr ""
     605
     606#: tformchat.caption
     607msgid "Chat"
     608msgstr ""
     609
     610#: tformchat.label1.caption
     611msgid "Chat:"
     612msgstr ""
     613
     614#: tformclient.agameendturn.caption
     615msgid "End turn"
     616msgstr ""
     617
     618#: tformclient.astatusbarvisible.caption
     619msgid "Statusbar visible"
     620msgstr ""
     621
     622#: tformclient.asurrender.caption
     623msgctxt "tformclient.asurrender.caption"
     624msgid "Surrender"
     625msgstr ""
     626
     627#: tformclient.atoolbarbigicons.caption
     628msgctxt "tformclient.atoolbarbigicons.caption"
     629msgid "Toolbar big icons"
     630msgstr ""
     631
     632#: tformclient.atoolbarvisible.caption
     633msgctxt "tformclient.atoolbarvisible.caption"
     634msgid "Toolbar visible"
     635msgstr ""
     636
     637#: tformclient.azoomall.caption
     638msgctxt "tformclient.azoomall.caption"
     639msgid "Zoom all"
     640msgstr ""
     641
     642#: tformclient.azoomin.caption
     643msgctxt "tformclient.azoomin.caption"
     644msgid "Zoom in"
     645msgstr ""
     646
     647#: tformclient.azoomout.caption
     648msgctxt "tformclient.azoomout.caption"
     649msgid "Zoom out"
     650msgstr ""
     651
     652#: tformclient.caption
     653msgid "Client"
     654msgstr ""
     655
     656#: tformgamesystem.buttoncancel.caption
     657msgctxt "tformgamesystem.buttoncancel.caption"
     658msgid "Cancel"
     659msgstr ""
     660
     661#: tformgamesystem.buttonload.caption
     662msgctxt "tformgamesystem.buttonload.caption"
     663msgid "Load"
     664msgstr ""
     665
     666#: tformgamesystem.buttonok.caption
     667msgctxt "tformgamesystem.buttonok.caption"
     668msgid "OK"
     669msgstr ""
     670
     671#: tformgamesystem.buttonsave.caption
     672msgctxt "tformgamesystem.buttonsave.caption"
     673msgid "Save"
     674msgstr ""
     675
     676#: tformgamesystem.caption
     677msgctxt "tformgamesystem.caption"
     678msgid "Game system"
     679msgstr ""
     680
     681#: tformgamesystem.checkboxemptycellsneutral.caption
     682msgid "Set cells without player units as neutral"
     683msgstr ""
     684
     685#: tformgamesystem.checkboxunitsmoveimmediately.caption
     686msgid "Units move immediately"
     687msgstr ""
     688
     689#: tformgamesystem.checkboxunitssplitmerge.caption
     690msgid "Units can split or merge"
     691msgstr ""
     692
     693#: tformgamesystem.tabsheetbuildings.caption
     694msgid "Buildings"
     695msgstr ""
     696
     697#: tformgamesystem.tabsheetgeneral.caption
     698msgctxt "tformgamesystem.tabsheetgeneral.caption"
     699msgid "General"
     700msgstr ""
     701
     702#: tformgamesystem.tabsheetnations.caption
     703msgid "Nations"
     704msgstr ""
     705
     706#: tformgamesystem.tabsheetunits.caption
     707msgctxt "tformgamesystem.tabsheetunits.caption"
     708msgid "Units"
     709msgstr ""
     710
     711#: tformgamesystems.aadd.caption
     712msgctxt "tformgamesystems.aadd.caption"
     713msgid "Add"
     714msgstr ""
     715
     716#: tformgamesystems.aclone.caption
     717msgctxt "tformgamesystems.aclone.caption"
     718msgid "Clone"
     719msgstr ""
     720
     721#: tformgamesystems.amodify.caption
     722msgctxt "tformgamesystems.amodify.caption"
     723msgid "Modify"
     724msgstr ""
     725
     726#: tformgamesystems.aremove.caption
     727msgctxt "tformgamesystems.aremove.caption"
     728msgid "Remove"
     729msgstr ""
     730
     731#: tformgamesystems.aselectall.caption
     732msgctxt "tformgamesystems.aselectall.caption"
     733msgid "Select all"
     734msgstr ""
     735
     736#: tformgamesystems.caption
     737msgid "Game systems"
     738msgstr ""
     739
     740#: tformgamesystems.listview1.columns[0].caption
     741msgctxt "tformgamesystems.listview1.columns[0].caption"
     742msgid "Name"
     743msgstr ""
     744
     745#: tformhelp.caption
     746msgctxt "tformhelp.caption"
     747msgid "Help"
     748msgstr ""
     749
     750#: tformitem.buttoncancel.caption
     751msgctxt "tformitem.buttoncancel.caption"
     752msgid "Cancel"
     753msgstr ""
     754
     755#: tformitem.buttonok.caption
     756msgctxt "tformitem.buttonok.caption"
     757msgid "OK"
     758msgstr ""
     759
     760#: tformitem.caption
     761msgctxt "tformitem.caption"
     762msgid "Item"
     763msgstr ""
     764
     765#: tformkeyshortcuts.caption
     766msgctxt "tformkeyshortcuts.caption"
     767msgid "Key shortcuts"
     768msgstr ""
     769
     770#: tformkeyshortcuts.listview1.columns[0].caption
     771msgid "Action"
     772msgstr ""
     773
     774#: tformkeyshortcuts.listview1.columns[1].caption
     775msgid "Window"
     776msgstr ""
     777
     778#: tformkeyshortcuts.listview1.columns[2].caption
     779msgid "Shortcut"
     780msgstr ""
     781
     782#: tformkeyshortcuts.menuitem1.caption
     783msgid "Execute"
     784msgstr ""
     785
     786#: tformlist.aadd.caption
     787msgctxt "tformlist.aadd.caption"
     788msgid "Add"
     789msgstr ""
     790
     791#: tformlist.aclone.caption
     792msgctxt "tformlist.aclone.caption"
     793msgid "Clone"
     794msgstr ""
     795
     796#: tformlist.amodify.caption
     797msgctxt "tformlist.amodify.caption"
     798msgid "Modify"
     799msgstr ""
     800
     801#: tformlist.aremove.caption
     802msgctxt "tformlist.aremove.caption"
     803msgid "Remove"
     804msgstr ""
     805
     806#: tformlist.aselectall.caption
     807msgctxt "tformlist.aselectall.caption"
     808msgid "Select all"
     809msgstr ""
     810
     811#: tformlist.caption
     812msgid "List"
     813msgstr ""
     814
     815#: tformlist.listview1.columns[0].caption
     816msgctxt "tformlist.listview1.columns[0].caption"
     817msgid "Name"
     818msgstr ""
     819
     820#: tformmain.amapgridvisible.caption
     821msgid "Map grid visible"
     822msgstr ""
     823
     824#: tformmain.astatusbarvisible.caption
     825msgid "Status bar visible"
     826msgstr ""
     827
     828#: tformmain.atoolbarbigicons.caption
     829msgctxt "tformmain.atoolbarbigicons.caption"
     830msgid "Toolbar big icons"
     831msgstr ""
     832
     833#: tformmain.atoolbarvisible.caption
     834msgctxt "tformmain.atoolbarvisible.caption"
     835msgid "Toolbar visible"
     836msgstr ""
     837
     838#: tformmain.aunitshapevisible.caption
     839msgid "Unit shape visible"
     840msgstr ""
     841
     842#: tformmain.caption
     843msgid "xTactics"
     844msgstr ""
     845
     846#: tformmain.menuitem1.caption
     847msgid "Game"
     848msgstr ""
     849
     850#: tformmain.menuitem10.caption
     851msgid "View"
     852msgstr ""
     853
     854#: tformmain.menuitem11.caption
     855msgctxt "tformmain.menuitem11.caption"
     856msgid "Zoom all"
     857msgstr ""
     858
     859#: tformmain.menuitem12.caption
     860msgctxt "tformmain.menuitem12.caption"
     861msgid "Zoom in"
     862msgstr ""
     863
     864#: tformmain.menuitem13.caption
     865msgctxt "tformmain.menuitem13.caption"
     866msgid "Zoom out"
     867msgstr ""
     868
     869#: tformmain.menuitem16.caption
     870msgctxt "tformmain.menuitem16.caption"
     871msgid "Help"
     872msgstr ""
     873
     874#: tformmain.menuitem8.caption
     875msgid "Tools"
     876msgstr ""
     877
     878#: tformmain.menuitemdebug.caption
     879msgctxt "tformmain.menuitemdebug.caption"
     880msgid "Debug"
     881msgstr ""
     882
     883#: tformmain.menuitemloadrecent.caption
     884msgid "Load recent"
     885msgstr ""
     886
     887#: tformmove.buttoncancel.caption
     888msgctxt "tformmove.buttoncancel.caption"
     889msgid "Cancel"
     890msgstr ""
     891
     892#: tformmove.buttonok.caption
     893msgctxt "tformmove.buttonok.caption"
     894msgid "Ok"
     895msgstr ""
     896
     897#: tformmove.buttononcemax.caption
     898msgctxt "tformmove.buttononcemax.caption"
     899msgid "Max"
     900msgstr ""
     901
     902#: tformmove.buttononcemin.caption
     903msgctxt "tformmove.buttononcemin.caption"
     904msgid "Min"
     905msgstr ""
     906
     907#: tformmove.buttonremove.caption
     908msgid "Delete"
     909msgstr ""
     910
     911#: tformmove.buttonrepeatmax.caption
     912msgctxt "tformmove.buttonrepeatmax.caption"
     913msgid "Max"
     914msgstr ""
     915
     916#: tformmove.buttonrepeatmin.caption
     917msgctxt "tformmove.buttonrepeatmin.caption"
     918msgid "Min"
     919msgstr ""
     920
     921#: tformmove.caption
     922msgid "Move"
     923msgstr ""
     924
     925#: tformmove.label1.caption
     926msgid "Once:"
     927msgstr ""
     928
     929#: tformmove.label2.caption
     930msgid "Every turn:"
     931msgstr ""
     932
     933#: tformmove.label3.caption
     934msgid "Win probability:"
     935msgstr ""
     936
     937#: tformmove.labelwinprobability.caption
     938msgid "   "
     939msgstr ""
     940
     941#: tformnew.aserveradd.caption
     942msgctxt "tformnew.aserveradd.caption"
     943msgid "Add"
     944msgstr ""
     945
     946#: tformnew.aservermodify.caption
     947msgctxt "tformnew.aservermodify.caption"
     948msgid "Modify"
     949msgstr ""
     950
     951#: tformnew.aserverremove.caption
     952msgctxt "tformnew.aserverremove.caption"
     953msgid "Remove"
     954msgstr ""
     955
     956#: tformnew.buttoncancel.caption
     957msgctxt "tformnew.buttoncancel.caption"
     958msgid "Cancel"
     959msgstr ""
     960
     961#: tformnew.buttongamesystems.caption
     962msgid "Manage"
     963msgstr ""
     964
     965#: tformnew.buttonimagebrowse.caption
     966msgid "Browse"
     967msgstr ""
     968
     969#: tformnew.buttonok.caption
     970msgctxt "tformnew.buttonok.caption"
     971msgid "Ok"
     972msgstr ""
     973
     974#: tformnew.buttonrandomize.caption
     975msgid "Randomize"
     976msgstr ""
     977
     978#: tformnew.caption
     979msgctxt "tformnew.caption"
     980msgid "New game"
     981msgstr ""
     982
     983#: tformnew.checkboxbridges.caption
     984msgid "Bridges between cells"
     985msgstr ""
     986
     987#: tformnew.checkboxcity.caption
     988msgctxt "tformnew.checkboxcity.caption"
     989msgid "Cities"
     990msgstr ""
     991
     992#: tformnew.checkboxcyclicmap.caption
     993msgid "Cyclic map"
     994msgstr ""
     995
     996#: tformnew.checkboxfogofwar.caption
     997msgid "Fog of war"
     998msgstr ""
     999
     1000#: tformnew.checkboxsymetricmap.caption
     1001msgid "Symetric map"
     1002msgstr ""
     1003
     1004#: tformnew.checkboxvoid.caption
     1005msgid "Inaccessible places"
     1006msgstr ""
     1007
     1008#: tformnew.label1.caption
     1009msgid "Map width:"
     1010msgstr ""
     1011
     1012#: tformnew.label10.caption
     1013msgid "Max units per cell:"
     1014msgstr ""
     1015
     1016#: tformnew.label11.caption
     1017msgctxt "tformnew.label11.caption"
     1018msgid "Port:"
     1019msgstr ""
     1020
     1021#: tformnew.label12.caption
     1022msgctxt "tformnew.label12.caption"
     1023msgid "Address:"
     1024msgstr ""
     1025
     1026#: tformnew.label13.caption
     1027msgid "Number of turns:"
     1028msgstr ""
     1029
     1030#: tformnew.label14.caption
     1031msgid "Special cells count:"
     1032msgstr ""
     1033
     1034#: tformnew.label15.caption
     1035msgid "Preview:"
     1036msgstr ""
     1037
     1038#: tformnew.label16.caption
     1039msgid "Game system:"
     1040msgstr ""
     1041
     1042#: tformnew.label2.caption
     1043msgid "Map height:"
     1044msgstr ""
     1045
     1046#: tformnew.label3.caption
     1047msgctxt "tformnew.label3.caption"
     1048msgid "%"
     1049msgstr ""
     1050
     1051#: tformnew.label4.caption
     1052msgctxt "tformnew.label4.caption"
     1053msgid "%"
     1054msgstr ""
     1055
     1056#: tformnew.label5.caption
     1057msgid "Grid type:"
     1058msgstr ""
     1059
     1060#: tformnew.label6.caption
     1061msgid "Win objective:"
     1062msgstr ""
     1063
     1064#: tformnew.label7.caption
     1065msgid "Max random neutral units:"
     1066msgstr ""
     1067
     1068#: tformnew.label8.caption
     1069msgid "Map shape:"
     1070msgstr ""
     1071
     1072#: tformnew.label9.caption
     1073msgid "Image file:"
     1074msgstr ""
     1075
     1076#: tformnew.listviewservers.columns[0].caption
     1077msgctxt "tformnew.listviewservers.columns[0].caption"
     1078msgid "Name"
     1079msgstr ""
     1080
     1081#: tformnew.listviewservers.columns[1].caption
     1082msgid "Address"
     1083msgstr ""
     1084
     1085#: tformnew.radiobuttonmodelocal.caption
     1086msgid "Local"
     1087msgstr ""
     1088
     1089#: tformnew.radiobuttonmodenetworkclient.caption
     1090msgid "Network client"
     1091msgstr ""
     1092
     1093#: tformnew.radiobuttonmodenetworkserver.caption
     1094msgid "Network server"
     1095msgstr ""
     1096
     1097#: tformnew.radiogroupgrowamount.caption
     1098msgid "Per turn grow amount"
     1099msgstr ""
     1100
     1101#: tformnew.radiogroupgrowcells.caption
     1102msgid "Growing cells"
     1103msgstr ""
     1104
     1105#: tformnew.tabsheetmap.caption
     1106msgid "Map"
     1107msgstr ""
     1108
     1109#: tformnew.tabsheetmode.caption
     1110msgctxt "tformnew.tabsheetmode.caption"
     1111msgid "Mode"
     1112msgstr ""
     1113
     1114#: tformnew.tabsheetplayers.caption
     1115msgid "Players"
     1116msgstr ""
     1117
     1118#: tformnew.tabsheetrules.caption
     1119msgid "Rules"
     1120msgstr ""
     1121
     1122#: tformplayersstats.aspectate.caption
     1123msgid "Spectate"
     1124msgstr ""
     1125
     1126#: tformplayersstats.caption
     1127msgid "Players stats"
     1128msgstr ""
     1129
     1130#: tformplayersstats.listview1.columns[0].caption
     1131msgctxt "tformplayersstats.listview1.columns[0].caption"
     1132msgid "Name"
     1133msgstr ""
     1134
     1135#: tformplayersstats.listview1.columns[1].caption
     1136msgctxt "tformplayersstats.listview1.columns[1].caption"
     1137msgid "Mode"
     1138msgstr ""
     1139
     1140#: tformplayersstats.listview1.columns[2].caption
     1141msgid "Cells"
     1142msgstr ""
     1143
     1144#: tformplayersstats.listview1.columns[3].caption
     1145msgid "Discovered"
     1146msgstr ""
     1147
     1148#: tformplayersstats.listview1.columns[4].caption
     1149msgctxt "tformplayersstats.listview1.columns[4].caption"
     1150msgid "Cities"
     1151msgstr ""
     1152
     1153#: tformplayersstats.listview1.columns[5].caption
     1154msgctxt "tformplayersstats.listview1.columns[5].caption"
     1155msgid "Units"
     1156msgstr ""
     1157
     1158#: tformplayersstats.listview1.columns[6].caption
     1159msgctxt "tformplayersstats.listview1.columns[6].caption"
     1160msgid "Win objective cells"
     1161msgstr ""
     1162
     1163#: tformserver.buttoncancel.caption
     1164msgctxt "tformserver.buttoncancel.caption"
     1165msgid "Cancel"
     1166msgstr ""
     1167
     1168#: tformserver.buttonok.caption
     1169msgctxt "tformserver.buttonok.caption"
     1170msgid "OK"
     1171msgstr ""
     1172
     1173#: tformserver.caption
     1174msgid "Server"
     1175msgstr ""
     1176
     1177#: tformserver.label1.caption
     1178msgid "Name:"
     1179msgstr ""
     1180
     1181#: tformserver.label2.caption
     1182msgctxt "tformserver.label2.caption"
     1183msgid "Address:"
     1184msgstr ""
     1185
     1186#: tformserver.label3.caption
     1187msgctxt "tformserver.label3.caption"
     1188msgid "Port:"
     1189msgstr ""
     1190
     1191#: tformsettings.buttoncancel.caption
     1192msgctxt "tformsettings.buttoncancel.caption"
     1193msgid "Cancel"
     1194msgstr ""
     1195
     1196#: tformsettings.buttonok.caption
     1197msgctxt "tformsettings.buttonok.caption"
     1198msgid "Ok"
     1199msgstr ""
     1200
     1201#: tformsettings.caption
     1202msgctxt "tformsettings.caption"
     1203msgid "Settings"
     1204msgstr ""
     1205
     1206#: tformsettings.checkbox2.caption
     1207msgid "Automatic DPI"
     1208msgstr ""
     1209
     1210#: tformsettings.checkboxautosaveturn.caption
     1211msgid "Autosave game on each turn"
     1212msgstr ""
     1213
     1214#: tformsettings.checkboxdevelmode.caption
     1215msgid "Developer mode"
     1216msgstr ""
     1217
     1218#: tformsettings.checkboxreopenlastfile.caption
     1219msgid "Reopen last game on start"
     1220msgstr ""
     1221
     1222#: tformsettings.label1.caption
     1223msgid "Language:"
     1224msgstr ""
     1225
     1226#: tformsettings.label2.caption
     1227msgid "Animation speed:"
     1228msgstr ""
     1229
     1230#: tformsettings.label3.caption
     1231msgctxt "tformsettings.label3.caption"
     1232msgid "%"
     1233msgstr ""
     1234
     1235#: tformsettings.label4.caption
     1236msgid "DPI:"
     1237msgstr ""
     1238
     1239#: tformsettings.label5.caption
     1240msgid "x"
     1241msgstr ""
     1242
     1243#: tformsettings.label6.caption
     1244msgid "Theme:"
     1245msgstr ""
     1246
     1247#: tformsettings.tabsheetdebug.caption
     1248msgctxt "tformsettings.tabsheetdebug.caption"
     1249msgid "Debug"
     1250msgstr ""
     1251
     1252#: tformsettings.tabsheetgeneral.caption
     1253msgctxt "tformsettings.tabsheetgeneral.caption"
     1254msgid "General"
     1255msgstr ""
     1256
     1257#: tformunitmoves.caption
     1258msgctxt "tformunitmoves.caption"
     1259msgid "Unit moves"
     1260msgstr ""
     1261
     1262#: tformunitmoves.listview1.columns[0].caption
     1263msgid "From cell"
     1264msgstr ""
     1265
     1266#: tformunitmoves.listview1.columns[1].caption
     1267msgid "To cell"
     1268msgstr ""
     1269
     1270#: tformunitmoves.listview1.columns[2].caption
     1271msgid "Once count"
     1272msgstr ""
     1273
     1274#: tformunitmoves.listview1.columns[3].caption
     1275msgid "Repeat count"
     1276msgstr ""
     1277
     1278#: unit.scost
     1279msgctxt "unit.scost"
    12101280msgid "Cost"
    12111281msgstr ""
    12121282
    1213 #: uunit.smoves
     1283#: unit.smoves
     1284msgctxt "unit.smoves"
    12141285msgid "Moves"
    12151286msgstr ""
    12161287
    1217 #: uunit.spowerattack
     1288#: unit.spowerattack
     1289msgctxt "unit.spowerattack"
    12181290msgid "Attack power"
    12191291msgstr ""
    12201292
    1221 #: uunit.spowerdefense
     1293#: unit.spowerdefense
     1294msgctxt "unit.spowerdefense"
    12221295msgid "Defense power"
    12231296msgstr ""
    12241297
    1225 #: uunit.sstack
     1298#: unit.sstack
     1299msgctxt "unit.sstack"
    12261300msgid "Stack"
    12271301msgstr ""
    12281302
    1229 #: uunit.sunitkind
     1303#: unit.sunitkind
     1304msgctxt "unit.sunitkind"
    12301305msgid "Unit kind"
    12311306msgstr ""
    12321307
    1233 #: uunit.sviewrange
     1308#: unit.sviewrange
     1309msgctxt "unit.sviewrange"
    12341310msgid "View range"
    12351311msgstr ""
  • trunk/Map.pas

    r316 r317  
    1 unit UMap;
     1unit Map;
    22
    33interface
    44
    55uses
    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;
    88
    99const
     
    196196
    197197uses
    198   UPlayer, UGame;
     198  Player, Game;
    199199
    200200{ TCellLink }
  • trunk/MapType.pas

    r316 r317  
    1 unit UMapType;
     1unit MapType;
    22
    33interface
    44
    55uses
    6   Classes, SysUtils, XMLRead, XMLWrite, DOM, UGeometry, UMap;
     6  Classes, SysUtils, XMLRead, XMLWrite, DOM, Geometry, Map;
    77
    88type
  • trunk/Nation.pas

    r316 r317  
    1 unit UNation;
     1unit Nation;
    22
    33interface
    44
    55uses
    6   Classes, SysUtils, Graphics, UItemList;
     6  Classes, SysUtils, Graphics, ItemList;
    77
    88type
  • trunk/Packages/Common/JobProgressView.pas

    r315 r317  
    339339  Caption := SPleaseWait + STerminate;
    340340end;
    341 
    342341
    343342{ TJobProgressView }
  • trunk/Packages/PinConnection/CommFrame.pas

    r316 r317  
    1 unit UCommFrame;
    2 
    3 {$mode Delphi}{$H+}
     1unit CommFrame;
    42
    53interface
     
    75uses
    86  Classes, Dialogs, SysUtils, SpecializedList, UBinarySerializer,
    9   UCommPin;
     7  CommPin;
    108
    119type
  • trunk/Packages/PinConnection/CommPin.pas

    r316 r317  
    1 unit UCommPin;
    2 
    3 {$mode Delphi}{$H+}{$M+}
     1unit CommPin;
    42
    53interface
     
    7573    destructor Destroy; override;
    7674  end;
     75
    7776
    7877implementation
  • trunk/Packages/PinConnection/CommThread.pas

    r316 r317  
    1 unit UCommThread;
    2 
    3 {$mode Delphi}{$H+}
     1unit CommThread;
    42
    53interface
    64
    75uses
    8   Classes, SysUtils, UCommPin, SyncObjs, Common,
     6  Classes, SysUtils, CommPin, SyncObjs, Common,
    97  DateUtils, Threading, SpecializedList, UBinarySerializer;
    108
     
    4947    destructor Destroy; override;
    5048  end;
     49
    5150
    5251implementation
  • trunk/Player.pas

    r316 r317  
    1 unit UPlayer;
     1unit Player;
    22
    33interface
    44
    55uses
    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;
    88
    99type
     
    205205
    206206uses
    207   UGame, UGameSystem, UBuilding;
     207  Game, GameSystem, Building;
    208208
    209209resourcestring
     
    10301030begin
    10311031  for I := 0 to PlayerMap.Cells.Count - 1 do
    1032   with TPlayerCell(PlayerMap.Cells[I]) do begin
     1032  with PlayerMap.Cells[I] do begin
    10331033    if Assigned(MapCell.OneUnit) and (MapCell.OneUnit.Power = 0) then begin
    10341034      OneUnit := MapCell.OneUnit;
     
    10441044begin
    10451045  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;
    10471047end;
    10481048
     
    13561356    NewNode := Node.OwnerDocument.CreateElement('TurnStat');
    13571357    Node.AppendChild(NewNode);
    1358     TGameTurnStat(Items[I]).SaveToNode(NewNode);
    1359   end;
    1360 end;
    1361 
     1358    Items[I].SaveToNode(NewNode);
     1359  end;
     1360end;
    13621361
    13631362end.
  • trunk/ServerList.pas

    r316 r317  
    1 unit UServerList;
     1unit ServerList;
    22
    33interface
     
    4343
    4444uses
    45   UGameServer;
     45  GameServer;
    4646
    4747{ TServerInfo }
  • trunk/TCP.pas

    r316 r317  
    1 unit UTCP;
     1unit TCP;
    22
    33interface
  • trunk/Unit.pas

    r316 r317  
    1 unit UUnit;
     1unit &Unit;
    22
    33interface
    44
    55uses
    6   Classes, SysUtils, Generics.Collections, UGeometry, DOM, XML, UItemList;
     6  Classes, SysUtils, Generics.Collections, Geometry, DOM, XML, ItemList;
    77
    88type
     
    7979
    8080uses
    81   UPlayer, UMap, UGame;
     81  Player, Map, Game;
    8282
    8383resourcestring
     
    9090  SUnitKind = 'Unit kind';
    9191
    92 
    9392{ TUnitKind }
    9493
  • trunk/xtactics.lpi

    r315 r317  
    115115      </Unit0>
    116116      <Unit1>
    117         <Filename Value="UGame.pas"/>
     117        <Filename Value="Game.pas"/>
    118118        <IsPartOfProject Value="True"/>
    119119      </Unit1>
    120120      <Unit2>
    121         <Filename Value="UCore.pas"/>
     121        <Filename Value="Core.pas"/>
    122122        <IsPartOfProject Value="True"/>
    123123        <ComponentName Value="Core"/>
     
    126126      </Unit2>
    127127      <Unit3>
    128         <Filename Value="Forms/UFormSettings.pas"/>
     128        <Filename Value="Forms/FormSettings.pas"/>
    129129        <IsPartOfProject Value="True"/>
    130130        <ComponentName Value="FormSettings"/>
     
    133133      </Unit3>
    134134      <Unit4>
    135         <Filename Value="Forms/UFormMain.pas"/>
     135        <Filename Value="Forms/FormMain.pas"/>
    136136        <IsPartOfProject Value="True"/>
    137137        <ComponentName Value="FormMain"/>
     
    140140      </Unit4>
    141141      <Unit5>
    142         <Filename Value="Forms/UFormMove.pas"/>
     142        <Filename Value="Forms/FormMove.pas"/>
    143143        <IsPartOfProject Value="True"/>
    144144        <ComponentName Value="FormMove"/>
     
    147147      </Unit5>
    148148      <Unit6>
    149         <Filename Value="Forms/UFormNew.pas"/>
     149        <Filename Value="Forms/FormNew.pas"/>
    150150        <IsPartOfProject Value="True"/>
    151151        <ComponentName Value="FormNew"/>
     
    154154      </Unit6>
    155155      <Unit7>
    156         <Filename Value="Forms/UFormHelp.pas"/>
     156        <Filename Value="Forms/FormHelp.pas"/>
    157157        <IsPartOfProject Value="True"/>
    158158        <ComponentName Value="FormHelp"/>
     
    161161      </Unit7>
    162162      <Unit8>
    163         <Filename Value="Forms/UFormCharts.pas"/>
     163        <Filename Value="Forms/FormCharts.pas"/>
    164164        <IsPartOfProject Value="True"/>
    165165        <ComponentName Value="FormCharts"/>
     
    168168      </Unit8>
    169169      <Unit9>
    170         <Filename Value="Forms/UFormUnitMoves.pas"/>
     170        <Filename Value="Forms/FormUnitMoves.pas"/>
    171171        <IsPartOfProject Value="True"/>
    172172        <ComponentName Value="FormUnitMoves"/>
     
    175175      </Unit9>
    176176      <Unit10>
    177         <Filename Value="Forms/UFormChat.pas"/>
     177        <Filename Value="Forms/FormChat.pas"/>
    178178        <IsPartOfProject Value="True"/>
    179179        <ComponentName Value="FormChat"/>
     
    182182      </Unit10>
    183183      <Unit11>
    184         <Filename Value="UTCP.pas"/>
     184        <Filename Value="TCP.pas"/>
    185185        <IsPartOfProject Value="True"/>
    186186      </Unit11>
    187187      <Unit12>
    188         <Filename Value="UServerList.pas"/>
     188        <Filename Value="ServerList.pas"/>
    189189        <IsPartOfProject Value="True"/>
    190190      </Unit12>
    191191      <Unit13>
    192         <Filename Value="Forms/UFormClient.pas"/>
     192        <Filename Value="Forms/FormClient.pas"/>
    193193        <IsPartOfProject Value="True"/>
    194194        <ComponentName Value="FormClient"/>
     
    197197      </Unit13>
    198198      <Unit14>
    199         <Filename Value="Forms/UFormPlayersStats.pas"/>
     199        <Filename Value="Forms/FormPlayersStats.pas"/>
    200200        <IsPartOfProject Value="True"/>
    201201        <ComponentName Value="FormPlayersStats"/>
     
    204204      </Unit14>
    205205      <Unit15>
    206         <Filename Value="UGameServer.pas"/>
     206        <Filename Value="GameServer.pas"/>
    207207        <IsPartOfProject Value="True"/>
    208208      </Unit15>
    209209      <Unit16>
    210         <Filename Value="UGameClient.pas"/>
     210        <Filename Value="GameClient.pas"/>
    211211        <IsPartOfProject Value="True"/>
    212212      </Unit16>
    213213      <Unit17>
    214         <Filename Value="UGameProtocol.pas"/>
     214        <Filename Value="GameProtocol.pas"/>
    215215        <IsPartOfProject Value="True"/>
    216216      </Unit17>
    217217      <Unit18>
    218         <Filename Value="Packages/PinConnection/UCommPin.pas"/>
     218        <Filename Value="Packages/PinConnection/CommPin.pas"/>
    219219        <IsPartOfProject Value="True"/>
    220220      </Unit18>
    221221      <Unit19>
    222         <Filename Value="UGeometry.pas"/>
     222        <Filename Value="Geometry.pas"/>
    223223        <IsPartOfProject Value="True"/>
    224224      </Unit19>
    225225      <Unit20>
    226         <Filename Value="UGeometryClasses.pas"/>
     226        <Filename Value="GeometryClasses.pas"/>
    227227        <IsPartOfProject Value="True"/>
    228228      </Unit20>
    229229      <Unit21>
    230         <Filename Value="Forms/UFormServer.pas"/>
     230        <Filename Value="Forms/FormServer.pas"/>
    231231        <IsPartOfProject Value="True"/>
    232232        <ComponentName Value="FormServer"/>
     
    235235      </Unit21>
    236236      <Unit22>
    237         <Filename Value="UClientAI.pas"/>
     237        <Filename Value="ClientAI.pas"/>
    238238        <IsPartOfProject Value="True"/>
    239239      </Unit22>
    240240      <Unit23>
    241         <Filename Value="UGameConnection.pas"/>
     241        <Filename Value="GameConnection.pas"/>
    242242        <IsPartOfProject Value="True"/>
    243243      </Unit23>
    244244      <Unit24>
    245         <Filename Value="Packages/PinConnection/UCommThread.pas"/>
     245        <Filename Value="Packages/PinConnection/CommThread.pas"/>
    246246        <IsPartOfProject Value="True"/>
    247247      </Unit24>
    248248      <Unit25>
    249         <Filename Value="Forms/UFormKeyShortcuts.pas"/>
     249        <Filename Value="Forms/FormKeyShortcuts.pas"/>
    250250        <IsPartOfProject Value="True"/>
    251251        <ComponentName Value="FormKeyShortcuts"/>
     
    254254      </Unit25>
    255255      <Unit26>
    256         <Filename Value="Packages/PinConnection/UCommFrame.pas"/>
     256        <Filename Value="Packages/PinConnection/CommFrame.pas"/>
    257257        <IsPartOfProject Value="True"/>
    258258      </Unit26>
    259259      <Unit27>
    260         <Filename Value="UMapType.pas"/>
     260        <Filename Value="MapType.pas"/>
    261261        <IsPartOfProject Value="True"/>
    262262      </Unit27>
    263263      <Unit28>
    264         <Filename Value="UMap.pas"/>
     264        <Filename Value="Map.pas"/>
    265265        <IsPartOfProject Value="True"/>
    266266      </Unit28>
    267267      <Unit29>
    268         <Filename Value="UPlayer.pas"/>
     268        <Filename Value="Player.pas"/>
    269269        <IsPartOfProject Value="True"/>
    270270      </Unit29>
    271271      <Unit30>
    272         <Filename Value="UClientGUI.pas"/>
     272        <Filename Value="ClientGUI.pas"/>
    273273        <IsPartOfProject Value="True"/>
    274274      </Unit30>
    275275      <Unit31>
    276         <Filename Value="UUnit.pas"/>
    277         <IsPartOfProject Value="True"/>
     276        <Filename Value="Unit.pas"/>
     277        <IsPartOfProject Value="True"/>
     278        <UnitName Value="&amp;Unit"/>
    278279      </Unit31>
    279280      <Unit32>
    280         <Filename Value="UGameSystem.pas"/>
     281        <Filename Value="GameSystem.pas"/>
    281282        <IsPartOfProject Value="True"/>
    282283      </Unit32>
    283284      <Unit33>
    284         <Filename Value="UBuilding.pas"/>
     285        <Filename Value="Building.pas"/>
    285286        <IsPartOfProject Value="True"/>
    286287      </Unit33>
    287288      <Unit34>
    288         <Filename Value="Forms/UFormGameSystem.pas"/>
     289        <Filename Value="Forms/FormGameSystem.pas"/>
    289290        <IsPartOfProject Value="True"/>
    290291        <ComponentName Value="FormGameSystem"/>
     
    293294      </Unit34>
    294295      <Unit35>
    295         <Filename Value="Forms/UFormGameSystems.pas"/>
     296        <Filename Value="Forms/FormGameSystems.pas"/>
    296297        <IsPartOfProject Value="True"/>
    297298        <ComponentName Value="FormGameSystems"/>
     
    300301      </Unit35>
    301302      <Unit36>
    302         <Filename Value="UNation.pas"/>
     303        <Filename Value="Nation.pas"/>
    303304        <IsPartOfProject Value="True"/>
    304305      </Unit36>
    305306      <Unit37>
    306         <Filename Value="UItemList.pas"/>
     307        <Filename Value="ItemList.pas"/>
    307308        <IsPartOfProject Value="True"/>
    308309      </Unit37>
    309310      <Unit38>
    310         <Filename Value="Forms/UFormList.pas"/>
     311        <Filename Value="Forms/FormList.pas"/>
    311312        <IsPartOfProject Value="True"/>
    312313        <ComponentName Value="FormList"/>
     
    315316      </Unit38>
    316317      <Unit39>
    317         <Filename Value="Forms/UFormItem.pas"/>
     318        <Filename Value="Forms/FormItem.pas"/>
    318319        <IsPartOfProject Value="True"/>
    319320        <ComponentName Value="FormItem"/>
  • trunk/xtactics.lpr

    r316 r317  
    88  {$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    10   Forms, tachartlazaruspkg, UGame, UCore, Common,
     10  Forms, tachartlazaruspkg, Game, Core, Common,
    1111  TemplateGenerics
    1212  { you can add units after this },
    13   SysUtils, UFormMain, CoolStreaming;
     13  SysUtils, FormMain, CoolStreaming;
    1414
    1515{$R *.res}
     
    3131  Application.Scaled:=True;
    3232  Application.Initialize;
    33   Application.CreateForm(TCore, Core);
    34   Application.CreateForm(TFormMain, FormMain);
     33  Application.CreateForm(TCore, Core.Core);
    3534  Application.Run;
    3635end.
Note: See TracChangeset for help on using the changeset viewer.