[UMmi]

Сообщение от Decoding

Если .bmp, то попробуй так:

Код:

 
procedure TForm1.FormPaint(Sender: TObject);
var
  bm1, bm2: TBitmap;
begin
   bm1 := TBitmap.Create;
   bm1.LoadFromFile( 'c:\WINDOWS\Пузыри.bmp' );
   bm2 := TBitmap.Create;
   bm2.Width := ClientWidth;
   bm2.Height := ClientHeight;
   bm2.Canvas.Brush.Bitmap := bm1;
   bm2.Canvas.FillRect( bm2.Canvas.ClipRect );
   Form1.Canvas.Draw( 0, 0, bm2 );
   // или так - BitBlt( Canvas.Handle, 0, 0, bm2.Width, bm2.Height, bm2.Canvas.Handle, 0, 0, SRCCOPY );
   bm2.Free;
   bm1.Free;
end;

Класс! А если заполнять не саму форму, а PaintBox, что надо изменить?