Помощь - Поиск - Пользователи - Календарь
Полная версия: Gif в Delphi
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Делфи
Vardes
Такой вопрос, как можно отбразить gif в Delphi в компоненте Image?
volvo
Использовать модуль AxCtrls (в Дельфи 6 уже присутствует):

procedure TForm1.Button1Click(Sender: TObject);
var
OleGraphic: TOleGraphic;
fs: TFileStream;
begin
try
OleGraphic := TOleGraphic.Create;
fs := TFileStream.Create(ExtractFileDir(ParamStr(0)) + '\test.gif', fmOpenRead or fmSharedenyNone);

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

Гость
2 volvo
а как сделать, чтоб gif анимация была в Image?
C этим кодом картинка застывшая sad.gif
klem4
как вариант - разделить гиф на кадры и в таймере выполнять вышеуказанный код, подгружая очередной слайд ...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.