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

RichEdit

开发平台:

Delphi

  1. unit Unit1;
  2. interface
  3. {==============================================================================}
  4. { Demo: how to load RVF file saved in demo editor.                             }
  5. { Sergey Tkachenko                                                             }
  6. {------------------------------------------------------------------------------}
  7. { Providing pictures and controls on request from RichView is not supported in }
  8. { this demo.                                                                   }                                                 
  9. {==============================================================================}
  10. uses
  11.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  12.   RVScroll, RichView, StdCtrls, ExtCtrls, RVStyle, OleCtnrs, RVTable,
  13.   ImgList;
  14. type
  15.   TForm1 = class(TForm)
  16.     RichView1: TRichView;
  17.     OpenDialog1: TOpenDialog;
  18.     Panel1: TPanel;
  19.     RVStyle1: TRVStyle;
  20.     ImageList1: TImageList;
  21.     Button1: TButton;
  22.     procedure Button1Click(Sender: TObject);
  23.     procedure RichView1RVFImageListNeeded(Sender: TCustomRichView;
  24.       ImageListTag: Integer; var il: TCustomImageList);
  25.     procedure FormCreate(Sender: TObject);
  26.   private
  27.     { Private declarations }
  28.   public
  29.     { Public declarations }
  30.   end;
  31. var
  32.   Form1: TForm1;
  33. implementation
  34. {$R *.DFM}
  35. {
  36. Notes about loading from RVF files:
  37. 1. In simplest cases you can just write: RichView1.LoadRVF(<file name>);
  38. 2. If file contains inserted Delphi Controls, these controls must be registered
  39.    with RegisterClasses functions before loading (see FormCreate below)
  40. 3. If file contains images from image lists, you need to process
  41.    OnRVFImageListNeeded event (see RichView1RVFImageListNeeded below)
  42.    If you have several image lists, you can distinguish them using
  43.    ImageListTag parameter of this event.
  44. 4. You must have the same (or compatible) TRVStyle object assigned to
  45.    RichView1.Style as in editor.
  46.    Otherwise, you need to set option "Allow adding styles dynamically"
  47.    both in richview which saves and in richview which loads RVF
  48.    (right-click RichView in Delphi, choose "Settings" in the context menu)
  49. 5. If some items in RVF file have character strings associated as items' tags
  50.    (rvoTagsArePChars was in editor's Options), you need also set rvoTagsArePChars
  51.    in RichView1.Options.
  52. }
  53. procedure TForm1.FormCreate(Sender: TObject);
  54. begin
  55.   RegisterClasses([TButton, TEdit, TOleContainer]);
  56. end;
  57. procedure TForm1.Button1Click(Sender: TObject);
  58. begin
  59.   if OpenDialog1.Execute then begin
  60.     if not RichView1.LoadRVF(OpenDialog1.FileName) then
  61.       Application.MessageBox('Error Loading File', nil, MB_OK);
  62.     RichView1.Format;
  63.   end;
  64. end;
  65. procedure TForm1.RichView1RVFImageListNeeded(Sender: TCustomRichView;
  66.   ImageListTag: Integer; var il: TCustomImageList);
  67. begin
  68.   il := ImageList1;
  69. end;
  70. end.