GIFImage和GraphicEx的学习总结

正在学习GIFImage和GraphicEx,把学习心得放在这里与大家共享。

刚学些GIFImage的使用,初步解决了GIF动画显示,闪烁的问题,总结如下: 
1、GIFImage.pas,可不用打包安装,只需要简单的把GIFImage.pas加入到Project中即可USES了。 
2、要把Image1的Width、Height设置成GIF图片的实际大小,可减少闪烁的发生,或者Image1.Stretch  :=  true; 
3、把GIF文件Assign给Image时,注意以下语句的区别,一种只能得到静态的GIF图片。 
Image1.Picture.Assign(myGif);//正确的Assign,可以得到GIF动画。 
image1.Picture.Bitmap.Assign(myGif);//只能得到静态的GIF图片。 
 
程序如下所示,在DELPHI7,TGIFImage2.2下测试通过。 
 
uses GIFImage;
... 
var 
       myGif:TGIFImage; 
begin 
       myGif  :=  TGIFImage.Create; 
       myGif.LoadFromFile('e:/a.gif'); 
 
       Image1.Width:=myGif.Width; 
       Image1.Height:=myGif.Height; 
       Image1.Picture.Assign(myGif); 
 
       myGif.Free; 
end;


GraphicEx 9.9总结:
1、在GraphicEx9.9中,GIF格式默认是关闭的,需要打开。
方法是在GraphicConfiguration.inc文件中,找到
{.$define UseLZW}
修改成
{$define UseLZW}
2、将GraphicEx下的pas文件加入到例子中的project中,即可把例子重新编译,并支持GIF文件。(注意GraphicStrings.pas加入进去就行了。其它的DE,FR,RU就不要加了。)

使用GraphicEx 9.9,GIF不能显示动画,程序如下

uses
    GraphicExe;

procedure TForm1.GraphiExClick(Sender: TObject);
var
    myGif:TGIFGraphic;
begin
    myGif := TGIFGraphic.Create;

    if myGif.CanLoad('e:/a.gif') then
        myGif.LoadFromFile('e:/a.gif');

    image1.Picture.Assign(myGif);

    myGif.Free;
end;

阅读更多
文章标签: image delphi 测试
想对作者说点什么? 我来说一句

GraphicEx.v9.9 Delphi的一个图片控件

2010年07月03日 548KB 下载

GifImage 2.2 控件下载 for Delphi7/6

2009年12月27日 973KB 下载

GifImage

2007年06月12日 794KB 下载

TGIFImage2.2安装版

2008年10月29日 866KB 下载

GifImage for delphi 3 4 5 6 7

2012年02月07日 35KB 下载

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

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