使BCB6 Image支持GIF图片 - TGifImage

备忘。（项目使用的BCB6工具太老，资料都不好找。）

一、安装

1. 进入http://www.torry.net/pages.php?id=102，下载TGIFImage v.2.2 （FOR CB5）并安装。

2. 在上面的网站下载TGIFImage v.2.2.5 （FOR CB6）解压后覆盖到 TGIFImage v.2.2  的安装目录。

3. 安装TGIFImage v.2.2 安装目录下的gifimage.pas到BCB。

4. 检查Image控件->Picture->Load，如下图表示安装成功。

二、使用示例

1. 从Image获取TGIFImage指针：this->pGifImage = dynamic_cast<TGIFImage *>( this->WaitImage->Picture->Graphic );

2. 暂停GIF：this->pGifImage->PaintPause();

3. 恢复GIF：this->pGifImage->PaintResume();

4. 停止GIF：this->pGifImage->PaintStop();