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

RichEdit

开发平台:

Delphi

  1. //---------------------------------------------------------------------------
  2. #ifndef Unit1H
  3. #define Unit1H
  4. //---------------------------------------------------------------------------
  5. #include <vclClasses.hpp>
  6. #include <vclControls.hpp>
  7. #include <vclStdCtrls.hpp>
  8. #include <vclForms.hpp>
  9. #include <vclExtCtrls.hpp>
  10. #include "RVEdit.hpp"
  11. #include "RichView.hpp"
  12. #include "RVScroll.hpp"
  13. #include "RVStyle.hpp"
  14. #include "RVTable.hpp"
  15. #include "CRVFData.hpp"
  16. //---------------------------------------------------------------------------
  17. #define WM_SETCARETPOS (WM_APP+10)
  18. class TForm1 : public TForm
  19. {
  20. __published: // IDE-managed Components
  21. TImage *Image1;
  22. TImage *Image2;
  23. TImage *Image3;
  24. TRichViewEdit *RichViewEdit1;
  25. TRVStyle *RVStyle1;
  26. void __fastcall RichViewEdit1DragOver(TObject *Sender, TObject *Source, int X,
  27. int Y, TDragState State, bool &Accept);
  28. void __fastcall RichViewEdit1DragDrop(TObject *Sender, TObject *Source, int X,
  29. int Y);
  30. void __fastcall FormCreate(TObject *Sender);
  31. private: // User declarations
  32.     void MoveCaretTo(int X, int Y);
  33.     void __fastcall WMSetCaretPos(TMessage &Message);
  34.       BEGIN_MESSAGE_MAP
  35.       MESSAGE_HANDLER(WM_SETCARETPOS, TMessage, WMSetCaretPos)
  36.       END_MESSAGE_MAP(TForm)
  37. public: // User declarations
  38. __fastcall TForm1(TComponent* Owner);
  39. };
  40. //---------------------------------------------------------------------------
  41. extern TForm1 *Form1;
  42. //---------------------------------------------------------------------------
  43. #endif