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
|
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("sword.res");
USEFORM("mainfrm.cpp", Form1);
USEFORM("ModInstForm.cpp", ModInstFrm);
USEUNIT("..\..\swdisprtf.cpp");
USEUNIT("..\..\swdisprtfchap.cpp");
USEUNIT("..\..\swwinlog.cpp");
USEUNIT("..\..\tbdisp.cpp");
USEFORM("searchfrm.cpp", Form2);
USEFORM("editentryfrm.cpp", EditEntry);
USEUNIT("biblecsmgr.cpp");
USEFORM("bookmarkfrm.cpp", Bookmarksfrm);
USEFORM("AboutBoxfrm.cpp", AboutBox);
USEFORM("optionfrm.cpp", Optionsfrm);
USEFORM("vrslstfrm.cpp", VerseListFrm);
USEFORM("versesel.cpp", VerseSelFrm);
USEFORM("newbmfilefrm.cpp", NewBMfrm);
USEUNIT("CommentPanel.cpp");
USEUNIT("ModTabPanel.cpp");
USEFORM("AppBar.cpp", AppBarFrm);
USEUNIT("BookMarkPanel.cpp");
USEUNIT("TextPanel.cpp");
USEUNIT("LDPanel.cpp");
USEFORM("DeskTopNameForm.cpp", DeskTopNameFrm);
USEFORM("DockCanvas.cpp", DockCanvasFrm);
USEUNIT("..\BibleCS\RxRichEditX.cpp");
USEOBJ("..\BibleCS\rxlib\Vclutils.obj");
USEOBJ("..\BibleCS\rxlib\Rxcconst.obj");
USEOBJ("..\BibleCS\rxlib\Rxcombos.obj");
USEOBJ("..\BibleCS\rxlib\Rxconst.obj");
USEOBJ("..\BibleCS\rxlib\RxRichEd.obj");
USEOBJ("..\BibleCS\rxlib\Maxmin.obj");
USELIB("..\..\..\..\lib\swordlib.lib");
USELIB("..\..\..\..\..\icu-sword\as_is\borland\icui18n.lib");
USELIB("..\..\..\..\..\icu-sword\as_is\borland\icudatab.lib");
USELIB("..\..\..\..\..\icu-sword\as_is\borland\icucommon.lib");
USEOBJ("..\BibleCS\TntUnicodeControls\Unicode.obj");
USEOBJ("..\BibleCS\TntUnicodeControls\TntControls.obj");
USEOBJ("..\BibleCS\TntUnicodeControls\TntForms.obj");
USEOBJ("..\BibleCS\TntUnicodeControls\TntStdCtrls.obj");
USEOBJ("..\BibleCS\TntUnicodeControls\TntClasses.obj");
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TAppBarFrm), &AppBarFrm);
Application->CreateForm(__classid(TDeskTopNameFrm), &DeskTopNameFrm);
Application->CreateForm(__classid(TDockCanvasFrm), &DockCanvasFrm);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------
|
