Changeset 298 for trunk/Forms/UFormNew.pas

Timestamp:

Jul 10, 2019, 5:35:15 PM (5 years ago)

Author:

chronos

Message:

• Added: New item list type reference. Used in players for reference to selected nation.
• Modified: New game players selection migrated to dynamic item/list forms.

File:

• trunk/Forms/UFormNew.pas (modified) (5 diffs)

trunk/Forms/UFormNew.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
   ComCtrls, Spin, ExtCtrls, ActnList, ExtDlgs, Menus, UGame, UGeometry, UPlayer,
-  UGameServer, UServerList, UMap, UFormPlayers, UGameSystem;
+  UGameServer, UServerList, UMap, UGameSystem, UFormList;
 
 type
@@ -144 +144 @@
     MapPreviewRedrawPending: Boolean;
     NewRandSeed: Cardinal;
-    FormPlayers: TFormPlayers;
+    FormPlayers: TFormList;
     procedure LoadGame(Game: TGame);
     procedure SaveGame(Game: TGame);
@@ -385 +385 @@
   if Assigned(FServer) then begin
     Load(FServer);
-    FormPlayers.Players := FServer.Game.Players;
+    FormPlayers.List := FServer.Game.Players;
   end else begin
-    FormPlayers.Players := nil;
+    FormPlayers.List := nil;
   end;
 end;
@@ -402 +402 @@
   GamePreview.GeneratePlayers := False;
   GamePreview.New;
-  GamePreview.CurrentPlayer := GamePreview.Players.First;
+  GamePreview.CurrentPlayer := TPlayer(GamePreview.Players.First);
   Bitmap := Image1.Picture.Bitmap;
   Bitmap.SetSize(Image1.Width, Image1.Height);
@@ -534 +534 @@
   FormChat.Align := alClient;
   FormChat.Show;
-  FormPlayers := TFormPlayers.Create(nil);
+  FormPlayers := TFormList.Create(nil);
   FormPlayers.MinItemCount := MinPlayerCount;
   FormPlayers.MaxItemCount := MaxPlayerCount;