Changeset 318 for trunk/Forms/FormUnitMoves.pas

Timestamp:

Jun 21, 2024, 3:20:20 PM (2 weeks ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

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

trunk/Forms/FormUnitMoves.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  FormEx;
+  FormEx, Game;
 
 type
@@ -16 +16 @@
     procedure ListView1Data(Sender: TObject; Item: TListItem);
   public
+    Game: TGame;
     procedure ReloadList;
   end;
@@ -23 +24 @@
 
 uses
-  Game, Core, Player;
+  Player;
 
 {$R *.lfm}
@@ -31 +32 @@
 procedure TFormUnitMoves.ListView1Data(Sender: TObject; Item: TListItem);
 begin
-  if Assigned(Core.Core.Game) and Assigned(Core.Core.Game.CurrentPlayer) then
-  with Core.Core.Game.CurrentPlayer do
+  if Assigned(Game) and Assigned(Game.CurrentPlayer) then
+  with Game.CurrentPlayer do
   if (Mode = pmHuman) and (Item.Index < Moves.Count) then
   with TUnitMove(Moves[Item.Index]) do begin
@@ -49 +50 @@
 procedure TFormUnitMoves.ReloadList;
 begin
-  if Assigned(Core.Core.Game) and Assigned(Core.Core.Game.CurrentPlayer) and
-  (Core.Core.Game.CurrentPlayer.Mode = pmHuman) then
-    ListView1.Items.Count := Core.Core.Game.CurrentPlayer.Moves.Count
+  if Assigned(Game) and Assigned(Game.CurrentPlayer) and
+  (Game.CurrentPlayer.Mode = pmHuman) then
+    ListView1.Items.Count := Game.CurrentPlayer.Moves.Count
   else ListView1.Items.Count := 0;
   ListView1.Refresh;