Changeset 16 for trunk/Forms/UFormSettings.pas

Timestamp:

Feb 28, 2018, 9:44:51 AM (7 years ago)

Author:

chronos

Message:

• Added: New Tools action Find duplicates.

File:

• trunk/Forms/UFormSettings.pas (modified) (3 diffs)

trunk/Forms/UFormSettings.pas

@@ -28 +28 @@
     procedure CheckBoxAutomaticDPIChange(Sender: TObject);
     procedure CheckBoxStartOnLogonChange(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
@@ -53 +54 @@
 procedure TFormSettings.FormShow(Sender: TObject);
 begin
+  Core.PersistentForm1.Load(Self);
+
   Core.CoolTranslator1.LanguageListToStrings(ComboBoxLanguage.Items);
   ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Core.CoolTranslator1.Language);
@@ -78 +81 @@
 begin
   UpdateInterface;
+end;
+
+procedure TFormSettings.FormClose(Sender: TObject; var CloseAction: TCloseAction
+  );
+begin
+  Core.PersistentForm1.Save(Self);
 end;