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

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 "RichView.hpp"
  10. #include "RVScroll.hpp"
  11. #include "RVStyle.hpp"
  12. //---------------------------------------------------------------------------
  13. class TForm1 : public TForm
  14. {
  15. __published: // IDE-managed Components
  16. TLabel *Label1;
  17. TLabel *Label2;
  18. TRichView *rv;
  19. TButton *Button1;
  20. TButton *Button2;
  21. TButton *Button3;
  22. TEdit *Edit1;
  23. TImageList *ImageList1;
  24. TRVStyle *RVStyle1;
  25. void __fastcall FormCreate(TObject *Sender);
  26. void __fastcall rvJump(TObject *Sender, int id);
  27. void __fastcall Button1Click(TObject *Sender);
  28. void __fastcall Button2Click(TObject *Sender);
  29. void __fastcall Button3Click(TObject *Sender);
  30. private: // User declarations
  31.     TCustomRVFormattedData* FSelectedRVData;
  32.     int FSelectedItemNo;
  33.     int MakeTag(AnsiString s);    
  34. public: // User declarations
  35. __fastcall TForm1(TComponent* Owner);
  36.     AnsiString GetTagStr(int tag);
  37.     void Select(TCustomRVFormattedData* RVData, int ItemNo);
  38. };
  39. //---------------------------------------------------------------------------
  40. extern TForm1 *Form1;
  41. //---------------------------------------------------------------------------
  42. #endif
  43.