unit1.h

来自「比Delphi RichEdit好百倍的RichEdit控件」· C头文件 代码 · 共 45 行

//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <vcl\Classes.hpp>
#include <vcl\Controls.hpp>
#include <vcl\StdCtrls.hpp>
#include <vcl\Forms.hpp>
#include <vcl\ExtCtrls.hpp>
#include "RichView.hpp"
#include "RVScroll.hpp"
#include "RVStyle.hpp"
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
    TImage *Image1;
    TLabel *Label1;
    TLabel *Label2;
    TLabel *Label3;
    TRichView *RichView1;
    TPanel *panMouseDown;
    TPanel *panMouseUp;
    TPanel *panRightClick;
    TPanel *panDblClick;
    TRVStyle *RVStyle1;
    void __fastcall RichView1RVDblClick(TCustomRichView *Sender,
    AnsiString ClickedWord, int Style);
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall RichView1RVMouseDown(TCustomRichView *Sender,
    TMouseButton Button, TShiftState Shift, int ItemNo, int X, int Y);
    void __fastcall RichView1RVMouseUp(TCustomRichView *Sender,
    TMouseButton Button, TShiftState Shift, int ItemNo, int X, int Y);
    void __fastcall RichView1RVRightClick(TCustomRichView *Sender,
    AnsiString ClickedWord, int Style, int X, int Y);
private:	// User declarations
    AnsiString MouseInfo(TMouseButton Button, TShiftState Shift, int ItemNo, int X, int Y);
public:		// User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern TForm1 *Form1;
//---------------------------------------------------------------------------
#endif