CreateBrushA

Синтаксис

Function CreateBrushA(ByVal x0 As Single=0,ByVal y0 As Single=0,ByVal x1 As Single=0,ByVal y1 As Single=0, ByVal color1 As Integer=&hFF00FF00, ByVal color2 As Integer=&hFF0000FF,ByVal GpImage As Any ptr=0,ByVal WrapMode As Integer=3 ) As Any Ptr

Описание

Используется для создания кисти. Далее можно применить практически для любой графической функции (GDI+ в Windows , PixBuf в Linux). Функция может создавать как текстурную кисть (из изображений), так и градиентную.

Параметры

x0,y0 - Начальные координаты градиента. Параметры используются только если GpBitmap=0

x1,y1 - Конечные координаты градиента. Параметры используются только если GpBitmap=0

color1,color2 - начальный и конечный цвета градиента. Параметры используются только если GpBitmap= 0

GpImage - Битмап (GDI+ в Windows , PixBuf в Linux) для текстурной кисти

WrapMode - режим заполнения, может быть:

• WrapModeTile (0) - заполнять область "черепицей"
• WrapModeTileFlipX (1) - заполнять область "черепицей" с отражением текстуры по оси
• WrapModeTileFlipY (2) - заполнять область "черепицей" с отражением текстуры по оси
• WrapModeTileFlipXY (3) - заполнять область "черепицей" с отражением текстуры по осям X и Y
• WrapModeClamp (4) - не заполнять

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Any Ptr Gpbitmap=Create_ImageA(300,170),GpCopy
Dim As Hbitmap bmp
Dim As HWND hw
Dim As Any ptr brush,brush1
brush=CreateBrushA(1,1,120,90,&hFF0F0ff0,&hFF00Ff0F)
ImageStartDrawA(Gpbitmap)
  ModeDrawA(ANTIALIAS_GOOD)
  RoundDrawA(125,50,50,50,&hFF00FF00,0,,brush,,10)
  GpCopy=grab_ImageA(Gpbitmap,125,50,50,50)
  brush1=CreateBrushA(,,,,,,GpCopy)
  RoundDrawA(25,25,100,100,&h00000000,2,,,brush1)
  FreeBrushA(brush1)
  brush1=CreateBrushA(,,,,,,GpCopy,2)
  RoundDrawA(175,25,100,100,&h00000000,2,,,brush1)
StopDrawA
hw=OpenWindow("GDI+",100,100,310,170)
CenterWindow(hw)
bmp=CreateHBitmapFromGpBitmap(GpBitmap,&hf0f0F0)
ImageGadget(1, 0,0,300,300, bmp)
Do:Loop Until WaitEvent()= eventclose
FreeBrushA(brush):FreeBrushA(brush1)
FreeGpBitmap(Gpbitmap):FreeGpBitmap(GpCopy)

Результат

Created with the Personal Edition of HelpNDoc: Free Web Help generator