Hi,
?
what is main form from POV of Lazarus?
I made this demo:
?
program project1;
{$mode objfpc}{$H+}
?
uses
? {$IFDEF UNIX}{$IFDEF UseCThreads}
? cthreads,
? {$ENDIF}{$ENDIF}
? sysutils,
? Interfaces, // this includes the LCL widgetset
? Forms, Unit1, Unit2, Unit3
? { you can add units after this };
?
{$R *.res}
?
begin
? RequireDerivedFormResource:=True;
? Application.Initialize;
?// Application.CreateForm(TFrmSplash, FrmSplash); ?// sleep(750);
? Application.CreateForm(TFrmMain, FrmMain);
? Application.CreateForm(TForm3, Form3);
?// FrmSplash.Free;
? Application.Run;
end.
? ? ? ??
It works well, i.e. when I close FrmMain, the application is correctly terminated. But when I uncomment those three lines, i.e. I add the splash screen to application, I got troubles. Splash screen is displayed, both forms too but when I close FrmMain, Form3 persists. When I close Form3, application is not terminated although there is no remaining form. Lazarus title bar still shows "(debugging)" and I have to use menu Project->Stop. It seems that after adding splash screen is FrmMain no longer considered as a main form. Is it bug? Or do I something wrong?
?
Thanks for help,
?
V.

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20150508/83b0c4ba/attachment.html>

Vojt?ch ?ih?k wrote

It seems that after adding splash screen is FrmMain no longer considered as a main form.

As far as I know, the first form that gets created is considered the "main form" and the one that controls the lifespan of the application. When the main form closes, the application normally terminates.

In fpGUI I can simply assign a new instance to fpgApplication.MainForm, but it doesn't seem like LCL as a MainForm property. So I suggest you create the splash form after the main form, but show the splash form before the main form.

I also suggest you take a look at what Lazarus IDE itself does. After all, it displays a splash screen. Learn by example. ;-)

Regards,
- Graeme -

Thanks, I tried to look to Lazarus sources before but I don't where is *.lpr of Lazarus. ?

So I suggest you

create the splash form after the main form, but show the splash form before the main form.
?
It's possible, but purpose ofsplash screen is to fill the gap until main form is created ? :-) ?
V.
______________________________________________________________

Vojt?ch ?ih?k wrote

It seems that after adding splash screen is FrmMain no longer considered as a main form.

As far as I know, the first form that gets created is considered the "main form" and the one that controls the lifespan of the application. When the main form closes, the application normally terminates.

In fpGUI I can simply assign a new instance to fpgApplication.MainForm, but it doesn't seem like LCL as a MainForm property. So I suggest you create the splash form after the main form, but show the splash form before the main form.

I also suggest you take a look at what Lazarus IDE itself does. After all, it displays a splash screen. Learn by example. ;-)

Regards,
?- Graeme -

Vojt?ch ?ih?k wrote

I tried to look to Lazarus sources before but I don't where is *.lpr of Lazarus.

Take a look in <lazarus>/ide/lazarus.pp

Regards,
- Graeme -

Il 08/05/2015 17:46, Vojt?ch ?ih?k ha scritto:

AFAIK you can't treat the splash screen as a regular form. It must be handled separately.
I'd suggest you to give a look to:

http://delphi.about.com/od/formsdialogs/a/splashscreen.htm

It's for Delphi, but it appears to apply to Lazarus as well.

Giuliano

Il 08/05/2015 17:46, Vojt?ch ?ih?k ha scritto:

Is it bug? Or do I something wrong?

The following code (where form2 is the splash screen) works fine under Lazarus

You may use as a guideline for your purposes

Giuliano

Thanks.
?
FrmSplash:=TFrmSplash.Create; instead of Application.CreateForm(); does the job. It is also what Lazarus does in lazarus.pp.
?
The reference code from?Giuliano works well, especially?Application.ProcessMessages; is necessary. FrmSplash.Update can be omitted.
?
Problem solved.

Hi, ? what is main form from POV of Lazarus?

It is the first form created with Application.CreateForm, which FormStyle is neither fsSplash nor fsMDIChild.

Don't forget to set FrmSplash.FormStyle to fsSplash.

?// sleep(750);

On many platforms this won't work. Use
Application.ProcessMessages instead.

In general: don't use "sleep" in the main thread.

Mattias

AFAIK it does not work on Carbon. You cannot draw without events.

Mattias

Thanks,
?
the sleep() was there because demo is simple and is executed too fast and I needed to see whether splash is actually displayed. In the real project I will not use sleep() in *.lpr nor elsewhere. I don't want to waste user's time :)? ?
______________________________________________________________

Hi, ? what is main form from POV of Lazarus?

It is the first form created with Application.CreateForm, which FormStyle is neither fsSplash nor fsMDIChild.

Don't forget to set FrmSplash.FormStyle to fsSplash.

?// sleep(750);

On many platforms this won't work. Use
Application.ProcessMessages instead.

In general: don't use "sleep" in the main thread.

Mattias

Vojt?ch ?ih?k wrote

the sleep() was there because demo is simple and is executed too fast and I needed to see whether splash is actually displayed.

If you have the time, take a look at the splashscreen demo included with fpGUI. <fpgui>/examples/gui/splashscreen/

There I use a timer in the splash screen, so it will destroy itself. So the splash screen is still visible for a short while, while the main form is displayed. Clicking on the splash screen makes it disappear instantly. In the real world, I would also make the splash screen optional via an application setting, or the usual --no-splash or -ns command line parameters.

Regards,
- Graeme -

I did it too. I have checkbox in application options, so users can disable splash screen. Variable SplashEnabled is loaded from config files and its default is True (when no configs exist yet). Therefore is splash always displayed when application run for the first time. ?
______________________________________________________________

Vojt?ch ?ih?k wrote

the sleep() was there because demo is simple and is executed too fast and I needed to see whether splash is actually displayed.

If you have the time, take a look at the splashscreen demo included with fpGUI. ?<fpgui>/examples/gui/splashscreen/

There I use a timer in the splash screen, so it will destroy itself. So the splash screen is still visible for a short while, while the main form is displayed. Clicking on the splash screen makes it disappear instantly. In the real world, I would also make the splash screen optional via an application setting, or the usual --no-splash or -ns command line parameters.

Regards,
?- Graeme -