Changeset 317 for trunk/Forms/FormMove.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/FormMove.pas (moved) (moved from trunk/Forms/UFormMove.pas ) (9 diffs)

trunk/Forms/FormMove.pas

@@ -1 @@
-unit UFormMove;
+unit FormMove;
 
 interface
@@ -5 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Spin,
-  StdCtrls, ComCtrls;
+  StdCtrls, ComCtrls, FormEx;
 
 type
@@ -11 +11 @@
   { TFormMove }
 
-  TFormMove = class(TForm)
+  TFormMove = class(TFormEx)
     ButtonRemove: TButton;
     ButtonRepeatMax: TButton;
@@ -30 +30 @@
     procedure ButtonRemoveClick(Sender: TObject);
     procedure ButtonRepeatMinClick(Sender: TObject);
-    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
-    procedure FormCreate(Sender: TObject);
     procedure ButtonOnceMinClick(Sender: TObject);
     procedure ButtonRepeatMaxClick(Sender: TObject);
@@ -48 +46 @@
   end;
 
-var
-  FormMove: TFormMove;
-
 
 implementation
@@ -57 +52 @@
 
 uses
-  UCore;
+  Core;
 
 { TFormMove }
@@ -78 +73 @@
   Label3.Visible := ShowWinProbability;
   LabelWinProbability.Caption :=
-    IntToStr(Round(Core.Game.AttackProbability(AttackCount + SpinEditOnce.Value,
+    IntToStr(Round(Core.Core.Game.AttackProbability(AttackCount + SpinEditOnce.Value,
     DefendCount) * 100)) + ' %';
 end;
@@ -91 +86 @@
 procedure TFormMove.FormShow(Sender: TObject);
 begin
-  Core.PersistentForm.Load(Self);
-  Core.ThemeManager1.UseTheme(Self);
   if SpinEditOnce.MaxValue < SpinEditOnce.Value then begin
     SpinEditOnce.Enabled := False;
@@ -128 +121 @@
 end;
 
-procedure TFormMove.FormClose(Sender: TObject; var CloseAction: TCloseAction);
-begin
-  Core.PersistentForm.Save(Self);
-end;
-
-procedure TFormMove.FormCreate(Sender: TObject);
-begin
-  Core.CoolTranslator1.TranslateComponentRecursive(Self);
-end;
-
 procedure TFormMove.ButtonOnceMinClick(Sender: TObject);
 begin