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 <vclButtons.hpp>
  10. #include "DBRV.hpp"
  11. #include "RVEdit.hpp"
  12. #include "RichView.hpp"
  13. #include "RVScroll.hpp"
  14. #include <vclDBCtrls.hpp>
  15. #include <vclExtCtrls.hpp>
  16. #include <vclMask.hpp>
  17. #include <vclDBTables.hpp>
  18. #include <vclDB.hpp>
  19. #include "RVStyle.hpp"
  20. //---------------------------------------------------------------------------
  21. class TForm1 : public TForm
  22. {
  23. __published: // IDE-managed Components
  24.     TLabel *Label1;
  25.     TLabel *Label2;
  26.     TLabel *Label3;
  27.     TSpeedButton *SpeedButton1;
  28.     TDBRichViewEdit *DBRichViewEdit1;
  29.     TDBNavigator *DBNavigator1;
  30.     TDBEdit *DBEdit1;
  31.     TTable *Table1;
  32.     TDataSource *DataSource1;
  33.     TRVStyle *RVStyle1;
  34.     void __fastcall FormCreate(TObject *Sender);
  35.     void __fastcall DataSource1DataChange(TObject *Sender, TField *Field);
  36.     void __fastcall DBRichViewEdit1CurTextStyleChanged(TObject *Sender);
  37.     void __fastcall SpeedButton1Click(TObject *Sender);
  38. private: // User declarations
  39.     void UpdateStatusLabel();
  40. public: // User declarations
  41.     __fastcall TForm1(TComponent* Owner);
  42. };
  43. //---------------------------------------------------------------------------
  44. extern TForm1 *Form1;
  45. //---------------------------------------------------------------------------
  46. #endif