Changeset 169 for trunk/Forms/UFormMain.pas

Timestamp:

Jan 22, 2018, 11:00:53 AM (7 years ago)

Author:

chronos

Message:

• Modified: Updated Common package.

File:

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

trunk/Forms/UFormMain.pas

@@ -700 +700 @@
 procedure TFormMain.LoadConfig;
 begin
-  RegistryContext := RegContext(HKEY_CURRENT_USER, DefaultRegKey);
+  RegistryContext := TRegistryContext.Create(HKEY_CURRENT_USER, DefaultRegKey);
   Core.PersistentForm1.RegistryContext := RegistryContext;
-  RegistryContext := RegContext(HKEY_CURRENT_USER, DefaultRegKey + '\RecentFiles');
+  RegistryContext := TRegistryContext.Create(HKEY_CURRENT_USER, DefaultRegKey + '\RecentFiles');
   LastOpenedList1.LoadFromRegistry(RegistryContext);
 
@@ -737 +737 @@
 procedure TFormMain.SaveConfig;
 begin
-  RegistryContext := RegContext(HKEY_CURRENT_USER, DefaultRegKey + '\RecentFiles');
+  RegistryContext := TRegistryContext.Create(HKEY_CURRENT_USER, DefaultRegKey + '\RecentFiles');
   LastOpenedList1.SaveToRegistry(RegistryContext);