Javascript Disabled Detected

You currently have javascript disabled. Several functions may not work. Please re-enable javascript to access full functionality.

Problemas con el TImage y PNG

Started by enecumene , Oct 21 2009 06:57 PM

Please log in to reply

5 replies to this topic

#1 enecumene

Webmaster

Administrador
7419 posts

LocationRepública Dominicana

Posted 21 October 2009 - 06:57 PM

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.

0

Back to top

#2 enecumene

Webmaster

Administrador
7419 posts

LocationRepública Dominicana

Posted 21 October 2009 - 09:09 PM

Bueno, aparentemente no funciona con PNG sólo con BMP, lo resolví ajustando la imagen al tamaño que quiero.

Saludos.

0

Back to top

#3 escafandra

Advanced Member

Administrador
4107 posts

LocationMadrid - España

Posted 22 October 2009 - 01:11 PM

Mira a ver si este ejemplo de código, trabajando con el canvas del TImage de tu formulario, te soluciona el problema:

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;