Текущий архив: 2002.08.22;
Скачать: CL | DM;

Вниз

Подгонка под размеры экрана   Найти похожие ветки 

← →
Gena   (2002-04-01 20:27) [0]

Подскажите, пожалуйста, как подогнать размер видеоклипа (*.avi) под размеры экрана в full screen mode.

---

← →
Ptushenko Denis   (2002-04-17 09:40) [1]

Нужно использовать TMediaPlayer и его свойство свойство DisplayRect.


var VideoRect:TRect;
begin
with VideoRect do begin
Lef:=0;
Top:=0;
Right:=Form1.ClientWidth;
Bottom:=Form1.ClientHeight;
end;
MediaPlayer1.Filename:="C:\video.avi";
MediaPlayer1.Display:=Form1;
MediaPlayer1.Open;
MediaPlayer1.DisplayRect:=VideoRect;
MediaPlayer1.Play;


---

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

Текущий архив: 2002.08.22;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.01 c