[lazarus] Splash screen...

[Mattias Gaertner]

On 30 Jun 2003 06:09:41 -0600
Tom Lisjac <netdxr at adelphia.net> wrote:

> I'm trying to add a splash screen to a slow initializing app. The splash
> form comes up fine... but the components on it aren't visible during the
> startup.
> 
> I've tried the following with a lot of variations but the splash
> components just won't show. Am I missing a step somewhere?

Yes, the gtk-interface puts paint messages at the end of the message queue.
See lazarus.pp and splash.pp to see how to create a splash screen.


Mattias


> 
> var i:Integer;
> begin
>   Application.Initialize;
>   Application.CreateForm(TForm1, Form1);
>   With TForm2.Create(nil) do
>   Try
>     for i:=1 to MaxStopwatches do
>     Begin
>       Application.CreateForm(TForm2, NewStopwatches[i]);
>       Progressbar1.position:=i
>     End;
>   Finally
>     free
>   End;
>   Application.Run;
> end.
> 
> 
> _________________________________________________________________
>      To unsubscribe: mail lazarus-request at miraclec.com with
>                 "unsubscribe" as the Subject
>    archives at http://www.lazarus.freepascal.org/mailarchives


--