Changeset 77

Timestamp:

Dec 27, 2016, 1:08:46 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Store recent files in registry subkey.

File:

• trunk/UCore.pas (modified) (3 diffs)

trunk/UCore.pas

@@ -49 +49 @@
   UTargetInterpretter, UTargetFPC, UBFTarget, Forms, LazFileUtils;
 
+const
+  RecentFilesRegKey = 'RecentFiles';
 
 { TCore }
@@ -100 +102 @@
     Free;
   end;
-  LastOpenedList.LoadFromRegistry(RegContext(Root, Key));
+  LastOpenedList.LoadFromRegistry(RegContext(Root, Key + '\' + RecentFilesRegKey));
   Targets.LoadFromRegistry(Root, Key);
   PersistentForm1.RegistryContext := RegContext(Root, Key + '\Forms');
@@ -108 +110 @@
 begin
   Targets.SaveToRegistry(Root, Key);
-  LastOpenedList.SaveToRegistry(RegContext(Root, Key));
+  LastOpenedList.SaveToRegistry(RegContext(Root, Key + '\' + RecentFilesRegKey));
   with TRegistryEx.Create do
   try