RoundDrawA

Синтаксис

Sub RoundDrawA(ByVal X As single,ByVal Y As single,ByVal W As single,ByVal H 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,W,H - расположение и размеры ограничивающегося прямоугольника для вывода

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
Dim As Any ptr brush,brush1
brush=CreateBrushA(1,1,120,90,&hFF000ff0,&hFFFFF0f0)
brush1=CreateBrushA(1,1,120,120,&hFFF000F0,&hFF00f0F0)
ImageStartDrawA(Gpbitmap)
  ModeDrawA(ANTIALIAS_GOOD)
  RoundDrawA(10,10,100,80,&hFF0000FF,0)
  RoundDrawA(125,10,80,100,&hFFFF0000,,&HFF0000FF,,,5)
  RoundDrawA(10,105,100,120,&hFF00FF00,0,,brush,,10)
  RoundDrawA(125,125,100,100,,2,,brush,brush1,10)
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
FreeBrushA(brush):FreeBrushA(brush1)
FreeGpBitmap(Gpbitmap):Free_Image(bmp)

Результат

Created with the Personal Edition of HelpNDoc: Easily create EPub books