Changeset 184 for trunk/Forms/UFormSettings.pas

Timestamp:

Jul 4, 2018, 2:05:48 PM (6 years ago)

Author:

chronos

Message:

• Added: New menu action Tools - Document check which shows a form for checking acronyms in text documents.
• Added: Remember dimensions of Import, Export and Settings forms.

File:

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

trunk/Forms/UFormSettings.pas

@@ -31 +31 @@
     procedure CheckBoxAutomaticDPIChange(Sender: TObject);
     procedure CheckBoxStartOnLogonChange(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
@@ -55 +56 @@
 procedure TFormSettings.FormShow(Sender: TObject);
 begin
+  Core.PersistentForm1.Load(Self);
 end;
 
@@ -69 +71 @@
 begin
   UpdateInterface;
+end;
+
+procedure TFormSettings.FormClose(Sender: TObject; var CloseAction: TCloseAction
+  );
+begin
+  Core.PersistentForm1.Save(Self);
 end;