|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
gif анимация в Delphi 2009
Как можно в D2009 отобразить анимацию? Какой компонент?
|
#2
|
||||
|
||||
TMediaPlayer в панели компонентов system.
2 ОСНОВНЫХ ПРАВИЛА ФОРУМА 1)Админ всегда прав 2)Если админ не прав-смотри пункт 1 |
#3
|
||||
|
||||
Tmediaplayer не проигрывает gif анимацию...
|
#4
|
||||
|
||||
Не знаю, насколько это верно, так как сам первый раз попробовал, но вот такой код работает:
Код:
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, GifImg, ExtCtrls; type TForm30 = class(TForm) Image1: TImage; Timer1: TTimer; procedure Timer1Timer(Sender: TObject); procedure FormCreate(Sender: TObject); private Gif: TGifImage; public { Public declarations } end; var Form30: TForm30; implementation {$R *.dfm} procedure TForm30.FormCreate(Sender: TObject); begin Gif := TGifImage.Create; Gif.LoadFromFile('C:\Xom04.gif'); Gif.Animate := True; Gif.AnimateLoop := glEnabled; end; procedure TForm30.Timer1Timer(Sender: TObject); begin Image1.Picture.Assign(Gif); end; end. Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#5
|
||||
|
||||
К сожелению у меня не работает...
|
#6
|
|||
|
|||
Поставьте на форму компонент TWebBrowser и загружайте в него файл .gif методом Navigate =)))
|
#7
|
||||
|
||||
Цитата:
|
#9
|
||||
|
||||
Цитата:
У меня он прокручивает каждый следующий кадр при вызове OnTimer, все работает, несколько с фоном некрасиво, но думаю дело времени. Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#10
|
||||
|
||||
Спс, pesi то что надо))
Цитата:
У меня просто image мигает и всё, кадры не прокручиваються... может нужно пропиставь чтото типа Gif.next )) для перехода на другой кадр... Последний раз редактировалось Zigfreed1, 22.06.2009 в 20:00. |