Как отобразить на форме картинку в формате gif?

← →
Light-blr (2008-06-25 14:15) [0]

Здравствуйте! Мне надо, чтобы при вызове программы на форме отображалась статическая gif-картинка (т.е. не двигающаяся). Компонент TImage этот формат не понимает, а больше никаких компонент для отображения картинок я не нашла :( Подскажите, пожалуйста, каким образом можно такую картинку отобразить?

← →
HINST (2008-06-25 14:26) [1]

через TWebBrowser

← →
MBo © (2008-06-25 14:27) [2]

TGifImage (Anders Melander)
TGifAnimator (RXLib)
аналог в Jedi VCL

← →
Milk (2008-06-25 15:05) [3]

> Light-blr (25.06.08 14:15)
Странно, у меня Dephi 5, для TImage поддерживает (загружает) почти все распространенные графические форматы.
gif, jpg, jpeg, bmp, ico, emf, wmf

← →
Palladin © (2008-06-25 15:09) [4]

действительно странно

← →
Big Joe (2008-06-25 15:15) [5]

> Milk (25.06.08 15:05) [3]

Видимо TGifImage установлен ...

← →
Amoeba © (2008-06-25 15:25) [6]

> Milk (25.06.08 15:05) [3]
>
>
> > Light-blr (25.06.08 14:15)
> Странно, у меня Dephi 5, для TImage поддерживает (загружает)
> почти все распространенные графические форматы.
> gif, jpg, jpeg, bmp, ico, emf, wmf

Наверняка установлен RxLib или JVCL?

← →
Milk (2008-06-25 15:30) [7]

> Amoeba © (25.06.08 15:25) [6]
RXLib действительно установлен (сразу не подумал)

← →
Amoeba © (2008-06-25 15:37) [8]

> Milk (25.06.08 15:30) [7]
>
>
> > Amoeba © (25.06.08 15:25) [6]
> RXLib действительно установлен (сразу не подумал)
>

Если отключить Rx в списке установленных пакетов, то диалог редактора св-ва окажется дефолтным, без поддержки GIF.

← →
Light-blr (2008-06-25 19:20) [9]

Всем спасибо за советы!
Правда, я поставила TGifImage и ничего не произошло. Прочитала, что вроде бы это только для делфи 5 и ниже.
Зато нашла попутно интересное решение, которым и воспользовалась:

В разделе uses добавляем AxCtrls. Кидаем на форму Image и Button.

procedure TForm1.Button1Click(Sender: TObject);
var
OleGraphic: TOleGraphic;
fs: TFileStream;
begin
try
OleGraphic := TOleGraphic.Create;
fs := TFileStream.Create("C:\Test.gif", fmOpenRead or fmSharedenyNone);

OleGraphic.LoadFromStream(fs);
Image1.Picture.Assign(OleGraphic);
finally
fs.Free;
OleGraphic.Free
end;
end;

← →
JanMihail (2008-06-26 00:46) [10]

Скачай библиотеку RxLibrary, в ней есть хороший компонент RxGifAnimator и много других полезных компонентов

Еще можно на GDI+ посмотреть. http://programania.com/gdiplus.zip
Помимо поддержки форматов GIF, PNG, JPEG и т.д. есть много интересных возможностей.

К слову, на днях вообще произошло грандиозное событие, которое как-то осталось осталось незамеченным - ОНИ добавили поддержку gifов в Delphi 2007!
http://cc.codegear.com/Item/25696

Как отобразить на форме картинку в формате gif? Найти похожие ветки