1 //---------------------------------------------------------------------------
\r
4 USEFORM("main.cpp", FMain);
\r
5 USEFORM("CPanel.cpp", FCPanel);
\r
6 USEFORM("New.cpp", FNew);
\r
7 USEFORM("Version.cpp", FVersion);
\r
8 USEFORM("Param.cpp", FParam);
\r
9 USEFORM("Graph.cpp", FGraph);
\r
10 USEFORM("Preview.cpp", FPreview);
\r
11 //---------------------------------------------------------------------------
\r
12 WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) {
\r
14 Application->Initialize();
\r
15 Application->HelpFile = "qcad.hlp";
\r
16 Application->Title = "QCAD";
\r
17 Application->CreateForm(__classid(TFMain), &FMain);
\r
18 Application->CreateForm(__classid(TFCPanel), &FCPanel);
\r
19 Application->CreateForm(__classid(TFNew), &FNew);
\r
20 Application->CreateForm(__classid(TFVersion), &FVersion);
\r
21 Application->CreateForm(__classid(TFParam), &FParam);
\r
22 Application->CreateForm(__classid(TFGraph), &FGraph);
\r
23 Application->CreateForm(__classid(TFPreview), &FPreview);
\r
25 } catch (Exception &exception) {
\r
26 Application->ShowException(&exception);
\r
30 //---------------------------------------------------------------------------
\r