CircleDrawA

Синтаксис

Sub CircleDrawA(ByVal x As single,ByVal y As single,ByVal Radius As single,ByVal ColorPen As integer=&hff000000,ByVal flagcolorBK As Integer=1,ByVal ColorBk As integer=&hff000000,ByVal brushPen as Any Ptr=0,byval brushBk as Any Ptr=0,ByVal widthPen As Single=1)

Описание

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

Параметры

x , y - расположение центра круга

Radius - радиус круга

ColorPen - цвет рамки круга

flagcolorBK - флаг, отвечающий за заполнение цветом круга, может быть:

• 0 - не заполнять цветом
• 1 - заполнять цветом, указанным в параметре ColorBk
• 2 - заполнять с помощью кисти, указанным в параметре brush.

ColorBk - цвет заполнения круга

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

brushBk - кисть для заполнения круга (может быть создана функцией 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)
  CircleDrawA(80,140,50,0,,&h800000FF)
  CircleDrawA(160,140,50,0,,&H80FF0000)
  CircleDrawA(120,80,50,0,,&H8000FF00)
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: Easily create Web Help sites