Примеры рисования с прозрачностью

Примеры

#Include "window9.bi"
Dim As Integer event
Dim as HWND hwnd
hwnd=OpenWindow("Привет",10,10,320,250) : CenterWindow(hwnd)
Updateinfoxserver() ' need for Linux
WindowStartDraw(hwnd,0,0,320,250) 'начинаем рисование
  CircleDraw(100,101,100,,255)
  CircleDraw(200,101,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

#Include "window9.bi"
Dim As Integer event
Dim As HWND hwnd
Dim As HBITMAP bmp
hwnd=OpenWindow("Привет",10,10,370,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,"Привет",-1,&hff00ff)
  TextDraw(17,10,"Привет",-1,&hff0000,100)
StopDraw ' заканчиваем рисование
ImageGadget(1,0,0,500,200,bmp)
Do
  event=WindowEvent()
  If Event=EventClose Then End
Loop

Created with the Personal Edition of HelpNDoc: Easily create EBooks