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

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

RichEdit

开发平台：

Delphi

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