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
|
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, Splashscreen;
Forms, lazcontrols, Unit1, Helpers, BuildOutputWindow;
{$R *.res}
var
Splash: TSplashscreenWindow;
begin
RequireDerivedFormResource:=True;
Application.Scaled:=True;
Application.Initialize;
{ Load the loading screen }
Splash := TSplashscreenWindow.Create(Application);
Splash.Show;
Splash.Update;
Application.ProcessMessages;
Application.CreateForm(TMainForm, MainForm);
Splash.Close;
Application.Run;
end.
|