delphi - アニメーション GIF を含む TGIFImage - イベントが機能しない - アニメーションの進行状況を検出する方法

Question

Delphi には次のイベントTGIFImageがあります: OnPaint、、、。ただし、アニメーション GIF の表示中にこのイベントが呼び出されることはありません。OnAfterPaintOnLoopOnEndPaint

次のコードを使用して、アニメーション GIF を表示します。

  FGif := (Image1.Picture.Graphic as TGIFImage);
  FGif.OnProgress := GifProgress;
  FGif.OnLoop := GifLoop;
  FGif.OnPaint := GifPaint;
  FGif.OnEndPaint := GifEndPaint;
  FGif.OnAfterPaint := GifAfterPaint;
  FGif.Animate := True;

アニメーションの再生中に現在表示されているフレーム インデックスを抽出する方法は?

アニメーションがいつ終了したかを検出する方法は?

次のフレームがいつ表示されるかを検出する方法は?

OnProgressイベントは、最後のアニメーション フレームが描画された後、最初のアニメーション ループ中にのみ呼び出されます。TGIFImage は最初のフレームからアニメーションを続行しますが、このイベントは機能しなくなります。

Delphi 10.2 Tokyo を使用しています。