Функция CreateEllipticRgnIndirect

Declare Function CreateEllipticRgnIndirect Lib "gdi32.dll" (lpRect As RECT) As Long

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

CreateEllipticRgn создает область в виде эллипса. Эллипс определяется ограничительным прямоугольником. Ограничительный прямоугольник - самый маленький возможный прямоугольник, который может соответствовать эллипсу. Функция возвращает дескриптор созданной области в успешном случае или 0 в случае ошибки.

lpRect
Ограничительный прямоугольник для эллипса.

Пример:

' Инвертируем пикселы в пределах  области эллипса на окне Form1.
' Область имеет ограничительный прямоугольник (20,30) - (150,110).
Dim hrgn As Long   ' дескриптор области
Dim bounding As RECT ' ограничительный прямоугольник
Dim retval As Long    ' возвращаемое значение
' загрузим координаты ограничительного прямоугольника в структуру.
retval = SetRect(bounding, 20, 30, 150, 110)
' создаем эллипс от этого ограничительного прямоугольника.
hrgn = CreateEllipticRgnIndirect(bounding)
'  инвертируем эту область в окне Form1.
retval = InvertRgn(Form1.hDC, hrgn)
' удаляем область для освобождения ресурсов системы.
retval = DeleteObject(hrgn)

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

В начало.