Changeset 393 for Common/ULastOpenedList.pas

Timestamp:

Jul 26, 2012, 1:15:17 PM (12 years ago)

Author:

chronos

Message:

• Modified: Reverted deletion of URegistry unit. New package GeneralRegistry is not finished and 100% usable yet.

File:

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

Common/ULastOpenedList.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UGeneralRegistry, Menus;
+  Classes, SysUtils, Registry, URegistry, Menus;
 
 type
@@ -23 +23 @@
     destructor Destroy; override;
     procedure LoadToMenuItem(MenuItem: TMenuItem; ClickAction: TNotifyEvent);
-    procedure LoadFromRegistry(Root: Integer; const Key: string);
-    procedure SaveToRegistry(Root: Integer; const Key: string);
+    procedure LoadFromRegistry(Root: HKEY; Key: string);
+    procedure SaveToRegistry(Root: HKEY; Key: string);
     procedure AddItem(FileName: string);
   published
@@ -87 +87 @@
 end;
 
-procedure TLastOpenedList.LoadFromRegistry(Root: Integer; const Key: string);
+procedure TLastOpenedList.LoadFromRegistry(Root: HKEY; Key: string);
 var
   I: Integer;
-  Registry: TGeneralRegistry;
+  Registry: TRegistryEx;
   FileName: string;
 begin
-  Registry := TGeneralRegistry.Create(nil);
+  Registry := TRegistryEx.Create;
   with Registry do
   try
-    CurrentRoot := Root;
+    RootKey := Root;
     OpenKey(Key, True);
     Items.Clear;
     I := 0;
     while ValueExists('File' + IntToStr(I)) and (I < MaxCount) do begin
-      if ValueExists('File' + IntToStr(I)) then
-        FileName := UTF8Encode(ReadString('File' + IntToStr(I)))
-        else FileName := '';
+      FileName := UTF8Encode(ReadStringWithDefault('File' + IntToStr(I), ''));
       if Trim(FileName) <> '' then Items.Add(FileName);
       Inc(I);
@@ -114 +112 @@
 end;
 
-procedure TLastOpenedList.SaveToRegistry(Root: Integer; const Key: string);
+procedure TLastOpenedList.SaveToRegistry(Root: HKEY; Key: string);
 var
   I: Integer;
-  Registry: TGeneralRegistry;
+  Registry: TRegistryEx;
 begin
-  Registry := TGeneralRegistry.Create(nil);
+  Registry := TRegistryEx.Create;
   with Registry do
   try
-    CurrentRoot := Root;
+    RootKey := Root;
     OpenKey(Key, True);
     for I := 0 to Items.Count - 1 do