[JVCL-Checkins] CVS: dev/JVCL3/run JvDockControlForm.pas,1.11,1.12 - Wasn't compiling with USEJVCL turned off

[Olivier S. <ob...@us...>]

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

Modified Files:
	JvDockControlForm.pas 
Log Message:
Wasn't compiling with USEJVCL turned off

Index: JvDockControlForm.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvDockControlForm.pas,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** JvDockControlForm.pas	9 Jan 2004 14:38:53 -0000	1.11
--- JvDockControlForm.pas	10 Jan 2004 11:43:15 -0000	1.12
***************
*** 36,41 ****
    {$IFDEF USEJVCL}
    JvComponent, JvAppStorage,
-   {$ELSE}
-   IniFiles, Registry,
    {$ENDIF USEJVCL}
    JvDockTree, JvDockSupportClass, JvDockSupportControl;
--- 36,39 ----
***************
*** 879,882 ****
--- 877,881 ----
    JvAppRegistryStorage, JvAppIniStorage, JvTypes,
    {$ENDIF}
+   IniFiles, Registry,
    JvDockSupportProc, JvDockGlobals, JvDockInfo, JvDockVSNetStyle;
  
***************
*** 1555,1559 ****
  end;
  
! procedure SaveDockTreeToReg(RootKey: DWORD; RegPatch: string);
  var
    JvDockInfoTree: TJvDockInfoTree;
--- 1554,1558 ----
  end;
  
! procedure SaveDockTreeToReg(ARootKey: DWORD; RegPatch: string);
  var
    JvDockInfoTree: TJvDockInfoTree;
***************
*** 1576,1580 ****
      JvDockInfoTree.DockInfoReg := TRegistry.Create;
      try
!       JvDockInfoTree.DockInfoReg.RootKey := RootKey;
        JvDockInfoTree.WriteInfoToReg(RegPatch);
      finally
--- 1575,1579 ----
      JvDockInfoTree.DockInfoReg := TRegistry.Create;
      try
!       JvDockInfoTree.DockInfoReg.RootKey := ARootKey;
        JvDockInfoTree.WriteInfoToReg(RegPatch);
      finally
***************
*** 1586,1590 ****
  end;
  
! procedure LoadDockTreeFromReg(RootKey: DWORD; RegPatch: string);
  var
    JvDockInfoTree: TJvDockInfoTree;
--- 1585,1589 ----
  end;
  
! procedure LoadDockTreeFromReg(ARootKey: DWORD; RegPatch: string);
  var
    JvDockInfoTree: TJvDockInfoTree;
***************
*** 1606,1610 ****
      try
        JvGlobalDockIsLoading := True;
!       JvDockInfoTree.DockInfoReg.RootKey := RootKey;
        JvDockInfoTree.ReadInfoFromReg(RegPatch);
      finally
--- 1605,1609 ----
      try
        JvGlobalDockIsLoading := True;
!       JvDockInfoTree.DockInfoReg.RootKey := ARootKey;
        JvDockInfoTree.ReadInfoFromReg(RegPatch);
      finally