как заполнить Canvas рисунком?

[vicvtor]

как наполнить канвас формы каким нибудь рисунком?

вот ещё одна проблемка. я когда канвас формы заполняю рисунком, он заливается поверх всех кнопок и лабелов. как это можно исправить?

[SuperVisor]

procedure TForm1.FormCreate(Sender: TObject);
var
BMP: TBitmap;
begin
Bmp:=TBitmap.Create;
Bmp.LoadFromFile('picture.bmp');
Form1.Canvas.Draw(0,0,Bmp);

[selenux]

Блитингом.
Подцепить модуль Windows и использовать BitBlt

HDC параметры это Canvas.Handle.

Последний параметр в зависимости от того как копировать.
Если 1 в 1 то SRCCOPY.

[UMmi]

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

Блитингом.
Подцепить модуль Windows и использовать BitBlt

HDC параметры это Canvas.Handle.

Последний параметр в зависимости от того как копировать.
Если 1 в 1 то SRCCOPY.

А не мог бы ты подробней, selenux, например есть картинка 1.bmp( или ipg и т.п...) есть канва. Надо канву заполнить этим рисунком.

[selenux]

uses Windows;

..........


var
Bmp: TBitmap;

begin

Bmp := TBitmap.Create;
Bmp.LoadFromFile('1.bmp');

BitBlt(
canvas.handle, //куда засунуть
0, 0,//позиция
Bmp.Width,
Bmp.Height,
Bmp.Canvas.handle,
0, 0,//точка откуда начинается копирование
SRCCOPY);


Bmp.Free;

end;

Вроде так( я сейчас не при Делфи).
Если нужно растянуть по всей канве то вместо BitBlt надо использовать StretchBlt(см SDK);

[zetrix]

если нужно растянуть ...

скорее всего надо замостить, а это уже наверное через циклы