| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Delphi: Звук, графика и видео > TAnimate |
| Автор: samposebe 8.4.2008, 22:42 |
| я конечно понимаю что следующий вопрос звучит ненармально, но всеже. Как сделать паузу в компаненте TAnimate. Я очень долго искал в хелпе и нарвался вот на такую ерунду type TMovieStatus = (msSourceEmpty = -2, msUnknownFormat = -1, msPaused = 1, msEndOfFrame, msEndOfLoop, msEndOfMovie, msSpeedChanged); TMovieStatusEvent = procedure(Sender: TObject; Status: TMovieStatus) of object; property OnStatusChange: TMovieStatusEvent но че только я не пробовал ниче не получается. |
| Автор: WaReZMEN 9.4.2008, 00:36 |
| Кинь на форму еще MediaPlayer (закладка SYSTEM ) у него в своствах Display выстовь свои Animate и радуися жизни |
| Автор: samposebe 9.4.2008, 06:26 |
| э, так не пойдет. но собственно тут не важна сама пауза. может кто знает как прочитать сколько кадров в секунду найти в свойствах или какое количество времени будет воспроизводиться сам клип. |
| Автор: WaReZMEN 9.4.2008, 07:28 |
| samposebe, слушаи а не проще скачать другои компонент нежеле доподобным Animate пользоватся? а так почитаи сдесь http://www.beluch.ru/progr/100comp/4_8_2.htm |
| Автор: samposebe 9.4.2008, 09:00 |
| проблема в том что нужно именно анимате. сам бы я низашто на подобное не решился |
| Автор: WaReZMEN 10.4.2008, 00:49 |
| Вот сдесь посмотри http://nigma.ru/m&WaReZ_MEN |
| Автор: Rrader 10.4.2008, 12:43 | ||||
| Ставишь Timers = True. Animate создает поток для показа AVI. Получаешь его дескриптор, ну а затем: Пауза:
Возобновление:
|