[JVCL-Checkins] CVS: dev/JVCL3/run JvAppRegistryStore.pas,1.4,1.5 JvTypes.pas,1.6,1.7

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1:/tmp/cvs-serv20710/dev/JVCL3/run

Modified Files:
	JvAppRegistryStore.pas JvTypes.pas 
Log Message:
* Corrected TJvRegKey declaration (see NG post)
* Added RegRoot property to registry storage.

Index: JvAppRegistryStore.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvAppRegistryStore.pas,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** JvAppRegistryStore.pas	6 Sep 2003 14:11:55 -0000	1.4
--- JvAppRegistryStore.pas	6 Sep 2003 18:06:19 -0000	1.5
***************
*** 34,38 ****
  uses
    Classes, Windows,
!   JvAppStore;
  
  type
--- 34,38 ----
  uses
    Classes, Windows,
!   JvAppStore, JvTypes;
  
  type
***************
*** 43,46 ****
--- 43,48 ----
      function GetApplicationRoot: string;
      procedure SetApplicationRoot(Value: string);
+     function GetRegRoot: TJvRegKey;
+     procedure SetRegRoot(Value: TJvRegKey);
      { Create the registry key path if it doesn't exist yet. Any key in the path that doesn't exist
        is created. }
***************
*** 64,67 ****
--- 66,70 ----
        AppRoot property.}
      property ApplicationRoot: string read GetApplicationRoot write SetApplicationRoot;
+     property RegRoot: TJvRegKey read GetRegRoot write SetRegRoot stored False;
    end;
  
***************
*** 118,121 ****
--- 121,135 ----
      SL.Free;
    end;
+ end;
+ 
+ function TJvAppRegistryStore.GetRegRoot: TJvRegKey;
+ begin
+   Result := TJvRegKey(FRegHKEY - HKEY_CLASSES_ROOT);
+ end;
+ 
+ procedure TJvAppRegistryStore.SetRegRoot(Value: TJvRegKey);
+ begin
+   if Value <> RegRoot then
+     FRegHKEY := HKEY_CLASSES_ROOT + Longword(Ord(Value));
  end;
  

Index: JvTypes.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvTypes.pas,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** JvTypes.pas	2 Sep 2003 17:47:09 -0000	1.6
--- JvTypes.pas	6 Sep 2003 18:06:19 -0000	1.7
***************
*** 50,54 ****
  
  type
!   TJvRegKey = (hkClassesRoot, hkCurrentUser, hkLocalMachine, hkUsers, hkCurrentConfig, hkPerformanceData, hkDynData);
    TJvRegKeys = set of TJvRegKey;
  
--- 50,55 ----
  
  type
!   TJvRegKey = (hkClassesRoot, hkCurrentUser, hkLocalMachine, hkUsers, hkPerformanceData,
!     hkCurrentConfig, hkDynData);
    TJvRegKeys = set of TJvRegKey;