Анимированный gif в форматах Delphi XE 3

Возможный дубликат:Как использовать Animated Gif в форме delphi

Недавно я обновил мою версию Delphi 7 до Delphi XE3.

Используя Delphi 7, я использовал компонент для добавления GIF в TImage, у delphi XE3 уже есть совместимость с gif, нет необходимости устанавливать дополнительные сторонние компоненты.

мой вопрос: когда я прикрепляю gif к TImate, он становится статическим, показывает только первый кадр.

есть ли какая-нибудь команда для этого? например Image1.Play или что-то еще?

2 ответа

Чтобы начать анимацию, сделайте следующее:

(Image1.Picture.Graphic as TGIFImage).AnimateLoop := glEnabled;
(Image1.Picture.Graphic as TGIFImage).Animate := true;

Чтобы управлять скоростью анимации, установите для свойства AnimationSpeed значение 0..1000, значение по умолчанию - 100.

См. также @DavidHeffernan answer, Как использовать Animated Gif в форме delphi


Требуемая единица измерения:

uses Vcl.Imaging.GIFImg

Код для анимации:

TGIFImage(Image1.Picture.Graphic).Animate := True;

licensed under cc by-sa 3.0 with attribution.