Функция SetArcDirection

Declare Function SetArcDirection Lib "gdi32" (ByVal hdc As Long, ByVal ArcDirection As Long) As Long
SetArcDirection устанавливает направление, в котором будет выводится дуга на устройстве. Дуга может рисоваться по часовой и против часовой стрелки. Хотя Win 95/98 поддерживает эту функцию, но при этом игнорируются настройки и дуги рисуются всегда против часовой стрелки!

Возвращаемое значение

В успешном случае возвращается старое направление рисования дуги. В случае ошибки возвращается 0 (используйте GetLastError для получения кода ошибки)

Параметры

hdc
Контекст устройства для вывода дуги
ArcDirection
Один из следующих флажков, определяющих направление для вывода дуг:
AD_CLOCKWISE = 2
Дуги рисуются по часовой стрелке от отправной точки до конечной точки
AD_COUNTERCLOCKWISE = 1
Дуги рисуются против часовой стрелки от отправной точки до конечной точки

Пример

' Рисуем дугу, которая формирует верхнюю часть эллипса. Эллипс
' с координатами (100, 100), с шириной 200 и высотой 100 пикселов
' Дуга рисуется красным цветом на Form1
Dim retval As Long ' возвращаемое значение

Form1.ForeColor = RGB(255, 0, 0) ' установим красный цвет для формы
retval = SetArcDirection(Form1.hDC, AD_COUNTERCLOCKWISE) ' рисуем дугу против часовой стрелки
' Эллипс ограничен прямоугольником (0,50)-(200,150)
retval = Arc(Form1.hDC, 0, 50, 200, 150, 200, 100, 0, 100)

Смотри также

AngleArc, Arc, ArcTo, GetArcDirection

Категория

Линии и кривые