-
Notifications
You must be signed in to change notification settings - Fork 1
/
SAMS_v1.dpr
43 lines (39 loc) · 1.54 KB
/
SAMS_v1.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
program SAMS_v1;
uses
Forms,
SAMS_Main in 'SAMS_Main.pas' {frmMAMS},
About in 'About.pas' {AboutBox},
_dm in '_dm.pas' {dm: TDataModule},
MdRView in 'MdRView.pas',
_LogSQL in '_LogSQL.pas' {frmLogSql},
WordDriver in 'Worddriver\WordDriver.pas',
Vcl.Themes,
Vcl.Styles,
StorageLocations in 'StorageLocations.pas' {FormStorageLocations},
frmStartScreen in 'frmStartScreen.pas' {frmStart},
FormDBSearch in 'FormDBSearch.pas' {frmDBSearch},
frmLogWindow in 'frmLogWindow.pas' {LogWindow},
FormNewUser in 'FormNewUser.pas' {frmNewUser},
Frame_Video in 'Frame_Video.pas' {VideoFrame: TFrame},
FormCamera in 'FormCamera.pas' {CameraWindow};
{$R *.RES}
begin
Application.Initialize;
//create and display StartScreen
frmStart := TfrmStart.Create(nil); frmStart.Show; frmStart.Update;
TStyleManager.TrySetStyle('Turquoise Gray');
Application.Title := 'SAMS';
Application.CreateForm(TfrmMAMS, frmMAMS);
Application.CreateForm(TAboutBox, AboutBox);
Application.CreateForm(Tdm, dm);
Application.CreateForm(TfrmLogSql, frmLogSql);
Application.CreateForm(TFormStorageLocations, FormStorageLocations);
Application.CreateForm(TfrmDBSearch, frmDBSearch);
Application.CreateForm(TLogWindow, LogWindow);
Application.CreateForm(TfrmNewUser, frmNewUser);
Application.CreateForm(TCameraWindow, CameraWindow);
// Application.CreateForm(TfrmInputNewSamples, frmInputNewSamples);
// closing the StartScreen happens in OnShow of the frmMAMS as soon as everything has been loaded
// frmStart.Hide; frmStart.Free;
Application.Run;
end.