Changeset 95 for trunk/Forms/UFormMain.pas

Timestamp:

Aug 17, 2016, 11:20:37 AM (8 years ago)

Author:

chronos

Message:

• Modified: Do not initialize all forms at startup to save some memory.

File:

• trunk/Forms/UFormMain.pas (modified) (5 diffs)

trunk/Forms/UFormMain.pas

@@ -207 +207 @@
 procedure TFormMain.AExportExecute(Sender: TObject);
 begin
-  FormExport.ShowModal;
+  FormExport := TFormExport.Create(Self);
+  try
+    FormExport.ShowModal;
+  finally
+    FreeAndNil(FormExport);
+  end;
 end;
 
@@ -281 +286 @@
 procedure TFormMain.AImportExecute(Sender: TObject);
 begin
-  FormImport.ShowModal;
-  UpdateAcronymsList;
-  UpdateInterface;
+  FormImport := TFormImport.Create(Self);
+  try
+    FormImport.ShowModal;
+    UpdateAcronymsList;
+    UpdateInterface;
+  finally
+    FreeAndNil(FormImport);
+  end;
 end;
 
@@ -314 +324 @@
 procedure TFormMain.ASettingsExecute(Sender: TObject);
 begin
-  FormSettings.Load;
-  if FormSettings.ShowModal = mrOk then begin
+  FormSettings := TFormSettings.Create(Self);
+  try
+    FormSettings.Load;
+    if FormSettings.ShowModal = mrOk then begin
     FormSettings.Save;
-    Core.SaveConfig;
+      Core.SaveConfig;
+    end;
+  finally
+    FreeAndNil(FormSettings);
   end;
 end;
@@ -323 +338 @@
 procedure TFormMain.AShowAboutExecute(Sender: TObject);
 begin
-  FormAbout.ShowModal;
+  FormAbout := TFormAbout.Create(Self);
+  try
+    FormAbout.ShowModal;
+  finally
+    FreeAndNil(FormAbout);
+  end;
 end;
 
 procedure TFormMain.AShowAcronymsExecute(Sender: TObject);
 begin
-  FormAcronyms.ShowModal;
-  UpdateAcronymsList;
-  UpdateInterface;
+  FormAcronyms := TFormAcronyms.Create(Self);
+  try
+    FormAcronyms.ShowModal;
+    UpdateAcronymsList;
+    UpdateInterface;
+  finally
+    FreeAndNil(FormAcronyms);
+  end;
 end;
 
 procedure TFormMain.AShowCategoriesExecute(Sender: TObject);
 begin
-  FormCategories.Categories := Core.AcronymDb.Categories;
-  FormCategories.ShowModal;
-  UpdateAcronymsList;
-  UpdateInterface;
+  FormCategories := TFormCategories.Create(Self);
+  try
+    FormCategories.Categories := Core.AcronymDb.Categories;
+    FormCategories.ShowModal;
+    UpdateAcronymsList;
+    UpdateInterface;
+  finally
+    FreeAndNil(FormCategories);
+  end;
 end;
 
@@ -349 +379 @@
 procedure TFormMain.AShowImportFormatsExecute(Sender: TObject);
 begin
-  FormImportFormats.ImportFormats := Core.AcronymDb.ImportFormats;
-  FormImportFormats.ShowModal;
-  UpdateInterface;
+  FormImportFormats := TFormImportFormats.Create(Self);
+  try
+    FormImportFormats.ImportFormats := Core.AcronymDb.ImportFormats;
+    FormImportFormats.ShowModal;
+    UpdateInterface;
+  finally
+    FreeAndNil(FormImportFormats);
+  end;
 end;
 
 procedure TFormMain.AShowImportSourcesExecute(Sender: TObject);
 begin
-  FormImportSources.ImportSources := Core.AcronymDb.ImportSources;
-  FormImportSources.ShowModal;
-  UpdateAcronymsList;
-  UpdateInterface;
+  FormImportSources := TFormImportSources.Create(Self);
+  try
+    FormImportSources.ImportSources := Core.AcronymDb.ImportSources;
+    FormImportSources.ShowModal;
+    UpdateAcronymsList;
+    UpdateInterface;
+  finally
+    FreeAndNil(FormImportSources);
+  end;
 end;