ArcDrawA

Синтаксис

Sub ArcDrawA(ByVal x As single,ByVal y As single,ByVal width_ As single,ByVal height_ As single,ByVal startAngle As Single,ByVal sweepAngle As Single,ByVal ColorPen As integer=&hff000000,ByVal brushPen as Any Ptr=0,ByVal widthPen As Single=1)

Описание

Используется для рисования сегмента эллипса. Для того, чтобы лучше понять, смотрите на рисунке:

Параметры

x , y , width_ , height_ - расположение и размеры сегмента эллипса

startAngle - стартовый угол начала рисования. Отсчет идет против часовой стрелки.

sweepAngle - угол конца рисования. Отсчет идет от startAngle против часовой стрелки.

ColorPen - цвет для заполнения линии сегмента эллипса

brushPen - кисть для заполнения линии сегмента эллипса. Может быть создана с помощью CreateBrushA

widthPen - ширина линии сегмента эллипса

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Any Ptr Gpbitmap=Create_ImageA(250,270)
Dim As Hbitmap bmp
Dim As HWND hw
ImageStartDrawA(Gpbitmap)
  ModeDrawA(ANTIALIAS_GOOD)
  ArcDrawA(75,50,100,100,40,280,&hFFA000AA,,20)
StopDrawA
hw=OpenWindow("GDI+",100,100,250,270)
CenterWindow(hw)
bmp=CreateHBitmapFromGpBitmap(GpBitmap,&hf0f0F0)
imagegadget(1, 0,0,300,300, bmp)
Do:Loop Until WaitEvent()= eventclose
FreeGpBitmap(Gpbitmap):Free_Image(bmp)

Результат

Created with the Personal Edition of HelpNDoc: Free help authoring tool