From 72cba0f7e6ae15303150af9202d60d6097ed8556 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 14 Jan 2005 15:19:18 +0000
Subject: [PATCH] fixed creating splashform on show

git-svn-id: trunk@6589 -
---
 ide/lazarusmanager.pas | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/ide/lazarusmanager.pas b/ide/lazarusmanager.pas
index 2b8617cf05..021be98ea2 100644
--- a/ide/lazarusmanager.pas
+++ b/ide/lazarusmanager.pas
@@ -127,7 +127,7 @@ implementation
 constructor TLazarusManager.Create;
 begin
   inherited Create(nil);
-  SplashForm := TSplashForm.Create(Self);
+  SplashForm := nil;
   ShowSplash;
   FStartLazarusOptions := TStartLazarusOptions.Create;
   ParseCommandLine;
@@ -208,7 +208,7 @@ end;
 
 procedure TLazarusManager.LazarusProcessStart(Sender: TObject);
 begin
-  SplashForm.Hide;
+  if SplashForm<>nil then SplashForm.Hide;
   FreeThenNil(SplashForm);
   Application.ProcessMessages;
 end;
@@ -254,8 +254,7 @@ var
 begin
   WaitForLazarus;
   repeat
-    SplashForm.Show;
-    Application.ProcessMessages;
+    ShowSplash;
     Restart := false;
     if RenameLazarusExecutables=mrOK then begin
       FLazarusProcess :=
@@ -272,6 +271,7 @@ end;
 
 procedure TLazarusManager.ShowSplash;
 begin
+  if SplashForm=nil then SplashForm := TSplashForm.Create(Self);
   with SplashForm do begin
     Show;
     Paint;
@@ -315,6 +315,9 @@ end;
 end.
 {
   $Log$
+  Revision 1.19  2005/01/14 15:19:18  mattias
+  fixed creating splashform on show
+
   Revision 1.18  2005/01/14 14:46:35  mattias
   fixed freeing brush handle on SetColor and fixed freeing splashform