Вопросы и Ответы
19. Как заполнить форму растровым изображением?
Для заполнения формы растровым изображением необходимо создать кисть и загрузить в нее это изображение. В Delphi у каждой формы уже имеется кисть Form1.Brush, но она может закрашивать фон только цветом, а нам необходимо создать кисть из растрового изображения командой:
Form1.Brush.Bitmap := TBitMap.Create;
Размер изображения для кисти должен быть равен 8х8 точек, это ограничение накладывается Windows. Обойти его можно лишь рисованием фона вручную, в методе Paint (см. "Вопрос и Ответ 22").
............
procedure
TForm1.FormCreate(Sender: TObject); {Создание
кисти} end; ............ procedure
TForm1.FormDestroy(Sender: TObject); {Освобождение
кисти} end; ............
begin
Form1.Brush.Bitmap := TBitMap.Create;
{Загрузка в кисть растрового
изображения}
Form1.Brush.Bitmap.LoadFromFile('brush.bmp');
begin
Form1.Brush.Bitmap.Free;
...предыдущая страница следующая...
оглавление