RVEditCB5.cpp
上传用户:daoqigc
上传日期:2021-04-20
资源大小:2795k
文件大小:1k
源码类别:

RichEdit

开发平台:

Delphi

  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4. USERES("RVEditCB5.res");
  5. USEFORM("CPFrm.cpp", frmCP);
  6. USEFORM("ListFrm.cpp", frmList);
  7. USEFORM("PreviewFrm.cpp", frmPreview);
  8. USEFORM("PropFrm.cpp", frmProp);
  9. USEUNIT("RVUndoStr.cpp");
  10. USEFORM("Unit1.cpp", Form1);
  11. USEFORM("OptionsFrm.cpp", frmOptions);
  12. //---------------------------------------------------------------------------
  13. WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
  14. {
  15.     try
  16.     {
  17.         Application->Initialize();
  18.         Application->CreateForm(__classid(TForm1), &Form1);
  19.                  Application->CreateForm(__classid(TfrmCP), &frmCP);
  20.                  Application->CreateForm(__classid(TfrmList), &frmList);
  21.                  Application->CreateForm(__classid(TfrmPreview), &frmPreview);
  22.                  Application->CreateForm(__classid(TfrmProp), &frmProp);
  23.                  Application->CreateForm(__classid(TfrmOptions), &frmOptions);
  24.                  Application->Run();
  25.     }
  26.     catch (Exception &exception)
  27.     {
  28.         Application->ShowException(&exception);
  29.     }
  30.     return 0;
  31. }
  32. //---------------------------------------------------------------------------