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,
|
