Delphi 中 TRichViewEdit支持GIF

原创 2012年03月22日 08:54:37

在Delphi中,TRichViewEdit支持GIF,我的开发环境是  Delphi XE 版本。


代码如下:


procedure TForm2.AddGifToRichViewEdit;
var
 aStream: TMemoryStream;
 LGraphic: TGraphic;
begin
  aStream := TMemoryStream.Create;
  aStream.LoadFromFile('F:\30.gif');
  LGraphic := TGIFImage.Create;
  LGraphic.LoadFromStream(aStream);
  RichViewEdit1.InsertPicture('gif', LGraphic, rvvaBaseline);
  aStream.Free;
end;

在USES  中    RVGifAnimate(Delphi2007是 RVGifAnimate2007),GIFImage,


RVGifAnimate2007 for Delphi 2007, or
RVGifAnimate for Anders' TGifImage, or
RVJvGifAnimate for JVCL Gif Image


在 设置 RichViewEdit1的属性AnimationMode:=rvaniOnFormat;  注意 一定是设计时指定控件属性,在直接在代码中指定


RichViewEdit1.AnimationMode:=rvaniOnFormat;  GIF图是不会有动态效果(这一点,不是为什么)!注意是设计时。

如果还是不动,就添加(反正我的代码中 没有加。主要是为了注册 TGIFImage 组件)

initialization

RegisterClasses([TGIFImage]);










Delphi文字处理控件TRichView

TRichView 是一套支持Delphi/C++Builder的控件,有和Word相似的功能,主要用于编辑、显示和打印超文本文档。该控件支持各种各样不同的属性(字体、下标和上标,自定义下拉列表,文...
  • fanganzhuanjia
  • fanganzhuanjia
  • 2014年05月23日 14:14
  • 1046

解决RichViewEdit乱码问题

RichViewEdit1.8版本测试通过⑴ 设置RichViewEdit下面的几个属性:  ① RTFReaderProperties → ParaStyleMode → rvrsAddIfNeed...
  • wbryfl
  • wbryfl
  • 2008年02月13日 22:23
  • 2537

RichviewEdit 图文保存操作

首先要转换成stream后才能对RichviewEdit进行正确的读和写  function SaveRVFToField(rv: TCustomRichView; tbl: TTable; ...
  • yeeonefx
  • yeeonefx
  • 2015年08月15日 19:29
  • 1109

解决TRichView_v1911控件出现乱码的方法

解决TRichView_v1911控件出现乱码的方法:TRichView_v1911是很不错的副文本编辑控件,但是它对中文的支持很差,其中如果文件保存为RTF格式的文档后,再读取时,换行的时候就很可能...
  • marklr
  • marklr
  • 2008年01月14日 14:23
  • 1504

C++Builder文字处理控件TRichView

TRichView 是一套支持Delphi/C++Builder的控件,有和Word相似的功能,主要用于编辑、显示和打印超文本文档。该控件支持各种各样不同的属性(字体、下标和上标,自定义下拉列表,文本...
  • u014542704
  • u014542704
  • 2014年04月22日 12:03
  • 648

RichView中插入动态Gif图像注意事项

以下是封装的一个函数: procedure RichViewAddPicture(RichEdit: TRichViewEdit; const TagStr: string;   Stream: ...
  • missmecn
  • missmecn
  • 2012年03月07日 10:26
  • 2034

Delphi增加对动画Gif的支持

以下内容转载于网络:http://hi.baidu.com/delphilee/blog/item/7fd4a73f8c94f3e855e72310.html   今天在查看Rad Studio ...
  • kampan
  • kampan
  • 2011年12月27日 17:33
  • 7824

Delphi 载入Gif图片

Delphi中载入GIF动画 首先,先下载TgifImage.pas单元。步骤:[project]-->[add to project...] 选择TgifImage.pas单元然后...
  • lailai186
  • lailai186
  • 2014年12月15日 14:53
  • 2781

DelphiXE 显示GIF动画

DelphiXE 显示GIF动画DelphiXE可以直接显示GIF动画,不需要第三方控件的支持。只要引用GifImg单元即可。uses GIFImg;procedure TForm1.FormCrea...
  • shuaihj
  • shuaihj
  • 2012年02月14日 15:19
  • 3700

Delphi使用Image显示gif动画

delphi中,使用TGifimage这个类可以使Image显示Gif动画 // Image1:TImage; // Image1.Picture.LoadFromFile(OpenDialog1...
  • gjtao1130
  • gjtao1130
  • 2014年05月15日 16:47
  • 4116
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi 中 TRichViewEdit支持GIF
举报原因:
原因补充:

(最多只允许输入30个字)