LineDraw
Function LineDraw(ByVal x As Long,ByVal y As Long,ByVal x1 As Long,ByVal y1 As Long,ByVal width As Long=0,ByVal color As Long=0,ByVal style As Long=PS_SOLID) As Integer
Используется для рисования линии
x - начальное расположение по оси X
y - начальное расположение по оси Y
x1 - конечное расположение по оси X
y1 - конечное расположение по оси Y
width - ширина линии
color - цвет линии
style - Стиль, может быть:
PS_SOLID - Сплошная линия .
PS_DASH - Штриховая линия. Этот стиль допустим только тогда, когда ширина пера линии равняется единице или меньше ее, в единицах измерения устройства (пикселях).
PS_DOT - Пунктирная линия. Этот стиль допустим только тогда, ширина пера границы равняется единице или меньше ее, в единицах измерения устройства (пикселях).
PS_DASHDOT - Стиль имеет чередующиеся штрихи и точки. Этот стиль допустим только тогда, когда ширина пера линии равняется единице или меньше ее, в единицах измерения устройства (пикселях).
PS_DASHDOTDOT - Стиль имеет чередующиеся штрихи и двойные точки. Этот стиль допустим только тогда, когда ширина пера линии равняется единице или меньше ее, в единицах измерения устройства (пикселях).
PS_NULL - линия невидима.
PS_INSIDEFRAME - Только для Windows. Сплошная линия. Когда этот стиль используется в какой-либо рисующей функции GDI, размеры фигуры сжимаются так, чтобы она вместилась полностью в прямоугольнике ограничения, принимая во внимание толщину пера. Это применяется только к геометрическим перьям.
Windows , Linux
#Include "window9.bi"
Var hwnd=OpenWindow("",100,100,300,300)
UpdateInfoXserver()
WindowStartDraw(hwnd) 'начинаем рисование
boxdraw(0,0,300,300,0,0)
LineDraw(65,65,200,200,10,&hff0000) ' рисуем линию
StopDraw ' заканчиваем рисование
Do : Loop until WaitEvent= EventClose
Created with the Personal Edition of HelpNDoc: Full featured Help generator