Листинг 6.14.
Обработчик события OnPaint
procedure TfmAlphaBlending.FormPaint(Sender: TObject);
var
hCurDC: HDC;
hCurBrush, hOldBrush: HBRUSH;
begin
hCurDC := GetDC(Handle);
hCurBrush := CreateSolidBrush(RGB(0, 0, 64));
FillRect(hCurDC, Rect(0, 0, Width, Height), hCurBrush);
DrawAlphaBlend(Handle, hCurDC);
DeleteObject(hCurBrush);
ReleaseDC(Handle, hCurDC);
end;
Теперь осталось только взглянуть на результат нашей работы, запустив приложение (рис. 6.4).
Рис. 6.4. Результат работы приложения «Alpha-смешивание точечного рисунка»
На этом закончим рассмотрение работы с графикой в Delphi.
ТЕЛЕГРАМКанал с обзорами, анонсами новинок и книжными подборками
Книжный Вестник
Бот для удобного поиска книг (если не нашлось на сайте)
Поиск книг
Свежие любовные романы в удобных форматах
Любовные романы
О психологии, саморазвитии и личностном росте
Саморазвитие
Детективы и триллеры, все новинки
Детективы
Фантастика и фэнтези, все новинки
Фантастика
Отборные классические книги
Классика
ВКОНТАКТЕБиблиотека с любовными романами, которая наверняка придётся по вкусу женской части аудитории
Любовные романы
Библиотека с фантастикой и фэнтези, а также смежных жанров
Фантастика
Самые популярные книги в формате фб2
Топ фб2
книги