Video an Fenstergröße anpassen

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, skunker.

Delphi-Quellcode:

procedure TPlayForm.ButtonClick(Sender: TObject);
begin
  with MediaPlayer do
  begin
    FileName := 'c:\media\video\rubber-band.wmv';
    Open;
    self.OriginalRect := DisplayRect;
    Display := PlayPanel;
    Play;
  end;
end;

Nach dem Öffnen kannst du dir die Originalgröße des Video-Clips in einer private variable deiner Form merken. Damit hast du dann auch das Seitenverhältnis Breite zu Höhe:

Delphi-Quellcode:

function GetRatio(r: TRect): extended;
begin
  with OriginalRect do
  begin
    Result := Succ(Right - Left) / Succ(Bottom - Top);
  end;
end;

Im Ereignis OnResize von PlayPanel kannst du dann die Skalierung vornehmen.

Grüße vom marabu