Jpg en un botón

[Novás]

Hola a todos de nuevo:

Estoy buscando algún control para delphi que me permita visualizar una imagen jpeg, gif, wmf... en un botón tipo bitbutton.

Si alguien sabe de la existencia de algún control que haga esto le agradecería que me lo comunicase y me diese la dirección de donde pueda bajármelo.

Muchas gracias...

[delphi.com.ar]

Puedes hacerlo con el mismo BitBtn:

uses
  JPeg;

procedure TForm1.FormCreate(Sender: TObject);
var
  Jpeg: TJPEGImage;
begin
  Jpeg := TJPEGImage.Create;
  try
    JPeg.LoadFromFile('C:\Mis documentos\baggrund.jpg');
    BitBtn1.Glyph.Height := Jpeg.Height;
    BitBtn1.Glyph.Width := Jpeg.Width;
    BitBtn1.Glyph.Canvas.Draw(1, 1, JPeg);
  finally
    Jpeg.Free;
  end;
end;

Saludos!

[Novás]

He probado este mismo código con el TSpeedButton y funciona a las mil maravillas pero...

La imagen que intento introducir es más grande que el botón y entonces no se visualiza correctamente...

Mi pregunta ahora es si existe alguna forma de aplicarle una especie de propiedad "Strech" para que se adapte aun arriesgándome a perder calidad de imagen.

GRACIAS

[delphi.com.ar]

En lugar de dibujarlo con Draw, tienes que dibujarlo con StretchDraw. (El tema del cálculo del tamaño lo dejo para vos)

Saludos!