Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus / 2003-06

Splash screen...

3 messages · 2 people ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Mattias Gaertner
to Tom Lisjac: I'm trying to add a splash screen to a slow initializing app. The splash form comes up…
Show quoted text 6 lines
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

Show quoted text 23 lines
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 with "unsubscribe" as the Subject archives at http://www.lazarus.freepascal.org/mailarchives

Reply by email

Tom Lisjac

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?

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.

Reply by email