Copy_ImageA

Синтаксис

Function Copy_ImageA(byval GpImage as Any Ptr) as Any Ptr

Описание

Позволяет копировать рисунок из другого рисунка. Для копирования нужно передать хендл битмапа (в Windows GDI+ Bitmap , в Linux PixBuf Bimap)

Параметры

GpImage - хендл битмапа (в Windows GDI+ Bitmap , в Linux PixBuf Bimap), который мог быть получен с помощью Load_ImageA , Catch_ImageA , Create_ImageA

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Var GpBitmap=Load_imageA("1.png")
OpenWindow("",10,10,400,400)
Var hbmp0=CreateHBitmapFromGpBitmap(GpBitmap)
ImageGadget(1,10,10,100,100,hbmp0)
Var DestGpBitmap=Copy_imageA(GpBitmap)
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: Full featured Kindle eBooks generator