ImageStartDrawA

Синтаксис

Function ImageStartDrawA(ByRef bitmapGP As Any Ptr,ByVal ColorFlag As Integer=0,ByVal Color As Integer=&hFFFFFFFF) As Any Ptr

Описание

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

Параметры

bitmapGP - битмап GDI+ в Windows , PixBuf в Linux (может быть создан с помощью Create_ImageA)

ColorFlag - флаг , если будет 1, то произойдет заполнение нужным цветом. Цвет указывается в параметре Color

Color - Цвет заполнения рисунка. Активируется только если ColorFlag=1

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Any Ptr Gpbitmap=Create_ImageA(200,200)
Dim As Hbitmap bmp
Dim As HWND hw
#define Rndcolor  BGR(Int(Rnd*255),Int(Rnd*255),Int(Rnd*255))Or &hA0000000
ImageStartDrawA(Gpbitmap)
ModeDrawA(ANTIALIAS_GOOD)'QualityModeHigh
For a As Integer=1 To 40
  CircleDrawA(Rnd*200,Rnd*200,30,Rndcolor,,Rndcolor,,,3)
Next
StopDrawA
hw=OpenWindow("GDI+",100,100,200,200)
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