Как заставить MediaPlayer проигрывать в fullscreen режиме

← →
пена (2002-06-24 17:26) [0]

Как заставить MediaPlayer проигрывать в fullscreen режиме по нажатию кнопки и чтобы не очень тормозило (ведь даже в самом MediaPlayer при развертывании на весь экран сильных тормозов не наблюдается)?????

← →
fore_3 (2002-06-25 00:18) [1]

Посмотри свойства медиа плеера, там есть свойство isfullscreen... Присваиваешь true будет во весь экран, false - обратно...

← →
пена (2002-06-25 10:23) [2]

Извиняюсь, но можно немного поподробнее, где именно искать это свойство?

← →
Groove (2002-06-25 10:34) [3]

Извените, что прирываю вашу беседу, но свойства isfullscreen нету!

← →
пена (2002-06-25 10:38) [4]

А как же тогда все-таки сделать полноэкранный режим?

← →
fore_3 (2002-06-25 12:21) [5]

Извиняюсь, это свойство есть в dspack...
А для стандартного mediaplayer можно так:

VideoForm - пустая форма

VideoForm.WindowState := wsMaximized;
MediaPlayer1.Display := VideoForm;
MediaPlayer1.DisplayRect := VideoForm.ClientRect;

А лучше спиши dspack, удобнее и поддерживает много файлов...

← →
Proton © (2002-06-25 12:45) [6]

> fore_3 (25.06.02 12:21)

Немного уточню
если ты имееш введу TMediaPlayer
то
BorderStyle := bsNone; /// вот это как раз и позволит развернуть на полный экранй
WindowState :=wsMaximized;
Panel1.Align := alClient;
MediaPlayer1.Display := Panel1;
MediaPlayer1.DisplayRect := Panel1.BoundsRect;
MediaPlayer1.Play;

// а еще поставь свойство нона - всегда сверху
FormStyle:=fsStayOnTop

← →
Groove (2002-06-25 16:33) [7]

А вы не подскажите как сделать, чтобы видео растигивалось на панель пропорционально нормальным размерам. Ну или подскажите как узнать разрешение видеоролика.

> Groove

Определяентся очень просто ты когда развернеш на полный экран -
получаеш максимальный рамер экрана (размеры развернутого окна)
Так вот сразу DisplayRect не задавай а посмотри какой реальный
размер фильма
Label1.Caption := IntToStr(MediaPlayer1.DisplayRect.Top);
Label2.Caption := IntToStr(MediaPlayer1.DisplayRect.Bottom);
Label3.Caption := IntToStr(MediaPlayer1.DisplayRect.Left);
Label4.Caption := IntToStr(MediaPlayer1.DisplayRect.Right);
после этого простой пропорцией вычисляй какой размер фильма
тебе надо
1) вычисляй по формуле
Y фильм * X экран / X Фильм = Y Экран
2) вот ты и получил пропорциональный размер экрана
но это не все полуенный размер экрана может быть больше
реального тогда считай наоборот
3)
X фильм * Y экран / Y Фильм = X Экран
Ну как по центру это выровнять надеюсь сам знаеш ?
В зависимости устанавливай размер панели(т.е. дисплея для плеера)

← →
Groove (2002-06-26 00:47) [9]

да, да... Спасибо большое... Я допёр! УРА!!! я очень рад!!! =)

Как заставить MediaPlayer проигрывать в fullscreen режиме Найти похожие ветки