Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)
-   -   no logro conseguir ajustar un video al tamaño del Panel (https://www.clubdelphi.com/foros/showthread.php?t=74762)

pnsd_89 09-07-2011 17:41:21

no logro conseguir ajustar un video al tamaño del Panel
 
Hola amigos del super club.. hoy tengo una consuta nuevamente,
tengo un programa que reproduce un video.. la cuestion es que quiero que ese video se ajuste al tamaño de mi panel que uso como display, leyendo en otros hilos he sacado este codigo, pero no logro conseguir el objetivo, nose si no estoy entendiendo como utilizar o como lo puedo hacer...:confused:
Código Delphi [-]
Mplayervideo.DisplayRect:= Rect(0,0, pnlVIDEO.Width, pnlVIDEO.Height);

para reproducir el video estoy usando e TMediaplayer... por que no he conseguido otro.. me podrian recomendar otro componente... gracias :D

beginner01 09-07-2011 19:23:44

saludos.

el codigo lo debe estar en el evento
onResize de el panel
Código Delphi [-]
procedure TForm1.pnlvideoResize(Sender: TObject);
begin
 Mplayervideo.DisplayRect:=Rect(0,0,pnlvideo.Width,pnlvideo.Height)
 {
 tambien debe estar en una parte donde se ejecute cada vez que se abra un nuevo video
 despues de Mplayervideo.play 
 }
end;

Cita:

Empezado por pnsd_89 (Mensaje 405923)
para reproducir el video estoy usando e TMediaplayer... por que no he conseguido otro.. me podrian recomendar otro componente... gracias :D

puedes mirar los componentes dspack de aqui

pnsd_89 09-07-2011 19:34:25

Cita:

Empezado por beginner01 (Mensaje 405930)
saludos.

el codigo lo debe estar en el evento
onResize de el panel
Código Delphi [-]
procedure TForm1.pnlvideoResize(Sender: TObject);
begin
 Mplayervideo.DisplayRect:=Rect(0,0,pnlvideo.Width,pnlvideo.Height)
 {
 tambien debe estar en una parte donde se ejecute cada vez que se abra un nuevo video
 despues de Mplayervideo.play 
 }
end;

puedes mirar los componentes dspack de aqui


MUCHISIMAS GRACIAS beginner01 lo voy a probar!!! sos lo mAS!:rolleyes:

ContraVeneno 11-07-2011 17:02:03

tu componente para mostrar el video, ¿no tiene una propiedad "Aling" a la que puedes poner el valor "alClient"?

Caro 11-07-2011 22:59:41

Hola pnsd_89, también puedes utilizar esto:

Código Delphi [-]
 Mplayervideo.DisplayRect:= pnlvideo.ClientRect;

en vez de:

Código Delphi [-]
 Mplayervideo.DisplayRect:=Rect(0,0,pnlvideo.Width,pnlvideo.Height)

Saluditos

pnsd_89 12-07-2011 16:21:57

Gracias a todos por sus respuestas todas las formas que me han dicho funcionan super bien... muchisimas gracias

LARGA VIDA AL CLUB DELPHI! :D


La franja horaria es GMT +2. Ahora son las 12:26:54.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi