Новые книги
 Перевод книги Adam Tepper «Bitcoin – The People's Money». Книга представляет собой отличное введение в биткойн «с нуля», но может оказаться полезной и тем, кто уже разбирается в теме. |
 Вы знаете, сколько времени уходит на просмотр вашего резюме? По статистике – 8 секунд. Удивлены?Эта книга поможет сделать ваше CV максимально привлекательным для работодателя. Вы познакомитесь с нестандартными направлениями поиска работы, научитесь продвигать свой личный бренд на рынке труда и правильно выстраивать взаимоотношения с компаниями. «Фишка» книги – простые и эффективные сценарии диалогов с работодателями, примеры сопроводительных писем, методы самопиара, которые помогут вам гарантированно достичь успеха в поиске работы. Книга подойдет всем, кто не готов довольствоваться малым и ищет работу мечты. |
Вопрос и Ответ 19
Вопросы и Ответы
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;
...предыдущая страница следующая...
оглавление