开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 界面编程 > RichEdit > 查看源码
Unit1.cpp
资源名称：TRichView.v1.9.10.2.rar　[点击查看]
上传用户：daoqigc
上传日期：2021-04-20
资源大小：2795k
文件大小：14k
源码类别：

RichEdit

开发平台：

Delphi

Unit1.cpp：源码内容
  1. /*==============================================================================
  2.  RichEditor Demo
  3.   Menu items disabling/enabling is not implemented here.
  5.   The main idea: new styles are created and added to rvs->TextStyles when needed.
  6.   The right place for this - rve->OnStyleConversion.
  7.   rvfoSaveTextStyles, rvfoSaveParaStyles are included in rve->RVFOptions.
  9.   IMPORTANT: If you right click the editor in design time, choose "Settings"
  10.   in the context menu, you'll see that radiogroup is in state
  11.   "Allow adding styles dynamically"
  12. ==============================================================================*/
  13. #include <vcl.h>
  14. #pragma hdrstop
  16. #include "Unit1.h"
  17. //---------------------------------------------------------------------------
  18. #pragma package(smart_init)
  19. #pragma link "RichView"
  20. #pragma link "RVEdit"
  21. #pragma link "RVScroll"
  22. #pragma link "RVStyle"
  23. #pragma resource "*.dfm"
  24. TForm1 *Form1;
  25. //---------------------------------------------------------------------------
  26. __fastcall TForm1::TForm1(TComponent* Owner)
  27.     : TForm(Owner)
  28. {
  29. }
  30. //---------------------------------------------------------------------------
  31. // Parameters for ApplyStyleConversion
  32. #define TEXT_BOLD          1
  33. #define TEXT_ITALIC        2
  34. #define TEXT_UNDERLINE     3
  35. #define TEXT_APPLYFONTNAME 4
  36. #define TEXT_APPLYFONT     5
  37. #define TEXT_APPLYFONTSIZE 6
  38. #define TEXT_COLOR         7
  39. #define TEXT_BACKCOLOR     8
  40. // Parameters for ApplyParaStyleConversion
  41. #define PARA_ALIGNMENT     1
  42. #define PARA_INDENTINC     2
  43. #define PARA_INDENTDEC     3
  44. #define PARA_COLOR         4
  45. void __fastcall TForm1::FormCreate(TObject *Sender)
  46. {
  47.   // Filling font names combobox
  48.   cmbFont->Items->Assign(Screen->Fonts);
  49.   New();
  50. }
  51. //---------------------------------------------------------------------------
  52. // data in editor were changed
  53. void __fastcall TForm1::rveChange(TObject *Sender)
  54. {
  55.   StatusBar1->Panels->Items[0]->Text = "Modified";
  56. }
  57. //---------------------------------------------------------------------------
  58. // current text style was changed
  59. void __fastcall TForm1::rveCurTextStyleChanged(TObject *Sender)
  60. {
  61.   IgnoreChanges = true;
  62.   StatusBar1->Panels->Items[1]->Text = "Style : "+IntToStr(rve->CurTextStyleNo);
  63.   // Changing selection in comboboxes with font names and sizes:
  64.   TFontInfo* fi = rvs->TextStyles->Items[rve->CurTextStyleNo];
  65.   cmbFont->ItemIndex = cmbFont->Items->IndexOf(fi->FontName);
  66.   cmbFontSize->Text = IntToStr(fi->Size);
  68.   // Checking font buttons
  69.   btnBold->Down      = fi->Style.Contains(fsBold);
  70.   btnItalic->Down    = fi->Style.Contains(fsItalic);
  71.   btnUnderline->Down = fi->Style.Contains(fsUnderline);
  72.   IgnoreChanges = false;
  73. }
  74. //---------------------------------------------------------------------------
  75. // current paragraph style was changed
  76. void __fastcall TForm1::rveCurParaStyleChanged(TObject *Sender)
  77. {
  78.   SetAlignmentToUI(rvs->ParaStyles->Items[rve->CurParaStyleNo]->Alignment);
  79. }
  80. //--------------------------------------------------------------------------
  81. TRVAlignment TForm1::GetAlignmentFromUI()
  82. {
  83.   if (btnLeft->Down)
  84.     return rvaLeft;
  85.   else if (btnRight->Down)
  86.     return rvaRight;
  87.   else if (btnCenter->Down)
  88.     return rvaCenter;
  89.   else
  90.     return rvaJustify;
  91. }
  92. //--------------------------------------------------------------------------
  93. void TForm1::SetAlignmentToUI(TRVAlignment Alignment)
  94. {
  95.   switch (Alignment)
  96.   {
  97.     case rvaLeft:
  98.       btnLeft->Down = true;
  99.       break;
  100.     case rvaCenter:
  101.       btnCenter->Down = true;
  102.       break;
  103.     case rvaRight:
  104.       btnRight->Down = true;
  105.       break;
  106.     case rvaJustify:
  107.       btnJustify->Down = true;
  108.       break;
  109.   }
  110. }
  111. //---------------------------------------------------------------------------
  112. // applying font name
  113. void __fastcall TForm1::cmbFontClick(TObject *Sender)
  114. {
  115.   if (cmbFont->ItemIndex!=-1 && !IgnoreChanges)
  116.   {
  117.     FontName = cmbFont->Items->Strings[cmbFont->ItemIndex];
  118.     rve->ApplyStyleConversion(TEXT_APPLYFONTNAME);
  119.   }
  120.   if (Visible)
  121.     rve->SetFocus();
  122. }
  123. //---------------------------------------------------------------------------
  124. // applying font size
  125. void __fastcall TForm1::cmbFontSizeClick(TObject *Sender)
  126. {
  127.   if (cmbFontSize->Text!="" && !IgnoreChanges)
  128.   {
  129.     FontSize = StrToIntDef(cmbFontSize->Text, 10);
  130.     rve->ApplyStyleConversion(TEXT_APPLYFONTSIZE);
  131.   }
  132.   if (Visible)
  133.     rve->SetFocus();
  134. }
  135. //---------------------------------------------------------------------------
  136. // bold, italic, underline
  137. void __fastcall TForm1::FontStyleButtonClick(TObject *Sender)
  138. {
  139.   TSpeedButton*Button = (TSpeedButton*)Sender;
  140.   // constants TEXT_BOLD, TEXT_ITALIC and TEXT_UNDERLINE are
  141.   // assigned to the tags of corresponding buttons
  142.   rve->ApplyStyleConversion(Button->Tag);
  143. }
  144. //---------------------------------------------------------------------------
  145. // applying font
  146. void __fastcall TForm1::mitFontClick(TObject *Sender)
  147. {
  148.   fd->Font->Assign(rvs->TextStyles->Items[rve->CurTextStyleNo]);
  149.   if (fd->Execute())
  150.     rve->ApplyStyleConversion(TEXT_APPLYFONT);
  151. }
  152. //---------------------------------------------------------------------------
  153. // applying text color
  154. void __fastcall TForm1::btnFontColorClick(TObject *Sender)
  155. {
  156.   cd->Color = rvs->TextStyles->Items[rve->CurTextStyleNo]->Color;
  157.   if (cd->Execute())
  158.     rve->ApplyStyleConversion(TEXT_COLOR);
  159. }
  160. //---------------------------------------------------------------------------
  161. // applying text background color
  162. void __fastcall TForm1::btnFontBackColorClick(TObject *Sender)
  163. {
  164.   switch (Application->MessageBox("Make the selected text background transparent?n"
  165.                             "(YES - make transparent; NO - choose color)",
  166.                             "Text Background", MB_YESNOCANCEL | MB_ICONQUESTION))
  167.   {
  168.     case IDYES:
  169.       cd->Color = clNone;
  170.       break;
  171.     case IDNO:
  172.       cd->Color = rvs->TextStyles->Items[rve->CurTextStyleNo]->BackColor;
  173.         if (cd->Color==clNone)
  174.           cd->Color = clWhite;
  175.         if (! cd->Execute())
  176.           return;
  177.       break;
  178.     case IDCANCEL:
  179.       return;
  180.   }
  181.   rve->ApplyStyleConversion(TEXT_BACKCOLOR);
  182. }
  183. //---------------------------------------------------------------------------
  184. void __fastcall TForm1::btnParaBackColorClick(TObject *Sender)
  185. {
  186.   switch (Application->MessageBox("Make the selected paragraph background transparent?n"
  187.                             "(YES - make transparent; NO - choose color)",
  188.                             "Text Background", MB_YESNOCANCEL | MB_ICONQUESTION))
  189.   {
  190.     case IDYES:
  191.       cd->Color = clNone;
  192.       break;
  193.     case IDNO:
  194.       cd->Color = rvs->ParaStyles->Items[rve->CurParaStyleNo]->Background->Color;
  195.       if (cd->Color==clNone)
  196.         cd->Color = clWhite;
  197.       if (! cd->Execute())
  198.         return;
  199.       break;
  200.     case IDCANCEL:
  201.       return;
  202.   }
  203.   rve->ApplyParaStyleConversion(PARA_COLOR);
  204. }
  205. //---------------------------------------------------------------------------
  206. // applying paragraph alignment
  207. void __fastcall TForm1::btnApplyPara(TObject *Sender)
  208. {
  209.    rve->ApplyParaStyleConversion(PARA_ALIGNMENT);
  210. }
  211. //---------------------------------------------------------------------------
  212. // changing paragraph left indent
  213. void __fastcall TForm1::btnIdentDecClick(TObject *Sender)
  214. {
  215.   rve->ApplyParaStyleConversion(PARA_INDENTDEC);
  216. }
  217. //---------------------------------------------------------------------------
  218. void __fastcall TForm1::btnIdentIncClick(TObject *Sender)
  219. {
  220.   rve->ApplyParaStyleConversion(PARA_INDENTINC);
  221. }
  222. //---------------------------------------------------------------------------
  223. // The heart of this demo: rve->OnStyleConversion
  224. void __fastcall TForm1::rveStyleConversion(TCustomRichViewEdit *Sender,
  225.       int StyleNo, int UserData, bool AppliedToText, int &NewStyleNo)
  226. {
  227.   TFontInfo* FontInfo = new TFontInfo(NULL);
  228.   FontInfo->Assign(rvs->TextStyles->Items[StyleNo]);
  229.   switch (UserData)
  230.   {
  231.     case TEXT_BOLD:
  232.     {
  233.       if (btnBold->Down)
  234.         FontInfo->Style << fsBold;
  235.       else
  236.         FontInfo->Style >> fsBold;
  237.       break;
  238.     }
  239.     case TEXT_ITALIC:
  240.     {
  241.       if (btnItalic->Down)
  242.         FontInfo->Style << fsItalic;
  243.       else
  244.         FontInfo->Style >> fsItalic;
  245.       break;
  246.     }
  247.     case TEXT_UNDERLINE:
  248.     {
  249.       if (btnUnderline->Down)
  250.         FontInfo->Style << fsUnderline;
  251.       else
  252.         FontInfo->Style >> fsUnderline;
  253.       break;
  254.     }
  255.     case TEXT_APPLYFONTNAME:
  256.       FontInfo->FontName = FontName;
  257.       break;
  258.     case TEXT_APPLYFONTSIZE:
  259.       FontInfo->Size     = FontSize;
  260.       break;
  261.     case TEXT_APPLYFONT:
  262.       FontInfo->Assign(fd->Font);
  263.       break;
  264.     case TEXT_COLOR:
  265.       FontInfo->Color = cd->Color;
  266.       break;
  267.     case TEXT_BACKCOLOR:
  268.       FontInfo->BackColor = cd->Color;
  269.       break;
  270.       // add your code here....
  271.   }
  272.   NewStyleNo = rvs->TextStyles->FindSuchStyle(StyleNo,FontInfo,RVAllFontInfoProperties);
  273.   if (NewStyleNo<0)
  274.   {
  275.     rvs->TextStyles->Add();
  276.     NewStyleNo = rvs->TextStyles->Count-1;
  277.     rvs->TextStyles->Items[NewStyleNo]->Assign(FontInfo);
  278.     rvs->TextStyles->Items[NewStyleNo]->Standard = false;
  279.   }
  280.   delete FontInfo;
  281. }
  282. //---------------------------------------------------------------------------
  283. void __fastcall TForm1::rveParaStyleConversion(TCustomRichViewEdit *Sender,
  284. int StyleNo, int UserData, bool AppliedToText, int &NewStyleNo)
  285. {
  286.   TParaInfo* ParaInfo = new TParaInfo(NULL);
  287.   ParaInfo->Assign(rvs->ParaStyles->Items[StyleNo]);
  288.   switch (UserData)
  289.   {
  290.     case PARA_ALIGNMENT:
  291.       ParaInfo->Alignment = GetAlignmentFromUI();
  292.       break;
  293.     case PARA_INDENTINC:
  294.       ParaInfo->LeftIndent = ParaInfo->LeftIndent+20;
  295.       if (ParaInfo->LeftIndent>200)
  296.         ParaInfo->LeftIndent = 200;
  297.       break;
  298.     case PARA_INDENTDEC:
  299.       ParaInfo->LeftIndent = ParaInfo->LeftIndent-20;
  300.       if (ParaInfo->LeftIndent<0)
  301.         ParaInfo->LeftIndent = 0;
  302.       break;
  303.     case PARA_COLOR:
  304.       ParaInfo->Background->Color = cd->Color;
  305.       break;
  306.     // add your code here....
  307.   }
  308.   NewStyleNo = rvs->ParaStyles->FindSuchStyle(StyleNo,ParaInfo,RVAllParaInfoProperties);
  309.   if (NewStyleNo<0)
  310.   {
  311.     rvs->ParaStyles->Add();
  312.     NewStyleNo = rvs->ParaStyles->Count-1;
  313.     rvs->ParaStyles->Items[NewStyleNo]->Assign(ParaInfo);
  314.     rvs->ParaStyles->Items[NewStyleNo]->Standard = false;
  315.   }
  316.   delete ParaInfo;
  317. }
  318. //---------------------------------------------------------------------------
  319. void __fastcall TForm1::cmbFontSizeKeyPress(TObject *Sender, char &Key)
  320. {
  321.   if (Key==VK_RETURN)
  322.   {
  323.     Key = 0;
  324.     cmbFontSizeClick(NULL);
  325.   }
  326. }
  327. //---------------------------------------------------------------------------
  328. void __fastcall TForm1::cmbFontSizeExit(TObject *Sender)
  329. {
  330.   cmbFontSizeClick(NULL);
  331. }
  332. //---------------------------------------------------------------------------
  333. void __fastcall TForm1::mitUndoClick(TObject *Sender)
  334. {
  335.   rve->Undo();
  336. }
  337. //---------------------------------------------------------------------------
  338. void __fastcall TForm1::mitRedoClick(TObject *Sender)
  339. {
  340.   rve->Redo();
  341. }
  342. //---------------------------------------------------------------------------
  343. void __fastcall TForm1::mitCutClick(TObject *Sender)
  344. {
  345.   rve->CutDef();
  346. }
  347. //---------------------------------------------------------------------------
  348. void __fastcall TForm1::mitCopyClick(TObject *Sender)
  349. {
  350.   rve->CopyDef();
  351. }
  352. //---------------------------------------------------------------------------
  353. void __fastcall TForm1::mitPasteClick(TObject *Sender)
  354. {
  355.   rve->Paste();
  356. }
  357. //---------------------------------------------------------------------------
  358. void __fastcall TForm1::mitDeleteClick(TObject *Sender)
  359. {
  360.   rve->DeleteSelection();
  361. }
  362. //---------------------------------------------------------------------------
  363. bool TForm1::SaveIfNeeded()
  364. {
  365.   if (rve->Modified)
  366.     switch (Application->MessageBox("Save file now?","File was modified",
  367.                                 MB_ICONQUESTION | MB_YESNOCANCEL))
  368.     {
  369.       case IDYES:
  370.         return Save();
  371.       case IDNO:
  372.         return true;
  373.       default: //case IDCANCEL:
  374.         return false;
  375.     }
  376.   else
  377.     return true;
  378. }
  379. //---------------------------------------------------------------------------
  380. bool TForm1::Save()
  381. {
  382.   if (FileName=="")
  383.     return SaveAs();
  384.   else
  385.   {
  386.     rve->SaveRVF(FileName, false);
  387.     rve->Modified = false;
  388.     StatusBar1->Panels->Items[0]->Text = "";
  389.     return true;
  390.   }
  391. }
  392. //---------------------------------------------------------------------------
  393. bool TForm1::SaveAs()
  394. {
  395.   if (sd->Execute())
  396.   {
  397.     FileName = sd->FileName;
  398.     bool r = Save();
  399.     if (r)
  400.       Caption = ExtractFileName(FileName) + "- RDemo";
  401.     return r;
  402.   }
  403.   else
  404.     return false;
  405. }
  406. //---------------------------------------------------------------------------
  407. void TForm1::Open()
  408. {
  409.   if (!SaveIfNeeded())
  410.     return;
  411.   if (od->Execute())
  412.   {
  413.     FileName = od->FileName;
  414.     rve->LoadRVF(FileName);
  415.     rve->Format();
  416.     rveCurTextStyleChanged(NULL);
  417.     rveCurParaStyleChanged(NULL);
  418.     StatusBar1->Panels->Items[0]->Text = "";
  419.     Caption = ExtractFileName(FileName) + "- RDemo";
  420.   }
  421. }
  422. //---------------------------------------------------------------------------
  423. void TForm1::New()
  424. {
  425.   if (!SaveIfNeeded())
  426.     return;
  427.   FileName = "";
  428.   StatusBar1->Panels->Items[0]->Text = "";
  429.   Caption = "Unnamed - RDemo";
  430.   rve->Clear();
  431.   rve->Format();
  432.   rve->DeleteUnusedStyles(true,true,true);
  433.   rveCurTextStyleChanged(NULL);
  434.   rveCurParaStyleChanged(NULL);
  435. }
  436. //---------------------------------------------------------------------------
  437. void __fastcall TForm1::mitNewClick(TObject *Sender)
  438. {
  439.   New();
  440. }
  441. //---------------------------------------------------------------------------
  442. void __fastcall TForm1::mitOpenClick(TObject *Sender)
  443. {
  444.   Open();
  445. }
  446. //---------------------------------------------------------------------------
  447. void __fastcall TForm1::mitSaveClick(TObject *Sender)
  448. {
  449.   Save();
  450. }
  451. //---------------------------------------------------------------------------
  452. void __fastcall TForm1::mitSaveAsClick(TObject *Sender)
  453. {
  454.   SaveAs();
  455. }
  456. //---------------------------------------------------------------------------
  457. void __fastcall TForm1::mitExitClick(TObject *Sender)
  458. {
  459.   Close();
  460. }
  461. //---------------------------------------------------------------------------
  462. void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
  463. {
  464.   CanClose = SaveIfNeeded();
  465. }