-
Notifications
You must be signed in to change notification settings - Fork 0
/
ChainFinderMinL64.ppr
44 lines (38 loc) · 1.21 KB
/
ChainFinderMinL64.ppr
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
program ChainFinderMinL64;
{$MODE Delphi}
uses
Forms, Interfaces,
UnitDM_OOB,
UnitChainFinderMin in 'UnitChainFinderMin.pas',
UnitSplashFinderMin in 'UnitSplashFinderMin.pas';
{$R *.res}
begin
RequireDerivedFormResource := False;
Application.Scaled := True;
Application.Initialize;
_FormSplashFinder:= T_FormSplashFinder.Create(Application);
with _FormSplashFinder do begin
Show;
Update;{Process any pending Windows paint messages}
end;
_FormChainFinder:= T_FormChainFinder.Create(Application);
_DataModuleOOB:= T_DataModuleOOB.Create;//(Application);
_FormChainFinder.TheDataModule:= _DataModuleOOB;
try
with _FormSplashFinder do begin
_FormSplashFinder.Show;
_FormSplashFinder.Update;{Process any pending Windows paint messages}
if (_FormChainFinder.TheDataModule is T_DataModuleOOB) then begin
_FormChainFinder.CreateNuclideList;//Create NuclideList
_FormChainFinder.LoadNuclideList;//Load NuclideList
end;
_FormSplashFinder.Show;
_FormSplashFinder.Update;{Process any pending Windows paint messages}
end;
Application.ProcessMessages;
finally{Make sure the splash screen gets released}
_FormSplashFinder.Hide;
_FormChainFinder.Show;
Application.Run;
end;
end.