Changeset 181
- Timestamp:
- Feb 9, 2018, 9:41:25 AM (7 years ago)
- Location:
- trunk
- Files:
-
- 2 added
- 10 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormCharts.pas
r145 r181 89 89 LastIndex: Integer; 90 90 begin 91 Core.CoolTranslator1.TranslateComponentRecursive(Self); 91 92 with ComboBox1 do begin 92 93 LastIndex := ItemIndex; -
trunk/Forms/UFormMain.lfm
r180 r181 72 72 Height = 32 73 73 Top = 2 74 Caption = 'ToolButton2'75 74 Style = tbsDivider 76 75 end … … 166 165 Action = Core.AShowUnitMoves 167 166 end 167 object MenuItem28: TMenuItem 168 Action = Core.APlayersStats 169 end 168 170 end 169 171 object MenuItem16: TMenuItem -
trunk/Forms/UFormMain.pas
r180 r181 42 42 MenuItem26: TMenuItem; 43 43 MenuItem27: TMenuItem; 44 MenuItem28: TMenuItem; 44 45 MenuItemLoadRecent: TMenuItem; 45 46 MenuItem3: TMenuItem; -
trunk/Forms/UFormUnitMoves.pas
r150 r181 51 51 begin 52 52 Core.PersistentForm.Load(Self); 53 Core.CoolTranslator1.TranslateComponentRecursive(Self); 53 54 ReloadList; 54 55 end; -
trunk/Languages/xtactics.cs.po
r180 r181 78 78 #: tcore.anewspectatorclient.caption 79 79 msgid "New spectator client" 80 msgstr "" 80 msgstr "Nový klient divák" 81 82 #: tcore.aplayersstats.caption 83 msgid "Players statistics" 84 msgstr "Statistiky hráčů" 81 85 82 86 #: tcore.asettings.caption … … 149 153 150 154 #: tformclient.astatusbarvisible.caption 151 #, fuzzy152 155 msgctxt "tformclient.astatusbarvisible.caption" 153 156 msgid "Statusbar visible" … … 155 158 156 159 #: tformclient.atoolbarbigicons.caption 157 #, fuzzy158 160 msgctxt "tformclient.atoolbarbigicons.caption" 159 161 msgid "Toolbar big icons" … … 161 163 162 164 #: tformclient.atoolbarvisible.caption 163 #, fuzzy164 165 msgctxt "tformclient.atoolbarvisible.caption" 165 166 msgid "Toolbar visible" … … 167 168 168 169 #: tformclient.azoomall.caption 169 #, fuzzy170 170 msgctxt "tformclient.azoomall.caption" 171 171 msgid "Zoom all" … … 173 173 174 174 #: tformclient.azoomin.caption 175 #, fuzzy176 175 msgctxt "tformclient.azoomin.caption" 177 176 msgid "Zoom in" … … 179 178 180 179 #: tformclient.azoomout.caption 181 #, fuzzy182 180 msgctxt "tformclient.azoomout.caption" 183 181 msgid "Zoom out" … … 186 184 #: tformclient.caption 187 185 msgid "Client" 188 msgstr " "186 msgstr "Klient" 189 187 190 188 #: tformhelp.caption … … 219 217 220 218 #: tformmain.menuitem11.caption 221 #, fuzzy222 219 msgctxt "tformmain.menuitem11.caption" 223 220 msgid "Zoom all" … … 225 222 226 223 #: tformmain.menuitem12.caption 227 #, fuzzy228 224 msgctxt "tformmain.menuitem12.caption" 229 225 msgid "Zoom in" … … 231 227 232 228 #: tformmain.menuitem13.caption 233 #, fuzzy234 229 msgctxt "tformmain.menuitem13.caption" 235 230 msgid "Zoom out" … … 242 237 243 238 #: tformmain.menuitem22.caption 244 #, fuzzy245 239 msgctxt "tformmain.menuitem22.caption" 246 240 msgid "Statusbar visible" … … 258 252 msgstr "Načíst nedávné" 259 253 260 #: tformmain.toolbutton2.caption261 msgid "ToolButton2"262 msgstr ""263 264 254 #: tformmove.buttoncancel.caption 265 255 msgctxt "tformmove.buttoncancel.caption" … … 356 346 357 347 #: tformnew.checkboxcity.caption 348 msgctxt "tformnew.checkboxcity.caption" 358 349 msgid "Cities" 359 350 msgstr "Města" … … 531 522 msgstr "Počátečních jednotek:" 532 523 524 #: tformplayersstats.caption 525 msgid "Players stats" 526 msgstr "Statistiky hráčů" 527 528 #: tformplayersstats.listview1.columns[0].caption 529 msgctxt "tformplayersstats.listview1.columns[0].caption" 530 msgid "Name" 531 msgstr "Jméno" 532 533 #: tformplayersstats.listview1.columns[1].caption 534 msgid "Cells" 535 msgstr "Buňky" 536 537 #: tformplayersstats.listview1.columns[2].caption 538 msgid "Discovered" 539 msgstr "Objevených" 540 541 #: tformplayersstats.listview1.columns[3].caption 542 msgctxt "tformplayersstats.listview1.columns[3].caption" 543 msgid "Cities" 544 msgstr "Města" 545 546 #: tformplayersstats.listview1.columns[4].caption 547 msgid "Units" 548 msgstr "Jednotky" 549 533 550 #: tformsettings.buttoncancel.caption 534 551 msgctxt "tformsettings.buttoncancel.caption" … … 668 685 669 686 #: uformclient.sturn 670 #, fuzzy671 687 msgctxt "uformclient.sturn" 672 688 msgid "turn" … … 822 838 #: ugame.sspectator 823 839 msgid "Spectator" 824 msgstr " "840 msgstr "Divák" 825 841 826 842 #: ugame.sunfinishedbattle -
trunk/Languages/xtactics.po
r180 r181 70 70 msgstr "" 71 71 72 #: tcore.aplayersstats.caption 73 msgid "Players statistics" 74 msgstr "" 75 72 76 #: tcore.asettings.caption 73 77 msgctxt "tcore.asettings.caption" … … 237 241 msgstr "" 238 242 239 #: tformmain.toolbutton2.caption240 msgid "ToolButton2"241 msgstr ""242 243 243 #: tformmove.buttoncancel.caption 244 244 msgctxt "tformmove.buttoncancel.caption" … … 333 333 334 334 #: tformnew.checkboxcity.caption 335 msgctxt "tformnew.checkboxcity.caption" 335 336 msgid "Cities" 336 337 msgstr "" … … 504 505 #: tformplayer.label5.caption 505 506 msgid "Start units:" 507 msgstr "" 508 509 #: tformplayersstats.caption 510 msgid "Players stats" 511 msgstr "" 512 513 #: tformplayersstats.listview1.columns[0].caption 514 msgctxt "tformplayersstats.listview1.columns[0].caption" 515 msgid "Name" 516 msgstr "" 517 518 #: tformplayersstats.listview1.columns[1].caption 519 msgid "Cells" 520 msgstr "" 521 522 #: tformplayersstats.listview1.columns[2].caption 523 msgid "Discovered" 524 msgstr "" 525 526 #: tformplayersstats.listview1.columns[3].caption 527 msgctxt "tformplayersstats.listview1.columns[3].caption" 528 msgid "Cities" 529 msgstr "" 530 531 #: tformplayersstats.listview1.columns[4].caption 532 msgid "Units" 506 533 msgstr "" 507 534 -
trunk/UCore.lfm
r180 r181 3 3 OnDestroy = DataModuleDestroy 4 4 OldCreateOrder = False 5 Height = 8486 HorizontalOffset = 6957 VerticalOffset = 1828 Width = 1 1755 Height = 676 6 HorizontalOffset = 365 7 VerticalOffset = 284 8 Width = 1048 9 9 PPI = 120 10 10 object ActionList1: TActionList … … 86 86 Caption = 'New spectator client' 87 87 OnExecute = ANewSpectatorClientExecute 88 end 89 object APlayersStats: TAction 90 Caption = 'Players statistics' 91 OnExecute = APlayersStatsExecute 88 92 end 89 93 end -
trunk/UCore.pas
r180 r181 16 16 TCore = class(TDataModule) 17 17 AAbout: TAction; 18 APlayersStats: TAction; 18 19 ANewSpectatorClient: TAction; 19 20 AShowUnitMoves: TAction; … … 49 50 procedure AHelpExecute(Sender: TObject); 50 51 procedure ANewSpectatorClientExecute(Sender: TObject); 52 procedure APlayersStatsExecute(Sender: TObject); 51 53 procedure ASettingsExecute(Sender: TObject); 52 54 procedure AShowChartsExecute(Sender: TObject); … … 78 80 procedure LoadGame(FileName: string); 79 81 procedure RedrawClients; 82 procedure UpdateOtherForms; 80 83 public 81 84 Game: TGame; … … 103 106 uses 104 107 UFormMove, UFormMain, UFormNew, UFormSettings, UFormAbout, UFormPlayer, 105 UFormHelp, UFormCharts, UFormUnitMoves ;108 UFormHelp, UFormCharts, UFormUnitMoves, UFormPlayersStats; 106 109 107 110 const … … 366 369 end; 367 370 371 procedure TCore.APlayersStatsExecute(Sender: TObject); 372 begin 373 if not Assigned(FormPlayersStats) then 374 FormPlayersStats := TFormPlayersStats.Create(nil); 375 FormPlayersStats.Show; 376 end; 377 368 378 procedure TCore.ASettingsExecute(Sender: TObject); 369 379 begin … … 383 393 procedure TCore.AShowChartsExecute(Sender: TObject); 384 394 begin 395 if not Assigned(FormCharts) then FormCharts := TFormCharts.Create(nil); 385 396 FormCharts.Show; 386 397 end; … … 388 399 procedure TCore.AShowUnitMovesExecute(Sender: TObject); 389 400 begin 401 if not Assigned(FormUnitMoves) then FormUnitMoves := TFormUnitMoves.Create(nil); 390 402 FormUnitMoves.Show; 391 403 end; … … 416 428 procedure TCore.DataModuleDestroy(Sender: TObject); 417 429 begin 430 if Assigned(FormPlayersStats) then FreeAndNil(FormPlayersStats); 431 if Assigned(FormUnitMoves) then FreeAndNil(FormUnitMoves); 432 if Assigned(FormCharts) then FreeAndNil(FormCharts); 418 433 FreeAndNil(FormClients); 419 434 FreeAndNil(StoredDimension); … … 446 461 FormClient.AZoomAll.Execute; 447 462 RedrawClients; 448 if FormCharts.Visible then FormCharts.Redraw; 449 if FormUnitMoves.Visible then FormUnitMoves.ReloadList; 463 UpdateOtherForms; 450 464 end; 451 465 … … 457 471 Form.Redraw; 458 472 FormClient.Redraw; 473 end; 474 475 procedure TCore.UpdateOtherForms; 476 begin 477 if Assigned(FormCharts) and FormCharts.Visible then FormCharts.Redraw; 478 if Assigned(FormUnitMoves) and FormUnitMoves.Visible then FormUnitMoves.ReloadList; 479 if Assigned(FormPlayersStats) and FormPlayersStats.Visible then FormPlayersStats.ReloadList; 459 480 end; 460 481 … … 468 489 else ShowMessage(Format(SPlayersNotInitialized, [Game.Players.Count, Game.Players.GetAliveCount])); 469 490 RedrawClients; 470 if FormCharts.Visible then FormCharts.Redraw; 471 if FormUnitMoves.Visible then FormUnitMoves.ReloadList; 491 UpdateOtherForms; 472 492 ProcessComputerTurns; 473 493 UpdateActions; … … 479 499 FormClient.Client := Game.CurrentPlayer.Client; 480 500 end; 481 if FormCharts.Visible then FormCharts.Redraw; 482 if FormUnitMoves.Visible then FormUnitMoves.ReloadList; 501 UpdateOtherForms; 483 502 end; 484 503 485 504 procedure TCore.DoMoveUpdated(UnitMove: TUnitMove); 486 505 begin 487 if FormUnitMoves.Visible then FormUnitMoves.ReloadList; 506 if Assigned(FormUnitMoves) and FormUnitMoves.Visible then 507 FormUnitMoves.ReloadList; 488 508 end; 489 509 -
trunk/xtactics.lpi
r180 r181 100 100 </Item6> 101 101 </RequiredPackages> 102 <Units Count="1 8">102 <Units Count="19"> 103 103 <Unit0> 104 104 <Filename Value="xtactics.lpr"/> … … 209 209 <ResourceBaseClass Value="Form"/> 210 210 </Unit17> 211 <Unit18> 212 <Filename Value="Forms/UFormPlayersStats.pas"/> 213 <IsPartOfProject Value="True"/> 214 <ComponentName Value="FormPlayersStats"/> 215 <ResourceBaseClass Value="Form"/> 216 </Unit18> 211 217 </Units> 212 218 </ProjectOptions> -
trunk/xtactics.lpr
r180 r181 12 12 { you can add units after this }, 13 13 SysUtils, UFormMain, UFormMove, UFormNew, UFormCharts, UFormUnitMoves, 14 UFormChat, UGameSocket, UTCP, UServerList ;14 UFormChat, UGameSocket, UTCP, UServerList, UFormPlayersStats; 15 15 16 16 {$R *.res} … … 35 35 Application.CreateForm(TFormMove, FormMove); 36 36 Application.CreateForm(TFormPlayer, FormPlayer); 37 Application.CreateForm(TFormCharts, FormCharts);38 Application.CreateForm(TFormUnitMoves, FormUnitMoves);39 37 Application.Run; 40 38 end.
Note:
See TracChangeset
for help on using the changeset viewer.