![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#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.
|
|
|
|