Changeset 344 for trunk/Forms/FormNew.pas

Timestamp:

Dec 23, 2024, 8:16:05 AM (10 hours ago)

Author:

chronos

Message:

• Modified: Improved implementation of TItemList class to be generic class to avoid explicit typecasting.

File:

• trunk/Forms/FormNew.pas (modified) (1 diff)

trunk/Forms/FormNew.pas

@@ -388 +388 @@
   GamePreview.GeneratePlayers := False;
   GamePreview.New;
-  GamePreview.CurrentPlayer := TPlayer(GamePreview.Players.First);
+  GamePreview.CurrentPlayer := GamePreview.Players.First;
   Bitmap := Image1.Picture.Bitmap;
   Bitmap.SetSize(Image1.Width, Image1.Height);