Hola amigos, tengo este problema, estoy cargando un imagen PNG en un TImage, hasta ahí todo bien, pero..., el png es muy grande por eso coloqué la propiedad Strech a True pero no me furula, o sea, no se adapta al tamaño del TImage, y probé con el TJvImage y me da el mismo problema, no sé qué sucede, ¿alguna idea?.
Saludos.
Problemas con el TImage y PNG
Comenzado por
enecumene
, oct 21 2009 06:57
5 respuestas en este tema
#1
Escrito 21 octubre 2009 - 06:57
#2
Escrito 21 octubre 2009 - 09:09
Bueno, aparentemente no funciona con PNG sólo con BMP, lo resolví ajustando la imagen al tamaño que quiero.
Saludos.
Saludos.
#3
Escrito 22 octubre 2009 - 01:11
Mira a ver si este ejemplo de código, trabajando con el canvas del TImage de tu formulario, te soluciona el problema:
Saludos.
delphi
procedure TForm1.Button1Click(Sender: TObject); var R: TRect; Image: TImage; begin // Creamos un TImage para cargar la imagen antes de visualizarla... Image := TImage.Create(Self); Image.Picture.LoadFromFile(Mi_Archivo_de_Imagen); // Preparamos para la función StretchDraw R.Left := 0; R.Top := 0; R.Bottom := Image1.Height; R.Right := Image1.Width; // Copiamos la imagen cambiada de tamaño a Image1 desde Image... // Image1 esta definida en tiempo de diseño.... Image1.Canvas.StretchDraw(R, Image.Picture.Graphic); end;
Saludos.
#4
Escrito 22 octubre 2009 - 04:59
Gracias escafandra ya lo pruebo.
Saludos.
Saludos.
#6
Escrito 25 octubre 2009 - 09:32
Gracias Cannabis, los pngcomponents son los que estoy utilizando .
Saludos.
Saludos.