Create_ImageA

Синтаксис

Function Create_ImageA(ByVal w As Single, ByVal h As Single) As Any Ptr

Описание

Создает изображение (В Windows GDI+ bimap , в Linux PixBuf bitmap) в памяти и возвращает его хендл. В отличии от функции Create_Image , функция Create_ImageA может создавать битмапы с прозрачным фоном, рисовать на них графические примитивы с прозрачностью функциями 2D_DrawA. В последствии данные битмапы можно так же с прозрачностью сохранить в файл PNG или TIFF.

Параметры

w - ширина нового изображения

h - высота нового изображения

Платформы

Windows , Linux

Пример

#Include "window9.bi"
OpenWindow("",100,100,300,320)
ImageGadget(1,0,0,300,300)
Var GpBitmap=Create_ImageA(300,300)'создаем битмап GDI+
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
FreeGpBitmap(GpBitmap):Free_Image(hbmp)

Результат

Created with the Personal Edition of HelpNDoc: Full featured Kindle eBooks generator