splash screen
lazarus / 10-Designer

----------------------------------------------------------------------
thebigdax · 2005-11-19 18:01

how can i create a splash screen such when i open lazarus

thank you

----------------------------------------------------------------------
Marc · 2005-11-21 10:20

set to formtype to splashform

----------------------------------------------------------------------
thebigdax · 2005-11-22 19:00

all work, thank you

----------------------------------------------------------------------
Anonymous · 2006-01-08 06:24

I also want to create a splashscreen. I created a new form and set
FormStyle to splashform.
but I'm stuck there. The Delphi code I'm trying to translate goes like
that :
var  SplashScreen: TfrmSplash; 

An error is all I get saying there's no TfrmSplash.

Could you please tell me how to procede?

----------------------------------------------------------------------
matthijs · 2006-01-08 08:01

Post your code where you are using th Splash form. It looks like you
have not added the unit containing your splash screen to the uses
section.

----------------------------------------------------------------------
christophe_D · 2006-06-07 21:24

here is a small example to do a splash screen

At first time create add a second form to your project

give it the name at the form : Splash
save it with the name : splScreen.pas

in your project.lpr add the follow line

Code: [Select]
program project;

{$MODE Delphi}


uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  //cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms
  { add your units here } splScreen;

begin
  Application.Title:='name of your project';
  Application.Initialize;
  Splash:=Tsplash.create(application);
  Splash.show;
  Splash.Update;
  application.ProcessMessages; // to be sure to show the splash
// the other unit of your project
// remove the line Application.CreateForm(Tsplash, Splash);
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Splash.close;
  Splash.Release;
  Application.Run;
end.


finally if the loading is fast your can add a sleep(1000) in the
Tsplash.create

is it that can help you ?

----------------------------------------------------------------------
CCRDude · 2006-06-15 16:36

Sleep ??? That causes the app to appear to hang during the specified
time period if I'm not mistaken. Sleep is a left-over from non-
multitasking times

MSDN on Sleep:
QuoteTherefore, if you have a thread that creates windows, use
MsgWaitForMultipleObjects or MsgWaitForMultipleObjectsEx, rather than
Sleep.

----------------------------------------------------------------------
christophe_D · 2006-06-15 17:04

Quote from: "CCRDude"Sleep ??? That causes the app to appear to hang
during the specified time period if I'm not mistaken. Sleep is a left-
over from non-multitasking times

MSDN on Sleep:
QuoteTherefore, if you have a thread that creates windows, use
MsgWaitForMultipleObjects or MsgWaitForMultipleObjectsEx, rather than
Sleep.

i use the sleep only , if the longer of loading is < 20 sec only for
have time to see the splash ...
if the loading is > 20 sec don't used the sleep ... only the
application.processmessage will dislpay correctly the splashScreen ,
and continu the loading