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

RichEdit

开发平台:

Delphi

  1. unit Unit1;
  2. {==============================================================================}
  3. { This demo shows how to add images from ImageLists to RichView                }
  4. {==============================================================================}
  5. interface
  6. uses
  7.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  8.   RVScroll, RichView, RVStyle, ExtCtrls, StdCtrls;
  9. type
  10.   TForm1 = class(TForm)
  11.     RVStyle1: TRVStyle;
  12.     RichView1: TRichView;
  13.     ImageList1: TImageList;
  14.     ImageList2: TImageList;
  15.     procedure FormCreate(Sender: TObject);
  16.   private
  17.     { Private declarations }
  18.   public
  19.     { Public declarations }
  20.   end;
  21. var
  22.   Form1: TForm1;
  23. implementation
  24. {$R *.DFM}
  25. procedure TForm1.FormCreate(Sender: TObject);
  26. var i: Integer;
  27. const crlf = #13#10;
  28. begin
  29.   RichView1.Clear;
  30.   RichView1.AddNL('Example of adding bullets', 1, 1);
  31.   // AddTextNL methods can add several paragraphs of text.
  32.   // Paragraphs can be separated with #13#10, #13 or #10 characters.
  33.   RichView1.AddTextNL('"Bullets" are the images from ImageLists. '+crlf+
  34.                   '"Bullets" provide an efficient way to store graphics in RichView, '+
  35.                   'because only link to ImageList and index of image are stored '+
  36.                   'per "bullet" in memory.'+crlf+
  37.                   '"Bullets" are useful when you need to add large number of the '+
  38.                   'same picture in RichView: ', 0, 0, 0);
  39.   for i := 0 to 9 do
  40.     RichView1.AddBulletEx('', 0, ImageList1, -1);
  41.   RichView1.AddNL('You can use as many ImageList, as you wish:',0,0);
  42.   RichView1.AddBulletEx('', 0, ImageList1, -1);
  43.   RichView1.AddBulletEx('', 0, ImageList2, -1);
  44.   RichView1.AddBulletEx('', 1, ImageList1, -1);
  45.   RichView1.AddBulletEx('', 1, ImageList2, -1);
  46.   RichView1.Format;
  47.   // About AddBulletEx:
  48.   // Parameters of this method are similar to parameters of
  49.   // AddPictureEx and AddControlEx:
  50.   // 1st parameter: name of bullet. Allows to store additional text information
  51.   //  together with bullet. There is no predefined meaning of this
  52.   //  parameter. May be it will be used to display hints in future.
  53.   // 2nd parameter: index of image
  54.   // 3rd parameter: ImageList; RichView holds only link to this image list, not
  55.   // a copy of it;
  56.   // 4th parameter: index of paragraph style (-1 to continue paragraph)
  57. end;
  58. end.