Changeset 243 for trunk/Forms/UFormHelp.pas

Timestamp:

Sep 21, 2018, 2:09:10 PM (6 years ago)

Author:

chronos

Message:

• Added: Support for color themes.
• Added: Remember dimensions for more forms.

File:

• trunk/Forms/UFormHelp.pas (modified) (2 diffs)

trunk/Forms/UFormHelp.pas

@@ -14 +14 @@
   TFormHelp = class(TForm)
     Memo1: TMemo;
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
+    procedure FormShow(Sender: TObject);
   private
     { private declarations }
@@ -62 +64 @@
 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;
+
 end.