Функция CreateHatchBrush

Declare Function CreateHatchBrush Lib "gdi32.dll" (ByVal nIndex As Long, ByVal crColor As Long) As Long

Платформа: Win 95/98, Win NT

CreateHatchBrush создает объект-заштрихованную кисть. При использовании для заполнения области или формы, эта кисть производит закраску определенныя образом в единственном(отдельном) цвете, используя 8x8 ячейку. После того, как программа заканчивает использование заштрихованной кисти, следует использовать DeleteObject, чтобы удалить кисть и свободные ресурсы системы. Функция возвращает дескриптор созданной заштрихованной кисти в успешном случае, или 0, в случае ошибки.

nIndex
Один из следующих флажков, определяющих образец штриховки для создания кисти:
HS_BDIAGONAL = 3
Диагональные линии от левой нижней части до правой верхней.
HS_CROSS = 4
Перекрестный образец горизонтальных и вертикальных линий.
HS_DIAGCROSS = 5
Перекрестный образец перпендикулярных диагональных линий.
HS_FDIAGONAL = 2
Диагональные линии от левой верхней к правой нижней части.
HS_HORIZONTAL = 0
Горизонтальные линии.
HS_VERTICAL = 1
Вертикальные линии.
crColor
Значение цвета RGB,передаваемой кисти.

Пример:

' Рисуем прямоугольник с углами (10,20) и (175,100)
' на окне Form1. Используем желтую кисть с диагональным перекрестным образцом, чтобы заполнить прямоугольник.
Dim hbrush As Long  ' дескриптор заштрихованной желтой кисти
Dim holdbrush As Long  ' дескриптор  заданной по умолчанию кисти  на Form1
Dim retval As Long  ' возвращаемое значение

hbrush = CreateHatchBrush(HS_DIAGCROSS, RGB(255, 255, 0))  ' создадим заштрихованную желтую кисть
' сохраним заданную по умолчанию кисть на Form1, чтобы могли восстановить ее после завершении программы
holdbrush = SelectObject(Form1.hDC, hbrush)  ' выбираем кисть
' Рисуем прямоугольник,заполняя его заштрихованной желтой кистью
retval = Rectangle(Form1.hDC, 10, 20, 175, 100)
' восстанавливаем кисть по умолчанию и удаляем созданную нами кисть
retval = SelectObject(Form1.hDC, holdbrush)  'старая кисть
retval = DeleteObject(hbrush)  ' удаляем желтую кисть

Схожие функции: CreateSolidBrush
Категория: Кисти

В начало.