Функция FillRgn

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

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

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

Категория

Регионы