Разворачивание картинки на весь экран

← →
Alex_06 (2006-10-19 10:45) [0]

Уважаемые Мастера! Подскажите как развернуть картинку на весь экран. Есть форма с установленной на неё Panel, Align=alClient и MediaPlayer (со страницы System). Панель работает экраном для плеера, но вот проблема видеоролик воспроизводится только в левом верхнем углу, не желая разворачиваться на весь экран.

← →
Alex_06 (2006-10-19 11:56) [1]

Или другой вариант: используя ActiveX-компонент (стандартный плеер Windows). Как его убедить развернуться во весь экран и автоматически скрыть строку меню и мышь? Было бы интересно получить ответы на оба варианта. Спасибо.

← →
medved_68 © (2006-10-19 12:07) [2]

> Панель работает экраном для плеера, но вот проблема видеоролик
> воспроизводится только в левом верхнем углу, не желая разворачиваться
> на весь экран.

Alex_06 А кто мешает развернуть форму на весь экран, получить размеры клиентской области, развернуть панель на эти размеры, погасить TaskBar и курсор.... :))))

← →
DVM © (2006-10-19 12:10) [3]

> погасить TaskBar

Не надо ее "гасить". Она сама убирается, когда полноэкранное приложение стартует.

← →
Думкин © (2006-10-19 12:19) [4]

> medved_68 © (19.10.06 12:07) [2]

Панель у него итак развернута, речь идет о размере отображаемого ролика.

← →
Alex_06 (2006-10-19 12:31) [5]

Форма изначально развёрнута на весь экран, панель также развёрнута на всю клиентскую область и на экране видна вся, но ролик идёт только в левом верхнем углу. Наверно, это связано с разрешением ролика, но в стандартном проирывателе Windows, при разворачивании его во весь экран, изображение также разворачивается, а в программе мне этого добиться не удаётся. Если это связано с о свойствами MediaPlayer, то был бы рад получить текст программы, если возможно, то с пояснениями. Спасибо.

← →
Думкин © (2006-10-19 12:37) [6]

TMediaPlayer.DisplayRect

← →
Alex_06 (2006-10-19 12:49) [7]

У меня в программе MediaPlayer.DisplayRect:=Panel1.ClientRect. Не помогает.

← →
Думкин © (2006-10-19 12:53) [8]

> Alex_06 (19.10.06 12:49) [7]

Задай явно:
MediaPlayer.DisplayRect := Rect(0,0,..,...);

← →
Alex_06 (2006-10-19 13:54) [9]

Не работает.

А у меня работает. :(
Со всеми видами видео так?

← →
Alex_06 (2006-10-19 17:31) [11]

Разобрался, работает! Всем спасибо!

> Alex_06 (19.10.06 17:31) [11]

Можно узнать - в чем была проблема?

← →
Alex_06 (2006-10-20 13:57) [13]

Предполагаю в последовательности операторов.
MediaPlayer.DisplayRect:=Panel1.ClientRect сначала поставил до
MediaPlayer.Open, а затем перенес после и добавил до Open
MediaPlayer.Notify:=False;

У меня возник ещё один вопрос: решил видеоролик вставить в файл ресурса и, затем, поместить в свой EXE-шник. Создал файл name.rc со строкой CHEAK WMV "Rol.wmv", затем скомпилировал с помощью brcc32.exe. Подключил полученный res-файл к программе, но как теперь загрузить ролик в MediaPlayer? Подскажите. Спасибо.

Разворачивание картинки на весь экран Найти похожие ветки