Changeset 432 for Common/URegistry.pas

Timestamp:

Oct 25, 2012, 2:11:47 PM (12 years ago)

Author:

chronos

Message:

• Added: ListViewSort and SyncCounter units.

File:

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

Common/URegistry.pas

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