[Instantobjects-cvscommit] Source/Design IOCompsSplash.res,NONE,1.1 InstantReg.pas,1.13,1.14

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Design
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7332

Modified Files:
	InstantReg.pas 
Added Files:
	IOCompsSplash.res 
Log Message:
Added InstantObjects entry for the Delphi 2005/6 start up splash screens using the handled sphere icon.

--- NEW FILE: IOCompsSplash.res ---
(This appears to be a binary file; contents omitted.)

Index: InstantReg.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Design/InstantReg.pas,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** InstantReg.pas	6 Sep 2005 00:43:55 -0000	1.13
--- InstantReg.pas	3 Jan 2006 04:41:07 -0000	1.14
***************
*** 26,30 ****
   *
   * Contributor(s):
!  * Nando Dessena
   *
   * ***** END LICENSE BLOCK ***** *)
--- 26,30 ----
   *
   * Contributor(s):
!  * Nando Dessena, Steven Mitchell
   *
   * ***** END LICENSE BLOCK ***** *)
***************
*** 50,60 ****
  {$ENDIF}
  
  uses
!   Classes, InstantConsts, InstantPersistence, InstantPresentation,
    InstantExplorer, InstantConnectionManager, InstantConnectionManagerFormUnit,
!   InstantPump, InstantDBEvolution, InstantDBBuild;
  
  procedure Register;
  begin
    RegisterComponents(InstantPaletteName, [
      TInstantSelector,
--- 50,91 ----
  {$ENDIF}
  
+ {$IFDEF D9+}
+ {$R IOCompsSplash.res}
+ {$ENDIF}
+ 
  uses
!   Classes, Graphics, InstantConsts, InstantPersistence, InstantPresentation,
    InstantExplorer, InstantConnectionManager, InstantConnectionManagerFormUnit,
!   InstantPump, InstantDBEvolution, InstantDBBuild
!   {$IFDEF D9+}
!   , ToolsAPI
!   {$ENDIF}
!   ;
! 
! {$IFDEF D9+}
! procedure RegisterWithSplashScreen;
! var
!   Bmp: TBitmap;
! begin
!   // Register IO Splash Icon on Delphi Splash Screen
!   Bmp := TBitmap.Create;
!   Bmp.LoadFromResourceName(HInstance, 'IOCOMPSSPLASH');
! 
!   try
!     SplashScreenServices.AddPluginBitmap('InstantObjects Model Explorer',
!                                           Bmp.Handle, False, '', '');
!   finally
!     Bmp.Free;
!   end;
! 
! end;
! {$ENDIF}
  
  procedure Register;
  begin
+   {$IFDEF D9+}
+   RegisterWithSplashScreen;
+   {$ENDIF}
+ 
    RegisterComponents(InstantPaletteName, [
      TInstantSelector,