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

RichEdit

开发平台:

Delphi

  1. //---------------------------------------------------------------------------
  2. #ifndef Unit1H
  3. #define Unit1H
  4. //---------------------------------------------------------------------------
  5. #include <Classes.hpp>
  6. #include <Controls.hpp>
  7. #include <StdCtrls.hpp>
  8. #include <Forms.hpp>
  9. #include "RichView.hpp"
  10. #include "RVEdit.hpp"
  11. #include "RVScroll.hpp"
  12. #include "RVStyle.hpp"
  13. #include <Buttons.hpp>
  14. #include <ComCtrls.hpp>
  15. #include <Dialogs.hpp>
  16. #include <ExtCtrls.hpp>
  17. #include <Menus.hpp>
  18. //---------------------------------------------------------------------------
  19. class TForm1 : public TForm
  20. {
  21. __published: // IDE-managed Components
  22. TPanel *Panel1;
  23. TSpeedButton *btnBold;
  24. TSpeedButton *btnItalic;
  25. TSpeedButton *btnUnderline;
  26. TSpeedButton *btnFont;
  27. TSpeedButton *btnLeft;
  28. TSpeedButton *btnCenter;
  29. TSpeedButton *btnRight;
  30. TSpeedButton *btnJustify;
  31. TSpeedButton *btnOpen;
  32. TSpeedButton *btnSave;
  33. TSpeedButton *btnSaveAs;
  34. TSpeedButton *btnNew;
  35. TLabel *Label2;
  36. TLabel *Label3;
  37. TSpeedButton *btnIdentInc;
  38. TSpeedButton *btnIdentDec;
  39. TSpeedButton *btnFontColor;
  40. TSpeedButton *btnFontBackColor;
  41. TSpeedButton *btnParaBackColor;
  42. TComboBox *cmbFont;
  43. TComboBox *cmbFontSize;
  44. TStatusBar *StatusBar1;
  45. TRichViewEdit *rve;
  46. TRVStyle *rvs;
  47. TMainMenu *MainMenu1;
  48. TMenuItem *File1;
  49. TMenuItem *mitNew;
  50. TMenuItem *mitOpen;
  51. TMenuItem *mitSave;
  52. TMenuItem *mitSaveAs;
  53. TMenuItem *N1;
  54. TMenuItem *mitExit;
  55. TMenuItem *Edit1;
  56. TMenuItem *mitUndo;
  57. TMenuItem *mitRedo;
  58. TMenuItem *N2;
  59. TMenuItem *mitCut;
  60. TMenuItem *mitCopy;
  61. TMenuItem *mitPaste;
  62. TMenuItem *mitDelete;
  63. TOpenDialog *od;
  64. TSaveDialog *sd;
  65. TFontDialog *fd;
  66. TColorDialog *cd;
  67.     void __fastcall FormCreate(TObject *Sender);
  68.     void __fastcall mitNewClick(TObject *Sender);
  69.     void __fastcall mitOpenClick(TObject *Sender);
  70.     void __fastcall mitSaveClick(TObject *Sender);
  71.     void __fastcall mitSaveAsClick(TObject *Sender);
  72.     void __fastcall mitExitClick(TObject *Sender);
  73.     void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
  74.     void __fastcall mitUndoClick(TObject *Sender);
  75.     void __fastcall mitRedoClick(TObject *Sender);
  76.     void __fastcall mitCutClick(TObject *Sender);
  77.     void __fastcall mitCopyClick(TObject *Sender);
  78.     void __fastcall mitPasteClick(TObject *Sender);
  79.     void __fastcall mitDeleteClick(TObject *Sender);
  80.     void __fastcall mitFontClick(TObject *Sender);
  81.     void __fastcall rveChange(TObject *Sender);
  82.     void __fastcall rveCurTextStyleChanged(TObject *Sender);
  83.     void __fastcall rveCurParaStyleChanged(TObject *Sender);
  84.     void __fastcall cmbFontClick(TObject *Sender);
  85.     void __fastcall cmbFontSizeClick(TObject *Sender);
  86.     void __fastcall rveStyleConversion(TCustomRichViewEdit *Sender,
  87.           int StyleNo, int UserData, bool AppliedToText, int &NewStyleNo);
  88.     void __fastcall btnApplyPara(TObject *Sender);
  89.     void __fastcall cmbFontSizeKeyPress(TObject *Sender, char &Key);
  90.     void __fastcall cmbFontSizeExit(TObject *Sender);
  91. void __fastcall FontStyleButtonClick(TObject *Sender);
  92. void __fastcall btnFontColorClick(TObject *Sender);
  93. void __fastcall btnFontBackColorClick(TObject *Sender);
  94. void __fastcall btnParaBackColorClick(TObject *Sender);
  95. void __fastcall rveParaStyleConversion(TCustomRichViewEdit *Sender,
  96. int StyleNo, int UserData, bool AppliedToText, int &NewStyleNo);
  97. void __fastcall btnIdentDecClick(TObject *Sender);
  98. void __fastcall btnIdentIncClick(TObject *Sender);
  99. private: // User declarations
  100.     AnsiString FileName, FontName;
  101.     bool IgnoreChanges;
  102.     int FontSize;
  103.     bool SaveIfNeeded();
  104.     bool Save();
  105.     bool SaveAs();
  106.     void Open();
  107.     void New();
  108. TRVAlignment GetAlignmentFromUI();
  109.     void SetAlignmentToUI(TRVAlignment Alignment);
  110. public: // User declarations
  111.     __fastcall TForm1(TComponent* Owner);
  112. };
  113. //---------------------------------------------------------------------------
  114. extern TForm1 *Form1;
  115. //---------------------------------------------------------------------------
  116. #endif