Функция SetBrushOrgEx

SetBrushOrgEx задает базовую точку текущей кисти для заданного контекста устройства

hdc

Контекст устройства

nXOrg

Координата x базовой точки кисти. Может принимать значения от 0 до 7

nYOrg

Координата y базовой точки кисти. Может принимать значения от 0 до 7

lppt

Данные предыдущей базовой точки кисти

Пример

' Заполним прямоугольник(10,20)-(200,150) на Form1
' диагонально-перекрестным узором
Dim hbrush As Long  ' дескриптор созданной кисти
Dim holdbrush As Long  ' дескриптор кисти устройства
Dim oldorg As POINTAPI  ' данные базовой точки
Dim retval As Long ' возвращаемое значение

' Создадим зеленую кисть
hbrush = CreateHatchBrush(HS_DIAGCROSS, RGB(0, 255, 0))
' Установим базовую точку для кисти в (0,0) и сохраним старое значение
retval = SetBrushOrgEx(Form1.hDC, 0, 0, oldorg)
' Выберем кисть и создадим прямоугольник
holdbrush = SelectObject(Form1.hDC, hbrush)
retval = Rectangle(Form1.hDC, 10, 20, 200, 150)
' Восстановим кисть по умолчанию
' и удалим созданную кисть для освобождения ресурсов
retval = SelectObject(Form1.hDC, holdbrush)
retval = DeleteObject(hbrush)

Смотри также

Категория