[JVCL-Checkins] CVS: dev/JVCL3/examples/JvDocking/MSDN2002/Source MSDN2002MainUnit.pas,1.5,1.6 - - previous saved layouts are empty since form name

[Peter T. <pe...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/examples/JvDocking/MSDN2002/Source
In directory sc8-pr-cvs1:/tmp/cvs-serv25701/JVCL3/examples/JvDocking/MSDN2002/Source

Modified Files:
	MSDN2002MainUnit.pas 
Log Message:
- USEJVCL fixes
- When using JvAppStorage, loads from the same ini file as when using "native"
- previous saved layouts are empty since form names were saved with chinese characters. Need to build layouts and save to CVS

Index: MSDN2002MainUnit.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvDocking/MSDN2002/Source/MSDN2002MainUnit.pas,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** MSDN2002MainUnit.pas	9 Jan 2004 12:06:19 -0000	1.5
--- MSDN2002MainUnit.pas	9 Jan 2004 13:32:02 -0000	1.6
***************
*** 25,29 ****
    JvDockVSNetStyle, StdCtrls, ComCtrls, ToolWin, ExtCtrls, shdocvw
    {$IFDEF USEJVCL}
!   , JvComponent, JvAppStorage, JvAppRegistryStorage
    {$ENDIF};
  
--- 25,29 ----
    JvDockVSNetStyle, StdCtrls, ComCtrls, ToolWin, ExtCtrls, shdocvw
    {$IFDEF USEJVCL}
!   , JvComponent, JvAppStorage, JvAppIniStorage
    {$ENDIF};
  
***************
*** 224,228 ****
      { Private declarations }
      {$IFDEF USEJVCL}
!     JvAppStorage:TJvAppRegistryStorage;
      {$ENDIF}
      procedure CreateXPMenu;          //
--- 224,228 ----
      { Private declarations }
      {$IFDEF USEJVCL}
!     JvAppStorage:TJvAppIniFileStorage;
      {$ENDIF}
      procedure CreateXPMenu;          //
***************
*** 281,284 ****
--- 281,285 ----
  begin
    {$IFDEF USEJVCL}
+   JvAppStorage.Filename := ExtractFilePath(Application.ExeName) + 'DockLayout.ini';
    LoadDockTreeFromAppStorage(JvAppStorage);
    {$ELSE}
***************
*** 290,293 ****
--- 291,295 ----
  begin
    {$IFDEF USEJVCL}
+   JvAppStorage.Filename := ExtractFilePath(Application.ExeName) + 'DockLayout.ini';
    SaveDockTreeToAppStorage(JvAppStorage);
    {$ELSE}
***************
*** 311,319 ****
  begin
    {$IFDEF USEJVCL}
!   JvAppStorage := TJvAppRegistryStorage.Create(self);
!   with JvAppStorage do
!     Root := 'Software\JVCL\Examples\JvDocking\MSDN2002Pro';
    {$ENDIF}
-   
    CreateVSNETPageControl;
    LoadDockInfo;
--- 313,318 ----
  begin
    {$IFDEF USEJVCL}
!   JvAppStorage := TJvAppIniFileStorage.Create(self);
    {$ENDIF}
    CreateVSNETPageControl;
    LoadDockInfo;