Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Cargar imagen jpg en Image (https://www.clubdelphi.com/foros/showthread.php?t=63367)

toni.vi 11-02-2009 12:35:26

Cargar imagen jpg en Image
 
Hola,
Utilizo el componente fcImageBtn1 de los 1st Class de Ipcontrols, y al cargar una imagen jpg me da el error de que no es un Bmp, esto ocurre cuando no esta el uses jpeg cargando un Timage, pero no entiendo como no funciona igual con fcImageBtn1.
El codigo es:
Código SQL [-]
fcImageBtn1.Image.LoadFromFile(FilenameEdit1.FileName);
y tengo el uses jpeg, hay algun otro uses en particular que deba utilizar.
Saludos

roman 11-02-2009 17:50:23

Puede ser que dicho componente no maneje imágenes jpg. Lo que podrías hacer es cargar la imagen con un objeto JPegImage y asignarla a la propiedad Glyph (o equivalente del componente que usas). Aquí un ejemplo para cargar la imagen en un SpeedButton. El método Assign es quien se encarga de la conversión de jpeg a bitmap.

Código Delphi [-]
var
 JPegImage: TJPegImage;

begin
  JPegImage := TJPegImage.Create;

  try
    JPegImage.LoadFromFile('xalapa.jpg');
    SpeedButton1.Glyph.Assign(JPegImage);

  finally
    JPegImage.Free;
  end;
end;

// Saludos

toni.vi 11-02-2009 18:14:03

Gracias, funciona pero es posible hacer el Strech a True?.
El componente que te digo si puede cargar jpg, en diseño va bien pero en ejecución da el error mencionado.
Utilizo este componente porque lo que quiero es un efecto que al pulsar la imagen funcione como un botón.
Si sabes algún metodo o propiedad que me lo haga en el TImage tambien me valdría.

toni.vi 11-02-2009 18:47:42

Siguiendo tu linea, he puesto el código:
Código SQL [-]
//aqui pregunto si es jpg
Image1.Image.LoadFromFile(FilenameEdit1.FileName);
fcImageBtn1.LoadFromJPEG(Image1.Picture.Graphic);

//si es bmp cargo normal
fcImageBtn1.Image.LoadFromFile(FilenameEdit1.FileName);
Me funciona bien.
Gracias.


La franja horaria es GMT +2. Ahora son las 15:53:34.

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