プログラム言語 FreeBasic |
Create_Image
Create_Image(Width,Height)
Function Create_Image(ByVal w As long, ByVal h As long) As HBITMAP
メモリに画像を作成し、そのハンドルを返します。
Width - 新しい画像の幅
Height - 新しい画像の高さ
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
