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

RichEdit

开发平台:

Delphi

  1. unit Unit1;
  2. interface
  3. {==============================================================================}
  4. { This demo show how to use information about hypertext item.                  }
  5. {------------------------------------------------------------------------------}
  6. { Key methods:                                                                 }
  7. { - GetJumpPointItemNo;                                                        }
  8. { - methods for obtaining information about items (see first demo in this      }
  9. {   group.                                                                     }
  10. { Useful if text is self-describing (for example, for WWW addresses).          }
  11. {==============================================================================}
  12. uses
  13.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  14.   RVStyle, ExtCtrls, RVScroll, RichView, StdCtrls, ImgList;
  15. type
  16.   TForm1 = class(TForm)
  17.     RichView1: TRichView;
  18.     Panel1: TPanel;
  19.     RVStyle1: TRVStyle;
  20.     ImageList1: TImageList;
  21.     Image1: TImage;
  22.     procedure FormCreate(Sender: TObject);
  23.     procedure RichView1Jump(Sender: TObject; id: Integer);
  24.   private
  25.     { Private declarations }
  26.   public
  27.     { Public declarations }
  28.   end;
  29. var
  30.   Form1: TForm1;
  31. implementation
  32. {$R *.DFM}
  33. procedure TForm1.FormCreate(Sender: TObject);
  34. var ico: TIcon;
  35. begin
  36.   RichView1.AddNL('Hypertext',1,1);
  37.   RichView1.AddNL('Some text styles can be chosen as hypertext styles. ',0,0);
  38.   RichView1.AddNL('Like this one.',4,-1);
  39.   RichView1.AddNL(' You can have as many hypertext styles as you want.  ',0,-1);
  40.   RichView1.AddNL('Here is one more.',5,-1);
  41.   RichView1.AddNL('Images from Image Lists also can be hypertext: ',0,0);
  42.   RichView1.AddHotspotEx('Pen Image', 0,1, ImageList1, -1);
  43.   RichView1.AddNL(' Such images are called "hotspots".',0,-1);
  44.   RichView1.AddNL('Normal images also can be hypertext: ',0,0);
  45.   ico := TIcon.Create;
  46.   ico.Assign(Image1.Picture.Graphic);
  47.   RichView1.AddHotPicture('Bobo', ico, -1, rvvaBaseLine);
  48.   RichView1.Format;
  49. end;
  50. procedure TForm1.RichView1Jump(Sender: TObject; id: Integer);
  51. var ItemNo: Integer;
  52. begin
  53.   ItemNo := RichView1.GetJumpPointItemNo(id);
  54.   Panel1.Caption := 'Clicked: '+RichView1.GetItemText(ItemNo);
  55. end;
  56. end.