-
Notifications
You must be signed in to change notification settings - Fork 3
/
realterm.dpr
51 lines (44 loc) · 1.52 KB
/
realterm.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
program realterm;
{%File 'Readme.txt'}
{%File 'change_log.txt'}
uses
Forms,
Graphics,
gnugettext in 'gnugettext.pas',
PicProgN in 'PicProgN.pas',
realterm1 in 'realterm1.pas' {Form1},
ADSpcEmu in 'ADSpcEmu.pas',
StBits in '..\..\units\turbopower\systools\source\StBits.pas',
M545X in 'M545X.pas',
RTAboutBox in 'RTAboutBox.pas' {AboutBox},
EscapeString in 'EscapeString.pas',
ModbusCRC in 'ModbusCRC.pas',
realterm_TLB in 'realterm_TLB.pas',
RealtermIntf in 'RealtermIntf.pas' {RealtermIntf: CoClass},
SpyNagDialog in 'SpyNagDialog.pas' {SpyNagDlg},
D6OnHelpFix in 'D6OnHelpFix.pas',
ScanPorts in 'ScanPorts.pas' {FormScanPorts},
HexStringForm in 'HexStringForm.pas' {PagesDlg},
CRC8 in 'CRC8.pas',
HexEmulator in 'HexEmulator.pas',
Checksums in 'Checksums.pas',
sc in '..\..\units\TetaSerialCop 2.0\SOURCE\Sc.pas',
I2Cx in 'I2Cx.pas',
ComportFinder in 'ComportFinder.pas';
{$R *.TLB}
{$R *.RES}
begin
// Use delphi.mo for runtime library translations, if it is there
AddDomainForResourceString('delphi');
// This one is not needed, because 'Arial' should not be translated,
// but is here as an example
TP_GlobalIgnoreClass(TFont);
Application.Initialize;
Application.Title := 'Realterm: Serial Capture and Binary Terminal';
FormScanPorts:=TFormScanPorts.Create(Application);
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TSpyNagDlg, SpyNagDlg);
Application.CreateForm(TAboutBox, AboutBox);
Application.CreateForm(TPagesDlg, PagesDlg);
Application.Run;
end.