Вопрос:
MCI - он же MMCOntrol. Я передаю ему хэндл PictureBox-a и проэцирую туда
фильм. Всё работает но размер энтой радости - 6 х 7 см. Это маловато 8(.
Что обидно - что если использовать стандартный режим - окно - а не задавать
хэндл для проецирования - то оено элементарно растягиваеться маусом
.
Как задать размер? В первом случае - заранее спасибо!
З.Ы. 1. Просьба другие контролы не предлагать.
2. Очень внимательно читать пункт 1
.
--
листинг:
Public Sub PlayFileFromPosToPos(ByRef ext_MCI As MMControl, ByRef tmr_Controller As Timer, FilePathName As String, ext_PictureBox As PictureBox, StartPos As Long, EndPos As Long)
'Saving Classes Instances
Set cls_MCI = ext_MCI
Set cls_Timer = tmr_Controller
Start = StartPos
Finish = EndPos
cls_MCI.FileName = FilePathName
cls_MCI.Command = "Open"
'Length
'Str(cls_MCI.Length)
cls_MCI.To = Start
cls_MCI.Command = "Seek"
cls_MCI.Command = "Play"
cls_Timer.Interval = 50
cls_Timer.Enabled = True
'Вот єта [р\г]адость:
cls_MCI.hWndDisplay = ext_PictureBox.hWnd
End Sub
