Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Media";
Текущий архив: 2002.10.24;
Скачать: [xml.tar.bz2];

Вниз

Как заставить 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]

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


 
Proton   (2002-06-25 21:19) [8]


> 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]

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



Страницы: 1 вся ветка

Форум: "Media";
Текущий архив: 2002.10.24;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.57 MB
Время: 0.036 c
14-78614
QUE
2002-10-03 14:01
2002.10.24
Пропали компаненты


1-78483
Inan61
2002-10-12 16:50
2002.10.24
TSpeedButton и Glyph - как реализовать?


3-78314
Nayfl
2002-10-04 06:08
2002.10.24
Сортировка


8-78539
BorisMor
2002-05-16 15:42
2002.10.24
Кодек


1-78485
Higs
2002-10-13 13:07
2002.10.24
Доступ к родит. окну





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский