[JVCL-Checkins] CVS: dev/JVCL3/examples/JvDocking/AdvanceDemo/Delphi_Source Main.pas,1.6,1.7 - - previous saved layouts are empty since form name

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

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

Modified Files:
	Main.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: Main.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvDocking/AdvanceDemo/Delphi_Source/Main.pas,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Main.pas	9 Jan 2004 12:06:17 -0000	1.6
--- Main.pas	9 Jan 2004 13:32:02 -0000	1.7
***************
*** 15,19 ****
  -----------------------------------------------------------------------------}
  
! {$I JVCL.INC}
  
  unit Main;
--- 15,19 ----
  -----------------------------------------------------------------------------}
  
! {$I jvcl.inc}
  
  unit Main;
***************
*** 311,314 ****
--- 311,316 ----
    {$IFDEF USEJVCL}
    SaveDockTreeToAppStorage(FJvAppXMLStorage);
+   {$ELSE}
+   ShowMessage('Not supported unless USEJVCL is defined');
    {$ENDIF}
  end;
***************
*** 318,321 ****
--- 320,325 ----
    {$IFDEF USEJVCL}
    LoadDockTreeFromAppStorage(FJvAppXMLStorage);
+   {$ELSE}
+   ShowMessage('Not supported unless USEJVCL is defined');
    {$ENDIF}
  end;