SetPixA

Синтаксис

Sub SetPixA(ByVal X As single,ByVal Y As Single,ByVal Color As integer=&hff000000)

Описание

Устанавливает цвет пикселя в GPBitmap (GDI+ битмап в Windows , PixBuf в Linux)

Параметры

X , Y - координаты пикселя

Color - цвет в формате ARGB

Платформы

Windows , Linux

Пример

'создание прозрачного битмапа из непрозрачного и сохранение
#Include "window9.bi"
Var HBitmap=Create_Image(300,300)'создаем обычный битмап
ImageStartDraw(HBitmap) 'начинаем рисование
  TextDraw(30,50,"FreeBasic The Best",,&hff)
StopDraw ' заканчиваем рисование
Var MainGpBitmap=Create_ImageA(300,300)'создаем прозрачный битмап
Var GpBitmap=CreateGpBitmapFromHBitmap(HBitmap)'создаем GDI+ битмап из Hbitmap
ImageStartDrawA(MainGpBitmap) 'начинаем рисование с помощью GDI+
ImageDrawA(GpBitmap,0,0) ' рисуем наш непрозрачный битмап
For y As Integer=0 To 300 ' далее в циклах заменяем все непрозрачные
  For x As Integer=0 To 300 'пикселы прозрачными
     If GetPixA(x,y)=&hff000000 Then
        SetPixA(x,y,&h00000000)
     EndIf
  Next
Next
StopDrawA ' заканчиваем рисование
Save_image(HBitmap,"1.png") ' сохраняем непрозрачный битмап
Save_imageA(MainGpBitmap,"2.png") ' сохраняем прозрачный битмап
FreeGpBitmap(GpBitmap):Free_Image(hbitmap):FreeGpBitmap(MainGpBitmap)

Результат

Created with the Personal Edition of HelpNDoc: Easy to use tool to create HTML Help files and Help web sites