Автор | Сообщение |
|
| |
Пост N: 4683
Зарегистрирован: 17.05.05
|
|
Отправлено: 06.04.15 16:00. Заголовок: Анимированный GIF
Можно ли вывести средствами Windows , и что бы анимация была ? Похоже можно но в Сях не силен. _https://msdn.microsoft.com/en-us/library/system.drawing.imageanimator.animate%28v=vs.110%29.aspx
|
|
|
Ответов - 4
[только новые]
|
|
|
| |
Пост N: 536
Зарегистрирован: 20.02.11
|
|
Отправлено: 06.04.15 16:09. Заголовок: а мож так core\..
а мож так core\contrib\hbgd\tests\animgif.prg PS это похоже создает такой гиф а не кажет его (( в минигуи есть точно
|
|
|
|
| |
Пост N: 4684
Зарегистрирован: 17.05.05
|
|
Отправлено: 06.04.15 16:18. Заголовок: Да ну на фик этот HB..
Да ну на фик этот HBGD А вот в Минигуи да есть и я уже знаю как сделать под GTWVT.
|
|
|
|
| |
Пост N: 4685
Зарегистрирован: 17.05.05
|
|
Отправлено: 06.04.15 21:45. Заголовок: Первый блин комом ка..
Первый блин комом как обычно ;) Вот такой тест сделал. ret:=.f. Agif:=Directory("*.gif") ss:=SaveScreen(1,36,5,44) // всего 40 файлов , фреймы извлеченные из анимированного Gif // каждый не более 10 кило весом. do while !ret FOR EACH File IN Agif Wvt_DrawImage(1, 36,5, 44,File[1]) if inkey(0.05)==27 // задержка нужна ret:=.t. exit endif RestScreen(1,36,5,44,ss) // коментю эту строку и ни чего не дергается (не моргает) // но остается старое изображение NEXT enddo Возможно RestScreen шибко медленный или у меня лыжи не едут. Не пойму куда копать.
|
|
|
|
| |
Пост N: 4687
Зарегистрирован: 17.05.05
|
|
Отправлено: 07.04.15 16:27. Заголовок: Собственно все получ..
Собственно все получилось. _https://cloud.mail.ru/public/860ec0289f31/07.04.2015%2016-24-09.avi В программе все плавнее работает и ни чего не мерцает , видео дернул с помощью Snagit
|
|
|
|