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

Расположение TMediaPlayer на экране?   Найти похожие ветки 

← →
Navigator_3000   (2003-03-26 11:26) [0]

Приветствую всех!
У меня такая проблемка. При загрузки *.avi с помощью mediaplayer"a, надо чтобы изображение распологалось точно в центре экрана, не зависимо от смены разрешения.
На всякий случай даю код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Jpeg, MPlayer, ExtCtrls;
type
TForm1 = class(TForm)
MediaPlayer1: TMediaPlayer;
Image1: TImage;
Image2: TImage;
procedure FormShow(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
path:string;
implementation
{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject);
begin
path:=extractfilepath(application.ExeName);
image1.Picture.LoadFromFile(path+"knops\fon2.jpg");
image1.Top:=0;
image1.Left:=0;
image1.Width:=screen.Width;
image1.Height:=screen.Height;
image1.Stretch:=true;
image2.Picture.LoadFromFile(path+"knops\first-k3.jpg");
image2.Left:=(screen.Width-640) div 2;
image2.top:=(screen.Height-480) div 2;
image2.AutoSize:=true;
image2.Visible:=true;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
l,t:integer;
begin
l:=screen.Width div 2;
t:=screen.Height div 2;
mediaplayer1.FileName:=path+"main\forema.avi";
mediaplayer1.Open;
mediaplayer1.Play;
mediaplayer1.DisplayRect:=rect(l,t,0,0);
end;
end.

Заранее спасибо!

---

← →
TrollXP ©   (2003-03-26 13:21) [1]

Я делал по другому:
Panel1.Left:=Form1.Width div 2 - ((MediaPlayer1.DisplayRect.Right-MediaPlayer1.DisplayRect.Left) div 2);
Panel1.Top:=FOrm1.Height div 2 -((MediaPlayer1.DisplayRect.Bottom-MediaPlayer1.DisplayRect.Top) div 2);
Вроде работало :)

---

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

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



Память: 0.45 MB
Время: 0.017 c