Мерцание TImage при Gif-анимации

← →
Jimmy (2014-01-17 20:50) [0]

Добрый день!
При проигрывании Gif-анимации в обычном Image на Delphi XE5 появляются мерцания. Подскажите, как этого избежать?
Раньше использовал RxGifAnimator, проблем не было, да и возможностей управления анимационными гифами было больше. Если же сейчас форме придать DoubleBuffered:=True, то мерцания у анимационного Gif"а исчезают, но фон собственной кнопки перестает быть прозрачным. Почитал, что при DoubleBuffered:=True могут быть проблемы с прорисовкой и других контролов. Если самое простое решение проблемы мерцания все-таки DoubleBuffered:=True, то как решить проблемы потери прозрачности? Или может посоветуете сторонний компонент для проигрывания Gif-анимации для Delphi XE5?
Заранее огромное спасибо!

← →
Лакримакристи (2014-01-19 03:05) [1]

> При проигрывании Gif-анимации в обычном Image на Delphi XE5

Проигрывании каким образом? Что используется-то? Что-то встроенное в XE5 или чего?

> но фон собственной кнопки перестает быть прозрачным

Это чего такое? Подробнее?

← →
Jimmy (2014-01-19 09:12) [2]

Проигрываю Gif так:
procedure TFormCount.FormShow(Sender: TObject); Var G: TGIFImage; Stream: TCustomMemoryStream; begin G:=TGIFImage.Create; Stream := TResourceStream.Create(hInstance,"GGenCount","GIF"); G.LoadFromStream(Stream); Stream.Free; G.Animate:=True; G.Transparent:=True; Image1.Picture.Assign(G); G.Free; Image1.Visible:=True; end;
Собственная кнопка - собственный компонент, сделанный на основе TBitBtn. Так вот если сделать у родительской формы DoubleBuffered:=True, то даже если в
procedure TMyButton.DrawButton(Rect: TRect; State: UINT);
ничего не рисовать вообще - область этой кнопки закрашивается.

← →
Лакримакристи (2014-01-19 17:12) [3]

Установил чистенький XE5 - и оно понятия не имеет что есть TGIFImage.
Засунул модуль в папки debug/release - запустилось. Без мерцаний. Конечно у меня своя gif, может у вас что-то очень быстрое и огромное там...
Добавление DoubleBuffered:=True; ничего не испортило. Может что-то не так с кнопкой?

Мерцание TImage при Gif-анимации Найти похожие ветки