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

RichEdit

开发平台:

Delphi

  1. //---------------------------------------------------------------------------
  2. #include <vclvcl.h>
  3. #pragma hdrstop
  4. #include "MainFrm.h"
  5. //---------------------------------------------------------------------------
  6. #pragma link "RVEdit"
  7. #pragma link "RichView"
  8. #pragma link "RVScroll"
  9. #pragma link "RVStyle"
  10. #pragma link "RVOfficeCnv"
  11. #pragma resource "*.dfm"
  12. // If you want to enable GIF support
  13. // with Anders Melander's TGifImage http://www.melander.dk/delphi/gifimage/
  14. // or http://www.torry.net/vcl/graphics/gif/gifimage.exe
  15. // Open RVGif.pas from this project and remove dot from line
  16. // {.$DEFINE USEGIFIMAGE}
  17. TfrmMain *frmMain;
  18. //---------------------------------------------------------------------------
  19. __fastcall TfrmMain::TfrmMain(TComponent* Owner)
  20.     : TForm(Owner)
  21. {
  22. }
  23. //---------------------------------------------------------------------------
  24. void __fastcall TfrmMain::FormCreate(TObject *Sender)
  25. {
  26.   od->Filter = "RTF (Built-In RichView Import)|*.rtf|"+rvc->GetImportFilter();
  27.   sd->Filter = "RTF (Built-In RichView Export)|*.rtf|"+rvc->GetExportFilter();
  28.   rve->Clear();
  29.   rve->Add("This demo shows how to use Microsoft