#Include "window9.bi"

Dim As HBITMAP hbitmap, hbitmap1
Dim As UByte Ptr bmbits ' массив для пикселей

hbitmap=Create_Image(320,240) 'создаем 1 изображение
hbitmap1=Create_Image(320,240) 'создаем 2 изображение

' выделяем память под массив
bmbits = Allocate(320*240*4)

Var hdc = ImageStartDraw(hbitmap) 'начинаем рисование
   CircleDraw(150,100,50,255,255) ' рисуем круг
   'инициализируем структуру BITMAPINFO
   Dim As BITMAPINFO bi
   bi.bmiHeader.biSize = sizeof(bi.bmiHeader)
   bi.bmiHeader.biWidth = 320
   bi.bmiHeader.biHeight = -240
   bi.bmiHeader.biPlanes = 1
   bi.bmiHeader.biBitCount = 32
   bi.bmiHeader.biCompression = BI_RGB
   bi.bmiHeader.biSizeImage = 320*240*4
   ' получаем пиксели
   GetDIBits(hdc,hbitmap,0,240,bmbits,@bi,DIB_RGB_COLORS)
StopDraw ' заканчиваем рисование

' ///////////////
'  здесь проводим какую-либо работу с массивом пикселей
' ///////////////

hdc = ImageStartDraw(hbitmap1) 'начинаем рисование
   ' устанавливаем пиксели
   SetDIBits(hdc,hbitmap1,0,240,bmbits,@bi,DIB_RGB_COLORS)
StopDraw ' заканчиваем рисование

CenterWindow(OpenWindow("Draw",100,100,320,240)) ' создаем окно по ценру экрана
ImageGadget(1,0,0,320,240,hbitmap1) 'создаем гаджет и заносим туда изображение
Do : Loop until WaitEvent=EventClose
DeAllocate(bmbits)

Dim As Integer event

Includebinary("1.png",hgMem)
#print TypeOF(hgMem)
Var hgMem_ptr = @hgmem(0)
#print TypeOf(hgMem_ptr)

' чёрный пиксель в PNG (90 байт)
Dim as String str_buff_png = !"\x89\x50\x4E\x47\x0D\x0A\x1A\x0A\x00\x00\x00\x0D\x49\x48\x44"
str_buff_png &= !"\x52\x00\x00\x00\x01\x00\x00\x00\x01\x08\x02\x00\x00\x00"
str_buff_png &= !"\x90\x77\x53\xDE\x00\x00\x00\x09\x70\x48\x59\x73\x00\x00"
str_buff_png &= !"\x0E\xC3\x00\x00\x0E\xC3\x01\xC7\x6F\xA8\x64\x00\x00\x00"
str_buff_png &= !"\x0C\x49\x44\x41\x54\x08\xD7\x63\x60\x60\x60\x00\x00\x00\x04\x00"
str_buff_png &= !"\x01\x27\x34\x27\x0A\x00\x00\x00\x00\x49\x45\x4E\x44\xAE\x42\x60\x82"

Dim byte_buff_png As UByte Ptr = Cast(UByte Ptr, SAdd(str_buff_png))

'проверка - первые четыре байта заголовка изображения - "&x2030;PNG"
#print TypeOF(byte_buff_png)
? Chr(byte_buff_png[0],byte_buff_png[1],byte_buff_png[2],byte_buff_png[3]) '?PNG

Dim As HWND hwnd

hwnd=OpenWindow("",10,10,200,200) : CenterWindow(hwnd)
ImageGadget(1,50,30,170,170,Catch_Image(Cast(Any Ptr,byte_buff_png)) )

Do
  event=WaitEvent()
  If Event=EventClose Then End
Loop

Catch_Image(Cast(Any Ptr,byte_buff_png))

Function Catch_Image(array() As Byte , color_ As COLORREF=&hf0f0f0) As HBITMAP Export

#Include "window9.bi"

Dim As Integer event
Dim As HWND hwnd,tree

hwnd=OpenWindow("TreeView",10,10,180,200) : CenterWindow(hwnd)
Dim As HBITMAP hbmp = Extract_Icon( "Shell32.DLL", 3 )'
Dim As HBITMAP hbmp1 = Extract_icon( "Shell32.DLL", 45 )'
tree=TreeViewGadget(4,10,10,140,140, TVS_HASLINES or TVS_HASBUTTONS or TVS_LINESATROOT,WS_EX_CLIENTEDGE,32)
Var Pos_=AddTreeViewItem(4,"1",hbmp,hbmp1,TVI_FIRST</FONT>)
AddTreeViewItem(4,"1-1",hbmp,hbmp1,TVI_FIRST,Pos_)
Pos_=AddTreeViewItem(4,"2",hbmp,hbmp1,Pos_)
AddTreeViewItem(4,"2-1",hbmp,hbmp1,TVI_FIRST,Pos_)

Do
  event=waitevent
  If event=EventClose Then end
Loop

   SetImageGadget(1,hpng)  
    StopDraw

var hdc=ImageStartDraw(hpng)

'''''''''''''
'работа с пикселями
'''''''''''''

' установка пикселей
SetDIBits

StopDraw
' обновление окна
InvalidateRect(GadgetID(1),0,0)