Hallo!!
In meinem Programm kann ich bereits eine Videodatei, über ein Panel als Dispay, abspielen!
Doch jezt habe ich das PRoblem, dass sich das Video nicht an die Panelgröße anpasst!!
Wie kann ich diess PRoblem beheben??
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
mediaplayer1.Filename:=OpenDialog1.FileName;
mediaplayer1.Open;
Trackbar1.Min:=0;
Trackbar1.Max:=Mediaplayer1.Length;
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Trackbar1.Max <> 0 then
Trackbar1.Position:=Trackbar1.Position;
end;
Bitte auch Beispiele als delphi-Code!!