Changeset 38 for trunk/Forms/UFormMain.pas

Timestamp:

May 10, 2018, 9:39:53 AM (7 years ago)

Author:

chronos

Message:

• Modified: Updated Common package.

File:

• trunk/Forms/UFormMain.pas (modified) (2 diffs)

trunk/Forms/UFormMain.pas

@@ -190 +190 @@
 begin
   Core.PersistentForm1.Save(Self);
-  LastOpenedList1.SaveToRegistry(RegContext(HKEY(Core.ApplicationInfo1.RegistryRoot),
+  LastOpenedList1.SaveToRegistry(TRegistryContext.Create(Core.ApplicationInfo1.RegistryRoot,
     Core.ApplicationInfo1.RegistryKey + '\RecentFiles'));
 end;
@@ -202 +202 @@
 begin
   Core.PersistentForm1.Load(Self);
-  LastOpenedList1.LoadFromRegistry(RegContext(HKEY(Core.ApplicationInfo1.RegistryRoot),
+  LastOpenedList1.LoadFromRegistry(TRegistryContext.Create(Core.ApplicationInfo1.RegistryRoot,
     Core.ApplicationInfo1.RegistryKey + '\RecentFiles'));
 end;