MainFrm.cpp
上传用户:daoqigc
上传日期:2021-04-20
资源大小:2795k
文件大小:4k
- //---------------------------------------------------------------------------
- #include <vclvcl.h>
- #pragma hdrstop
- #include "MainFrm.h"
- //---------------------------------------------------------------------------
- #pragma link "RVEdit"
- #pragma link "RichView"
- #pragma link "RVScroll"
- #pragma link "RVStyle"
- #pragma link "RVOfficeCnv"
- #pragma resource "*.dfm"
- // If you want to enable GIF support
- // with Anders Melander's TGifImage http://www.melander.dk/delphi/gifimage/
- // or http://www.torry.net/vcl/graphics/gif/gifimage.exe
- // Open RVGif.pas from this project and remove dot from line
- // {.$DEFINE USEGIFIMAGE}
- TfrmMain *frmMain;
- //---------------------------------------------------------------------------
- __fastcall TfrmMain::TfrmMain(TComponent* Owner)
- : TForm(Owner)
- {
- }
- //---------------------------------------------------------------------------
- void __fastcall TfrmMain::FormCreate(TObject *Sender)
- {
- od->Filter = "RTF (Built-In RichView Import)|*.rtf|"+rvc->GetImportFilter();
- sd->Filter = "RTF (Built-In RichView Export)|*.rtf|"+rvc->GetExportFilter();
- rve->Clear();
- rve->Add("This demo shows how to use Microsoft