Changeset 38 for trunk/Forms/UMainForm.pas

Timestamp:

Apr 18, 2019, 3:34:38 PM (5 years ago)

Author:

chronos

Message:

• Modified: Updated Common and CoolTranslator package.

File:

• trunk/Forms/UMainForm.pas (modified) (4 diffs)

trunk/Forms/UMainForm.pas

@@ -6 +6 @@
 
 uses
-  Registry, XMLConf, Classes, SysUtils, FileUtil, Forms, Controls, Graphics,
+  XMLConf, Classes, SysUtils, FileUtil, Forms, Controls, Graphics,
   Dialogs, ExtCtrls, ComCtrls, Menus, ActnList, UCore, UPlatform, Math,
   DateUtils, GraphType, UPersistentForm, UApplicationInfo, UCoolTranslator,
@@ -78 +78 @@
 
 uses
-  UMapForm, UNewGameForm, UDebugForm;
+  UMapForm, UNewGameForm;
 
 resourcestring
@@ -123 +123 @@
 begin
   if Assigned(Engine) then Engine.SaveConfig(XMLConfig1, '');
+  ForceDirectories(ExtractFileDir(XMLConfig1.Filename));
   XMLConfig1.Flush;
 end;
@@ -136 +137 @@
 
   PersistentForm := TPersistentForm.Create(nil);
-  PersistentForm.RegistryContext := RegContext(HKEY(ApplicationInfo1.RegistryRoot),
+  PersistentForm.RegistryContext := TRegistryContext.Create(ApplicationInfo1.RegistryRoot,
     ApplicationInfo1.RegistryKey);