ImageDrawA

Синтаксис

Sub ImageDrawA(ByVal GpImage As Any Ptr,ByVal x As single, ByVal y As single,ByVal w As Single=0, ByVal h As Single=0)

Описание

Используется для рисования изображений

Параметры

GpImage - хендл битмапа (GDI+ в Windows , PixBuf в Linux)

x,y - Координаты вывода изображения (верхний левый угол)

w,h - желаемые размеры. Если не использовать, то будут использоваться реальные размеры изображения

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Any Ptr Gpbitmap=Create_ImageA(250,270)
Dim As Hbitmap bmp
Dim As HWND hw
ImageStartDrawA(Gpbitmap)
ModedrawA(ANTIALIAS_GOOD)
LineDrawA(185,30,100,100,7,&Hf807f000)
LineDrawA(105,30,200,100,7,&Hf807f000)
ImageDrawA(Gpbitmap,10,10,100,100)
ImageDrawA(Gpbitmap,100,100,100,100)
StopDrawA
hw=OpenWindow("GDI+",100,100,250,270)
CenterWindow(hw)
bmp=CreateHBitmapFromGpBitmap(GpBitmap,&hf0f0F0)
imagegadget(1, 0,0,300,300, bmp)
Do:Loop Until WaitEvent()= eventclose
FreeGpBitmap(Gpbitmap):Free_Image(bmp)

Результат

Created with the Personal Edition of HelpNDoc: Easy to use tool to create HTML Help files and Help web sites