delphi - Delphi 2007 中的动画 GIF 和 TDrawgrid

Question

我能够使用类似下面的代码来绘制图像:

ACanvas.Draw(ARect.Left+16, ARect.Top+4, imgGIF.Picture.Graphic )

现在该 imgGIF 组件的 gif 正在通过

加载

  GIF := TGifImage.Create;
  GIF.LoadFromFile('path\to\gif\processing.gif');
  GIF.Animate := True;
  imgGIF.Picture.Graphic.Assign(GIF);

我正在设置

GIFImageDefaultAnimate := True;
GIFImageDefaultTransparent := True;

环境为Delphi 2007，使用Delphi 2007 DVD自带的TGifImage。这可能吗？要在 TDrawgrid 单元格上显示动画 GIF？

我不认为这是因为canvas.draw只是绘制图像，而不是将组件插入到单元格中 - 所以据我所知，它只是在gif上绘制固定图像。

Answer 1

何时 TGIFImage.Animate设置为 True，调用 Canvas.Draw()将渲染动画的当前帧。当 TGIFImage被放置在 TImage 内, TImage使用 TGraphic.OnChange动画运行时自动重绘最新帧的事件。对TDrawGrid做同样的事情，您必须调用Canvas.Draw()周期性地，例如在间隔设置为 TGIFImage.FrameDelay 值的计时器中属性(property)。否则，将 GIF 图像加载到单独的 TGIFImage 中TDrawGrid 的实例的使用，以便您可以利用 TGraphic.OnChange事件。