Sub Resize_ImageA(ByRef GpImage as Any Ptr,ByRef w As Single=0, ByRef h As Single=0)
Изменяет размер изображения (в Windows GDI+ Bitmap , в Linux PixBuf Bimap)
GpImage - хендл GDI+ битмапа
w - новая ширина
h - новая высота
Windows , Linux
#Include "window9.bi"
Var GpBitmap=Create_ImageA(347,215)
? Image_WidthA(GpBitmap)
? Image_HeightA(GpBitmap)
Resize_imageA(GpBitmap,100,100)
? Image_WidthA(GpBitmap)
? Image_HeightA(GpBitmap)
FreeGpBitmap(GpBitmap)
Sleep
347
215
100
100
Created with the Personal Edition of HelpNDoc: Create HTML Help, DOC, PDF and print manuals from 1 single source