cs_Kenavo
Messages postés702Date d'inscriptionvendredi 21 mars 2003StatutMembreDernière intervention 1 octobre 20095 23 oct. 2004 à 15:01
Ben, tu recalcule la zone (MediaPlayer1.DisplayRect ) à chaque redimensionnement
procedure TForm1.FormResize(Sender: TObject);
var
W, H: integer;
R : Trect;
begin
R := MediaPlayer1.DisplayRect;
W := R.Right;
H := R.Bottom;
R.Left := (Panel1.Width-W) div 2;
R.Top := (Panel1.Height-H) div 2;
MediaPlayer1.DisplayRect := R;
end;
cs_Kenavo
Messages postés702Date d'inscriptionvendredi 21 mars 2003StatutMembreDernière intervention 1 octobre 20095 23 oct. 2004 à 15:01
Ben, tu recalcule la zone (MediaPlayer1.DisplayRect ) à chaque redimensionnement
procedure TForm1.FormResize(Sender: TObject);
var
W, H: integer;
R : Trect;
begin
R := MediaPlayer1.DisplayRect;
W := R.Right;
H := R.Bottom;
R.Left := (Panel1.Width-W) div 2;
R.Top := (Panel1.Height-H) div 2;
MediaPlayer1.DisplayRect := R;
end;