Function Grab_Image(ByVal sourсehBmp As HBITMAP, ByVal x As Integer,ByVal y As Integer, ByVal w As Integer, ByVal h As Integer) As HBITMAP
Позволяет получать любой прямоугольный участок изображения из исходного рисунка и возвращает его хендл
sourсehBmp - исходный рисунок
x,y,w,h - расположение и размеры будущего рисунка
Windows , Linux
#Include "window9.bi"
Var hbitmap=Load_image("C:\WINDOWS\system32\oobe\images\merlin.gif")
OpenWindow("",10,10,400,400)
ImageGadget(1,10,10,100,100,hbitmap)
Var hbitmap1=Grab_Image(hbitmap,30,30,30,30)
ImageGadget(2,110,10,100,100,hbitmap1)
Do
var ev=WaitEvent()
If ev=EventClose Then End
Loop
Created with the Personal Edition of HelpNDoc: Easily create PDF Help documents