| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Media Player [D7, WinXP]

The xXx ©   (2004-01-07 20:30:00) 

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

---

Валентин   (2004-01-14 03:38:00) [1]

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

---

fashist   (2004-01-13 16:33:00) [2]

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

fashistgl@nm.ru

---

intell   (2004-01-10 11:17:00) [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;

---

TrollXP   (2004-01-09 19:34:00) [4]

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

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-07 21:10:00) [5]

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

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

---

Наверх