LazAPImanager/APImanager.lpr at main · HansvBug/LazAPImanager · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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
program APImanager;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  {$IFDEF HASAMIGA}
  athreads,
  {$ENDIF}
  Interfaces, // this includes the LCL widgetset
  LCLTranslator, Forms, Settings, DataModule, Form_SplashScreen, Form_Main,
  ApplicationEnvironment,
  Logging, form_maintain_api_data, AppDbCreate, AppDb, SettingsManager,
  Form_Configure, appdbFQ, AppDbFolder, AppDbQuery, Visual,
  ApiRequest, Form_About, Encryption, Treeview_utils;

{$R *.res}
var
  SplashFrm : TFrm_SplashScreen;

begin
  RequireDerivedFormResource:=True;
  Application.Scaled := True;
  Application.Initialize;

  //Added
  SplashFrm := TFrm_SplashScreen.Create(nil);
  try
    SplashFrm.Show;

    Application.CreateForm(TDataModule1, DataModule1);
    Application.CreateForm(TFrmMain, FrmMain);

    while not SplashFrm.Completed do // show splash form at least 2 seconds
      Application.ProcessMessages;

    SplashFrm.Close;
  finally
    SplashFrm.Free;
  end;

  Application.Run;
end.