Media Player

← →
The xXx (2004-01-07 20:30) [0]

Как растянуть изображение на весь экран?

← →
Intell © (2004-01-07 21:10) [1]

MediaPlayer1.DisplayRect:=Rect(20,20,60,60);

А для растягивания кажется ClientRect.

← →
TrollXP © (2004-01-09 19:34) [2]

Я вот тут покапался, и вот что нашёл. Попробуй:

procedure TMainForm.Button10Click(Sender: TObject); const Rect: TRect = (Left: 0; Top: 0; Right: 0; Bottom: 0); FullScreen: Boolean = False; // Разворачиваем на весь экран begin FullScreen := not FullScreen; if FullScreen then begin Rect := BoundsRect; SetBounds( Left - ClientOrigin.X, Top - ClientOrigin.Y, GetDeviceCaps( Canvas.handle, HORZRES ) + (Width - ClientWidth), GetDeviceCaps( Canvas.handle, VERTRES ) + (Height - ClientHeight )); end else BoundsRect := Rect; end;

← →
intell © (2004-01-10 11:17) [3]

Тоге самое, но попроще:

var
Start_From : Longint;
begin
Form2.Show;
Form2.WindowState := wsMaximized;
if Form1.mediaplayer1.filename<>"" then begin
with form1.MediaPlayer1 do
Start_From:=Position;
Form1.MediaPlayer1.Close;
Form1.MediaPlayer1.Display:= Form2.Panel1;
Form1.MediaPlayer1.Open;
Form1.MediaPlayer1.Position:=Start_From;
Form1.MediaPlayer1.DisplayRect := Form2.ClientRect;
Form1.MediaPlayer1.Play;
end;

если это MediaPlayer то унего есть свойство ScreenMode (v 5.0 >)
устанавливаешь на FullScreen и всё но в разных версиях оно по разному может называться

fashistgl@nm.ru

Слышь парень, MediaPlayer использовать не рекомендую, XP с ним работать не хочет, обделишь добрую часть компьютерщиков...

Media Player Найти похожие ветки