[JVCL-Checkins] dev/JVCL3/examples/RaLib/RaInterpreter fJvInterpreterTest.dfm,1.3,1.4 fJvInterpreterTest.pas,1.3,1.4 - - all projects added to mak and bpg file (some are still com

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

Update of /cvsroot/jvcl/dev/JVCL3/examples/RaLib/RaInterpreter
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31402/examples/RaLib/RaInterpreter

Modified Files:
	fJvInterpreterTest.dfm fJvInterpreterTest.pas 
Log Message:
- all projects added to mak and bpg file (some are still commented out)
- dof files fixed
- minor fixes to compile


Index: fJvInterpreterTest.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/RaLib/RaInterpreter/fJvInterpreterTest.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** fJvInterpreterTest.pas	6 Jan 2004 01:36:21 -0000	1.3
--- fJvInterpreterTest.pas	27 Jan 2004 12:51:53 -0000	1.4
***************
*** 34,49 ****
  
  uses
- {$IFDEF COMPILER3_UP} 
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    StdCtrls, ExtCtrls, ComCtrls,
    JvInterpreter, JvInterpreterFm, JvEditor, JvHLParser, JvHLEditor,
!   Db, DBTables, Grids, DBGrids, Quickrpt, QRCtrls
!  {$IFDEF COMPILER6_UP}, Variants, JvComponent, JvFormPlacement {$ENDIF};
! {$ELSE}
!   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
!   StdCtrls, ExtCtrls, JvRegAuto, ComCtrls,
!   JvInterpreter, JvInterpreterFm, JvEditor, JvHLParser, JvHLEditor,
!   Db, DBTables, Grids, DBGrids, Quickrep;
! {$ENDIF}
  
  type
--- 34,46 ----
  
  uses
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    StdCtrls, ExtCtrls, ComCtrls,
    JvInterpreter, JvInterpreterFm, JvEditor, JvHLParser, JvHLEditor,
!   Db, DBTables, Grids, DBGrids,
!  {$IFDEF COMPILER6_UP}
!    Variants,
!    {$ENDIF}
!  JvExControls, JvComponent, JvFormPlacement;
! 
  
  type
***************
*** 350,371 ****
  
  procedure TTest.bRunReportClick(Sender: TObject);
! var
!   QuickRep1: TQuickRep;
  begin
!   if OpenDialog1.Execute then
!   begin
!     with JvInterpreterProgram1.MakeForm(OpenDialog1.FileName) do
!       try
!        {$IFDEF COMPILER3_UP}
!         QuickRep1 := (FindComponent('QuickRep1') as TQuickRep);
!        {$ELSE}
!         QuickRep1 := (FindComponent('QuickReport1') as TQuickRep);
!        {$ENDIF COMPILER3_UP}
!         if QuickRep1 = nil then raise Exception.Create('QuickRep1 not found on this form');
!         QuickRep1.Preview;
!       finally { wrap up }
!         Free;
!       end;    { try/finally }
!   end;
  end;
  
--- 347,368 ----
  
  procedure TTest.bRunReportClick(Sender: TObject);
! // var
! //   QuickRep1: TQuickRep;
  begin
! //   if OpenDialog1.Execute then
! //   begin
! //     with JvInterpreterProgram1.MakeForm(OpenDialog1.FileName) do
! //       try
! //        {$IFDEF COMPILER3_UP}
! //         QuickRep1 := (FindComponent('QuickRep1') as TQuickRep);
! //        {$ELSE}
! //         QuickRep1 := (FindComponent('QuickReport1') as TQuickRep);
! //        {$ENDIF COMPILER3_UP}
! //         if QuickRep1 = nil then raise Exception.Create('QuickRep1 not found on this form');
! //         QuickRep1.Preview;
! //       finally { wrap up }
! //         Free;
! //       end;    { try/finally }
! //   end;
  end;
  

Index: fJvInterpreterTest.dfm
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/RaLib/RaInterpreter/fJvInterpreterTest.dfm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** fJvInterpreterTest.dfm	8 Jan 2004 09:56:11 -0000	1.3
--- fJvInterpreterTest.dfm	27 Jan 2004 12:51:53 -0000	1.4
***************
*** 58,62 ****
      Top = 57
      Width = 360
!     Height = 340
      Cursor = crIBeam
      GutterWidth = 0
--- 58,62 ----
      Top = 57
      Width = 360
!     Height = 343
      Cursor = crIBeam
      GutterWidth = 0
***************
*** 99,103 ****
      Top = 57
      Width = 208
!     Height = 340
      Align = alRight
      BevelOuter = bvNone
--- 99,103 ----
      Top = 57
      Width = 208
!     Height = 343
      Align = alRight
      BevelOuter = bvNone
***************
*** 107,111 ****
      object Notebook1: TNotebook
        Left = 3
!       Top = 237
        Width = 202
        Height = 100
--- 107,111 ----
      object Notebook1: TNotebook
        Left = 3
!       Top = 240
        Width = 202
        Height = 100
***************
*** 213,217 ****
        Top = 3
        Width = 202
!       Height = 234
        Align = alClient
        Lines.Strings = (
--- 213,217 ----
        Top = 3
        Width = 202
!       Height = 237
        Align = alClient
        Lines.Strings = (
***************
*** 223,227 ****
    object Panel3: TPanel
      Left = 0
!     Top = 397
      Width = 568
      Height = 20
--- 223,227 ----
    object Panel3: TPanel
      Left = 0
!     Top = 400
      Width = 568
      Height = 20