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 <vclOleCtnrs.hpp>
  11. #include "RVEdit.hpp"
  12. #include "RichView.hpp"
  13. #include "RVScroll.hpp"
  14. #include <vclDialogs.hpp>
  15. #include "RVStyle.hpp"
  16. #include "RVMisc.hpp"
  17. //---------------------------------------------------------------------------
  18. class TForm1 : public TForm
  19. {
  20. __published: // IDE-managed Components
  21.     TPanel *Panel1;
  22.     TButton *bnnOpen;
  23.     TButton *btnFind;
  24.     TButton *btnReplace;
  25.     TRichViewEdit *rve;
  26.     TOpenDialog *OpenDialog1;
  27.     TRVStyle *RVStyle1;
  28.     TImageList *il;
  29.     TFindDialog *fd;
  30.     TReplaceDialog *rd;
  31.     void __fastcall btnReplaceClick(TObject *Sender);
  32.     void __fastcall rdFind(TObject *Sender);
  33.     void __fastcall rdReplace(TObject *Sender);
  34.     void __fastcall btnFindClick(TObject *Sender);
  35.     void __fastcall fdFind(TObject *Sender);
  36.     void __fastcall rveRVFImageListNeeded(TCustomRichView *Sender,
  37.     int ImageListTag, TCustomImageList *&il);
  38.     void __fastcall bnnOpenClick(TObject *Sender);
  39.     void __fastcall FormCreate(TObject *Sender);
  40. private: // User declarations
  41. public: // User declarations
  42.     __fastcall TForm1(TComponent* Owner);
  43. };
  44. //---------------------------------------------------------------------------
  45. extern TForm1 *Form1;
  46. //---------------------------------------------------------------------------
  47. #endif