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

trunk/Forms/FormGameSystem.pas

@@ -1 @@
-unit UFormGameSystem;
+unit FormGameSystem;
 
 interface
@@ -5 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, UGameSystem, UFormList;
+  ComCtrls, GameSystem, FormList, FormEx;
 
 type
@@ -11 +11 @@
   { TFormGameSystem }
 
-  TFormGameSystem = class(TForm)
+  TFormGameSystem = class(TFormEx)
     ButtonCancel: TButton;
     ButtonOk: TButton;
@@ -28 +28 @@
     procedure ButtonLoadClick(Sender: TObject);
     procedure ButtonSaveClick(Sender: TObject);
-    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
-    procedure FormShow(Sender: TObject);
   private
     FGameSystem: TGameSystem;
@@ -44 +42 @@
   end;
 
-var
-  FormGameSystem: TFormGameSystem;
-
 
 implementation
 
 {$R *.lfm}
-
-uses
-  UCore;
 
 resourcestring
@@ -82 +74 @@
 end;
 
-procedure TFormGameSystem.FormClose(Sender: TObject;
-  var CloseAction: TCloseAction);
-begin
-  Core.PersistentForm.Save(Self);
-end;
-
 procedure TFormGameSystem.FormCreate(Sender: TObject);
 begin
-  Core.ThemeManager1.UseTheme(Self);
-  Core.CoolTranslator1.TranslateComponentRecursive(Self);
   FormUnitKinds := TFormList.Create(nil);
   FormUnitKinds.ManualDock(TabSheetUnits, nil, alClient);
@@ -112 +96 @@
   FreeAndNil(FormUnitKinds);
   FreeAndNil(FormBuildingKinds);
-end;
-
-procedure TFormGameSystem.FormShow(Sender: TObject);
-begin
-  Core.PersistentForm.Load(Self);
 end;