FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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...
__________________
Hay dos cosas infinitas: el Universo y la estupidez humana. http://www.cybertarjetas.net |
#2
|
||||
|
||||
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;
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#3
|
|||
|
|||
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
__________________
Hay dos cosas infinitas: el Universo y la estupidez humana. http://www.cybertarjetas.net |
#4
|
||||
|
||||
En lugar de dibujarlo con Draw, tienes que dibujarlo con StretchDraw. (El tema del cálculo del tamaño lo dejo para vos)
Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
|
|
|