Вопрос и Ответ 19

19. Как заполнить форму растровым изображением?

Для заполнения формы растровым изображением необходимо создать кисть и загрузить в нее это изображение. В Delphi у каждой формы уже имеется кисть Form1.Brush, но она может закрашивать фон только цветом, а нам необходимо создать кисть из растрового изображения командой:

Form1.Brush.Bitmap := TBitMap.Create;

Размер изображения для кисти должен быть равен 8х8 точек, это ограничение накладывается Windows. Обойти его можно лишь рисованием фона вручную, в методе Paint (см. "Вопрос и Ответ 22").

Пример:

............

procedure TForm1.FormCreate(Sender: TObject);
begin

{Создание кисти}
Form1.Brush.Bitmap := TBitMap.Create;
{Загрузка в кисть растрового изображения}
Form1.Brush.Bitmap.LoadFromFile('brush.bmp');