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 <vclComCtrls.hpp>
  10. #include "RVEdit.hpp"
  11. #include "RichView.hpp"
  12. #include "RVScroll.hpp"
  13. #include <vclMenus.hpp>
  14. #include "RVStyle.hpp"
  15. #include "PtblRV.hpp"
  16. #include <vclDialogs.hpp>
  17. //---------------------------------------------------------------------------
  18. class TForm1 : public TForm
  19. {
  20. __published: // IDE-managed Components
  21. TPageControl *PageControl1;
  22. TTabSheet *TabSheet1;
  23. TRichViewEdit *RichViewEdit1;
  24. TTabSheet *TabSheet2;
  25. TRichViewEdit *RichViewEdit2;
  26. TTabSheet *TabSheet3;
  27. TRichViewEdit *RichViewEdit3;
  28. TTabSheet *TabSheet4;
  29. TGroupBox *GroupBox1;
  30. TLabel *Label1;
  31. TLabel *Label2;
  32. TLabel *Label3;
  33. TLabel *Label4;
  34. TEdit *txtLeft;
  35. TEdit *txtRight;
  36. TEdit *txtTop;
  37. TEdit *txtBottom;
  38. TGroupBox *GroupBox2;
  39. TLabel *Label5;
  40. TLabel *Label6;
  41. TEdit *txtHeader;
  42. TEdit *txtFooter;
  43. TMainMenu *MainMenu1;
  44. TMenuItem *File1;
  45. TMenuItem *New1;
  46. TMenuItem *Open1;
  47. TMenuItem *N1;
  48. TMenuItem *PrintPreview1;
  49. TMenuItem *Print1;
  50. TMenuItem *N2;
  51. TMenuItem *Exit1;
  52. TRVStyle *RVStyle1;
  53. TRVStyle *RVStyle2;
  54. TRVStyle *RVStyle3;
  55. TRVPrint *RVPrint1;
  56. TOpenDialog *OpenDialog1;
  57.     TPrinterSetupDialog *psd;
  58. void __fastcall New1Click(TObject *Sender);
  59. void __fastcall FormCreate(TObject *Sender);
  60. void __fastcall Open1Click(TObject *Sender);
  61. void __fastcall PrintPreview1Click(TObject *Sender);
  62. void __fastcall Print1Click(TObject *Sender);
  63. void __fastcall Exit1Click(TObject *Sender);
  64. private: // User declarations
  65.     bool IsEmpty(TCustomRichViewEdit* rve);
  66.     void PreparePrinting();
  67.     void OpenFile(const AnsiString FileName);
  68. public: // User declarations
  69. __fastcall TForm1(TComponent* Owner);
  70. };
  71. //---------------------------------------------------------------------------
  72. extern TForm1 *Form1;
  73. //---------------------------------------------------------------------------
  74. #endif
  75.