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增加对动画Gif的支持

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

DELPHI - Delphi 2007 已内部支持 GIF 动画了

====================================================== 注:本文源代码点此下载 =============================...

Delphi中载入GIF动画

Delphi中载入GIF动画 http://www.cnblogs.com/wsoft/articles/2658089.html Delphi 2009 gif动画方法 以前要在...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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