RichEdit

开发平台：

Delphi

Unit1.h：源码内容

							//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <vclClasses.hpp>
#include <vclOleCtnrs.hpp>
#include <vclControls.hpp>
#include <vclStdCtrls.hpp>
#include <vclForms.hpp>
#include <vclExtCtrls.hpp>
#include "GifImage.hpp"
#include "RichView.hpp"
#include "RVScroll.hpp"
#include "RVStyle.hpp"
#include <vclDialogs.hpp>
#include <vclComCtrls.hpp>
#include <ImgList.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
    TRichView *RichView1;
    TPanel *Panel1;
    TLabel *Label1;
    TLabel *Label2;
    TButton *Button1;
    TButton *Button2;
    TCheckBox *CheckBox1;
    TEdit *Edit1;
    TEdit *Edit2;
    TStatusBar *StatusBar1;
    TOpenDialog *OpenDialog1;
    TSaveDialog *SaveDialog1;
    TImageList *ImageList1;
    TRVStyle *RVStyle1;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall Button1Click(TObject *Sender);
    void __fastcall RichView1RVFImageListNeeded(TCustomRichView *Sender,
    int ImageListTag, TCustomImageList *&il);
    void __fastcall RichView1RVMouseMove(TObject *Sender, int id);
    void __fastcall RichView1Jump(TObject *Sender, int id);
    void __fastcall Button2Click(TObject *Sender);
    void __fastcall RichView1HTMLSaveImage(TCustomRichView *Sender,
    TCustomRVData *RVData, int ItemNo, const AnsiString Path,
    TColor BackgroundColor, AnsiString &Location, bool &DoDefault);
    void __fastcall RichView1SaveComponentToFile(TCustomRichView *Sender,
          AnsiString Path, TPersistent *SaveMe, TRVSaveFormat SaveFormat,
          AnsiString &OutStr);
    void __fastcall RichView1SaveHTMLExtra(TCustomRichView *Sender,
          TRVHTMLSaveArea Area, bool CSSVersion, AnsiString &HTMLCode);
    void __fastcall RichView1WriteHyperlink(TCustomRichView *Sender,
          int id, TCustomRVData *RVData, int ItemNo,
          TRVSaveFormat SaveFormat, AnsiString &Target,
          AnsiString &Extras);
private:	// User declarations
public:		// User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

						