Функция CreateEllipticRgn

Declare Function CreateEllipticRgn Lib "gdi32.dll" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

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

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

X1
Координата x верхнего левого угла ограничительного прямоугольника.
Y1
Координата y верхнего левого угла ограничительного прямоугольника.
X2
Координата x нижнего правого угла ограничительного прямоугольника.
Y2
Координата y нижнего правого угла ограничительного прямоугольника.

Пример:

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

' Создаем  область-эллипс , чтобы инвертировать и получить дескриптор.
hrgn = CreateEllipticRgn(20,30,150,110)  ' ограничительный прямоугольник (20,30)-(150,110)
' инвертируем эту область в окне Form1.
retval = InvertRgn(Form1.hDC, hrgn)
' удаляем область для освобождения ресурсов системы.
retval = DeleteObject(hrgn)

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

В начало.