Delphi 中 TRichViewEdit支持GIF

最新推荐文章于 2022-01-18 11:58:44 发布

join牛牛

最新推荐文章于 2022-01-18 11:58:44 发布

阅读量2.1k

点赞数 1

分类专栏：编程语言 GIF动画文章标签： delphi image

本文链接：https://blog.csdn.net/tjb_1216/article/details/7381689

版权

本文介绍了如何在Delphi XE环境下，利用TRichViewEdit组件显示GIF图片。通过创建TMemoryStream，加载GIF文件到TGraphic，然后插入到RichViewEdit1中实现静态显示。关键库包括RVGifAnimate和GIFImage。需要注意的是，动态效果只能在设计时设置AnimationMode为rvaniOnFormat，否则GIF不会动。在某些情况下，可能需要注册TGIFImage类。

摘要由CSDN通过智能技术生成

在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; 注意一定是设计时指定控件属性，在直接在代码中指定