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

trunk/Forms/FormKeyShortcuts.pas

@@ -1 @@
-unit UFormKeyShortcuts;
+unit FormKeyShortcuts;
 
 interface
@@ -5 +5 @@
 uses
   Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
-  ComCtrls, ActnList, LCLProc, Menus;
+  ComCtrls, ActnList, LCLProc, Menus, FormEx;
 
 type
@@ -11 +11 @@
   { TFormKeyShortcuts }
 
-  TFormKeyShortcuts = class(TForm)
+  TFormKeyShortcuts = class(TFormEx)
     ListView1: TListView;
     MenuItem1: TMenuItem;
     PopupMenu1: TPopupMenu;
-    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
-    procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure MenuItem1Click(Sender: TObject);
@@ -23 +21 @@
   end;
 
-var
-  FormKeyShortcuts: TFormKeyShortcuts;
-
 
 implementation
 
 uses
-  UFormMain, UCore;
+  FormMain, Core;
 
 resourcestring
@@ -40 +35 @@
 procedure TFormKeyShortcuts.FormShow(Sender: TObject);
 begin
-  Core.PersistentForm.Load(Self);
-  Core.ThemeManager1.UseTheme(Self);
   try
     ListView1.BeginUpdate;
     ListView1.Clear;
-    LoadFromComponent(Core);
-    LoadFromComponent(FormMain);
+    LoadFromComponent(Core.Core);
+    LoadFromComponent(Core.Core.FormMain);
   finally
     ListView1.EndUpdate;
@@ -56 +49 @@
   if Assigned(ListView1.Selected) then
     TAction(ListView1.Selected.Data).Execute;
-end;
-
-procedure TFormKeyShortcuts.FormClose(Sender: TObject;
-  var CloseAction: TCloseAction);
-begin
-  Core.PersistentForm.Save(Self);
-end;
-
-procedure TFormKeyShortcuts.FormCreate(Sender: TObject);
-begin
-  Core.CoolTranslator1.TranslateComponentRecursive(Self);
 end;
 
@@ -99 +81 @@
 
 initialization
-  {$I UFormKeyShortcuts.lrs}
+  {$I FormKeyShortcuts.lrs}
 
 end.