Function RoundDraw(ByVal X As Long,ByVal Y As Long,ByVal W As Long,ByVal H 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
W - ширина фигуры
H - высота фигуры
ColorPen - цвет границы фигуры
ColorBk - цвет заполнения фигуры (если значение будет -1, то прозрачный цвет)
WidthPen - ширина пера границы
StylePen - cтиль границы, может быть:
PS_SOLID - сплошная граница .
PS_DASH - штриховая граница. Этот стиль допустим только тогда, когда ширина пера границы равняется единице или меньше ее, в единицах измерения устройства (пикселях).
PS_DOT - пунктирная граница. Этот стиль допустим только тогда, ширина пера границы равняется единице или меньше ее, в единицах измерения устройства (пикселях).
PS_DASHDOT - стиль имеет чередующиеся штрихи и точки. Этот стиль допустим только тогда, когда ширина пера границы равняется единице или меньше ее, в единицах измерения устройства (пикселях).
PS_DASHDOTDOT - стиль имеет чередующиеся штрихи и двойные точки. Этот стиль допустим только тогда, когда ширина пера границы равняется единице или меньше ее, в единицах измерения устройства (пикселях).
PS_NULL - граница невидима.
PS_INSIDEFRAME - (только для windows) сплошная граница. Когда этот стиль используется в какой-либо рисующей функции GDI, размеры фигуры сжимаются так, чтобы она вместилась полностью в прямоугольнике ограничения, принимая во внимание толщину пера. Это применяется только к геометрическим перьям.
Alphaparam - степень прозрачности (от 0 до 255)
Windows , Linux
#Include "window9.bi"
Var hwnd=OpenWindow("",100,100,300,300)
UpdateInfoXServer()
WindowStartDraw(hwnd) 'начинаем рисование
BoxDraw(0,0,300,300) ' цвет фона
RoundDraw(65,65,150,100,255,&hff0000,20) ' рисуем элипс
StopDraw ' заканчиваем рисование
Do : Loop until WaitEvent= EventClose

Created with the Personal Edition of HelpNDoc: Free PDF documentation generator