Changeset 284 for trunk/UCore.pas

Timestamp:

Mar 10, 2019, 6:19:51 PM (6 years ago)

Author:

chronos

Message:

• Modified: TNation and TNations classes now uses generic TItem and TItemList classes.
• Added: Translation files for LCL.

File:

• trunk/UCore.pas (modified) (6 diffs)

trunk/UCore.pas

@@ -129 +129 @@
 uses
   UFormMain, UFormNew, UFormSettings, UFormAbout, UClientAI, UFormKeyShortcuts,
-  UFormHelp, UFormCharts, UFormUnitMoves, UFormPlayersStats, UClientGUI, UMapType;
+  UFormHelp, UFormCharts, UFormUnitMoves, UFormPlayersStats, UClientGUI, UMapType,
+  UNation;
 
 const
@@ -521 +522 @@
     PreferedMapType := mtNone;
     MaxPlayerCount := 3;
-    with Nations.AddNew('Nation 1') do begin
+    with TNation(Nations.AddItem('Nation 1')) do begin
       Color := clBlue;
     end;
-    with Nations.AddNew('Nation 2') do begin
+    with TNation(Nations.AddItem('Nation 2')) do begin
       Color := clRed;
     end;
-    with Nations.AddNew('Nation 3') do begin
+    with TNation(Nations.AddItem('Nation 3')) do begin
       Color := clGreen;
     end;
-    with Nations.AddNew('Nation 4') do begin
+    with TNation(Nations.AddItem('Nation 4')) do begin
       Color := clOrange;
     end;
-    with Nations.AddNew('Nation 5') do begin
+    with TNation(Nations.AddItem('Nation 5')) do begin
       Color := clPurple;
     end;
-    with Nations.AddNew('Nation 6') do begin
+    with TNation(Nations.AddItem('Nation 6')) do begin
       Color := clMaroon;
     end;
-    with Nations.AddNew('Nation 7') do begin
+    with TNation(Nations.AddItem('Nation 7')) do begin
       Color := clAqua;
     end;
-    with Nations.AddNew('Nation 8') do begin
+    with TNation(Nations.AddItem('Nation 8')) do begin
       Color := clFuchsia;
     end;
@@ -555 +556 @@
     UnitsMoveImmediately := False;
     MaxPlayerCount := 8;
-    with Nations.AddNew('Nation 1') do begin
+    with TNation(Nations.AddItem('Nation 1')) do begin
       Color := clBlue;
     end;
-    with Nations.AddNew('Nation 2') do begin
+    with TNation(Nations.AddItem('Nation 2')) do begin
       Color := clRed;
     end;
-    with Nations.AddNew('Nation 3') do begin
+    with TNation(Nations.AddItem('Nation 3')) do begin
       Color := clGreen;
     end;
-    with Nations.AddNew('Nation 4') do begin
+    with TNation(Nations.AddItem('Nation 4')) do begin
       Color := clOrange;
     end;
-    with Nations.AddNew('Nation 5') do begin
+    with TNation(Nations.AddItem('Nation 5')) do begin
       Color := clPurple;
     end;
-    with Nations.AddNew('Nation 6') do begin
+    with TNation(Nations.AddItem('Nation 6')) do begin
       Color := clMaroon;
     end;
-    with Nations.AddNew('Nation 7') do begin
+    with TNation(Nations.AddItem('Nation 7')) do begin
       Color := clAqua;
     end;
-    with Nations.AddNew('Nation 8') do begin
+    with TNation(Nations.AddItem('Nation 8')) do begin
       Color := clFuchsia;
     end;
@@ -589 +590 @@
     UnitsMoveImmediately := True;
     MaxPlayerCount := 3;
-    with Nations.AddNew('Americans') do begin
+    with TNation(Nations.AddItem('Americans')) do begin
       Color := clFuchsia;
     end;
@@ -676 +677 @@
     UnitsMoveImmediately := True;
     MaxPlayerCount := 3;
-    with Nations.AddNew('Attreides') do begin
+    with TNation(Nations.AddItem('Attreides')) do begin
       Color := clBlue;
     end;
-    with Nations.AddNew('Harkonen') do begin
+    with TNation(Nations.AddItem('Harkonen')) do begin
       Color := clRed;
     end;
-    with Nations.AddNew('Ordos') do begin
+    with TNation(Nations.AddItem('Ordos')) do begin
       Color := clGreen;
     end;
-    with Nations.AddNew('Fremens') do begin
+    with TNation(Nations.AddItem('Fremens')) do begin
       Color := clBrown;
     end;
-    with Nations.AddNew('Sardaukers') do begin
+    with TNation(Nations.AddItem('Sardaukers')) do begin
       Color := clPurple;
     end;
-    with Nations.AddNew('Merceneries') do begin
+    with TNation(Nations.AddItem('Merceneries')) do begin
       Color := clOrange;
     end;
@@ -734 +735 @@
     UnitsMoveImmediately := True;
     MaxPlayerCount := 2;
-    with Nations.AddNew('Germany') do begin
+    with TNation(Nations.AddItem('Germany')) do begin
       Color := clBlue;
     end;
-    with Nations.AddNew('Russia') do begin
+    with TNation(Nations.AddItem('Russia')) do begin
       Color := clRed;
     end;
-    with Nations.AddNew('Alliance') do begin
+    with TNation(Nations.AddItem('Alliance')) do begin
       Color := clGreen;
     end;