Changeset 317 for trunk/Forms/FormHelp.pas

Timestamp:

Jun 21, 2024, 12:44:53 PM (5 months ago)

Author:

chronos

Message:

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

File:

• trunk/Forms/FormHelp.pas (moved) (moved from trunk/Forms/UFormHelp.pas ) (3 diffs)

trunk/Forms/FormHelp.pas

@@ -1 @@
-unit UFormHelp;
+unit FormHelp;
 
 interface
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
+  FormEx;
 
 type
@@ -10 +11 @@
   { TFormHelp }
 
-  TFormHelp = class(TForm)
+  TFormHelp = class(TFormEx)
     Memo1: TMemo;
-    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
-    procedure FormShow(Sender: TObject);
   end;
-
-var
-  FormHelp: TFormHelp;
 
 
 implementation
-
-uses
-  UCore;
 
 resourcestring
@@ -60 +53 @@
 procedure TFormHelp.FormCreate(Sender: TObject);
 begin
-  Core.CoolTranslator1.TranslateComponentRecursive(Self);
   Memo1.Lines.Text := SContent;
-end;
-
-procedure TFormHelp.FormClose(Sender: TObject; var CloseAction: TCloseAction);
-begin
-  Core.PersistentForm.Save(Self);
-end;
-
-procedure TFormHelp.FormShow(Sender: TObject);
-begin
-  Core.PersistentForm.Load(Self);
-  Core.ThemeManager1.UseTheme(Self);
 end;