Grab_ImageA

Синтаксис

Function Grab_ImageA(byval GpImage as Any Ptr,ByVal x As Single=0, ByVal y As Single=0, Byref w As Single=0, ByRef h As Single=0) as Any Ptr

Описание

Позволяет получать любой прямоугольный участок изображения из исходного рисунка (в Windows GDI+ bimap , в Linux PixBuf bitmap) и возвращает его хендл (в Windows GDI+ bimap , в Linux PixBuf bitmap)

Параметры

GpImage - хендл исходного рисунка (в Windows GDI+ bimap , в Linux PixBuf bitmap)

x,y,w,h - расположение и размеры нового рисунка

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Var GpBitmap=Load_imageA("C:\WINDOWS\system32\oobe\images\merlin.gif")
OpenWindow("",10,10,400,400)
Var hbmp0=CreateHBitmapFromGpBitmap(GpBitmap)
ImageGadget(1,10,10,100,100,hbmp0)
Var DestGpBitmap=Grab_ImageA(GpBitmap,30,30,30,30)
Var hbmp1=CreateHBitmapFromGpBitmap(DestGpBitmap)
ImageGadget(2,110,10,100,100,hbmp1)
Free_Image(hbmp0):Free_Image(hbmp1)
FreeGpBitmap(GpBitmap):FreeGpBitmap(DestGpBitmap)
Do
  var ev=WaitEvent()
  If ev=EventClose Then End
Loop

Результат

Created with the Personal Edition of HelpNDoc: Free CHM Help documentation generator