Bitmap mosaico de fondo

[German]

Suponiendo que tenemos un componente tImage (Image1) pegado en el form con la propiedad align igual a alClient:


procedure TForm1.FormCreate(Sender: TObject);
var Fondo: tBitmap;
begin
Fondo := TBitmap.Create;
Fondo.LoadFromFile('D:\imagen\YoKeSe.bmp');
Image1.Canvas.Brush.Bitmap := Fondo;
Image1.Canvas.FillRect(Rect(0,0,Form1.Width,Form1.Height));
Fondo.Free;
end;


Salu2.