Free_ImageA

Синтаксис

Sub Free_ImageA(ByVal GpBitmap As Any Ptr)

Описание

Позволяет удалить хендл битмапа (в Windows GDI+ bitmap , в Linux PixBuf bitmap) из памяти и освободить все ресурсы с ним связанные

Параметры

GpBitmap - хендл изображения

Платформы

Windows , Linux

Пример

#Include "window9.bi"
OpenWindow("",100,100,300,320)
ImageGadget(1,0,0,300,300)
Var GpBitmap=Create_ImageA(300,300)
ImageStartDrawA(GpBitmap,1,&hF000F0F0)
  BoxDrawA(40,40,200,200,&h80F6C507,1,&hFFFF00F6)
  CircleDrawA(140,140,80,&hF000FFFF,1,&hF000FFFF)
  LineDrawA(80,200,200,80,170,&h80FF0000)
StopDrawA
Var hbmp=CreateHBitmapFromGpBitmap(GpBitmap)
SetImageGadget(1,hbmp)
Do : Loop until WaitEvent=EventClose
Free_ImageA(GpBitmap)
Free_Image(hbmp)

Результат

Created with the Personal Edition of HelpNDoc: Full featured EBook editor