[Instantobjects-cvscommit] Source/Brokers/ADO InstantADO.pas,1.4,1.5

[Nando D. <na...@us...>]

Update of /cvsroot/instantobjects/Source/Brokers/ADO
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3802/Brokers/ADO

Modified Files:
	InstantADO.pas 
Log Message:
Fixed inherited call chain in InternalBuildDatabase

Index: InstantADO.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/ADO/InstantADO.pas,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** InstantADO.pas	23 Aug 2004 09:55:20 -0000	1.4
--- InstantADO.pas	16 Sep 2004 11:29:22 -0000	1.5
***************
*** 79,83 ****
      function GetDatabaseName: string; override;
      function GetDBMSName: string; override;
!     procedure InternalBuildDatabase(Scheme: TInstantScheme); overload; override;
      procedure InternalCommitTransaction; override;
      procedure InternalCreateDatabase; override;
--- 79,83 ----
      function GetDatabaseName: string; override;
      function GetDBMSName: string; override;
!     procedure InternalBuildDatabase(Scheme: TInstantScheme); override;
      procedure InternalCommitTransaction; override;
      procedure InternalCreateDatabase; override;
***************
*** 621,626 ****
    BuildMethod: TInstantADOBuildMethod);
  begin
-   if Assigned(Scheme) then
-     Scheme.BlobStreamFormat := BlobStreamFormat; 
    case BuildMethod of
      bmDefault:
--- 621,624 ----
***************
*** 716,720 ****
    Scheme: TInstantScheme);
  begin
!   Scheme.BlobStreamFormat := BlobStreamFormat;
    DoBuildDatabase(Scheme, bmDefault);
  end;
--- 714,718 ----
    Scheme: TInstantScheme);
  begin
!   inherited;
    DoBuildDatabase(Scheme, bmDefault);
  end;