XE5 и gif

[avnalobin]

Подскажите, данная студия научилась gif-ки проигрывать без программирования и в многопотоке (т.е. интерфейс не тормозит при наличии на форме большого числа анимированых gif) ?

[S0mbre]

Уже давно можно...
1. Кидаешь на форму TImage и назначаешь ему GIF картинку.
2. Подключаешь к исходнику формы Vcl.Imaging.GIFImg.hpp (или просто GIFImg.hpp для более ранних версий студии).
3. Код для старта анимации:

Код

TGIFImage* pGIF = dynamic_castTGIFImage*>(Image1->Picture->Graphic);
if(pGIF) {
  pGIF->AnimateLoop = glEnabled;
     pGIF->Animate = true;
}
 

4. Код для остановки анимации соответственно:

Код

TGIFImage* pGIF = dynamic_castTGIFImage*>(Image1->Picture->Graphic);
if(pGIF) pGIF->Animate = false;
 

[S0mbre]

... без программирования ...

Это, насколько я знаю, нет. Хотя, м.б., в FMX - точно не могу сказать.

[SilverFish]

Вроде как у ХЕ5 проблемы с gif.
Источник: https://forums.embarcadero.com/message.jspa?messageID=597781

[avnalobin]

Источник: https://forums.embarcadero.com/message.jspa?messageID=597781

сцыль не открывается ни в ие ни в хроме

[S0mbre]

Вот демо-проект, только что наваял на XE3. 30 GIF-ок (расположены на TGridPanel) нормально анимируются стандартным способом. Проверено на Win32 и Win64.

[avnalobin]

Вот демо-проект, только что наваял на XE3.

жму лапу!

1. просьба - кнопки бы переделать в подпункты главного меню, чтоб видно было, как при движении мышой пункты меню раскрашиваются
а вместо кнопок бросить ТЭдит, чтоб печать попробовать одновременно с гифками

2. зачем используется RegisterFileFormat? по дефалту ХЕ5 не хочет чтоль с гифками работать?

[S0mbre]

1. просьба - кнопки бы переделать в подпункты главного меню, чтоб видно было, как при движении мышой пункты меню раскрашиваются
а вместо кнопок бросить ТЭдит, чтоб печать попробовать одновременно с гифками
2. зачем используется RegisterFileFormat? по дефалту ХЕ5 не хочет чтоль с гифками работать?

1. Во вложении
2. Нет, "работать"-то может, даже XE, а может и 2010. Просто чтобы использовать Image->Picture->LoadFromFile, надо сначала зарегистрировать формат графики, отличной от BMP. См. справку по RegisterFileFormat. Можно этого и не делать, но тогда загрузка GIF в картинку будет более сложной:

Код

TGIFImage* pGIF = new TGIFImage();
pGIF->LoadFromFile("file.gif");
Image1->Picture->Graphic->Assign(pGIF);