[JVCL-Checkins] CVS: dev/JVCL3/examples/RaLib/RaInterpreterMDI MAIN.PAS,1.1,1.2 MDIapp.dof,1.1,1.2 mdiapp.res,1.1,1.2

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

Update of /cvsroot/jvcl/dev/JVCL3/examples/RaLib/RaInterpreterMDI
In directory sc8-pr-cvs1:/tmp/cvs-serv32339/JVCL3/examples/RaLib/RaInterpreterMDI

Modified Files:
	MAIN.PAS MDIapp.dof mdiapp.res 
Log Message:
- updated to compile 
- TODO: A lot of the storage code has been commented out because it used the archived TJvRegAuto component not available anymore. These sections are marked with //!!! comments
- exe of MDIApp must be in the same folder as the source files, so dof is changed
- Packages in RaInterpreterDynamicLoad  must be in same folder as exe, so dof's updated
- TODO: RaInterpreterDynamicLoad compiles but AV's when init of loaded package can't be found

Index: MAIN.PAS
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/RaLib/RaInterpreterMDI/MAIN.PAS,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** MAIN.PAS	23 Aug 2003 23:20:24 -0000	1.1
--- MAIN.PAS	20 Oct 2003 21:16:56 -0000	1.2
***************
*** 1,11 ****
  unit Main;
! 
  interface
  
! uses Sysutils, Forms, Controls, Menus, Classes, ComCtrls,
!      JvInterpreter, JvInterpreterFm, JvInterpreter_all, JvComponent;
  
  type
!   TMainForm   = class(TForm)
      MainMenu1: TMainMenu;
      File1: TMenuItem;
--- 1,11 ----
  unit Main;
! // (p3) NB! The exe must be saved in the same folder as the source files since they are accessed from the progam directly!
  interface
  
! uses SysUtils, Forms, Controls, Menus, Classes, ComCtrls,
!   JvInterpreter, JvInterpreterFm, JvInterpreter_all, JvComponent;
  
  type
!   TMainForm = class(TForm)
      MainMenu1: TMainMenu;
      File1: TMenuItem;
***************
*** 29,33 ****
  
  var
!   MainForm: TMainForm  ;
  
  implementation
--- 29,33 ----
  
  var
!   MainForm: TMainForm;
  
  implementation
***************
*** 37,51 ****
  uses ChildWin, aboutRaInterpreter;
  
! procedure TMainForm  .FileNew1Execute(Sender: TObject);
  begin
!   JvInterpreterFm1.RunForm(ExtractFilePath(paramstr(0))+'childwin.pas');
  end;
  
! procedure TMainForm  .HelpAbout1Execute(Sender: TObject);
  begin
!   JvInterpreterRunFormModal(ExtractFilePath(paramstr(0))+'aboutRAInterpreter.pas');
  end;
  
! procedure TMainForm  .FileExit1Execute(Sender: TObject);
  begin
    Close;
--- 37,51 ----
  uses ChildWin, aboutRaInterpreter;
  
! procedure TMainForm.FileNew1Execute(Sender: TObject);
  begin
!   JvInterpreterFm1.RunForm(ExtractFilePath(paramstr(0)) + 'childwin.pas');
  end;
  
! procedure TMainForm.HelpAbout1Execute(Sender: TObject);
  begin
!   JvInterpreterRunFormModal(ExtractFilePath(paramstr(0)) + 'aboutRAInterpreter.pas');
  end;
  
! procedure TMainForm.FileExit1Execute(Sender: TObject);
  begin
    Close;
***************
*** 53,54 ****
--- 53,55 ----
  
  end.
+ 

Index: MDIapp.dof
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/RaLib/RaInterpreterMDI/MDIapp.dof,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** MDIapp.dof	23 Aug 2003 23:20:24 -0000	1.1
--- MDIapp.dof	20 Oct 2003 21:16:57 -0000	1.2
***************
*** 1,4 ****
  [Directories]
! OutputDir=..\..\..\Bin
  UnitOutputDir=..\..\..\Dcu
  SearchPath=..\..\..\source;..\..\..\resources
--- 1,6 ----
  [Directories]
! OutputDir=
  UnitOutputDir=..\..\..\Dcu
+ PackageDLLOutputDir=
+ PackageDCPOutputDir=
  SearchPath=..\..\..\source;..\..\..\resources

Index: mdiapp.res
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/RaLib/RaInterpreterMDI/mdiapp.res,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
Binary files /tmp/cvsTGw6vo and /tmp/cvsGTNtOC differ