Delphi 2007 中的动画 GIF 和 TDrawgrid

发布于 2024-10-31 05:42:17 字数 583 浏览 6 评论 0原文

我可以使用类似下面的代码来绘制图像：

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

现在正在通过

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

我设置

GIFImageDefaultAnimate := True;
GIFImageDefaultTransparent := True;

加载该 imgGIF 组件的 gif环境是 Delphi 2007，使用 Delphi 2007 DVD 附带的 TGifImage。这可能吗？要在 TDrawgrid 单元格上显示动画 GIF？

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

原文

I am being able to draw the image using something like the code below:

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

Now the gif for that imgGIF component is being loaded via

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

I am setting

GIFImageDefaultAnimate := True;
GIFImageDefaultTransparent := True;

The environment is Delphi 2007, using the TGifImage that comes with the Delphi 2007 DVD.
Is this even possible? To display an animated GIF on a TDrawgrid Cell?

I don't think it is since canvas.draw is only drawing the image, not inserting the component into the cell - so as far as I can understand, it is only drawing the firm image on the gif.

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

鹤舞 2024-11-07 05:42:17

当TGIFImage.Animate设置为True时，调用Canvas.Draw()将渲染动画的当前帧。当 TGIFImage 放置在 TImage 内时，TImage 使用 TGraphic.OnChange 事件自动重绘最新帧当动画运行时。要使用 TDrawGrid 执行相同的操作，您必须定期调用 Canvas.Draw()，例如在间隔设置为 Canvas.Draw() 的值的计时器中。代码>TGIFImage.FrameDelay 属性。否则，将 GIF 图像加载到单独的 TGIFImage 实例中以供 TDrawGrid 使用，以便您可以利用 TGraphic.OnChange 事件。