LineDrawA

Синтаксис

Sub LineDrawA(ByVal x As single,ByVal y As single,ByVal x1 As single,ByVal y1 As single,ByVal width As Single=1,ByVal color As Integer=&hff000000,byval brushPen as Any Ptr=0)

Описание

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

Параметры

x,y,x1,y1 - начальная и конечная координата линии

width - ширина линии

color - цвет линии

brushPen - кисть, может быть создана функцией CreateBrushA (градиэнт или текстура)

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Any Ptr Gpbitmap=Create_ImageA(160,160)
Dim As Hbitmap bmp
Dim As HWND hw
Dim As Any ptr brush
brush=CreateBrushA(1,1,140,10,&h8000f0f0,&h80FF00f0)
ImageStartDrawA(Gpbitmap)
  ModeDrawA(ANTIALIAS_GOOD)'QualityModeHigh
  LineDrawA(10,10,150,150,10,&HFF0000FF)
  LineDrawA(10,150,150,10,10,,brush)
StopDrawA
hw=OpenWindow("GDI+",100,100,180,200)
CenterWindow(hw)
bmp=CreateHBitmapFromGpBitmap(GpBitmap,&hf0F0fF)
ImageGadget(1, 0,0,200,200, bmp)
Do:Loop Until WaitEvent()= eventclose
FreeBrushA(brush)
FreeGpBitmap(Gpbitmap):Free_Image(bmp)

Результат

Created with the Personal Edition of HelpNDoc: Full featured Kindle eBooks generator