Changeset 317 for trunk/Forms/FormPlayersStats.pas

Timestamp:

Jun 21, 2024, 12:44:53 PM (5 months ago)

Author:

chronos

Message:

• Modified: Remove U prefix from unit names.
• Modified: Use TFormEx for all forms for code simplification.

File:

• trunk/Forms/FormPlayersStats.pas (moved) (moved from trunk/Forms/UFormPlayersStats.pas ) (9 diffs)

trunk/Forms/FormPlayersStats.pas

@@ -1 @@
-unit UFormPlayersStats;
+unit FormPlayersStats;
 
 interface
@@ -5 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  Menus, ActnList, UGame, ListViewSort;
+  Menus, ActnList, Game, ListViewSort, FormEx;
 
 type
@@ -11 +11 @@
   { TFormPlayersStats }
 
-  TFormPlayersStats = class(TForm)
+  TFormPlayersStats = class(TFormEx)
     ASpectate: TAction;
     ActionList1: TActionList;
@@ -19 +19 @@
     PopupMenu1: TPopupMenu;
     procedure ASpectateExecute(Sender: TObject);
-    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormShow(Sender: TObject);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
@@ -28 +27 @@
   end;
 
-var
-  FormPlayersStats: TFormPlayersStats;
-
 
 implementation
 
 uses
-  UCore, UPlayer;
+  Core, Player;
 
 {$R *.lfm}
@@ -43 +39 @@
 procedure TFormPlayersStats.ListView1Data(Sender: TObject; Item: TListItem);
 begin
-  with Core.Game do
+  with Core.Core.Game do
   if Item.Index < ListViewSort1.List.Count then
   with TPlayer(ListViewSort1.List[Item.Index]) do begin
@@ -81 +77 @@
 begin
   ListViewSort1.List.Clear;
-  for I := 0 to Core.Game.Players.Count - 1 do begin
-    ListViewSort1.List.Add(Core.Game.Players[I]);
+  for I := 0 to Core.Core.Game.Players.Count - 1 do begin
+    ListViewSort1.List.Add(Core.Core.Game.Players[I]);
   end;
 end;
@@ -88 +84 @@
 procedure TFormPlayersStats.FormShow(Sender: TObject);
 begin
-  Core.PersistentForm.Load(Self);
-  Core.ThemeManager1.UseTheme(Self);
-  Core.CoolTranslator1.TranslateComponentRecursive(Self);
   ReloadList;
-end;
-
-procedure TFormPlayersStats.FormClose(Sender: TObject;
-  var CloseAction: TCloseAction);
-begin
-  Core.PersistentForm.Save(Self);
 end;
 
@@ -103 +90 @@
 begin
   if Assigned(ListView1.Selected) then
-    Core.Spectate(TPlayer(ListView1.Selected.Data));
+    Core.Core.Spectate(TPlayer(ListView1.Selected.Data));
 end;