|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.10.2006, 20:51 | #1 |
Александр
Администратор
Регистрация: 28.10.2006
Сообщений: 17,522
|
Как вставить в программу gif-анимацию ?
перенесено со старого форума. сообщение от A-leXey.
Как вставить в программу gif-анимацию ? перенесено со старого форума. сообщение от zetrix. Используй объект OLE, туда можно вставлять всё что угодно. перенесено со старого форума. сообщение от rpy3uH. я взял это из delphiworld.narod.ru из файловов GIF (анимированных) вытаскивает каждую картинку в отдельности, или записывает в отдельный BMP по очереди Для этих программок нужен всеми любимый RX Lib !!! procedure TForm1.Button4Click(Sender: TObject); var i, a: integer; bm: TBItmap; begin a := 0; bm := TBItmap.Create; bm.Height := RxGIFAnimator1.Height; bm.Width := RxGIFAnimator1.Image.Count * RxGIFAnimator1.width; for i := 0 to RxGIFAnimator1.Image.Count - 1 do begin RxGIFAnimator1.FrameIndex := i; bm.Canvas.Draw(a, 0, RxGIFAnimator1.Image.Frames[i].Bitmap); a := a + RxGIFAnimator1.Height; end; //form1.Canvas.Draw(0,0,bm); bm.SaveToFile(Edit1.Text + '.bmp'); bm.free; end; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вопрос таков- как загрузить *.gif или флеш анимацию | puha16 | Общие вопросы Delphi | 3 | 31.05.2008 21:02 |
Как вставить таймер в программу если нет формы | durexa | Помощь студентам | 9 | 25.06.2007 13:13 |
Как вставить Gif анимацию на кнопку | Aleksandr | Общие вопросы Delphi | 8 | 24.05.2007 08:19 |
Как загрузить GIF анимацию в Image | Ramz | Помощь студентам | 1 | 27.04.2007 15:18 |