Poner una imagen de fondo

Artículo por Club Developers · 31 diciembre 2005

2440 vistas

Vamos a crear un bitmap y lo situaremos en la esquina superior izquierda de forma que, si la imagen es demasiado grande, ésta se truncará y, si es demasiado pequeña, el resto del formulario se pintará del color de fondo.



delphi
  1. var
  2. Bitmap: TBitmap;
  3.  
  4. procedure TMyForm.FormPaint(Sender: TObject);
  5. begin
  6.   Canvas.Draw(0, 0, Bitmap);
  7. end;
  8.  
  9. procedure TMyForm.FormCreate(Sender: TObject);
  10.   Bitmap := TBitmap.Create;
  11.   Bitmap.LoadFromFile('MyBitmap.bmp');
  12. end;
  13.  
  14. procedure TMyForm.FormDestroy(Sender: TObject);
  15. begin
  16.   Bitmap.Free;
  17. end;