Общие вопросы программирования в C++Builder

[Nikita]

Приветствую всех.

Подскажите каким образом в среде разработки CodeGear RAD Studio 2009 запустить и остановить gif анимацию.

На форму анимация помещается, но она статична.

[volvo877]

Я ж вот тут показывал: https://cbuilder.ru/index.php/topic,7798.msg49436.html#msg49436

[Nikita]

с этим кодом:

Код

gif = new TGIFImage();
gif->LoadFromFile("my_gif.gif");
gif->Animate = true;
Image1->Picture->Graphic = gif;

картинка пришла в движение.

Еще вопросы:
1. Каким образом картинку не грузить из файла а взять из ImageList (например) (в общем чтобы картинку засунуть в проект еще в процессе создания а не в процессе работы проекта)
   gif->ImageList[0]; - не работает
2. Каким образом остановить анимацию на gif (не через Visible)
   gif->Animate = false; - не работает
   gif->AnimationSpeed=0; - не работает
    gif->SuspendDraw(); - не работает

[POV]

Имаджлист маленькие картинки хранит. Запихай лучше в ресурс.

[Nikita]

Имаджлист маленькие картинки хранит. Запихай лучше в ресурс.

В ресурс засунул. А как же ее теперь извлечь? LoadFromResourceName нет такого в gif классе. 

[volvo877]

А не надо, читай из ресурсов в TResourceStream, а оттуда уже LoadFromStream GIF-овский прекрасно заберет изображение...

[Nikita]

А не надо, читай из ресурсов в TResourceStream, а оттуда уже LoadFromStream GIF-овский прекрасно заберет изображение...

Код

TResourceStream *gifAnimate=new TResourceStream(0,AnsiString("GifImage_1"),L"RT_RCDATA");
и так тоже
TResourceStream *gifAnimate=new TResourceStream(0,L"GifImage_1",L"RT_RCDATA");

пишет что ресурс не найден  

[Nikita]

Решил. Нашел на другом форуме. Нужно так:

Код

TGIFImage *gif;
...
TResourceStream *gifAnimate=new TResourceStream(0,"GifImage_1",(System::WideChar*)RT_RCDATA);
gif->LoadFromStream(gifAnimate);
...

Вопрос о том Каким образом остановить анимацию на gif (не через Visible)? Остается актуальным.

[volvo877]

Каким образом остановить анимацию на gif (не через Visible)?

У меня вот так останавливается/запускается анимация:

Код

((TGIFImage*)Image1->Picture->Graphic)->Animate = false; // true

Нужно так:

Так не нужно, а так делают, когда вот так не срабатывает по какой-то причине:

Код

TResourceStream *gifAnimate = new TResourceStream((int)HInstance, "GifImage_1", L"RT_RCDATA");

У меня только что отработало безо всяких проблем...

[Nikita]

У меня вот так останавливается/запускается анимация:

Код

((TGIFImage*)Image1->Picture->Graphic)->Animate = false; // true

Спасибо, заработало как надо.

Так не нужно, а так делают, когда вот так не срабатывает по какой-то причине:

Код

TResourceStream *gifAnimate = new TResourceStream((int)HInstance, "GifImage_1", L"RT_RCDATA");

У меня только что отработало безо всяких проблем...

Я так тоже пробовал, но у меня не сработало, пишет что ресурс не найден.
И так тоже пробовал:

Код

TResourceStream *gifAnimate = new TResourceStream(0, "GifImage_1", L"RT_RCDATA");

Опять же, ресурс не найден.
Вот тут: http://forum.vingrad.ru/forum/act-ST/f-94/t-319255.html ребята писали что это от настроек проекта зависит. Я не стал извращаться с настройками проекта из-за одной функции и сделал так как было предложено на том форуме. Но всё равно спасибо.