PolylineDraw

Синтаксис

PolylineDraw(ByVal pPoint As POINT Ptr,ByVal nCount As Long, ByVal ColorPen As Long=0, ByVal widthPen As Long=0, ByVal StylePen As Long=PS_SOLID) As Integer

Описание

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

Параметры

pPoint - адрес массива типа Point с координатами линий

nCount - кол-во рисуемых линий

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

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

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

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

Платформы

Windows , Linux

Пример

#Include "window9.bi"
#Ifdef __FB_WIN32__
Type FBPOINT As Point
#Else
Type FBPOINT As GDKPoint
#EndIf
Var hwnd=OpenWindow("",100,100,190,300)
Dim pPoint(5) As FBPOINT
pPoint(0).x=85
pPoint(0).y=100
pPoint(1).x=150
pPoint(1).y=150
pPoint(2).x=150
pPoint(2).y=200
pPoint(3).x=20
pPoint(3).y=200
pPoint(4).x=20
pPoint(4).y=150
pPoint(5).x=85
pPoint(5).y=100
UpdateInfoXServer()
WindowStartDraw(hwnd) 'начинаем рисование
FillRectDraw(0,1,&hf0f0f0)
PolylineDraw(@pPoint(0),6,&hD24EF3)
FillRectDraw(90,130,&hD24EF3)
StopDraw ' заканчиваем рисование
Do : Loop until  WaitEvent= EventClose

Результат

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