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

RichEdit

开发平台:

Delphi

  1. unit Unit1;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  5.   Dialogs, RVScroll, RichView, RVEdit, RVStyle, ImgList, StdCtrls, ComCtrls;
  6. type
  7.   TForm1 = class(TForm)
  8.     ImageList1: TImageList;
  9.     RVStyle1: TRVStyle;
  10.     RichViewEdit1: TRichViewEdit;
  11.     ImageList2: TImageList;
  12.     procedure FormCreate(Sender: TObject);
  13.     procedure RichViewEdit1RVFImageListNeeded(Sender: TCustomRichView;
  14.       ImageListTag: Integer; var il: TCustomImageList);
  15.   private
  16.     { Private declarations }
  17.   public
  18.     { Public declarations }
  19.   end;
  20. var
  21.   Form1: TForm1;
  22. implementation
  23. {$R *.dfm}
  24. {-------------------------------------------------------------------------------
  25.   RVStyle1.ListStyles[0] has two levels -
  26.   0th - imagelistcounter
  27.   1st - imagelist
  28. -------------------------------------------------------------------------------}
  29. procedure TForm1.FormCreate(Sender: TObject);
  30. var i: Integer;
  31. const text = 'Text text text. Text text text text. Text text text. Text text text text. Text text text. Text text text text.';
  32. begin
  33.   with RichViewEdit1 do begin
  34.     Clear;
  35.     for i := 1 to 5 do begin
  36.       SetListMarkerInfo(-1, 0, 0, 1, 0, False);
  37.       Add(text, 3);
  38.         SetListMarkerInfo(-1, 0, 1, 1, 0, False);
  39.         Add(text, 0);
  40.         SetListMarkerInfo(-1, 0, 1, 1, 0, False);
  41.         Add(text, 0);
  42.         SetListMarkerInfo(-1, 0, 1, 1, 0, False);
  43.         Add(text, 0);
  44.     end;
  45.     Format;
  46.   end;
  47. end;
  48. // This event is not used in this demo.
  49. // But if you want to save and load this document in RVF, it is necessary.
  50. // Note: ImageList1.Tag is set to 1, ImageList2.Tag is set to 2.  
  51. procedure TForm1.RichViewEdit1RVFImageListNeeded(Sender: TCustomRichView;
  52.   ImageListTag: Integer; var il: TCustomImageList);
  53. begin
  54.   case ImageListTag of
  55.     1: il := ImageList1;
  56.     2: il := ImageList2;
  57.   end;
  58. end;
  59. end.