RoundDraw

2D_Draw ››
Parent Previous Next

RoundDraw

Синтаксис

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