Функция FrameRgn

Declare Function FrameRgn Lib "gdi32" (ByVal hdc As Long, _
    ByVal hRgn As Long, _
	ByVal hBrush As Long, _
	ByVal nWidth As Long, _
	ByVal nHeight As Long) As Long

FrameRgn рисует рамку (границу) вокруг данной области на устройстве, используя указанную кисть. Текущая кисть устройства не используется. Ширина и высота рамки также определяются функцией.

hdc

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

hRgn

Описатель региона для рисования рамки

hBrush

Описатель кисти, используемой для рисования рамки

nWidth

Ширина в пикселах вертикальных штрихов кисти

nHeight

Высота в пикселах горизонтальных штрихов кисти

Пример

' Рисуем рамку вокруг эллипса на форме Form1.  Рамка имеет
' ширину в 5 и высоту в 3 пиксела.  Область ограничена прямоугольником (20,30)-(220,180).
' Используется зеленая диагонально-заштрихованная кисть
Dim hRgn As Long  ' описатель региона для рамки
Dim hBrush As Long  ' описатель для кисти
Dim retval As Long  ' возвращаемое значение

' Создаем эллипс и кисть
hRgn = CreateEllipticRgn(20, 30, 220, 180)  
hBrush = CreateHatchBrush(HS_DIAGCROSS, RGB(0, 255, 0))  

' Рамка для региона, используя созданную кисть
retval = FrameRgn(Form1.hDC, hRgn, hBrush, 5, 3)

' Удаляем регион и кисть для освобождения ресурсов
retval = DeleteObject(hRgn)
retval = DeleteObject(hBrush)

Смотри также

FillRgn, FrameRect

Категория

Регионы