CircleDraw

Синтаксис

Function CircleDraw(ByVal x As Long,ByVal y As Long,ByVal radius As Long,ByVal ColorPen As Long=0,ByVal ColorBk As Long=0,ByVal widthPen As Long=0,ByVal StylePen As Long=PS_SOLID, ByVal AlPHAPARAM As Long=255) As Integer

Описание

Используется для рисования окружности(круга)

Параметры

x - расположение центра круга по оси X

y - расположение центра круга по оси Y

radius - радиус круга

ColorPen - цвет границы круга

ColorBk - цвет заполнения круга (если значение будет -1, то прозрачный цвет)

widthPen - ширина пера границы круга

StylePen - Стиль границы, может быть:

1. PS_SOLID - Сплошная граница .
2. PS_DASH - Штриховая граница. Этот стиль допустим только тогда, когда ширина пера границы равняется единице или меньше ее, в единицах измерения устройства (пикселях).
3. PS_DOT - Пунктирная граница. Этот стиль допустим только тогда, ширина пера границы равняется единице или меньше ее, в единицах измерения устройства (пикселях).
4. PS_DASHDOT - Стиль имеет чередующиеся штрихи и точки. Этот стиль допустим только тогда, когда ширина пера границы равняется единице или меньше ее, в единицах измерения устройства (пикселях).
5. PS_DASHDOTDOT - Стиль имеет чередующиеся штрихи и двойные точки. Этот стиль допустим только тогда, когда ширина пера границы равняется единице или меньше ее, в единицах измерения устройства (пикселях).
6. PS_NULL - граница невидима.
7. PS_INSIDEFRAME (только Windows) - Сплошная граница. Когда этот стиль используется в какой-либо рисующей функции GDI, размеры фигуры сжимаются так, чтобы она вместилась полностью в прямоугольнике ограничения, принимая во внимание толщину пера. Это применяется только к геометрическим перьям.

AlPHAPARAM - Степень прозрачности (от 0 до 255)

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Var hwnd=OpenWindow("",100,100,250,250)
UpdateInfoXserver()
WindowStartDraw(hwnd)
  BoxDraw(0,0,250,250,&hffffff,&hffffff)
  CircleDraw(80,140,50,&hFF0000 , &hFF0000  ,  ,  , 100)
  CircleDraw(160,140,50,&hFF00 , &hFF00 ,  ,  , 100)
  CircleDraw(120,80,50,&hFF , &hFF ,  ,  , 100)
StopDraw
Do : Loop until WaitEvent= EventClose

Результат

Created with the Personal Edition of HelpNDoc: Produce electonic books easily