Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

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

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

Viktorious (2008-06-26 11:02:00) [2]
Еще можно на GDI+ посмотреть. http://programania.com/gdiplus.zip
Помимо поддержки форматов GIF, PNG, JPEG и т.д. есть много интересных возможностей.

JanMihail (2008-06-26 00:46:00) [3]
Скачай библиотеку RxLibrary, в ней есть хороший компонент RxGifAnimator и много других полезных компонентов

Light-blr (2008-06-25 19:20:00) [4]
Всем спасибо за советы!
Правда, я поставила 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;

Amoeba (2008-06-25 15:37:00) [5]

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

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

Milk (2008-06-25 15:30:00) [6]

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

Amoeba (2008-06-25 15:25:00) [7]

> 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?

Big Joe (2008-06-25 15:15:00) [8]

> Milk (25.06.08 15:05) [3]

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

Palladin (2008-06-25 15:09:00) [9]
действительно странно

Milk (2008-06-25 15:05:00) [10]

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

MBo (2008-06-25 14:27:00) [11]
TGifImage (Anders Melander)
TGifAnimator (RXLib)
аналог в Jedi VCL

HINST (2008-06-25 14:26:00) [12]
через TWebBrowser

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »