21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
{$IFDEF UNIX}
cthreads,
{$ENDIF}
{$IFDEF HASAMIGA}
athreads,
{$ENDIF}
Interfaces,
Forms, lazcontrols, Unit1, Helpers, BuildOutputWindow, Splashscreen;
{$R *.res}
var
Splash: TSplashscreenWindow;
{ Load the loading screen }
Splash := TSplashscreenWindow.Create(Application);
Splash.Show;
Splash.Update;
Application.ProcessMessages;
Splash.Close;
|
|
<
<
<
<
<
<
<
<
<
|
<
|
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
{$IFDEF UNIX}
cthreads,
{$ENDIF}
{$IFDEF HASAMIGA}
athreads,
{$ENDIF}
Interfaces,
Forms, lazcontrols, Unit1, Helpers, BuildOutputWindow;
{$R *.res}
begin
RequireDerivedFormResource:=True;
Application.Scaled:=True;
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end.
|