Скачать: CL | DM;

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;

---

← →
fashist ©   (2004-01-13 16:33) [4]

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

fashistgl@nm.ru

---

← →
Валентин ©   (2004-01-14 03:38) [5]

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

---

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

Скачать: CL | DM;



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