Changeset 434 for Common/URegistry.pas

Timestamp:

Nov 19, 2012, 2:31:00 PM (12 years ago)

Author:

chronos

Message:

• Modified: Confused TRegistryEx property Context with Context parameter in some methods.
• Fixed: TURI path was not properly handled in case of file in root directory.

File:

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

Common/URegistry.pas

@@ -26 +26 @@
   TRegistryEx = class(TRegistry)
   private
-    function GetContext: TRegistryContext;
-    procedure SetContext(AValue: TRegistryContext);
+    function GetCurrentContext: TRegistryContext;
+    procedure SetCurrentContext(AValue: TRegistryContext);
   public
     function ReadBoolWithDefault(const Name: string;
@@ -37 +37 @@
     function DeleteKeyRecursive(const Key: string): Boolean;
     function OpenKey(const Key: string; CanCreate: Boolean): Boolean;
-    property Context: TRegistryContext read GetContext write SetContext;
+    property CurrentContext: TRegistryContext read GetCurrentContext write SetCurrentContext;
   end;
 
@@ -109 +109 @@
 end;
 
-function TRegistryEx.GetContext: TRegistryContext;
+function TRegistryEx.GetCurrentContext: TRegistryContext;
 begin
   Result.Key := CurrentPath;
@@ -115 +115 @@
 end;
 
-procedure TRegistryEx.SetContext(AValue: TRegistryContext);
+procedure TRegistryEx.SetCurrentContext(AValue: TRegistryContext);
 begin
   RootKey := AValue.RootKey;