Changeset 219 for trunk/Forms/FormAcronym.pas

Timestamp:

Jan 17, 2025, 9:05:54 PM (4 days ago)

Author:

chronos

Message:

• Modified: Updated Common package.
• Modified: Remove U prefix from unit names.
• Modified: Use Gneeric.Collections instead of fgl.
• Modified: Do not use global form variables.

File:

• trunk/Forms/FormAcronym.pas (moved) (moved from trunk/Forms/UFormAcronym.pas ) (7 diffs)

trunk/Forms/FormAcronym.pas

@@ -1 @@
-unit UFormAcronym;
-
-{$mode delphi}
+unit FormAcronym;
 
 interface
@@ -7 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
-  StdCtrls, ActnList, UAcronym;
+  StdCtrls, ActnList, Acronym, FormEx;
 
 type
@@ -13 +11 @@
   { TFormAcronym }
 
-  TFormAcronym = class(TForm)
+  TFormAcronym = class(TFormEx)
     ACategoryRemove: TAction;
     ACategoryAdd: TAction;
@@ -37 +35 @@
     procedure ACategoryRemoveExecute(Sender: TObject);
     procedure EditMeaningKeyPress(Sender: TObject; var Key: char);
-    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
-    procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure ListBoxCategoriesSelectionChange(Sender: TObject; User: boolean);
@@ -48 +44 @@
   end;
 
-var
-  FormAcronym: TFormAcronym;
 
 implementation
@@ -56 +50 @@
 
 uses
-  UCore, UFormCategorySelect;
+  FormCategorySelect;
 
 { TFormAcronym }
-
-procedure TFormAcronym.FormClose(Sender: TObject; var CloseAction: TCloseAction
-  );
-begin
-  Core.PersistentForm1.Save(Self);
-end;
-
-procedure TFormAcronym.FormCreate(Sender: TObject);
-begin
-  Core.Translator.TranslateComponentRecursive(Self);
-  Core.ThemeManager.UseTheme(Self);
-end;
 
 procedure TFormAcronym.ACategoryAddExecute(Sender: TObject);
 var
   I: Integer;
+  FormCategorySelect: TFormCategorySelect;
 begin
   FormCategorySelect := TFormCategorySelect.Create(Self);
@@ -111 +94 @@
 procedure TFormAcronym.FormShow(Sender: TObject);
 begin
-  Core.PersistentForm1.Load(Self);
   UpdateInterface;
 end;