关闭

Delphi 中 TRichViewEdit支持GIF

标签: delphiimage
1652人阅读 评论(0) 收藏 举报
分类:

在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]);










0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:99149次
    • 积分:1265
    • 等级:
    • 排名:千里之外
    • 原创:22篇
    • 转载:33篇
    • 译文:0篇
    • 评论:11条