Changeset 95 for trunk/Forms/UFormAcronym.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/UFormAcronym.pas (modified) (1 diff)

trunk/Forms/UFormAcronym.pas

@@ -75 +75 @@
   I: Integer;
 begin
-  FormCategorySelect.Load(ListBoxCategories.Items);
-  if FormCategorySelect.ShowModal = mrOk then begin
-    for I := 0 to FormCategorySelect.ListBox1.Count - 1 do
-      if FormCategorySelect.ListBox1.Selected[I] then begin
-        ListBoxCategories.Items.AddObject(FormCategorySelect.ListBox1.Items[I], FormCategorySelect.ListBox1.Items.Objects[I]);
-      end;
+  FormCategorySelect := TFormCategorySelect.Create(Self);
+  try
+    FormCategorySelect.Load(ListBoxCategories.Items);
+    if FormCategorySelect.ShowModal = mrOk then begin
+      for I := 0 to FormCategorySelect.ListBox1.Count - 1 do
+        if FormCategorySelect.ListBox1.Selected[I] then begin
+          ListBoxCategories.Items.AddObject(FormCategorySelect.ListBox1.Items[I], FormCategorySelect.ListBox1.Items.Objects[I]);
+        end;
+    end;
+  finally
+    FreeAndNil(FormCategorySelect);
   end;
 end;