Функция FillRgn

Declare Function FillRgn Lib "gdi32.dll" (ByVal hdc As Long, ByVal hRgn As Long, ByVal hBrush As Long) As Long

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

FillRgn заполняет область, определенную регионом на устройстве. Вместо использования текущей кистью устройства, регион заполнен, используя кисть, передаваемой функции. Граница региона не рисуется;заполнена только его область. Функция возвращает 0 в случае ошибки, или ненулевое значение в успешном случае.

hdc
Контекст устройства для заполнения области.
hRgn
Дескриптор региона на устройстве.
hBrush
Дескриптор кисти, чтобы использовать для заполнения региона.

Пример:

' Используем светло-серую сплошную кисть, чтобы заполнить эллипс на окне
' Form1. Ограничительный прямоугольник эллипса - (30,20) - (150,110).
Dim hrgn As Long  ' дескриптор региона
Dim hbrush As Long  ' дескриптор кисти, чтобы заполнить регион
Dim retval As Long  ' возвращаемое значение

' Сначала, получим дескриптор сплошной светло-серой кисти.
hbrush = GetStockObject(LTGRAY_BRUSH)
' Затем, создадим эллипс и получим его дескриптор.
hrgn = CreateEllipticRgn(30, 20, 150, 110)
' Заполним  регион, используя светло-серую кисть
retval = FillRgn(Form1.hDC, hrgn, hbrush)
' Удалим регион, чтобы освободить ресурсы. Кисть удалять не обязательно.
retval = DeleteObject(hrgn)

Схожие функции: FillRect, FrameRgn
Категория: Регионы

В начало.