用过gifimage控件的高手再来一次again!!!!!!!!!!!!!!
以下程序用来显示没动画效果的gif图片,没问题。
显示有动画效果的gif图片,bcb就死在那里。
有没有办法显示动画效果的gif图片?
#include <vcl.h>
#pragma hdrstop
#include<GIFImage.hpp>
#pragmalink "C:\\ProgramFiles\\Borland\\CBuilder\\Source\\vcl\\gifimage.obj"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{ TGIFImage *GIF= new TGIFImage;
GIF->LoadFromFile("c:\\pic_1049462154.gif");
Image1->Picture->Assign(GIF);
delete GIF;
}
//---------------------------------------------------------------------------