Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ Gif в Delphi

Автор: Vardes 31.05.2007 23:42

Такой вопрос, как можно отбразить gif в Delphi в компоненте Image?

Автор: volvo 1.06.2007 1:57

Использовать модуль 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.11.2007 5:27

2 volvo
а как сделать, чтоб gif анимация была в Image?
C этим кодом картинка застывшая sad.gif

Автор: klem4 4.11.2007 13:34

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