Changeset 317 for trunk/Forms/FormUnitMoves.pas

Timestamp:

Jun 21, 2024, 12:44:53 PM (2 weeks ago)

Author:

chronos

Message:

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

File:

• trunk/Forms/FormUnitMoves.pas (moved) (moved from trunk/Forms/UFormUnitMoves.pas ) (4 diffs)

trunk/Forms/FormUnitMoves.pas

@@ -1 @@
-unit UFormUnitMoves;
+unit FormUnitMoves;
 
 interface
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls;
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
+  FormEx;
 
 type
@@ -10 +11 @@
   { TFormUnitMoves }
 
-  TFormUnitMoves = class(TForm)
+  TFormUnitMoves = class(TFormEx)
     ListView1: TListView;
-    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormShow(Sender: TObject);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
-  private
-
   public
     procedure ReloadList;
   end;
 
-var
-  FormUnitMoves: TFormUnitMoves;
 
 implementation
 
 uses
-  UGame, UCore, UPlayer;
+  Game, Core, Player;
 
 {$R *.lfm}
@@ -35 +31 @@
 procedure TFormUnitMoves.ListView1Data(Sender: TObject; Item: TListItem);
 begin
-  if Assigned(Core.Game) and Assigned(Core.Game.CurrentPlayer) then
-  with Core.Game.CurrentPlayer do
+  if Assigned(Core.Core.Game) and Assigned(Core.Core.Game.CurrentPlayer) then
+  with Core.Core.Game.CurrentPlayer do
   if (Mode = pmHuman) and (Item.Index < Moves.Count) then
   with TUnitMove(Moves[Item.Index]) do begin
@@ -48 +44 @@
 procedure TFormUnitMoves.FormShow(Sender: TObject);
 begin
-  Core.PersistentForm.Load(Self);
-  Core.ThemeManager1.UseTheme(Self);
-  Core.CoolTranslator1.TranslateComponentRecursive(Self);
   ReloadList;
-end;
-
-procedure TFormUnitMoves.FormClose(Sender: TObject;
-  var CloseAction: TCloseAction);
-begin
-  Core.PersistentForm.Save(Self);
 end;
 
 procedure TFormUnitMoves.ReloadList;
 begin
-  if Assigned(Core.Game) and Assigned(Core.Game.CurrentPlayer) and
-  (Core.Game.CurrentPlayer.Mode = pmHuman) then
-    ListView1.Items.Count := Core.Game.CurrentPlayer.Moves.Count
+  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
   else ListView1.Items.Count := 0;
   ListView1.Refresh;