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