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

RichEdit

开发平台:

Delphi

  1. {==============================================================================}
  2. {
  3.   This demo shows working with Unicode composite characters.
  4.   Special processing for these characters is available only in WinNT/2000/XP.
  5.   (and depends on Windows version...) 
  6. }
  7. {==============================================================================}
  8. unit Unit1;
  9. interface
  10. uses
  11.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  12.   Dialogs, RVScroll, RichView, RVEdit, RVStyle;
  13. type
  14.   TForm1 = class(TForm)
  15.     RVStyle1: TRVStyle;
  16.     RichViewEdit1: TRichViewEdit;
  17.     procedure FormCreate(Sender: TObject);
  18.   private
  19.     { Private declarations }
  20.   public
  21.     { Public declarations }
  22.   end;
  23. var
  24.   Form1: TForm1;
  25. implementation
  26. {$R *.dfm}
  27. procedure TForm1.FormCreate(Sender: TObject);
  28. var i: Integer;
  29. begin
  30.   for i := 0 to RVStyle1.TextStyles.Count-1 do
  31.     RVStyle1.TextStyles[i].Unicode := True;
  32.  RichViewEdit1.Clear;
  33.  RichViewEdit1.LoadRVF(ExtractFilePath(Application.ExeName)+'test.rvf');
  34.  // May be your computer does not have 'Arial Unicode MS' font
  35.  if Screen.Fonts.IndexOf('Arial Unicode MS')<0 then
  36.    for i := 0 to RVStyle1.TextStyles.Count-1 do
  37.      if RVStyle1.TextStyles[i].FontName = 'Arial Unicode MS' then
  38.        RVStyle1.TextStyles[i].FontName := 'Lucida Sans Unicode';
  39.  RichViewEdit1.Format;
  40. end;
  41. end.