-
Notifications
You must be signed in to change notification settings - Fork 4
/
xraycalc.dpr
67 lines (63 loc) · 2.7 KB
/
xraycalc.dpr
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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
(* *****************************************************************************
*
* X-Ray Calc 2
*
* Copyright (C) 2001-2011 Aleksey Penkov
* e-mail: alex.penkov@gmail.com
*
****************************************************************************** *)
program xraycalc;
uses
FastMM4,
Forms,
SysUtils,
unit_types in 'units\unit_types.pas',
unit_consts in 'units\unit_consts.pas',
unit_helpers in 'units\unit_helpers.pas',
unit_settings in 'units\unit_settings.pas',
editor_Layer in 'editors\editor_Layer.pas' {edtrLayer},
frm_main in 'forms\frm_main.pas' {frmMain},
math_complex in 'Math\math_complex.pas',
math_globals in 'Math\math_globals.pas',
unit_materials in 'Math\unit_materials.pas',
editor_period in 'editors\editor_period.pas' {edtrPeriod},
editor_proj_item in 'editors\editor_proj_item.pas' {edtrProjectItem},
editor_Normalisation in 'editors\editor_Normalisation.pas' {edtrManualNorm},
editor_Substrate in 'editors\editor_Substrate.pas' {edtrSubstrate},
frm_MList in 'forms\frm_MList.pas' {frmMaterialList},
frm_Splash in 'forms\frm_Splash.pas' {frmSplash},
unit_VersionChecker in 'units\unit_VersionChecker.pas',
frm_NewVersionInfo in 'forms\frm_NewVersionInfo.pas' {frmNewVersionInfo},
frm_EditorBase in 'forms\frm_EditorBase.pas' {frmEditorBase},
editor_Gradient in 'editors\editor_Gradient.pas' {edtrGradient},
Vcl.Themes,
Dialogs,
Vcl.Styles,
unit_VTEditors in 'units\unit_VTEditors.pas',
MHLSimplePanel in 'components\MHLSimplePanel.pas',
frm_about in 'forms\frm_about.pas' {frmAbout},
frm_fitting in 'forms\frm_fitting.pas' {frmFitWin},
XRCFittingInput in 'components\XRCFittingInput.pas',
unit_calc in 'Math\unit_calc.pas';
{$R *.res}
begin
Application.Initialize;
frmSplash := TfrmSplash.Create(Application);
frmSplash.Show; // Display the splash screen
frmSplash.Update; // Update the splash screen to ensure it gets drawn
Application.CreateForm(TfrmMain, frmMain);
Application.CreateForm(TfrmAbout, frmAbout);
Application.CreateForm(TedtrLayer, edtrLayer);
Application.CreateForm(TedtrPeriod, edtrPeriod);
Application.CreateForm(TedtrProjectItem, edtrProjectItem);
Application.CreateForm(TedtrManualNorm, edtrManualNorm);
Application.CreateForm(TedtrSubstrate, edtrSubstrate);
Application.CreateForm(TfrmMaterialList, frmMaterialList);
Application.CreateForm(TfrmEditorBase, frmEditorBase);
Application.CreateForm(TedtrGradient, edtrGradient);
Application.CreateForm(TfrmAbout, frmAbout);
Application.CreateForm(TfrmFitWin, frmFitWin);
frmSplash.Hide; // Hide the splash screen
frmSplash.Free; // Free the splash screen
Application.Run;
end.