装过Rx后,它会自动注册图象文件扩展名,
将.gif注册为TGifImage文件,
代码如下:
{RxGif.Pas}
initialization
//注册剪贴板格式
CF_GIF := RegisterClipboardFormat('GIF Image');
//注册类
RegisterClasses([TGIFFrame, TGIFImage]);
{$IFDEF USE_RX_GIF}
//注册图象文件格式
TPicture.RegisterFileFormat('gif', LoadStr(SGIFImage), TGIFImage);
//注册剪贴板格式
TPicture.RegisterClipboardFormat(CF_GIF, TGIFImage);
{$IFDEF RX_D3}
finalization
TPicture.UnRegisterGraphicClass(TGIFImage);
{$ENDIF}
{$ENDIF}
end.