Changeset 283
- Timestamp:
- Mar 10, 2019, 5:33:06 PM (6 years ago)
- Location:
- trunk
- Files:
-
- 5 added
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormGameSystem.lfm
r277 r283 58 58 Top = 16 59 59 Width = 744 60 ActivePage = TabSheet Units60 ActivePage = TabSheetNations 61 61 Anchors = [akTop, akLeft, akRight, akBottom] 62 TabIndex = 162 TabIndex = 2 63 63 TabOrder = 4 64 64 object TabSheetGeneral: TTabSheet … … 94 94 Caption = 'Units' 95 95 end 96 object TabSheetNations: TTabSheet 97 Caption = 'Nations' 98 end 96 99 end 97 100 object OpenDialog1: TOpenDialog -
trunk/Forms/UFormGameSystem.pas
r278 r283 7 7 uses 8 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 9 ComCtrls, UGameSystem, UFormUnitKinds ;9 ComCtrls, UGameSystem, UFormUnitKinds, UFormNations; 10 10 11 11 type … … 24 24 PageControl1: TPageControl; 25 25 SaveDialog1: TSaveDialog; 26 TabSheetNations: TTabSheet; 26 27 TabSheetGeneral: TTabSheet; 27 28 TabSheetUnits: TTabSheet; … … 35 36 FGameSystem: TGameSystem; 36 37 FormUnitKinds: TFormUnitKinds; 38 FormNations: TFormNations; 37 39 procedure SetGameSystem(AValue: TGameSystem); 38 40 public … … 94 96 FormUnitKinds.Align := alClient; 95 97 FormUnitKinds.Visible := True; 98 FormNations := TFormNations.Create(nil); 99 FormNations.ManualDock(TabSheetNations, nil, alClient); 100 FormNations.Align := alClient; 101 FormNations.Visible := True; 96 102 end; 97 103 … … 99 105 begin 100 106 GameSystem := nil; 107 FreeAndNil(FormNations); 101 108 FreeAndNil(FormUnitKinds); 102 109 end; … … 110 117 begin 111 118 if FGameSystem = AValue then Exit; 112 if Assigned(FGameSystem) then FormUnitKinds.UnitKinds := nil; 119 if Assigned(FGameSystem) then begin 120 FormUnitKinds.UnitKinds := nil; 121 FormNations.Nations := nil; 122 end; 113 123 FGameSystem := AValue; 114 if Assigned(FGameSystem) then FormUnitKinds.UnitKinds := GameSystem.UnitKinds; 124 if Assigned(FGameSystem) then begin 125 FormUnitKinds.UnitKinds := GameSystem.UnitKinds; 126 FormNations.Nations := GameSystem.Nations; 127 end; 115 128 end; 116 129 … … 121 134 CheckBoxUnitsSplitMerge.Checked := GameSystem.UnitsSplitMerge; 122 135 CheckBoxUnitsMoveImmediately.Checked := GameSystem.UnitsMoveImmediately; 136 FormNations.UpdateList; 137 FormNations.UpdateInterface; 138 FormUnitKinds.UpdateList; 139 FormUnitKinds.UpdateInterface; 123 140 end; 124 141 -
trunk/Languages/xtactics.cs.po
r282 r283 250 250 msgstr "Obecné" 251 251 252 #: tformgamesystem.tabsheetnations.caption 253 msgctxt "tformgamesystem.tabsheetnations.caption" 254 msgid "Nations" 255 msgstr "Národy" 256 252 257 #: tformgamesystem.tabsheetunits.caption 253 258 msgctxt "tformgamesystem.tabsheetunits.caption" … … 443 448 msgstr " " 444 449 450 #: tformnation.buttoncancel.caption 451 #, fuzzy 452 msgctxt "tformnation.buttoncancel.caption" 453 msgid "Cancel" 454 msgstr "Zrušit" 455 456 #: tformnation.buttonok.caption 457 #, fuzzy 458 msgctxt "tformnation.buttonok.caption" 459 msgid "OK" 460 msgstr "OK" 461 462 #: tformnation.caption 463 #, fuzzy 464 #| msgid "Start units" 465 msgctxt "tformnation.caption" 466 msgid "Nation" 467 msgstr "Počátečních jednotek" 468 469 #: tformnation.labelhealth.caption 470 #, fuzzy 471 msgctxt "tformnation.labelhealth.caption" 472 msgid "Color:" 473 msgstr "Barva:" 474 475 #: tformnation.labelname.caption 476 #, fuzzy 477 msgctxt "tformnation.labelname.caption" 478 msgid "Name:" 479 msgstr "Jméno:" 480 481 #: tformnations.aadd.caption 482 #, fuzzy 483 msgctxt "tformnations.aadd.caption" 484 msgid "Add" 485 msgstr "Přidat" 486 487 #: tformnations.aclone.caption 488 #, fuzzy 489 msgctxt "tformnations.aclone.caption" 490 msgid "Clone" 491 msgstr "Klonovat" 492 493 #: tformnations.amodify.caption 494 #, fuzzy 495 msgctxt "tformnations.amodify.caption" 496 msgid "Modify" 497 msgstr "Upravit" 498 499 #: tformnations.aremove.caption 500 #, fuzzy 501 msgctxt "tformnations.aremove.caption" 502 msgid "Remove" 503 msgstr "Odstranit" 504 505 #: tformnations.aselectall.caption 506 #, fuzzy 507 msgctxt "tformnations.aselectall.caption" 508 msgid "Select all" 509 msgstr "Vybrat vše" 510 511 #: tformnations.caption 512 msgctxt "tformnations.caption" 513 msgid "Nations" 514 msgstr "Národy" 515 516 #: tformnations.listview1.columns[0].caption 517 #, fuzzy 518 msgctxt "tformnations.listview1.columns[0].caption" 519 msgid "Name" 520 msgstr "Jméno" 521 522 #: tformnations.listview1.columns[1].caption 523 msgctxt "tformnations.listview1.columns[1].caption" 524 msgid "Color" 525 msgstr "Barva" 526 527 #: tformnations.listview1.columns[2].caption 528 msgid "Bonuses" 529 msgstr "Bonusy" 530 445 531 #: tformnew.aserveradd.caption 446 532 msgctxt "tformnew.aserveradd.caption" … … 667 753 668 754 #: tformplayer.label3.caption 755 msgctxt "tformplayer.label3.caption" 669 756 msgid "Color:" 670 757 msgstr "Barva:" … … 680 767 #: tformplayer.label6.caption 681 768 msgid "Nation:" 682 msgstr " "769 msgstr "Národ:" 683 770 684 771 #: tformplayers.aadd.caption … … 1102 1189 msgstr "tah" 1103 1190 1191 #: uformnations.snewunitkind 1192 msgid "New nation" 1193 msgstr "Nový národ" 1194 1195 #: uformnations.sremoveitems 1196 #, fuzzy 1197 msgctxt "uformnations.sremoveitems" 1198 msgid "Remove items" 1199 msgstr "Odstranit položky" 1200 1201 #: uformnations.sremoveitemsquery 1202 #, fuzzy 1203 msgctxt "uformnations.sremoveitemsquery" 1204 msgid "Do you want to remove selected items?" 1205 msgstr "Opravdu chcete odstranit vybrané položky?" 1206 1104 1207 #: uformnew.sfromimagefile 1105 1208 msgid "From image file" … … 1323 1426 msgid "64-bit UInt read overflow." 1324 1427 msgstr "Přetečení při čtení 64-bit UInt" 1325 -
trunk/Languages/xtactics.po
r282 r283 240 240 msgstr "" 241 241 242 #: tformgamesystem.tabsheetnations.caption 243 msgctxt "tformgamesystem.tabsheetnations.caption" 244 msgid "Nations" 245 msgstr "" 246 242 247 #: tformgamesystem.tabsheetunits.caption 243 248 msgctxt "tformgamesystem.tabsheetunits.caption" … … 432 437 msgstr "" 433 438 439 #: tformnation.buttoncancel.caption 440 msgctxt "tformnation.buttoncancel.caption" 441 msgid "Cancel" 442 msgstr "" 443 444 #: tformnation.buttonok.caption 445 msgctxt "tformnation.buttonok.caption" 446 msgid "OK" 447 msgstr "" 448 449 #: tformnation.caption 450 msgctxt "tformnation.caption" 451 msgid "Nation" 452 msgstr "" 453 454 #: tformnation.labelhealth.caption 455 msgctxt "tformnation.labelhealth.caption" 456 msgid "Color:" 457 msgstr "" 458 459 #: tformnation.labelname.caption 460 msgctxt "tformnation.labelname.caption" 461 msgid "Name:" 462 msgstr "" 463 464 #: tformnations.aadd.caption 465 msgctxt "tformnations.aadd.caption" 466 msgid "Add" 467 msgstr "" 468 469 #: tformnations.aclone.caption 470 msgctxt "tformnations.aclone.caption" 471 msgid "Clone" 472 msgstr "" 473 474 #: tformnations.amodify.caption 475 msgctxt "tformnations.amodify.caption" 476 msgid "Modify" 477 msgstr "" 478 479 #: tformnations.aremove.caption 480 msgctxt "tformnations.aremove.caption" 481 msgid "Remove" 482 msgstr "" 483 484 #: tformnations.aselectall.caption 485 msgctxt "tformnations.aselectall.caption" 486 msgid "Select all" 487 msgstr "" 488 489 #: tformnations.caption 490 msgctxt "tformnations.caption" 491 msgid "Nations" 492 msgstr "" 493 494 #: tformnations.listview1.columns[0].caption 495 msgctxt "tformnations.listview1.columns[0].caption" 496 msgid "Name" 497 msgstr "" 498 499 #: tformnations.listview1.columns[1].caption 500 msgctxt "tformnations.listview1.columns[1].caption" 501 msgid "Color" 502 msgstr "" 503 504 #: tformnations.listview1.columns[2].caption 505 msgid "Bonuses" 506 msgstr "" 507 434 508 #: tformnew.aserveradd.caption 435 509 msgctxt "tformnew.aserveradd.caption" … … 654 728 655 729 #: tformplayer.label3.caption 730 msgctxt "tformplayer.label3.caption" 656 731 msgid "Color:" 657 732 msgstr "" … … 709 784 710 785 #: tformplayers.listview1.columns[2].caption 786 msgctxt "tformplayers.listview1.columns[2].caption" 711 787 msgid "Color" 712 788 msgstr "" … … 1075 1151 msgstr "" 1076 1152 1153 #: uformnations.snewunitkind 1154 msgid "New nation" 1155 msgstr "" 1156 1157 #: uformnations.sremoveitems 1158 msgctxt "uformnations.sremoveitems" 1159 msgid "Remove items" 1160 msgstr "" 1161 1162 #: uformnations.sremoveitemsquery 1163 msgctxt "uformnations.sremoveitemsquery" 1164 msgid "Do you want to remove selected items?" 1165 msgstr "" 1166 1077 1167 #: uformnew.sfromimagefile 1078 1168 msgid "From image file" -
trunk/xtactics.lpi
r282 r283 109 109 </Item7> 110 110 </RequiredPackages> 111 <Units Count="4 2">111 <Units Count="45"> 112 112 <Unit0> 113 113 <Filename Value="xtactics.lpr"/> … … 338 338 <IsPartOfProject Value="True"/> 339 339 </Unit41> 340 <Unit42> 341 <Filename Value="Forms/UFormAbout.lfm"/> 342 <IsPartOfProject Value="True"/> 343 </Unit42> 344 <Unit43> 345 <Filename Value="Forms/UFormNation.pas"/> 346 <IsPartOfProject Value="True"/> 347 <ComponentName Value="FormNation"/> 348 <HasResources Value="True"/> 349 <ResourceBaseClass Value="Form"/> 350 </Unit43> 351 <Unit44> 352 <Filename Value="Forms/UFormNations.pas"/> 353 <IsPartOfProject Value="True"/> 354 <ComponentName Value="FormNations"/> 355 <HasResources Value="True"/> 356 <ResourceBaseClass Value="Form"/> 357 </Unit44> 340 358 </Units> 341 359 </ProjectOptions>
Note:
See TracChangeset
for help on using the changeset viewer.