Как поставить GIF-анимацию?

Как поставить gif анимациу на delphi

TRxGIFAnimator Component

Unit
GIFCtrl
Description

Компонента предназначена для отображения в Ваших формах анимированных графических изображений формата GIF.
Рисунок, отображаемый в форме, задается свойством Image. Номер кадра, отображаемого в настоящий момент, во время выполнения можно определить по значению свойства FrameIndex. Вы можете также задать это значение в дизайнере. Если свойство Animate установлено в True, то изображение анимируется. Частота смены кадров задана в самом формате GIF и не может быть изменена.
Свойство Transparent определяет, будет ли компонента изображать GIF прозрачным, используя свойство TGIFImage
.TransparentColor.
Компонета также включает в себя свойства, аналогичные свойствам TImage.


--------------------------------------------------------------------------------

Примеры работы и некоторые интересные свойства и методы.

Declaration
property Image: TGIFImage;
Description
Свойство Image задает графическое изображение формата GIF, которое может быть использовано для анимации.


--------------------------------------------------------------------------------

Declaration
property FrameIndex: Integer;

Description
Свойство определяет номер текущего отображаемого кадра в компоненте. Номер кадра должен принадлежать диапазону от 0 до максимального номера кадра в изображении GIF, заданного свойством Image (TGIFImage.Count - 1).
Когда свойство Image не задано, значение FrameIndex = -1.


--------------------------------------------------------------------------------

Declaration
property Animate: Boolean;

Description
Свойство определяет, будет ли автоматически меняться номер отображаемого кадра с интервалом, заданным в формате GIF. Если это свойство имеет значение False, то смены изображений не происходит, а номер текущего отображаемого кадра задается свойством FrameIndex.
Если свойство Loop = False, то после однократного "проигрывания" всех кадров изображения свойство Animate будет сброшено в значение False.


--------------------------------------------------------------------------------

Declaration
property Loop: Boolean;

Description
Свойство определяет, будет ли циклически повторяться последовательность кадров анимации, сохраненной в формате GIF. Если свойство установлено в значение True (по умолчанию), то после того, как свойство FrameIndex достигнет максимально возможного значения, оно будет сброшено в значение 0, и анимация будет продолжена. Если Loop=False, то после прохождения полного цикла анимации свойство Animate будет установлено в значение False (с вызовом события OnStop).


--------------------------------------------------------------------------------

Declaration
property Transparent: Boolean;

Description
Свойство определяет, будет ли изображение GIF рисоваться прозрачным, используя свойство TransparentColor класса TGIFImage; или же будет использован фоновый цвет, указанный в изображении формата GIF.