Foros Club Delphi - Jpg en un botón

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Jpg en un botón (https://www.clubdelphi.com/foros/showthread.php?t=4819)

Novás

29-10-2003 19:26:14

Jpg en un botón

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

29-10-2003 19:38:15

Puedes hacerlo con el mismo BitBtn:

Código:

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

30-10-2003 14:05:25

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

30-10-2003 15:40:09

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

Saludos!

La franja horaria es GMT +2. Ahora son las 05:07:40.