Delphi 中 TRichViewEdit支持GIF

在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 image
个人分类: 编程语言 GIF动画
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭