Changeset 318 for trunk/Forms/FormPlayersStats.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Code cleanup.

File:

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

trunk/Forms/FormPlayersStats.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  Menus, ActnList, Game, ListViewSort, FormEx;
+  Menus, ActnList, Game, ListViewSort, FormEx, Player;
 
 type
@@ -23 +23 @@
     function ListViewSort1CompareItem(Item1, Item2: TObject): Integer;
     procedure ListViewSort1Filter(ListViewSort: TListViewSort);
+  private
+    FOnSpectate: TPlayerEvent;
   public
+    Game: TGame;
     procedure ReloadList;
+    property OnSpectate: TPlayerEvent read FOnSpectate write FOnSpectate;
   end;
 
 
 implementation
-
-uses
-  Core, Player;
 
 {$R *.lfm}
@@ -39 +40 @@
 procedure TFormPlayersStats.ListView1Data(Sender: TObject; Item: TListItem);
 begin
-  with Core.Core.Game do
+  with Game do
   if Item.Index < ListViewSort1.List.Count then
   with TPlayer(ListViewSort1.List[Item.Index]) do begin
@@ -77 +78 @@
 begin
   ListViewSort1.List.Clear;
-  for I := 0 to Core.Core.Game.Players.Count - 1 do begin
-    ListViewSort1.List.Add(Core.Core.Game.Players[I]);
+  for I := 0 to Game.Players.Count - 1 do begin
+    ListViewSort1.List.Add(Game.Players[I]);
   end;
 end;
@@ -90 +91 @@
 begin
   if Assigned(ListView1.Selected) then
-    Core.Core.Spectate(TPlayer(ListView1.Selected.Data));
+    if Assigned(FOnSpectate) then
+      FOnSpectate(TPlayer(ListView1.Selected.Data));
 end;