From 15cce7b1af8449d1b13df72c83159780f62caa48 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sat, 30 Mar 2002 21:09:07 +0000
Subject: [PATCH] MG: hide splash screen on message

git-svn-id: trunk@1574 -
---
 ide/splash.pp | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/ide/splash.pp b/ide/splash.pp
index 1dc32611d5..4431cad9eb 100644
--- a/ide/splash.pp
+++ b/ide/splash.pp
@@ -30,6 +30,7 @@ uses
 
 type
   TSplashForm = class(TForm)
+    procedure ApplicationOnIdle(Sender: TObject; var Done: Boolean);
   private
     FBitmap : TBitmap;
     FTimer : TTimer;
@@ -328,6 +329,8 @@ begin
     OnTimer := @HideFormTimer;
     Enabled := False;
   end;
+
+  Application.OnIdle:=@ApplicationOnIdle;
 end;
 
 destructor TSplashForm.Destroy;
@@ -336,6 +339,8 @@ begin
   FBitmap:=nil;
   FTimer.Free;
   FTimer:=nil;
+  if Application.OnIdle=@ApplicationOnIdle then
+    Application.OnIdle:=nil;
   inherited Destroy;
 end;
 
@@ -352,6 +357,11 @@ begin
   end;
 end;
 
+procedure TSplashForm.ApplicationOnIdle(Sender: TObject; var Done: Boolean);
+begin
+  Hide;
+end;
+
 procedure TSplashForm.HideFormTimer(Sender : TObject);
 begin
   Click;
@@ -376,6 +386,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.10  2002/03/30 21:09:07  lazarus
+  MG: hide splash screen on message
+
   Revision 1.9  2002/03/30 07:29:15  lazarus
   MG: fixed splash screen, fixed parser of resource strings