RichMemo 显示rtf文件

hewei

RichMemo 显示rtf文件

1.下载RichMemo组件文件

一直在Lazarus中寻找显示rtf文本文件的组件，在网上《LZFLazarus+ZeosDBO+FireBird 开发者指南》的第四十三章RichMemo 编辑器 得知RichMemo 可以显示rtf文件的文本，在http://wiki.lazarus.freepascal.org/RichMemo页面中有介绍及下载地址，Download Releases can be found at Sourceforge Lazarus-CCR project 下载到richmemo-1.0.zip 解压缩得到richmemo 文件夹，将其复制到C:\lazarus\components。

2.安装RichMemo 组件

启动LazarusIDE v1.2.4 菜单栏->包->打开包文件->C:\lazarus\components\richmemo\richmemopackage.lpk 打开，user->安装->马上重新编译…正在编译…，编译过程中可能会出现如下错误：C:\laz_components\richmemo\win32\win32richmemo.pas(105,3)Error: Wrong number of parameters specified for call to"PrepareCreateWindow"

显示在win32richmemo.pas

  // general initialization ofParams

PrepareCreateWindow(AWinControl, Params);

将其改为

PrepareCreateWindow(AWinControl,AParams, Params);

继续编译即可通过！

其中：https://svn.code.sf.net/p/lazarus-ccr/svn/components/richmemo/win32/win32richmemo.pas上的源码作者已经将更正为PrepareCreateWindow(AWinControl,AParams, Params);

Lazarus自动关闭，重新启动，在组件面板上common controls 上出现有A图标，就是TRichMemo组件，如图：

3.RichMemo组件的使用

  菜单栏->新建->应用程序 保存在 D:\lazrichmemopro,在Form中放入TRichMemo设置其属性scrollbar为ssAutoVertical，放入一个按钮button1设置其caption 为Loadrtf,再放一个 OpenDialog1。

button1click事件：

procedure TForm1.Button1Click(Sender: TObject);

var

filename:TFileStream;

begin

if OpenDialog1.Execute then begin

  filename:=nil;

   try

    filename:= TFileStream.Create(Utf8ToAnsi(OpenDialog1.FileName),fmOpenRead or fmShareDenyNone);

     RichMemo1.LoadRichText(filename);

    //RichMemo1.ScrollBars:=ssAutoVertical;

   except

   end;

  filename.Free;

   end;

end;

4.运行

如果加载rtf文件后，RichMemo右侧的滚动条没有显示，请将TRichMemo的属性HideSelection的改为True,重新编译运行即可。

5.缺点

    此TRichMemo组件，不能显示图片。但这已经足够了！

6.效果图

本帖为原创，不想让大家像我找的这样辛苦哦!其中代码参照TRichMemo的实例testsimple中的代码。
非常感谢RichMemo的作者，为我们提供了很好的工具！