Changeset 55 for trunk/IDE/UCore.pas

Timestamp:

Jul 13, 2012, 1:49:52 PM (12 years ago)

Author:

chronos

Message:

• Updated: Common package now contain TApplicationInfo class which contain various application info.

File:

• trunk/IDE/UCore.pas (modified) (4 diffs)

trunk/IDE/UCore.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, ULastOpenedList, UProject, UCompiler, Registry,
-  URegistry, UDebugLog, UCoolTranslator, UTarget;
+  Classes, SysUtils, FileUtil, ULastOpenedList, UProject, UApplicationInfo,
+  UCompiler, Registry, URegistry, UDebugLog, UCoolTranslator, UTarget;
 
 type
@@ -20 +20 @@
 
   TCore = class(TDataModule)
+    ApplicationInfo: TApplicationInfo;
     CoolTranslator1: TCoolTranslator;
     DebugLog1: TDebugLog;
@@ -125 +126 @@
       Free;
     end;
-  LastOpenedFiles.LoadFromRegistry(RegistryRootKey, Key + '\LastOpenedFiles');
-  Compiler.LoadFromRegistry(RegistryRootKey, Key + '\Compiler');
+  LastOpenedFiles.LoadFromRegistry(Root, Key + '\LastOpenedFiles');
+  Compiler.LoadFromRegistry(Root, Key + '\Compiler');
   FormMain.LoadFromRegistry(Root, Key);
 end;
@@ -147 +148 @@
       Free;
     end;
-  LastOpenedFiles.SaveToRegistry(RegistryRootKey, Key + '\LastOpenedFiles');
-  Compiler.SaveToRegistry(RegistryRootKey, Key + '\Compiler');
+  LastOpenedFiles.SaveToRegistry(Root, Key + '\LastOpenedFiles');
+  Compiler.SaveToRegistry(Root, Key + '\Compiler');
   FormMain.SaveToRegistry(Root, Key);
 end;