Changeset 402 for Common

Timestamp:

Aug 9, 2012, 9:46:09 AM (12 years ago)

Author:

chronos

Message:

• Modified: Used single TRegistryContext parameter in TLastOpenedList class.

File:

• Common/ULastOpenedList.pas (modified) (5 diffs)

Common/ULastOpenedList.pas

@@ -23 +23 @@
     destructor Destroy; override;
     procedure LoadToMenuItem(MenuItem: TMenuItem; ClickAction: TNotifyEvent);
-    procedure LoadFromRegistry(Root: HKEY; Key: string);
-    procedure SaveToRegistry(Root: HKEY; Key: string);
+    procedure LoadFromRegistry(Context: TRegistryContext);
+    procedure SaveToRegistry(Context: TRegistryContext);
     procedure AddItem(FileName: string);
   published
@@ -87 +87 @@
 end;
 
-procedure TLastOpenedList.LoadFromRegistry(Root: HKEY; Key: string);
+procedure TLastOpenedList.LoadFromRegistry(Context: TRegistryContext);
 var
   I: Integer;
@@ -96 +96 @@
   with Registry do
   try
-    RootKey := Root;
-    OpenKey(Key, True);
+    RootKey := Context.RootKey;
+    OpenKey(Context.Key, True);
     Items.Clear;
     I := 0;
@@ -112 +112 @@
 end;
 
-procedure TLastOpenedList.SaveToRegistry(Root: HKEY; Key: string);
+procedure TLastOpenedList.SaveToRegistry(Context: TRegistryContext);
 var
   I: Integer;
@@ -120 +120 @@
   with Registry do
   try
-    RootKey := Root;
-    OpenKey(Key, True);
+    RootKey := Context.RootKey;
+    OpenKey(Context.Key, True);
     for I := 0 to Items.Count - 1 do
       WriteString('File' + IntToStr(I), UTF8Decode(Items[I]));