Changeset 145 for trunk/UCore.pas

Timestamp:

Nov 12, 2017, 1:47:20 PM (7 years ago)

Author:

chronos

Message:

• Modified: Do not create settings form on application start but just if form is opened.
• Fixed: Removed various compilation warnings.

File:

• trunk/UCore.pas (modified) (1 diff)

trunk/UCore.pas

@@ -357 +357 @@
 procedure TCore.ASettingsExecute(Sender: TObject);
 begin
-  FormSettings.Load;
-  if FormSettings.ShowModal = mrOk then begin
-    FormSettings.Save;
-    Game.SaveConfig(XMLConfig1, 'Game');
+  FormSettings := TFormSettings.Create(nil);
+  try
+    FormSettings.Load;
+    if FormSettings.ShowModal = mrOk then begin
+      FormSettings.Save;
+      Game.SaveConfig(XMLConfig1, 'Game');
+    end;
+  finally
+    FreeAndNil(FormSettings);
   end;
 end;