MovieSourseWidth

MovieSourseWidth

MovieSourseWidth(Movie)

Получает реальную(исходную) ширину видео. 

Movie - Хендл видео, загруженный с помощью LoadMovie   

Пример:

#Include "window9.bi"
Dim As Integer Movie=LoadMovie(0,"1.wmv",100,100,0,0)
ResizeMovie(Movie,100,100,MovieSourseWidth(Movie),MovieSourseHeight(Movie))
PlayMovie(Movie)
Do
 If GetAsyncKeyState(&h1B)<0 Then exit do  'если клавиша ESC нажата, то конец программы
Loop
FreeMovie(Movie)

http://mneniya.ucoz.ru/

Created with the Personal Edition of HelpNDoc: Easily create CHM Help documents