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 "RichView.hpp"
  11. #include "RVScroll.hpp"
  12. #include "RVPP.hpp"
  13. #include "CRVPP.hpp"
  14. #include "CtrlImg.hpp"
  15. #include <vclExtCtrls.hpp>
  16. #include "RVStyle.hpp"
  17. #include "PtblRV.hpp"
  18. #include <vclDialogs.hpp>
  19. //---------------------------------------------------------------------------
  20. class TForm1 : public TForm
  21. {
  22. __published: // IDE-managed Components
  23.     TPageControl *PageControl1;
  24.     TTabSheet *TabSheet1;
  25.     TRichView *RichView1;
  26.     TTabSheet *TabSheet2;
  27.     TRVPrintPreview *RVPrintPreview1;
  28.     TPanel *Panel3;
  29.     TScrollBar *ScrollBar1;
  30.     TPanel *Panel1;
  31.     TImage *Image1;
  32.     TImage *Image2;
  33.     TPanel *Panel2;
  34.     TLabel *Label1;
  35.     TButton *Button1;
  36.     TEdit *Edit1;
  37.     TButton *btnPrint;
  38.     TRVStyle *RVStyle1;
  39.     TRVPrint *RVPrint1;
  40.     TPrintDialog *PrintDialog1;
  41.     TStatusBar *StatusBar1;
  42.     void __fastcall PageControl1Change(TObject *Sender);
  43.     void __fastcall ScrollBar1Change(TObject *Sender);
  44.     void __fastcall btnPrintClick(TObject *Sender);
  45.     void __fastcall RVPrint1Formatting(TCustomRichView *Sender,
  46.     int PageCompleted, TRVPrintingStep Step);
  47.     void __fastcall RVPrint1SendingToPrinter(TCustomRichView *Sender,
  48.     int PageCompleted, TRVPrintingStep Step);
  49.     void __fastcall RVPrint1PagePrepaint(TRVPrint *Sender, int PageNo,
  50.     TCanvas *Canvas, bool Preview, TRect &PageRect, TRect &PrintAreaRect);
  51.     void __fastcall Panel3Resize(TObject *Sender);
  52. private: // User declarations
  53.     void __fastcall RVPrint1PrintComponent(TCustomRVPrint *Sender, TControl *PrintMe,
  54.     Graphics::TBitmap *&ComponentImage);
  55.     bool PreviewCreated;
  56.     void UpdatePreview();
  57. public: // User declarations
  58.     __fastcall TForm1(TComponent* Owner);
  59. };
  60. //---------------------------------------------------------------------------
  61. extern TForm1 *Form1;
  62. //---------------------------------------------------------------------------
  63. #endif