Changeset 184 for trunk/Forms/UFormImport.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/UFormImport.pas (modified) (2 diffs)

trunk/Forms/UFormImport.pas

@@ -22 +22 @@
     procedure ButtonProcessClick(Sender: TObject);
     procedure ButtonLoadFromFileClick(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
+    procedure FormShow(Sender: TObject);
   private
     procedure ImportMediaWiki;
@@ -60 +62 @@
 end;
 
+procedure TFormImport.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+begin
+  Core.PersistentForm1.Save(Self);
+end;
+
 procedure TFormImport.FormCreate(Sender: TObject);
 begin
   Core.CoolTranslator1.TranslateComponentRecursive(Self);
   Core.ThemeManager.UseTheme(Self);
+end;
+
+procedure TFormImport.FormShow(Sender: TObject);
+begin
+  Core.PersistentForm1.Load(Self);
 end;