Форум » [x]Harbour » Анимированный GIF » Ответить

Анимированный GIF

Dima: Можно ли вывести средствами Windows , и что бы анимация была ? Похоже можно но в Сях не силен. _https://msdn.microsoft.com/en-us/library/system.drawing.imageanimator.animate%28v=vs.110%29.aspx

Ответов - 4

Haz: а мож так core\contrib\hbgd\tests\animgif.prg PS это похоже создает такой гиф а не кажет его (( в минигуи есть точно

Dima: Да ну на фик этот HBGD А вот в Минигуи да есть и я уже знаю как сделать под GTWVT.

Dima: Первый блин комом как обычно ;) Вот такой тест сделал. [pre2] 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 [/pre2] Возможно RestScreen шибко медленный или у меня лыжи не едут. Не пойму куда копать.


Dima: Собственно все получилось. _https://cloud.mail.ru/public/860ec0289f31/07.04.2015%2016-24-09.avi В программе все плавнее работает и ни чего не мерцает , видео дернул с помощью Snagit



полная версия страницы