PolygonDraw

Синтаксис

Function PolygonDraw(ByVal pPoint As POINT ptr,ByVal nCount As Long, byval FillColor as Long, ByVal BorderColor As Long=0,ByVal BorderWidth As Long=0,ByVal BorderStyle As Long=PS_SOLID) As Integer

Описание

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

Параметры

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

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

FillColor - цвет заполнения многоугольника

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

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

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

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(4) As FBPOINT = _
{( 85, 50), _
(150,100), _
(150,150), _
( 20,150), _
( 20,100)}
UpdateInfoXserver()
WindowStartDraw(hwnd)
FillRectDraw(0,1,&hf0f0f0)
PolygonDraw(@pPoint(0),5,&hD24EF3)
FillRectDraw(90,130,&hD24EF3)
StopDraw
Do : Loop until WaitEvent= EventClose

Результат

Created with the Personal Edition of HelpNDoc: Free CHM Help documentation generator