Changeset 243 for trunk/Forms/UFormMove.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/UFormMove.pas (modified) (3 diffs)

trunk/Forms/UFormMove.pas

@@ -30 +30 @@
     procedure ButtonOnceMaxClick(Sender: TObject);
     procedure ButtonRepeatMinClick(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure ButtonOnceMinClick(Sender: TObject);
@@ -90 +91 @@
 procedure TFormMove.FormShow(Sender: TObject);
 begin
+  Core.PersistentForm.Load(Self);
+  Core.ThemeManager1.UseTheme(Self);
   if SpinEditOnce.MaxValue < SpinEditOnce.Value then begin
     SpinEditOnce.Enabled := False;
@@ -112 +115 @@
 begin
   TrackBarRepeat.Position := TrackBarRepeat.Min;
+end;
+
+procedure TFormMove.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+begin
+  Core.PersistentForm.Save(Self);
 end;