paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-25 05:37:17 +01:00
Code Issues Packages Projects Releases Wiki Activity

MG: hide splash screen on message

Browse Source 
git-svn-id: trunk@1574 -
This commit is contained in:
lazarus 2002-03-30 21:09:07 +00:00
parent 8b4c655cfb
commit 15cce7b1af
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/splash.pp
View File

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