Create_Image

Синтаксис

Function Create_Image(ByVal w As long, ByVal h As long) As HBITMAP

Описание

Создает изображение в памяти и возвращает его хендл.

Параметры

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

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

Платформы

Windows , Linux

Пример

#Include "window9.bi"
OpenWindow("",100,100,300,300)
ImageGadget(1,0,0,300,300)
Var hbitmap=Create_Image(300,300)'создаем новое изображение
ImageStartDraw(hbitmap) 'начинаем рисование
  BoxDraw(40,40,200,200,,&hff)
  BoxDraw(60,60,160,160,,&hff0000)
  BoxDraw(80,80,120,120,,&h00ff00)
StopDraw ' заканчиваем рисование
SetImageGadget(1,hbitmap)
Do : Loop until  WaitEvent=EventClose

Результат

Created with the Personal Edition of HelpNDoc: Produce Kindle eBooks easily