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

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

RichEdit

开发平台：

Delphi

Unit1.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vclvcl.h>
  3. #include <vclClipbrd.hpp>
  4. #if __BORLANDC__ > 0x0530
  5. #include <vclJpeg.hpp>
  6. #endif
  7. #pragma hdrstop
  9. #include "CtrlImg.hpp"
  10. #include "RVTable.hpp"
  11. #include "RVMisc.hpp"
  13. #include "Unit1.h"
  14. #include "PreviewFrm.h"
  15. #include "RVUndoStr.h"
  16. #include "CPFrm.h"
  17. #include "PropFrm.h"
  18. #include "ListFrm.h"
  19. #include "OptionsFrm.h"
  20. //---------------------------------------------------------------------------
  21. #pragma link "RVEdit"
  22. #pragma link "RichView"
  23. #pragma link "RVScroll"
  24. #pragma link "PtblRV"
  25. #pragma link "RVStyle"
  26. #pragma link "CtrlImg"
  27. #pragma link "RVTable"
  28. #pragma link "RVMisc"
  29. #pragma link "RVUni"
  30. #pragma resource "*.dfm"
  31. TForm1 *Form1;
  32. //---------------------------------------------------------------------------
  33. __fastcall TForm1::TForm1(TComponent* Owner)
  34.     : TForm(Owner)
  35. {
  36. }
  37. //---------------------------------------------------------------------------
  38. // This function is used in mitEditCheckpointClick() and mitEditPropsClick()
  39. // to convert tag to string
  40. AnsiString GetTagStr(int Tag)
  41. {
  42.   if (Form1->RichViewEdit1->Options.Contains(rvoTagsArePChars))
  43.     if (!Tag)
  44.       return "";
  45.     else
  46.       return (char*)Tag;
  47.   else
  48.     return IntToStr(Tag);
  49. }
  50. // This function is used in mitEditCheckpointClick() and mitEditPropsClick()
  51. // to create tags from string TagStr (user input in edit box)
  52. int MakeTag(const AnsiString TagStr)
  53. {
  54.    if (TagStr!="" &&
  55.        Form1->RichViewEdit1->Options.Contains(rvoTagsArePChars))
  56.    {
  57.      char* r = StrNew(TagStr.c_str());
  58.      return (int)r;
  59.    }
  60.    else
  61.      return StrToIntDef(TagStr,0);
  62. }
  63. //---------------------------------------------------------------------------
  64. void __fastcall TForm1::FormCreate(TObject *Sender)
  65. {
  66.    Randomize;
  68.    HTMLSaveOptions << rvsoImageSizes << rvsoUseCheckpointsNames;
  69.    HTMLTitle = "Demo File";
  71.   // We need to register classes in order to load them from rvf files
  72.   TComponentClass Classes[3] = { __classid(TButton), __classid(TEdit), __classid(TOleContainer) };
  73.   RegisterClasses(Classes,2);
  75.   RVStyle1->TextStyles->Items[11]->FontName = GetUnicodeFontName();
  77.    // This demo program is saved in C++Builder 1, where Charset property is not available.
  78.    // So assigning non-default charset here:
  79. #if __BORLANDC__ > 0x520
  80.    RVStyle1->TextStyles->Items[6]->Charset = SYMBOL_CHARSET;
  81.    RVStyle1->ListStyles->Items[0]->Levels->Items[0]->Font->Charset = SYMBOL_CHARSET;
  82. #endif
  84.    // Items can have associated "tags" - integers or strings.
  85.    // Comment next line to use integer tags
  86.    RichViewEdit1->Options << rvoTagsArePChars;
  88.    RichViewEdit1->LoadRVF(ExtractFilePath(Application->ExeName)+"Readme.rvf");
  89.    FillStyleCombo(RVStyle1->ParaStyles, cmbPara);
  90.    FillStyleCombo(RVStyle1->TextStyles, cmbText);
  91.    RichViewEdit1->Format();
  92.    cmbPara->ItemIndex = RichViewEdit1->CurParaStyleNo;
  93.    cmbText->ItemIndex = RichViewEdit1->CurTextStyleNo;
  94.    UpdateUndoMenu();
  95. }
  96. //---------------------------------------------------------------------------
  97. // Returning available Unicode-enabled font
  98. AnsiString TForm1::GetUnicodeFontName()
  99. {
  100.   if (Screen->Fonts->IndexOf("Arial Unicode MS")>=0)
  101.     return "Arial Unicode MS";
  102.   if (Screen->Fonts->IndexOf("Lucida Sans Unicode")>=0)
  103.     return "Lucida Sans Unicode";
  104.   return "Arial";
  105. }
  106. //---------------------------------------------------------------------------
  107. // Filling combobox with standard styles 
  108. void TForm1::FillStyleCombo(TCustomRVInfos* Styles, TComboBox* cmb)
  109. {
  110.   /* The simplest way to fill the combo box with style names is:
  111.     cmb.Items.Assign(Styles);
  112.     But this code will fill the combo box with all styles -
  113.     both standard styles (i.e. real styles) and non-standard styles will be
  114.     added in it.
  115.     So we'll fill in the combo box manually.
  116.     For simplification, we'll add only the first standard styles */
  117.   cmb->Items->BeginUpdate();
  118.   cmb->Items->Clear();
  119.   for (int i = 0; i< Styles->Count; i++)
  120.   {
  121.     if (!((TCustomRVInfo*)(Styles->Items[i]))->Standard)
  122.       break;
  123.     cmb->Items->Add(((TCustomRVInfo*)(Styles->Items[i]))->StyleName);
  124.   }
  125.   cmb->Items->EndUpdate();
  126. }
  127. //---------------------------------------------------------------------------
  128. void TForm1::UpdateUndoMenu()
  129. {
  130.   TRVUndoType UndoType = RichViewEdit1->UndoAction();
  131.   mitUndo->Enabled = UndoType!=rvutNone;
  132.   if (UndoType==rvutCustom)
  133.     mitUndo->Caption = "Undo "+RichViewEdit1->UndoName();
  134.   else
  135.     mitUndo->Caption = "Undo "+RVUndoTypeNamesEn[UndoType];
  137.   UndoType = RichViewEdit1->RedoAction();
  138.   mitRedo->Enabled = UndoType!=rvutNone;
  139.   if (UndoType==rvutCustom)
  140.     mitRedo->Caption = "Redo "+RichViewEdit1->RedoName();
  141.   else
  142.     mitRedo->Caption = "Redo "+RVUndoTypeNamesEn[UndoType];
  143. }
  144. //---------------------------------------------------------------------------
  145. void TForm1::DisplayUnicodeWarning()
  146. {
  147.   bool wasclear = RichViewEdit1->ItemCount==0;
  148.   // This method is called before loading Unicode
  149.   // (when inserting Unicode, editor automatically switches to Unicode style,
  150.   // according to RVStyle1->DefUnicodeStyle, if necessary)
  151.   if (!RVStyle1->TextStyles->Items[RichViewEdit1->CurTextStyleNo]->Unicode)
  152.     Application->MessageBox("Loading/Inserting Unicode data using non-Unicode text style.n"
  153.                            "Text will be converted.n"
  154.                            "Choose 'Unicode' style in combo to use Unicode text style",
  155.                            "Warning", MB_OK | MB_ICONEXCLAMATION);
  156.   if (wasclear)
  157.     RichViewEdit1->Clear();
  158. }
  159. //======================================================================
  160. // Font and paragraph combos
  161. //======================================================================
  162. void __fastcall TForm1::RichViewEdit1CurParaStyleChanged(TObject *Sender)
  163. {
  164.   if (RichViewEdit1->CurParaStyleNo < cmbPara->Items->Count)
  165.     cmbPara->ItemIndex = RichViewEdit1->CurParaStyleNo;
  166.   else
  167.     cmbPara->ItemIndex = -1;
  168. }
  169. //---------------------------------------------------------------------------
  170. void __fastcall TForm1::RichViewEdit1CurTextStyleChanged(TObject *Sender)
  171. {
  172.   if (RichViewEdit1->CurTextStyleNo < cmbText->Items->Count)
  173.     cmbText->ItemIndex = RichViewEdit1->CurTextStyleNo;
  174.   else
  175.     cmbText->ItemIndex = -1;
  176. }
  177. //---------------------------------------------------------------------------
  178. void __fastcall TForm1::cmbParaClick(TObject *Sender)
  179. {
  180.    RichViewEdit1->ApplyParaStyle(cmbPara->ItemIndex);
  181.    RichViewEdit1->SetFocus();
  182. }
  183. //---------------------------------------------------------------------------
  184. void __fastcall TForm1::cmbTextClick(TObject *Sender)
  185. {
  186.    RichViewEdit1->ApplyTextStyle(cmbText->ItemIndex);
  187.    RichViewEdit1->SetFocus();
  188. }
  189. //======================================================================
  190. // Main menu: "File"
  191. //======================================================================
  192. // File|Load...
  193. void __fastcall TForm1::mitLoadClick(TObject *Sender)
  194. {
  195.   OpenDialog1->Title = "Loading & Import";
  196.   OpenDialog1->Filter = "RichView Format Files(*.rvf)|*.rvf|"
  197.                         "RTF Files (*.rtf)|*.rtf|"
  198.                         "Text Files - autodetect (*.txt)|*.txt|"
  199.                         "ANSI Text Files (*.txt)|*.txt|"
  200.                         "Unicode Text Files (*.txt)|*.txt";
  201.   if (OpenDialog1->Execute())
  202.   {
  203.     Screen->Cursor = crHourGlass;
  204.     int CurTextStyleNo = RichViewEdit1->CurTextStyleNo;
  205.     int CurParaStyleNo = RichViewEdit1->CurParaStyleNo;
  206.     bool r;
  207.     CloseOleContainer();
  208.     RichViewEdit1->Clear();
  209.     RichViewEdit1->CurTextStyleNo = CurTextStyleNo;
  210.     RichViewEdit1->CurParaStyleNo = CurParaStyleNo;
  211.     RVStyle1->DefUnicodeStyle = -1;
  212.     switch (OpenDialog1->FilterIndex)
  213.     {
  214.       case 1: // RVF
  215.         r = RichViewEdit1->LoadRVF(OpenDialog1->FileName);
  216.         break;
  217.       case 2: // RTF
  218.         r = RichViewEdit1->LoadRTF(OpenDialog1->FileName);
  219.         break;
  220.       case 3: // Text
  221.         if (RV_TestFileUnicode(OpenDialog1->FileName)==rvutYes)
  222.         {
  223.           DisplayUnicodeWarning();
  224.           r = RichViewEdit1->LoadTextW(OpenDialog1->FileName,CurTextStyleNo,CurParaStyleNo,false);
  225.         }
  226.         else
  227.           r = RichViewEdit1->LoadText(OpenDialog1->FileName,CurTextStyleNo,CurParaStyleNo,false);
  228.         break;
  229.       case 4: // ANSI text
  230.         r = RichViewEdit1->LoadText(OpenDialog1->FileName,CurTextStyleNo,CurParaStyleNo,false);
  231.         break;
  232.       case 5: // Unicode text
  233.         DisplayUnicodeWarning();
  234.         r = RichViewEdit1->LoadTextW(OpenDialog1->FileName,CurTextStyleNo,CurParaStyleNo,false);
  235.         break;
  236.       default:
  237.         r = False;
  238.     }
  239.     Screen->Cursor = crDefault;
  240.     if (!r)
  241.     {
  242.       AnsiString ErrorMessage = "Error during loading";
  243.       if (OpenDialog1->FilterIndex==1)
  244.         ErrorMessage += GetRVFErrors();
  245.       Application->MessageBox(ErrorMessage.c_str(), "Error", 0);
  246.     }
  247.     FillStyleCombo(RVStyle1->ParaStyles, cmbPara);
  248.     FillStyleCombo(RVStyle1->TextStyles, cmbText);
  249.     RichViewEdit1->Format();
  250.     cmbPara->ItemIndex = RichViewEdit1->CurParaStyleNo;
  251.     cmbText->ItemIndex = RichViewEdit1->CurTextStyleNo;
  252.     UpdateUndoMenu();
  253.   }
  254. }
  255. //---------------------------------------------------------------------------
  256. // Event: picture needed while reading from RVF
  257. void __fastcall TForm1::RichViewEdit1RVFPictureNeeded(TCustomRichView *Sender,
  258.     AnsiString Name, int Tag, TGraphic *&gr)
  259. {
  260.   gr = new Graphics::TBitmap;
  261.   gr->LoadFromFile(ExtractFilePath(Application->ExeName)+"default.bmp");
  262. }
  263. //---------------------------------------------------------------------------
  264. // Event: control needed while reading from RVF
  265. void __fastcall TForm1::RichViewEdit1RVFControlNeeded(TCustomRichView *Sender,
  266.     AnsiString Name, int Tag, TControl *&ctrl)
  267. {
  268.   ctrl = new TButton ((TComponent*)NULL);
  269.   ((TButton*)(ctrl))->Caption = "from file";
  270. }
  271. //---------------------------------------------------------------------------
  272. // Event: imagelist needed while reading from RVF
  273. void __fastcall TForm1::RichViewEdit1RVFImageListNeeded(TCustomRichView *Sender,
  274.     int ImageListTag, TCustomImageList *&il)
  275. {
  276.   il = this->il;
  277. }
  278. //---------------------------------------------------------------------------
  279. AnsiString TForm1::GetRVFErrors()
  280. {
  281.   AnsiString Result = "";
  282.   if (RichViewEdit1->RVFWarnings.Contains(rvfwUnknownPicFmt))
  283.     Result += "unknown picture format;";
  284.   if (RichViewEdit1->RVFWarnings.Contains(rvfwUnknownCtrls))
  285.     Result += "unknown control class;";
  286.   if (RichViewEdit1->RVFWarnings.Contains(rvfwConvUnknownStyles))
  287.     Result += "text, paragraph or list style is not present;";
  288.   if (RichViewEdit1->RVFWarnings.Contains(rvfwConvLargeImageIdx))
  289.     Result += "invalid image-list index;";
  290.   if (Result.Length()>0)
  291.     Result = "n("+Result+")";
  292.   return Result;
  293. }
  294. //---------------------------------------------------------------------------
  295. // File|Save...
  296. void __fastcall TForm1::mitSaveClick(TObject *Sender)
  297. {
  298.   SaveDialog1->Title = "Save & Export";
  299.   SaveDialog1->Filter = "RichView Format files(*.rvf)|*.rvf|"
  300.                         "RTF Files (*.rtf)|*.rtf|"
  301.                         "Text (*.txt)|*.txt|"
  302.                         "Unicode Text (*.txt)|*.txt|"
  303.                         "HTML - with CSS (*.htm;*.html)|*.htm;*.html"
  304.                         "HTML - Simplified (*.htm;*.html)|*.htm;*.html|";
  306.   SaveDialog1->DefaultExt = "rvf";
  307.   if (SaveDialog1->Execute())
  308.   {
  309.     Screen->Cursor = crHourGlass;
  310.     bool r;
  311.     switch (SaveDialog1->FilterIndex)
  312.     {
  313.       case 1: // RVF
  314.         r = RichViewEdit1->SaveRVF(SaveDialog1->FileName, false);
  315.         break;
  316.       case 2: // RTF
  317.         r = RichViewEdit1->SaveRTF(SaveDialog1->FileName, false);
  318.         break;
  319.       case 3: // ANSI Text (byte per character)
  320.         r = RichViewEdit1->SaveText(SaveDialog1->FileName, 80);
  321.         break;
  322.       case 4: // Unicode Text (2 bytes per character)
  323.         r = RichViewEdit1->SaveTextW(SaveDialog1->FileName, 80);
  324.         break;
  325.       case 5: // HTML with CSS
  326.         r = RichViewEdit1->SaveHTMLEx(SaveDialog1->FileName, HTMLTitle,"img",
  327.           "","","", HTMLSaveOptions);
  328.         break;
  329.       case 6: // HTML
  330.         r = RichViewEdit1->SaveHTML(SaveDialog1->FileName, HTMLTitle,"img",
  331.           HTMLSaveOptions);
  332.         break;
  333.       default:
  334.         r = false;
  335.     }
  336.     Screen->Cursor = crDefault;
  337.     if (!r)
  338.       Application->MessageBox("Error during saving", "Error", 0);
  339.   }
  340. }
  341. //---------------------------------------------------------------------------
  342. // File | Options
  343. void __fastcall TForm1::OptionsforSavingLoading1Click(TObject *Sender)
  344. {
  345.   TRVFOptions RVFOptions;
  346.   frmOptions->SetOptions(RichViewEdit1->RVFOptions, HTMLSaveOptions, HTMLTitle);
  347.   if (frmOptions->ShowModal()==mrOk)
  348.   {
  349.     frmOptions->GetOptions(RVFOptions, HTMLSaveOptions, HTMLTitle);
  350.     RichViewEdit1->RVFOptions = RVFOptions;
  351.   }
  352. }
  353. //---------------------------------------------------------------------------
  354. // Event: saving controls in HTML
  355. // Note: code below works normally in Internet Explorer
  356. // Netscape 3 and 4 does not support <INPUT> tags outside <FORM></FORM> tags
  357. // (Netscape 6 does)
  358. void __fastcall TForm1::RichViewEdit1SaveComponentToFile(
  359.     TCustomRichView *Sender, AnsiString Path, TPersistent *SaveMe,
  360.     TRVSaveFormat SaveFormat, AnsiString &OutStr)
  361. {
  362.   switch (SaveFormat)
  363.   {
  364.    case rvsfText:
  365.      OutStr = AnsiString("(")+SaveMe->ClassName()+")";
  366.      break;
  367.    case rvsfHTML:
  368.      if (SaveMe->InheritsFrom(__classid(TButton)))
  369.      {
  370.        OutStr = "<INPUT type="button" value=""+((TButton*)SaveMe)->Caption+"" "
  371.                 "onClick="alert('Just a demo')">";
  372.        return;
  373.      }
  374.      if (SaveMe->InheritsFrom(__classid(TEdit)))
  375.      {
  376.        OutStr = "<INPUT type="text" value=""+((TEdit*)SaveMe)->Text+"">";
  377.        return;
  378.      }
  379.      break;
  380.    case rvsfRTF:
  381.      OutStr = AnsiString("\plain\b (")+SaveMe->ClassName()+")";
  382.      break;
  383.   }
  384. }
  385. //---------------------------------------------------------------------------
  386. // Event: saving URLs in HTML and RTF
  387. void __fastcall TForm1::RichViewEdit1WriteHyperlink(TCustomRichView *Sender,
  388. int id, TCustomRVData *RVData, int ItemNo, TRVSaveFormat SaveFormat,
  389. AnsiString &Target, AnsiString &Extras)
  390. {
  391.   Target = GetTagStr(RVData->GetItemTag(ItemNo));
  392. }
  393. //---------------------------------------------------------------------------
  394. // File|Clear
  395. void __fastcall TForm1::mitClearClick(TObject *Sender)
  396. {
  397.    CloseOleContainer();
  398.    RichViewEdit1->Clear();
  399.    RichViewEdit1->Format();
  400.    cmbPara->ItemIndex = RichViewEdit1->CurParaStyleNo;
  401.    cmbText->ItemIndex = RichViewEdit1->CurTextStyleNo;
  402.    UpdateUndoMenu();
  403. }
  404. //---------------------------------------------------------------------------
  405. // File|Print Preview
  406. void __fastcall TForm1::mitPreviewClick(TObject *Sender)
  407. {
  408.   RVPrint1->AssignSource(RichViewEdit1);
  409.   RVPrint1->FormatPages(TRVDisplayOptions());
  410.   if (RVPrint1->PagesCount>0)
  411.   {
  412.     frmPreview->rvpp->RVPrint = RVPrint1;
  413.     frmPreview->Button1Click(NULL); //  Show First Page
  414.     frmPreview->ShowModal();
  415.   }
  416. }
  417. //---------------------------------------------------------------------------
  418. void __fastcall TForm1::mitPrintClick(TObject *Sender)
  419. {
  420. #if __BORLANDC__ > 0x520
  421.   bool PrintIt = psd->Execute();
  422. #else
  423.   bool PrintIt = true;
  424. #endif
  425.   if (PrintIt)
  426.   {
  427.     RVPrint1->AssignSource(RichViewEdit1);
  428.     RVPrint1->FormatPages(TRVDisplayOptions());
  429.     if (RVPrint1->PagesCount>0)
  430.       RVPrint1->Print("RichView Edit Demo",1,false);
  431.   }
  432. }
  433. //---------------------------------------------------------------------------
  434. // File|Exit
  435. void __fastcall TForm1::mitExitClick(TObject *Sender)
  436. {
  437.   Close();
  438. }
  439. //======================================================================
  440. // Main menu: "Insert"
  441. //======================================================================
  442. // Insert|File...
  443. void __fastcall TForm1::mitInsertFileClick(TObject *Sender)
  444. {
  445.   OpenDialog1->Title = "Inserting File";
  446.   OpenDialog1->Filter = "RichView Format Files(*.rvf)|*.rvf|"
  447.                         "RTF Files(*.rtf)|*.rtf|"
  448.                         "Text Files - autodetect (*.txt)|*.txt|"
  449.                         "ANSI Text Files (*.txt)|*.txt|"
  450.                         "Unicode Text Files (*.txt)|*.txt|"
  451.                         "OEM Text Files (*.txt)|*.txt";
  452.   if (OpenDialog1->Execute())
  453.   {
  454.     Screen->Cursor = crHourGlass;
  455.     bool r;
  456.     switch (OpenDialog1->FilterIndex)
  457.     {
  458.       case 1: // RVF
  459.         r = RichViewEdit1->InsertRVFFromFileEd(OpenDialog1->FileName);
  460.         break;
  461.       case 2: // RTF
  462.         r = RichViewEdit1->InsertRTFFromFileEd(OpenDialog1->FileName);
  463.         break;
  464.       case 3: // Text
  465.         if (RV_TestFileUnicode(OpenDialog1->FileName)==rvutYes)
  466.           r = RichViewEdit1->InsertTextFromFileW(OpenDialog1->FileName);
  467.         else
  468.           r = RichViewEdit1->InsertTextFromFile(OpenDialog1->FileName);
  469.         break;
  470.       case 4: // ANSI Text
  471.         r = RichViewEdit1->InsertTextFromFile(OpenDialog1->FileName);
  472.         break;
  473.       case 5: // Unicode Text
  474.         r = RichViewEdit1->InsertTextFromFileW(OpenDialog1->FileName);
  475.         break;
  476.       case 6: // OEM Text
  477.         r = RichViewEdit1->InsertOEMTextFromFile(OpenDialog1->FileName);
  478.         break;
  479.       default:
  480.         r = false;
  481.     }
  482.     Screen->Cursor = crDefault;
  483.     if (!r)
  484.       Application->MessageBox("Error reading file", "Error",
  485.                              MB_OK | MB_ICONSTOP);
  486.   }
  487. }
  488. //---------------------------------------------------------------------------
  489. // Insert|Picture...
  490. void __fastcall TForm1::mitPictureClick(TObject *Sender)
  491. {
  492.   OpenDialog1->Title = "Inserting Image";
  493. #if __BORLANDC__ > 0x0530
  494.   OpenDialog1->Filter = "Graphics(*.bmp;*.wmf;*.emf;*.ico;*.jpg)|*.bmp;*.wmf;*.emf;*.ico;*.jpg|All(*.*)|*.*";
  495. #else
  496.   OpenDialog1->Filter = "Graphics(*.bmp;*.wmf;*.emf;*.ico)|*.bmp;*.wmf;*.emf;*.ico|All(*.*)|*.*";
  497. #endif
  498.   if (OpenDialog1->Execute())
  499.   {
  500.     TGraphic* gr = NULL;
  501.     AnsiString ext = UpperCase(ExtractFileExt(OpenDialog1->FileName));
  502. #if __BORLANDC__ > 0x0530
  503.     if (ext==".JPG" || ext==".JPEG")
  504.       gr = new TJPEGImage;
  505.     else
  506. #endif
  507.     if (ext==".BMP" || ext==".DIB")
  508.       gr = new Graphics::TBitmap;
  509.     else if (ext==".ICO")
  510.       gr = new TIcon;
  511.     else if (ext==".WMF" || ext==".EMF")
  512.       gr = new TMetafile;
  513.     else
  514.       Application->MessageBox(("Format '"+ext+"' is not supported").c_str(), "Error",
  515.                              MB_OK | MB_ICONSTOP);
  516.     if (gr)
  517.     {
  518.       gr->LoadFromFile(OpenDialog1->FileName);
  519.       RichViewEdit1->InsertPicture("",gr,rvvaBaseline);
  520.     }
  521.   }
  522. }
  523. //---------------------------------------------------------------------------
  524. // Event: clicking inserted controls
  525. void __fastcall TForm1::OnControlClick(TObject *Sender)
  526. {
  527.   RichViewEdit1->SelectControl((TControl*)Sender);
  528. }
  529. //---------------------------------------------------------------------------
  530. // Insert|Component|Button
  531. void __fastcall TForm1::mitButtonCompClick(TObject *Sender)
  532. {
  533. const AnsiString Captions[10] =
  534.        {
  535.        "Help","Exit","Cancel","OK","Close","Run","Options...","Minimize",
  536.        "Hide","Show"
  537.        };
  538.   TButton* btn = new TButton((TComponent*)NULL);
  539.   btn->Caption = Captions[random(10)];
  540.   btn->OnClick = OnControlClick;
  541.   RichViewEdit1->InsertControl("",btn,rvvaBaseline);
  542.   if (RichViewEdit1->CurItemStyle==rvsComponent)
  543.     RichViewEdit1->SetCurrentItemExtraIntProperty(rvepResizable, 1, True);
  544. }
  545. //---------------------------------------------------------------------------
  546. // Insert|Component|Edit Box
  547. void __fastcall TForm1::mitEditBoxCompClick(TObject *Sender)
  548. {
  549. const AnsiString Captions[10] =
  550.        {
  551.        "0","Hello","1","$0","2x2=4","enter text here","x<y","to be or not to be?",
  552.        "(empty)","(full)"
  553.        };
  554.   TEdit* edt = new TEdit((TComponent*)NULL);
  555.   edt->Text = Captions[random(10)];
  556.   edt->OnClick = OnControlClick;
  557.   RichViewEdit1->InsertControl("",edt,rvvaBaseline);
  558.   if (RichViewEdit1->CurItemStyle==rvsComponent)
  559.     RichViewEdit1->SetCurrentItemExtraIntProperty(rvepResizable, 1, True);
  560. }
  561. //---------------------------------------------------------------------------
  562. // Insert|Bullet|"XXX"
  563. void __fastcall TForm1::mitInsertBulletClick(TObject *Sender)
  564. {
  565.   RichViewEdit1->InsertBullet(((TMenuItem*)Sender)->Tag, il);    
  566. }
  567. //---------------------------------------------------------------------------
  568. // Insert|Hot Spot|"XXX"
  569. void __fastcall TForm1::mitInsertHotspotClick(TObject *Sender)
  570. {
  571.   RichViewEdit1->InsertHotspot(((TMenuItem*)Sender)->Tag, ((TMenuItem*)Sender)->Tag+2, il);
  572. }
  573. //---------------------------------------------------------------------------
  574. // Insert|Break
  575. void __fastcall TForm1::mitBreakClick(TObject *Sender)
  576. {
  577.    RichViewEdit1->InsertBreak(1, rvbsLine, clNone);    
  578. }
  579. //======================================================================
  580. // Main menu : "Edit"
  581. //======================================================================
  582. // Edit
  583. void __fastcall TForm1::mpdEditClick(TObject *Sender)
  584. {
  585.   mitPasteAsRTF->Enabled      = RichViewEdit1->CanPasteRTF();
  586.   mitPasteAsText->Enabled     = Clipboard()->HasFormat(CF_TEXT);
  587.   mitPasteAsUnicodeText->Enabled = Clipboard()->HasFormat(CF_UNICODETEXT);
  588.   mitPasteAsMetafile->Enabled = Clipboard()->HasFormat(CF_METAFILEPICT);
  589.   mitPasteAsBitmap->Enabled   = Clipboard()->HasFormat(CF_BITMAP);
  590.   mitPasteAsRVF->Enabled      = RichViewEdit1->CanPasteRVF();
  591.   mitPaste->Enabled           = RichViewEdit1->CanPaste();
  593.   mitInsertPageBreak->Enabled = !RichViewEdit1->InplaceEditor;
  594.   mitRemovePageBreak->Enabled =
  595.     !RichViewEdit1->InplaceEditor &&
  596.     RichViewEdit1->PageBreaksBeforeItems[RichViewEdit1->CurItemNo];
  598.   // You can edit properties only for item with caret.
  599.   // We disable this item because otherwise user can think what he will
  600.   // edit properties of all selected items.
  601.   // More smart programs can determine if there is only one item is selected
  602.   // and do not disable this item in this case
  603.   mitEditProps->Enabled       = ! RichViewEdit1->SelectionExists();
  604. }
  605. //---------------------------------------------------------------------------
  606. // Edit|Undo
  607. void __fastcall TForm1::mitUndoClick(TObject *Sender)
  608. {
  609.   RichViewEdit1->Undo();
  610. }
  611. //---------------------------------------------------------------------------
  612. // Edit|Redo
  613. void __fastcall TForm1::mitRedoClick(TObject *Sender)
  614. {
  615.   RichViewEdit1->Redo();
  616. }
  617. //---------------------------------------------------------------------------
  618. // Edit|Cut
  619. void __fastcall TForm1::mitCutClick(TObject *Sender)
  620. {
  621.   RichViewEdit1->CutDef();
  622. }
  623. //---------------------------------------------------------------------------
  624. // Edit|Copy
  625. void __fastcall TForm1::mitCopyClick(TObject *Sender)
  626. {
  627.   RichViewEdit1->CopyDef();
  628. }
  629. //---------------------------------------------------------------------------
  630. // Edit|Paste
  631. void __fastcall TForm1::mitPasteClick(TObject *Sender)
  632. {
  633.   RichViewEdit1->Paste();    
  634. }
  635. //---------------------------------------------------------------------------
  636. // Edit|Paste As|RTF
  637. void __fastcall TForm1::mitPasteAsRTFClick(TObject *Sender)
  638. {
  639.   RichViewEdit1->PasteRTF();
  640. }
  641. //---------------------------------------------------------------------------
  642. // Edit|Paste As|Text
  643. void __fastcall TForm1::mitPasteAsTextClick(TObject *Sender)
  644. {
  645.   RichViewEdit1->PasteText();
  646. }
  647. //---------------------------------------------------------------------------
  648. // Edit|Paste As|Unicode Text
  649. void __fastcall TForm1::mitPasteAsUnicodeTextClick(TObject *Sender)
  650. {
  651.   RichViewEdit1->PasteTextW();
  652. }
  653. //---------------------------------------------------------------------------
  654. // Edit|Paste As|Metafile
  655. void __fastcall TForm1::mitPasteAsMetafileClick(TObject *Sender)
  656. {
  657.   RichViewEdit1->PasteMetafile(false);
  658. }
  659. //---------------------------------------------------------------------------
  660. // Edit|Paste As|Bitmap
  661. void __fastcall TForm1::mitPasteAsBitmapClick(TObject *Sender)
  662. {
  663.   RichViewEdit1->PasteBitmap(false);
  664. }
  665. //---------------------------------------------------------------------------
  666. // Edit|Paste As|RichView Format
  667. void __fastcall TForm1::mitPasteAsRVFClick(TObject *Sender)
  668. {
  669.   RichViewEdit1->PasteRVF();
  670. }
  671. //---------------------------------------------------------------------------
  672. // Edit|Paste As|OLE
  673. void __fastcall TForm1::mitPasteAsOLEClick(TObject *Sender)
  674. {
  675.   TOleContainer* oc = new TOleContainer((TComponent*)NULL);
  676.   if (oc->CanPaste)
  677.   {
  678.     oc->Visible = false;
  679.     oc->BorderStyle = bsNone;
  680.     oc->Parent = RichViewEdit1;
  681.     oc->SizeMode = smAutoSize;
  682.     oc->Paste();
  683.     RichViewEdit1->InsertControl("", oc,rvvaBaseline);
  684.     oc->OnResize = OnOleResize;
  685.     oc->OnActivate = OnOleActivate;
  686.     oc->OnDeactivate = OnOleDeactivate;
  687.     oc->Visible = true;
  688.   }
  689.   else
  690.     delete oc;
  691. }
  692. //---------------------------------------------------------------------------
  693. void TForm1::CloseOleContainer()
  694. {
  695.   if (ActiveOleContainer)
  696.   {
  697.     ActiveOleContainer->Close();
  698.     ActiveOleContainer = NULL;
  699.   }
  700. }
  701. //---------------------------------------------------------------------------
  702. void __fastcall TForm1::OnOleResize(TObject *Sender)
  703. {
  704.   RichViewEdit1->AdjustControlPlacement2((TControl*)Sender);
  705. }
  706. //---------------------------------------------------------------------------
  707. void __fastcall TForm1::OnOleActivate(TObject *Sender)
  708. {
  709.   if (ActiveOleContainer!=Sender)
  710.     CloseOleContainer();
  711.   ActiveOleContainer = (TOleContainer*)Sender;
  712.   RichViewEdit1->AdjustControlPlacement2((TControl*)Sender);
  713. }
  714. //---------------------------------------------------------------------------
  715. void __fastcall TForm1::OnOleDeactivate(TObject *Sender)
  716. {
  717.   RichViewEdit1->AdjustControlPlacement2((TControl*)Sender);
  718. }
  719. //---------------------------------------------------------------------------
  720. void __fastcall TForm1::RichViewEdit1Click(TObject *Sender)
  721. {
  722.   CloseOleContainer();
  723. }
  724. //---------------------------------------------------------------------------
  725. void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
  726. {
  727.   CloseOleContainer();
  728. }
  729. //---------------------------------------------------------------------------
  730. void __fastcall TForm1::RichViewEdit1ControlAction(TCustomRichView *Sender,
  731. TRVControlAction ControlAction, int ItemNo, TControl *&ctrl)
  732. {
  733.   if (ControlAction==rvcaAfterRVFLoad)
  734.   {
  735.     if (ctrl->InheritsFrom(__classid(TOleContainer)))
  736.     {
  737.       ((TOleContainer*)ctrl)->OnResize = OnOleResize;
  738.       ((TOleContainer*)ctrl)->OnActivate = OnOleActivate;
  739.       ((TOleContainer*)ctrl)->OnDeactivate = OnOleDeactivate;
  740.     }
  741.     else if (ctrl->InheritsFrom(__classid(TButton)))
  742.       ((TButton*)ctrl)->OnClick = OnControlClick;
  743.     else if (ctrl->InheritsFrom(__classid(TEdit)))
  744.       ((TEdit*)ctrl)->OnClick = OnControlClick;
  745.   }
  746.   if (ctrl!=ActiveOleContainer)
  747.     return;
  748.   if (ControlAction==rvcaMoveToUndoList ||
  749.       ControlAction==rvcaDestroy ||
  750.       ControlAction==rvcaBeforeRVFSave)
  751.     CloseOleContainer();
  752. }
  753. //---------------------------------------------------------------------------
  754. // Edit|Delete
  755. void __fastcall TForm1::mitDeleteClick(TObject *Sender)
  756. {
  757.   // Shortcut to this item is Ctrl+Del
  758.   // If you make it Del, you will be unable to use del key in editor
  759.   RichViewEdit1->DeleteSelection();
  760. }
  761. //---------------------------------------------------------------------------
  762. void __fastcall TForm1::mitSelectAllClick(TObject *Sender)
  763. {
  764.   // warning: SelectAll moves caret to the end of the text
  765.   RichViewEdit1->SelectAll();
  766.   RichViewEdit1->SetFocus();
  767.   RichViewEdit1->Invalidate();
  768. }
  769. //---------------------------------------------------------------------------
  770. // Another clipboard-related action
  771. void __fastcall TForm1::RichViewEdit1Select(TObject *Sender)
  772. {
  773.   mitCopy->Enabled   = RichViewEdit1->SelectionExists();
  774.   mitCut->Enabled    = mitCopy->Enabled;
  775.   mitDelete->Enabled = mitCopy->Enabled;
  776. }
  777. //---------------------------------------------------------------------------
  778. // Edit| Insert Page Break
  779. void __fastcall TForm1::mitInsertPageBreakClick(TObject *Sender)
  780. {
  781.   RichViewEdit1->InsertPageBreak();    
  782. }
  783. //---------------------------------------------------------------------------
  784. // Edit| Remove Page Break
  785. void __fastcall TForm1::mitRemovePageBreakClick(TObject *Sender)
  786. {
  787.   RichViewEdit1->RemoveCurrentPageBreak();    
  788. }
  789. //---------------------------------------------------------------------------
  790. // Edit|Checkpoint...
  791. void __fastcall TForm1::mitEditCheckpointClick(TObject *Sender)
  792. {
  793.   int CpNo, Tag;
  794.   AnsiString Name;
  795.   bool RaiseEvent;
  796.   TCheckpointData CheckpointData = RichViewEdit1->GetCurrentCheckpoint();
  797.   if (CheckpointData)
  798.   {
  799.     RichViewEdit1->GetCheckpointInfo(CheckpointData,Tag,Name,RaiseEvent);
  800.     CpNo = RichViewEdit1->GetCheckpointNo(CheckpointData);
  801.     frmCP->lblStatus->Caption = "Editing checkpoint #"+IntToStr(CpNo);
  802.     frmCP->txtName->Text = Name;
  803.     frmCP->txtTag->Text = GetTagStr(Tag);
  804.     frmCP->btnOk->Caption = "OK";
  805.     frmCP->btnDelete->Enabled = true;
  806.   }
  807.   else
  808.   {
  809.     frmCP->lblStatus->Caption = "Checkpoint does not exist";
  810.     frmCP->txtName->Text = "";
  811.     frmCP->txtTag->Text = GetTagStr(0);
  812.     frmCP->btnOk->Caption = "Add";
  813.     frmCP->btnDelete->Enabled = false;
  814.   }
  815.   switch (frmCP->ShowModal())
  816.   {
  817.     case mrOk: // add new checkpoint or modify existed one
  818.       RichViewEdit1->SetCurrentCheckpointInfo(MakeTag(frmCP->txtTag->Text),
  819.                                              frmCP->txtName->Text,false);
  820.       break;
  821.     case mrYes: // delete checkpoint
  822.       RichViewEdit1->RemoveCurrentCheckpoint();
  823.       break;
  824.   }
  825. }
  826. //---------------------------------------------------------------------------
  827. // Edit|Search... 
  828. void __fastcall TForm1::mitSearchClick(TObject *Sender)
  829. {
  830.   FindDialog1->Execute();
  831. }
  832. //---------------------------------------------------------------------------
  833. void __fastcall TForm1::FindDialog1Find(TObject *Sender)
  834. {
  835.   TRVESearchOptions Options = GetRVESearchOptions(FindDialog1->Options);
  836.   if (!RichViewEdit1->SearchText(FindDialog1->FindText,
  837.                            Options))
  838.    Application->MessageBox("Can't find", "Search complete", MB_OK | MB_ICONEXCLAMATION);
  839. }
  840. //---------------------------------------------------------------------------
  841. // Edit|Select Current Word
  842. void __fastcall TForm1::mitSelectCurrentWordClick(TObject *Sender)
  843. {
  844.   RichViewEdit1->SelectCurrentWord();
  845.   // now you can do something with current word:
  846.   // translate or spell check, for example...
  847. }
  848. //---------------------------------------------------------------------------
  849. #if __BORLANDC__ == 0x0540
  850. // workaround for C++Builder 4 problem
  851. namespace Rvuni
  852. {
  853.  extern PACKAGE AnsiString __fastcall RVU_UnicodeToAnsi(int CodePage, const AnsiString
  854. s);
  855. }
  856. #endif
  857. // Edit|Current Item Properties...
  858. void __fastcall TForm1::mitEditPropsClick(TObject *Sender)
  859. {
  860.   AnsiString s;
  861.   int Tag, ImageIndex;
  862.   TCustomImageList * ImageList;
  863.   TRVVAlign VAlign;
  864.   TControl* ctrl;
  865.   TGraphic* gr;
  866.   TColor BreakColor;
  867.   TRVBreakStyle BreakStyle;
  868.   unsigned char BreakWidth;
  870.   frmProp->PageControl1->Visible   = true;
  871.   frmProp->tsBullet->TabVisible    = false;
  872.   frmProp->tsHotspot->TabVisible   = false;
  873.   frmProp->tsPicture->TabVisible   = false;
  874.   frmProp->tsText->TabVisible      = false;
  875.   frmProp->tsComponent->TabVisible = false;
  876.   frmProp->tsBreak->TabVisible     = false;
  877.   frmProp->txtName->Enabled        = true;
  878.   switch (RichViewEdit1->CurItemStyle)
  879.   {
  880.     case rvsBullet:
  881.     {
  882.       RichViewEdit1->GetCurrentBulletInfo(s, ImageIndex, ImageList, Tag);
  883.       frmProp->tsBullet->TabVisible = true;
  884.       frmProp->rgBullet->ItemIndex  = ImageIndex;
  885.       frmProp->txtName->Text        = s;
  886.       frmProp->txtTag->Text         = GetTagStr(Tag);
  887.       break;
  888.     }
  889.     case rvsHotspot:
  890.     {
  891.       // you can use GetCurrentBulletInfo or GetCurrentHotspotInfo
  892.       // to receive info about hotspot in caret position->
  893.       // in this demo we need not HotImageIndex, because here
  894.       // HotImageIndex = ImageIndex+2
  895.       // and so we can use GetCurrentBulletInfo
  896.       RichViewEdit1->GetCurrentBulletInfo(s, ImageIndex, ImageList, Tag);
  897.       frmProp->tsHotspot->TabVisible = true;
  898.       frmProp->rgHotspot->ItemIndex  = ImageIndex-3;
  899.       frmProp->txtName->Text         = s;
  900.       frmProp->txtTag->Text          = GetTagStr(Tag);
  901.       break;
  902.     }
  903.     case rvsPicture:
  904.     case rvsHotPicture:
  905.     {
  906.       RichViewEdit1->GetCurrentPictureInfo(s, gr, VAlign, Tag);
  907.       frmProp->tsPicture->TabVisible    = true;
  908.       frmProp->Image1->Picture->Graphic = gr;
  909.       frmProp->txtName->Text            = s;
  910.       frmProp->txtTag->Text             = GetTagStr(Tag);
  911.       frmProp->rgPicVAlign->ItemIndex   = VAlign;
  912.       break;
  913.     }
  914.     case rvsComponent:
  915.     {
  916.       RichViewEdit1->GetCurrentControlInfo(s, ctrl, VAlign, Tag);
  917.       frmProp->tsComponent->TabVisible = true;
  918.       frmProp->txtWidth->Text          = IntToStr(ctrl->Width);
  919.       frmProp->txtHeight->Text         = IntToStr(ctrl->Height);
  920.       frmProp->txtName->Text           = s;
  921.       frmProp->lblComponent->Caption   = ctrl->ClassName();
  922.       frmProp->txtTag->Text            = GetTagStr(Tag);
  923.       frmProp->rgCtrlVAlign->ItemIndex = Integer(VAlign);
  924.       break;
  925.     }
  926.     case rvsBreak:
  927.     {
  928.       RichViewEdit1->GetCurrentBreakInfo(BreakWidth, BreakStyle, BreakColor, Tag);
  929.       frmProp->tsBreak->TabVisible = true;
  930.       frmProp->txtBreakWidth->Text = IntToStr(BreakWidth);
  931.       switch (BreakColor)
  932.       {
  933.       case clNone:
  934.         frmProp->rgBreakColor->ItemIndex = 0;
  935.         break;
  936.       case clRed:
  937.         frmProp->rgBreakColor->ItemIndex = 1;
  938.         break;
  939.       case clGreen:
  940.         frmProp->rgBreakColor->ItemIndex = 2;
  941.         break;
  942.       case clBlue:
  943.         frmProp->rgBreakColor->ItemIndex = 3;
  944.         break;
  945.       }
  946.       frmProp->txtName->Text = "(not available for breaks)";
  947.       frmProp->txtName->Enabled = false;
  948.       frmProp->txtTag->Text = GetTagStr(Tag);
  949.       break;
  950.     }
  951.     case rvsTable:
  952.     {
  953.       frmProp->txtName->Text = RichViewEdit1->GetCurrentItemText();
  954.       frmProp->txtTag->Text = GetTagStr(RichViewEdit1->GetCurrentTag());
  955.       frmProp->PageControl1->Visible = false;
  956.       break;
  957.     }
  958.     default: // text
  959.     {
  960.       frmProp->tsText->TabVisible = true;
  961.       frmProp->txtName->Text = "(not available for text)";
  962.       frmProp->txtName->Enabled = false;
  963.       frmProp->lblText->Caption = RichViewEdit1->GetCurrentItemTextA();
  964.       frmProp->txtTag->Text = GetTagStr(RichViewEdit1->GetCurrentTag());
  965.     }
  966.   }
  967.   if (frmProp->ShowModal()==mrOk)
  968.   {
  969.     switch (RichViewEdit1->CurItemStyle)
  970.     {
  971.       case rvsBullet:
  972.       {
  973.         RichViewEdit1->SetCurrentBulletInfo(
  974.           frmProp->txtName->Text,
  975.           frmProp->rgBullet->ItemIndex,
  976.           NULL,
  977.           MakeTag(frmProp->txtTag->Text));
  978.         break;
  979.       }
  980.       case rvsHotspot:
  981.       {
  982.         RichViewEdit1->SetCurrentHotspotInfo(
  983.           frmProp->txtName->Text,
  984.           frmProp->rgHotspot->ItemIndex+3,
  985.           frmProp->rgHotspot->ItemIndex+3+2,
  986.           NULL,
  987.           MakeTag(frmProp->txtTag->Text));
  988.         break;
  989.       }
  990.       case rvsPicture:
  991.       case rvsHotPicture:
  992.       {
  993.         // first we need to create a copy of image ...
  994.         // RV_CreateGraphics is a global function pointer, defined in RVItem unit,
  995.         // it creates graphic object by its class
  996.         gr = RV_CreateGraphics(frmProp->Image1->Picture->Graphic->ClassType());
  997.         gr->Assign(frmProp->Image1->Picture->Graphic);
  998.         RichViewEdit1->SetCurrentPictureInfo(
  999.           frmProp->txtName->Text,
  1000.           gr,
  1001.           TRVVAlign(frmProp->rgPicVAlign->ItemIndex),
  1002.           MakeTag(frmProp->txtTag->Text));
  1003.         break;
  1004.       }
  1005.       case rvsComponent:
  1006.       {
  1007.         // we wish these setting to be undone as one action,
  1008.         // so we use BeginUndoGroup, SetUndoGroupMode(true), settings, SetUndoGroupMode(false)
  1009.         RichViewEdit1->BeginUndoGroup(rvutModifyItem);
  1010.         // you can use BeginUndoCustomGroup instead of BeginUndoGroup
  1011.         // example:
  1012.         // RichViewEdit1->BeginUndoCustomGroup('modifying control');
  1013.         // In this case undo type will be rvutCustom
  1014.         // (look at TForm1->UpdateUndoMenu in this file)
  1015.         RichViewEdit1->SetUndoGroupMode(true);
  1016.         RichViewEdit1->SetCurrentControlInfo(
  1017.           frmProp->txtName->Text,
  1018.           TRVVAlign(frmProp->rgCtrlVAlign->ItemIndex),
  1019.           MakeTag(frmProp->txtTag->Text));
  1020.         RichViewEdit1->ResizeCurrentControl(
  1021.           StrToIntDef(frmProp->txtWidth->Text, ctrl->Width),
  1022.           StrToIntDef(frmProp->txtHeight->Text, ctrl->Height));
  1023.         RichViewEdit1->SetUndoGroupMode(false);
  1024.         break;
  1025.       }
  1026.       case rvsBreak:
  1027.       {
  1028.         switch (frmProp->rgBreakColor->ItemIndex)
  1029.         {
  1030.           case -1:
  1031.           case 0:
  1032.             BreakColor = clNone;
  1033.             break;
  1034.           case 1:
  1035.             BreakColor = clRed;
  1036.             break;
  1037.           case 2:
  1038.             BreakColor = clGreen;
  1039.             break;
  1040.           case 3:
  1041.             BreakColor = clBlue;
  1042.             break;
  1043.         }
  1044.         BreakWidth = (unsigned char)StrToIntDef(frmProp->txtBreakWidth->Text,1);
  1045.         RichViewEdit1->SetCurrentBreakInfo(BreakWidth,BreakStyle,BreakColor,
  1046.                                            MakeTag(frmProp->txtTag->Text));
  1047.         break;
  1048.       }
  1049.       case rvsTable:
  1050.       {
  1051.         RichViewEdit1->BeginUndoGroup(rvutModifyItem);
  1052.         RichViewEdit1->SetUndoGroupMode(true);
  1053.         RichViewEdit1->SetCurrentItemText(frmProp->txtName->Text);
  1054.         RichViewEdit1->SetCurrentTag(MakeTag(frmProp->txtTag->Text));
  1055.         RichViewEdit1->SetUndoGroupMode(false);
  1056.         break;
  1057.       }
  1058.       default:
  1059.       {
  1060.         RichViewEdit1->SetCurrentTag(MakeTag(frmProp->txtTag->Text));
  1061.       }
  1062.     }
  1063.   }
  1064. }
  1065. //======================================================================
  1066. // Main menu : "Misc"
  1067. //======================================================================
  1068. // Misc | Go to checkpoint ...
  1069. void __fastcall TForm1::mitCheckpointListClick(TObject *Sender)
  1070. {
  1071.   frmList->lst->Items->Clear();
  1072.   TCheckpointData CheckpointData = RichViewEdit1->GetFirstCheckpoint();
  1073.   while (CheckpointData)
  1074.   {
  1075.     int X,Y,Tag;
  1076.     AnsiString Name, s;
  1077.     bool RaiseEvent;
  1078.     RichViewEdit1->GetCheckpointInfo(CheckpointData,Tag,Name,RaiseEvent);
  1079.     RichViewEdit1->GetCheckpointXY(CheckpointData,X,Y);
  1080.     s = "(X:"+IntToStr(X)+",Y:"+IntToStr(Y)+") Name:'"+Name+"' Tag:'"+GetTagStr(Tag)+"'";
  1081.     frmList->lst->Items->Add(s);
  1082.     CheckpointData = RichViewEdit1->GetNextCheckpoint(CheckpointData);
  1083.   }
  1084.   if (frmList->ShowModal()==mrOk)
  1085.     RichViewEdit1->ScrollTo(RichViewEdit1->GetCheckpointY(frmList->lst->ItemIndex));
  1086. }
  1087. //---------------------------------------------------------------------------
  1088. // Misc | Background submenu popups
  1089. void __fastcall TForm1::mpdBackgroundClick(TObject *Sender)
  1090. {
  1091.   // Displaying RichViewEdit1->BackgroundStyle as checkmark in submenu...
  1092.   mitBackNoBitmap->Checked         = RichViewEdit1->BackgroundStyle==bsNoBitmap;
  1093.   mitBackStretched->Checked        = RichViewEdit1->BackgroundStyle==bsStretched;
  1094.   mitBackTiledandScrolled->Checked = RichViewEdit1->BackgroundStyle==bsTiledAndScrolled;
  1095.   mitBackTiled->Checked            = RichViewEdit1->BackgroundStyle==bsTiled;
  1096.   mitBackCentered->Checked         = RichViewEdit1->BackgroundStyle==bsCentered;
  1097.   mitBackTopLeft->Checked          = RichViewEdit1->BackgroundStyle==bsTopLeft;
  1098.   mitBackTopRight->Checked         = RichViewEdit1->BackgroundStyle==bsTopRight;
  1099.   mitBackBottomLeft->Checked       = RichViewEdit1->BackgroundStyle==bsBottomLeft;
  1100.   mitBackBottomRight->Checked      = RichViewEdit1->BackgroundStyle==bsBottomRight;
  1101. }
  1102. //---------------------------------------------------------------------------
  1103. // Misc | Background options
  1104. void __fastcall TForm1::mitBackClick(TObject *Sender)
  1105. {
  1106.   RichViewEdit1->BackgroundStyle = (TBackgroundStyle)(((TMenuItem*)Sender)->Tag);
  1107. }
  1108. //---------------------------------------------------------------------------
  1109. // Misc | Read only
  1110. void __fastcall TForm1::mitReadOnlyClick(TObject *Sender)
  1111. {
  1112.   RichViewEdit1->ReadOnly = ! RichViewEdit1->ReadOnly;
  1113.   mitReadOnly->Checked = RichViewEdit1->ReadOnly;
  1114. }
  1115. //======================================================================
  1116. // On Popup
  1117. void __fastcall TForm1::PopupMenu1Popup(TObject *Sender)
  1118. {
  1119.   mitEditProp1->Enabled = !RichViewEdit1->SelectionExists();
  1120. }
  1121. //---------------------------------------------------------------------------
  1122. // OnChange event handler.
  1123. void __fastcall TForm1::RichViewEdit1Change(TObject *Sender)
  1124. {
  1125.   UpdateUndoMenu();
  1126. }
  1127. //---------------------------------------------------------------------------
  1128. // You should manually update palette info when user changes color mode
  1129. // without restarting Windows
  1130. void __fastcall TForm1::WMDisplayChange(TMessage &Message)
  1131. {
  1132.   RichViewEdit1->UpdatePaletteInfo();
  1133.   RVPrint1->UpdatePaletteInfo();
  1134. }
  1135. //---------------------------------------------------------------------------
  1136. // Event: OnJump (when user clicks hypertext item with pressed Ctrl key
  1137. void __fastcall TForm1::RichViewEdit1Jump(TObject *Sender, int id)
  1138. {
  1139.   // NOTE: OnJump is called after the caret is repositioned to clicked item
  1140.   // But warning: a clicked event is not necessarily an active item
  1141.   // (when clicking on left part of picture or left part of first character in text item,
  1142.   // caret moves before item and previous item becomes active!)
  1143.   TCustomRVFormattedData* RVData;
  1144.   int ItemNo;
  1145.   RichViewEdit1->GetJumpPointLocation(id, RVData, ItemNo);
  1146.   AnsiString s =  GetTagStr(RVData->GetItemTag(ItemNo));
  1147.   Application->MessageBox(Format("Tag of clicked hyperlink is '%s'",
  1148.     ARRAYOFCONST((s.c_str()))).c_str(), "Hypertext Click", MB_OK | MB_ICONINFORMATION);
  1150. }
  1151. //---------------------------------------------------------------------------
  1152. // Event: OnRVMouseMove (when user moves mouse above hypertext item with pressed Ctrl key
  1153. void __fastcall TForm1::RichViewEdit1RVMouseMove(TObject *Sender, int id)
  1154. {
  1155.   TCustomRVFormattedData* RVData;
  1156.   int ItemNo;
  1157.   if (id==-1)
  1158.     StatusBar1->SimpleText = "";
  1159.   else
  1160.   {
  1161.     RichViewEdit1->GetJumpPointLocation(id, RVData, ItemNo);
  1162.     AnsiString s =  GetTagStr(RVData->GetItemTag(ItemNo));
  1163.     StatusBar1->SimpleText = Format("Tag of clicked hyperlink is '%s'", ARRAYOFCONST((s.c_str())));
  1164.   }
  1165. }
  1166. //======================================================================
  1167. // Main menu : "Lists"
  1168. //======================================================================
  1169. // Lists | Apply
  1170. void __fastcall TForm1::mitApplyListsClick(TObject *Sender)
  1171. {
  1172.   /* See more demos about list styles in DemosCBuilderAssortedListStyles */
  1173.   if (RVStyle1->ListStyles->Count==0 ||
  1174.       RVStyle1->ListStyles->Items[0]->Levels->Count==0)
  1175.   {
  1176.     Application->MessageBox("Default list style is not defined", "", 0);
  1177.     return;
  1178.   }
  1179.   RichViewEdit1->ApplyListStyle(0, 0, 1, false, false);
  1180. }
  1181. //---------------------------------------------------------------------------
  1182. // Lists | Remove
  1183. void __fastcall TForm1::mitRemoveListsClick(TObject *Sender)
  1184. {
  1185.   RichViewEdit1->RemoveLists(false);
  1186. }
  1187. //======================================================================
  1188. // Main menu : "Table"
  1189. //======================================================================
  1190. // Table | Insert Table Example 1
  1191. void __fastcall TForm1::mitInserttable1Click(TObject *Sender)
  1192. {
  1193.   TRVTableItemInfo* table = new TRVTableItemInfo(4,3, RichViewEdit1->RVData);
  1195.   table->BorderStyle      = rvtbRaisedColor;
  1196.   table->CellBorderStyle  = rvtbLoweredColor;
  1197.   table->BorderLightColor = (TColor)0x00FAF1C9;
  1198.   table->BorderColor      = (TColor)0x00A98E10;
  1199.   table->CellBorderLightColor = (TColor)0x00FAF1C9;
  1200.   table->CellBorderColor  = (TColor)0x00A98E10;
  1201.   table->Color            = (TColor)0x00EAC724;
  1202.   table->BorderWidth      = 5;
  1203.   table->CellBorderWidth  = 2;
  1204.   table->CellPadding      = 5;
  1205.   table->CellVSpacing     = 1;
  1206.   table->CellHSpacing     = 1;
  1207.   table->BorderVSpacing   = 1;
  1208.   table->BorderHSpacing   = 1;
  1210.   for (int r = 0; r<table->Rows->Count; r++)
  1211.     for (int c = 0; c<table->Rows->Items[r]->Count; c++)
  1212.       table->Cells[r][c]->BestWidth = 100;
  1214.   table->MergeCells(0,0,3,1, false);
  1215.   table->MergeCells(1,0,1,3, false);
  1216.   TRVTableCellData* Cell = table->Cells[0][0];
  1217.   Cell->Color = clInfoBk;
  1218.   Cell->Clear();
  1219.   Cell->AddBulletEx("",0,il,2);
  1220.   Cell->AddNL(" Example 1 ",1,-1);
  1221.   Cell->AddBulletEx("",0,il,-1);
  1222.   Cell->AddNL("All cells have 100 pixels width, width of table itself is calculated basing on width of cells.",0,0);
  1224.   if (RichViewEdit1->InsertItem("", table))
  1225.   {
  1226.   }
  1227. }
  1228. //---------------------------------------------------------------------------
  1229. // Table | Insert Table Example 2
  1230. void __fastcall TForm1::mitInsertTable2Click(TObject *Sender)
  1231. {
  1232.   TRVTableItemInfo* table = new TRVTableItemInfo(10,6, RichViewEdit1->RVData);
  1234.   table->Color     = clWhite;
  1235.   table->BestWidth = -90;
  1236.   table->BorderStyle      = rvtbRaisedColor;
  1237.   table->CellBorderStyle  = rvtbLoweredColor;
  1238.   table->BorderLightColor = clWhite;
  1239.   table->BorderColor      = clBlack;
  1240.   table->CellBorderLightColor = clWhite;
  1241.   table->CellBorderColor  = clBlack;
  1243.   table->BorderWidth     = 2;
  1244.   table->BorderVSpacing  = 0;
  1245.   table->BorderHSpacing  = 0;
  1246.   table->CellBorderWidth = 2;
  1247.   table->CellPadding     = 3;
  1248.   table->CellVSpacing    = 0;
  1249.   table->CellHSpacing    = 0;
  1250.   table->Cells[0][0]->BestWidth = -16;
  1251.   table->Cells[0][1]->BestWidth = -16;
  1252.   table->Cells[0][2]->BestWidth = -16;
  1253.   table->Cells[0][3]->BestWidth = -16;
  1254.   table->Cells[0][4]->BestWidth = -16;
  1255.   table->Cells[0][5]->BestWidth = -16;
  1256.   table->MergeCells(2,0,2,8, false);
  1258.   TRVTableCellData* Cell = table->Cells[2][0];
  1259.   Cell->Clear();
  1260.   Cell->AddNL("Another example.",0,0);
  1261.   TButton* btn = new TButton((TComponent*)NULL);
  1262.   btn->Caption = "With button inside";
  1263.   btn->Width   = 150;
  1264.   btn->OnClick = OnControlClick;
  1265.   Cell->AddControlEx("",btn,2,rvvaBaseline);
  1266.   Cell->SetItemExtraIntProperty(Cell->ItemCount-1, rvepResizable, 1);
  1267.   Cell->AddNL("Width of table = 90% of document width. Widths of cells = 16%",0,0);
  1269.   if (RichViewEdit1->InsertItem("", table))
  1270.   {
  1271.   }
  1272. }
  1273. //---------------------------------------------------------------------------
  1274. // Table | Insert Table Example 3
  1275. void __fastcall TForm1::mitInsertTable3Click(TObject *Sender)
  1276. {
  1277.   TRVTableItemInfo* table = new TRVTableItemInfo(5,6, RichViewEdit1->RVData);
  1279.   table->Color            = (TColor)0x00A5CCE7;
  1280.   table->BorderStyle      = rvtbColor;
  1281.   table->CellBorderStyle  = rvtbColor;
  1282.   table->BorderColor      = (TColor)0x002E1234;
  1283.   table->CellBorderColor  = (TColor)0x002E1234;
  1285.   table->BorderWidth     = 2;
  1286.   table->BorderVSpacing  = 2;
  1287.   table->BorderHSpacing  = 2;
  1288.   table->CellBorderWidth = 1;
  1289.   table->CellPadding     = 3;
  1290.   table->CellVSpacing    = 0;
  1291.   table->CellHSpacing    = 0;
  1292.   table->BestWidth       = 400;
  1294.   int r,c;
  1296.   for (c = 0; c<table->Rows->Items[0]->Count; c++)
  1297.    table->Cells[0][c]->Color = (TColor)0x00A5E1F8;
  1299.   for (r = 1; r<table->Rows->Count; r++)
  1300.    table->Cells[r][0]->Color = (TColor)0x00A5E1F8;
  1302.   for (r = 1; r<table->Rows->Count; r++)
  1303.     for (c = 1; c<table->Rows->Items[r]->Count; c++)
  1304.     {
  1305.       table->Cells[r][c]->Color = (TColor)0x007AB4DA;
  1306.       if (c>1)
  1307.         table->Cells[r][c]->VisibleBorders->Left = false;
  1308.       if (c<table->Rows->Items[r]->Count-1)
  1309.         table->Cells[r][c]->VisibleBorders->Right = false;
  1310.     }
  1312.   RichViewEdit1->InsertText("Third example: width of table = 400 pixels, widths of cells - unspecified.", false);
  1313.   if (RichViewEdit1->InsertItem("", table))
  1314.   {
  1315.   }
  1316. }
  1317. //---------------------------------------------------------------------------
  1318. // Table | Insert Table Example 4
  1319. void __fastcall TForm1::mitInsertTable4Click(TObject *Sender)
  1320. {
  1321.   TRVTableItemInfo* table = new TRVTableItemInfo(3,3, RichViewEdit1->RVData);
  1323.   table->Color           = clNone;
  1324.   table->BorderStyle     = rvtbColor;
  1325.   table->CellBorderStyle = rvtbColor;
  1327.   table->BorderWidth     = 1;
  1328.   table->BorderVSpacing  = 2;
  1329.   table->BorderHSpacing  = 2;
  1330.   table->CellBorderWidth = 1;
  1331.   table->CellPadding     = 3;
  1332.   table->CellVSpacing    = 5;
  1333.   table->CellHSpacing    = 5;
  1334.   table->VRuleWidth      = 1;
  1335.   table->HRuleWidth      = 1;
  1336.   for (int r=0; r<table->Rows->Count; r++)
  1337.     for (int c=0; c<table->Rows->Items[r]->Count; c++)
  1338.     {
  1339.       table->Cells[r][c]->BestWidth = 40;
  1340.       table->Cells[r][c]->Clear();
  1341.       table->Cells[r][c]->AddFmt("%d,%d",ARRAYOFCONST((r,c)),0,0);
  1342.       table->Cells[r][c]->Color = clWhite;
  1343.     }
  1344.   RichViewEdit1->InsertText("Transparent table with rules", false);
  1345.   if (RichViewEdit1->InsertItem("", table))
  1346.   {
  1347.   }
  1348. }
  1349. //---------------------------------------------------------------------------
  1350. // Table submenu popups
  1351. void __fastcall TForm1::mpdTableClick(TObject *Sender)
  1352. {
  1353.   TCustomRichViewEdit* rve;
  1354.   TCustomRVItemInfo* item;
  1355.   if (!RichViewEdit1->GetCurrentItemEx(__classid(TRVTableItemInfo), rve, item))
  1356.   {
  1357.     mitRowsAbove->Enabled         = false;
  1358.     mitRowsBelow->Enabled         = false;
  1359.     mitColsLeft->Enabled          = false;
  1360.     mitColsRight->Enabled         = false;
  1361.     mitDelRows->Enabled           = false;
  1362.     mitDelColumns->Enabled        = false;
  1363.     mitMergeCells->Enabled        = false;
  1364.     mitUmRows->Enabled            = false;
  1365.     mitUmCols->Enabled            = false;
  1366.     mitUmRowsandCols->Enabled     = false;
  1367.     mitSplitVertically->Enabled   = false;
  1368.     mitSplitHorizontally->Enabled = false;
  1369.     return;
  1370.   }
  1371.   TRVTableItemInfo* table = (TRVTableItemInfo*)item;
  1372.   int r,c,cs,rs;
  1373.   bool Selected = table->GetNormalizedSelectionBounds(true,r,c,cs,rs);
  1374.   mitRowsAbove->Enabled         = Selected;
  1375.   mitRowsBelow->Enabled         = Selected;
  1376.   mitColsLeft->Enabled          = Selected;
  1377.   mitColsRight->Enabled         = Selected;
  1378.   mitDelRows->Enabled           = Selected;
  1379.   mitDelColumns->Enabled        = Selected;
  1380.   mitMergeCells->Enabled        = table->CanMergeSelectedCells(true);
  1381.   bool SelectionRectangular = Selected &&
  1382.                           (table->CanMergeSelectedCells(true) ||
  1383.                            table->GetEditedCell(r,c));
  1384.   mitSplitVertically->Enabled   = SelectionRectangular;
  1385.   mitSplitHorizontally->Enabled = SelectionRectangular;
  1386.   mitUmRows->Enabled            = SelectionRectangular;
  1387.   mitUmCols->Enabled            = SelectionRectangular;
  1388.   mitUmRowsandCols->Enabled     = SelectionRectangular;
  1389. }
  1390. //---------------------------------------------------------------------------
  1391. // Table | All other commands
  1392. void __fastcall TForm1::mitCellOperation(TObject *Sender)
  1393. {
  1394.   TCustomRVItemInfo* item;
  1395.   TCustomRichViewEdit* rve;
  1396.   int r,c,cs,rs;
  1397.   if (!RichViewEdit1->CanChange() ||
  1398.       !RichViewEdit1->GetCurrentItemEx(__classid(TRVTableItemInfo), rve, item))
  1399.     return;
  1400.   TRVTableItemInfo* table = (TRVTableItemInfo*)item;
  1401.   int ItemNo = rve->GetItemNo(table);
  1402.   int Data;
  1403.   rve->BeginItemModify(ItemNo, Data);
  1404.   switch (((TMenuItem*)Sender)->Tag)
  1405.   {
  1406.     case 1:
  1407.       table->InsertRowsAbove(1);
  1408.       break;
  1409.     case 2:
  1410.       table->InsertRowsBelow(1);
  1411.       break;
  1412.     case 3:
  1413.       table->InsertColsLeft(1);
  1414.       break;
  1415.     case 4:
  1416.       table->InsertColsRight(1);
  1417.       break;
  1418.     case 5:
  1419.       {
  1420.         table->GetNormalizedSelectionBounds(true,r,c,cs,rs);
  1421.         if (rs==table->Rows->Count)
  1422.         {
  1423.           // deleting whole table
  1424.           rve->SetSelectionBounds(ItemNo,0,ItemNo,1);
  1425.           rve->DeleteSelection();
  1426.           return;
  1427.         }
  1428.         rve->BeginUndoGroup(rvutModifyItem);
  1429.         rve->SetUndoGroupMode(true);
  1430.         table->DeleteSelectedRows();
  1431.         // it's possible all-NULL rows/cols appear after deleting
  1432.         table->DeleteEmptyRows();
  1433.         table->DeleteEmptyCols();
  1434.         rve->SetUndoGroupMode(false);
  1435.         break;
  1436.       }
  1437.     case 6:
  1438.       {
  1439.         table->GetNormalizedSelectionBounds(true,r,c,cs,rs);
  1440.         if (cs==table->Rows->Items[0]->Count)
  1441.         {
  1442.           // deleting whole table
  1443.           rve->SetSelectionBounds(ItemNo,0,ItemNo,1);
  1444.           rve->DeleteSelection();
  1445.           return;
  1446.         }
  1447.         rve->BeginUndoGroup(rvutModifyItem);
  1448.         rve->SetUndoGroupMode(true);
  1449.         table->DeleteSelectedCols();
  1450.         // it's possible all-NULL rows/cols appear after deleting
  1451.         table->DeleteEmptyRows();
  1452.         table->DeleteEmptyCols();
  1453.         rve->SetUndoGroupMode(false);
  1454.         break;
  1455.       }
  1456.     case 7:
  1457.       {
  1458.         // 3 methods: MergeSelectedCells, DeleteEmptyRows, DeleteEmptyCols
  1459.         // must be undone as one action.
  1460.         // So using BeginUndoGroup - SetUndoGroupMode(true) - ... - SetUndoGroupMode(false)
  1461.         rve->BeginUndoGroup(rvutModifyItem);
  1462.         rve->SetUndoGroupMode(true);
  1463.         table->MergeSelectedCells(true);
  1464.         table->DeleteEmptyRows();
  1465.         table->DeleteEmptyCols();
  1466.         rve->SetUndoGroupMode(false);
  1467.         // table.MergeSelectedCells(False) will not allow to create empty columns
  1468.         // or rows
  1469.         break;
  1470.       }
  1471.     case 8:
  1472.       table->UnmergeSelectedCells(true, false);
  1473.       break;
  1474.     case 9:
  1475.       table->UnmergeSelectedCells(false, true);
  1476.       break;
  1477.     case 10:
  1478.       table->UnmergeSelectedCells(true, true);
  1479.       break;
  1480.     case 11:
  1481.       {
  1482.         AnsiString s = "2";
  1483.         if (InputQuery("Split Vertically","Columns (in each selected cell):",s))
  1484.           table->SplitSelectedCellsVertically(StrToIntDef(s,0));
  1485.         break;
  1486.       }
  1487.     case 12:
  1488.       {
  1489.         AnsiString s = "2";
  1490.         if (InputQuery("Split Horizontally","Rows (in each selected cell):",s))
  1491.           table->SplitSelectedCellsHorizontally(StrToIntDef(s,0));
  1492.         break;
  1493.       }
  1494.   }
  1495.   rve->EndItemModify(ItemNo, Data);
  1496.   rve->Change();
  1497. }
  1498. //---------------------------------------------------------------------------