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

trunk/Forms/UFormExport.pas

@@ -21 +21 @@
     procedure ButtonProcessClick(Sender: TObject);
     procedure ButtonSaveToFileClick(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
+    procedure FormShow(Sender: TObject);
   private
     ItemCount: Integer;
@@ -58 +60 @@
 end;
 
+procedure TFormExport.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+begin
+  Core.PersistentForm1.Save(Self);
+end;
+
 procedure TFormExport.FormCreate(Sender: TObject);
 begin
   Core.CoolTranslator1.TranslateComponentRecursive(Self);
   Core.ThemeManager.UseTheme(Self);
+end;
+
+procedure TFormExport.FormShow(Sender: TObject);
+begin
+  Core.PersistentForm1.Load(Self);
 end;