2D_Draw

透明を使って描く例

例_1

#Include "window9.bi"

Dim As Integer event
Dim as HWND hwnd
hwnd=OpenWindow("Hello",10,10,320,250) : CenterWindow(hwnd)
WindowStartDraw(hwnd,0,0,320,250) '描画を開始
  CircleDraw(100,100,100,,255)
  CircleDraw(200,100,100,,&hff0000,,,100)
  BoxDraw(100,15,100,170,&hffffff,&hffffff,,,100)
  FillRectDraw(260,30,&hff0000)
  FillRectDraw(5,5,&h00ff00)
StopDraw '描画を終了
Do
  event=WindowEvent()
  If Event=EventClose Then End
Loop

例_2

#Include "window9.bi"
Dim As Integer event
Dim as HWND hwnd
hwnd=OpenWindow("Hello",10,10,340,285) : CenterWindow(hwnd)
Var bmp=Load_image("1.bmp")
WindowStartDraw(hwnd) '描画を開始
  ImageDraw(bmp,10,10)
  ImageDraw(bmp,15,145)
  ImageDraw(bmp,10,140,100)
StopDraw '描画を終了
Do
  event=WindowEvent()
  If Event=EventClose Then End
Loop

例_3

#Include "window9.bi"
Dim As Integer event
Dim as HWND hwnd
Dim As HBITMAP bmp
hwnd=OpenWindow("Hello",10,10,350,200) : CenterWindow(hwnd)
Var font=LoadFont("Isabella-Decor",72)
bmp=Create_Image(500,200)
ImageStartDraw(bmp) '描画を開始
  FillRectDraw(10,10,&hf0f0f0)
  FontDraw(font)
  TextDraw(22,10,"Hello",-1,&hff00ff)
  TextDraw(17,10,"Hello",-1,&hff0000,100)
StopDraw '描画を終了
ImageGadget(1,0,0,500,80,bmp)
Do
  event=WindowEvent()
  If Event=EventClose Then End
Loop

http://mneniya.ucoz.ru/