qcadwin/qcad.cpp

   1 //---------------------------------------------------------------------------\r
   2 #include <vcl.h>\r
   3 #pragma hdrstop\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
  13   try {\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
  24                  Application->Run();\r
  25   } catch (Exception &exception) {\r
  26     Application->ShowException(&exception);\r
  27   }\r
  28   return 0;\r
  29 }\r
  30 //---------------------------------------------------------------------------\r