RichEdit

开发平台：

Delphi

Unit1.h：源码内容

							//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "RichView.hpp"
#include "RVScroll.hpp"
#include "RVStyle.hpp"
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
    TRichView *RichView1;
    TRichView *RichView2;
    TRVStyle *RVStyle1;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall RVStyle1StyleHoverSensitive(TRVStyle *Sender,
          int StyleNo, bool &Sensitive);
    void __fastcall RVStyle1DrawTextBack(TRVStyle *Sender, TCanvas *Canvas,
          int StyleNo, int Left, int Top, int Width, int Height,
          TRVTextDrawStates DrawState, bool &DoDefault);
    void __fastcall RVStyle1DrawStyleText(TRVStyle *Sender,
          const AnsiString s, TCanvas *Canvas, int StyleNo,
          int SpaceBefore, int Left, int Top, int Width, int Height,
          TRVTextDrawStates DrawState, bool &DoDefault);
    void __fastcall RVStyle1DrawCheckpoint(TRVStyle *Sender,
          TCanvas *Canvas, int X, int Y, int ItemNo, int XShift,
          bool RaiseEvent, TControl *Control, bool &DoDefault);
    void __fastcall RVStyle1DrawPageBreak(TRVStyle *Sender,
          TCanvas *Canvas, int Y, int XShift, TRVPageBreakType PageBreakType,
          TControl *Control,
          bool &DoDefault);
    void __fastcall RVStyle1DrawParaBack(TRVStyle *Sender, TCanvas *Canvas,
          int ParaNo, TRect &ARect, bool &DoDefault);
    void __fastcall RichView2Paint(TCustomRichView *Sender,
          TCanvas *Canvas, bool Prepaint);
    void __fastcall RichView2RVMouseUp(TCustomRichView *Sender,
          TMouseButton Button, TShiftState Shift, int ItemNo, int X,
          int Y);
private:	// User declarations
public:		// User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

						