RoundBoxDraw

Синтаксис

Function RoundBoxDraw(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 ellipsewidth As Long=0,ByVal ellipseheight As Long=0, ByVal alphaparam As Long=255) As Integer

Описание

Используется для рисования прямоугольников с округлыми краями

Параметры

x - расположение по оси X

y - расположение по оси Y

w - ширина прямоугольника

h - высота прямоугольника

ColorPen - цвет границы прямоугольника

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

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

StylePen - Стиль границы, может быть:
PS_SOLID - сплошная граница .
PS_DASH - штриховая граница. Этот стиль допустим только тогда, когда ширина пера границы равняется единице или меньше ее, в единицах измерения устройства (пикселях).
PS_DOT - пунктирная граница. Этот стиль допустим только тогда, ширина пера границы равняется единице или меньше ее, в единицах измерения устройства (пикселях).
PS_DASHDOT - стиль имеет чередующиеся штрихи и точки. Этот стиль допустим только тогда, когда ширина пера границы равняется единице или меньше ее, в единицах измерения устройства (пикселях).
PS_DASHDOTDOT - стиль имеет чередующиеся штрихи и двойные точки. Этот стиль допустим только тогда, когда ширина пера границы равняется единице или меньше ее, в единицах измерения устройства (пикселях).
PS_NULL - граница невидима.
PS_INSIDEFRAME - сплошная граница. Когда этот стиль используется в какой-либо рисующей функции GDI, размеры фигуры сжимаются так, чтобы она вместилась полностью в прямоугольнике ограничения, принимая во внимание толщину пера. Это применяется только к геометрическим перьям.

ellipsewidth - радиус угла по ширине

ellipseheight - радиус угла по высоте

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

Платформы

Windows

Пример

#Include "window9.bi"
Var hwnd=OpenWindow("",100,100,300,300)
WindowStartDraw(hwnd) 'начинаем рисование
  RoundBoxDraw(65,65,150,150,50000,50000,,,1000,50) ' рисуем скругленный прямоугольник
StopDraw ' заканчиваем рисование
Do : Loop until WaitEvent= EventClose

Результат

Created with the Personal Edition of HelpNDoc: iPhone web sites made easy