Load_imageA

Синтаксис

Function Load_ImageA(byref sFileName as String) as Any Ptr

Описание

Позволяет загружать изображение в память. Возвращает GPbitmap (в Windows GDI+ bimap , в Linux PixBuf bitmap). Возможные форматы: Jpeg, Png, Gif, Bmp, Ico, Tiff . Форматы поддерживающие прозрачность: Png, Tiff , Gif

Параметры

sFileName - путь к файлу изображения

Платформы

Windows , Linux

Пример

рисунок для примера:

#Include "window9.bi"
Dim Shared As HBITMAP hbmpDest,hbmpBack
Dim Shared As Any Ptr hbmpSource
hbmpSource=Load_ImageA("Transpar.png")
hbmpDest=Create_Image(100,100)
hbmpback=Create_Image(100,100)
Dim As Integer event
Dim As HWND hwnd
Dim Shared As Pvoid gp_
Sub rot()
  Static f As Single
  RotateAndScaleImageA(hbmpSource,hbmpDest,50,50,40,40,f,f/300,f/300,,gp_)
  SetImageGadget(1,hbmpDest)
  f= f+1
  If f>=360 Then f=0
  Sleep(1)
End Sub
ImageStartDraw(hbmpBack)
  For a As Integer=0 To 50 Step 10
     BoxDraw(a,a,100-a*2,100-a*2,255,BGR(Int(Rnd*255),int(Rnd*255),int(Rnd*255)))
  Next
StopDraw
gp_=CreateGPBitmapFromHBITMAP(hbmpBack)
hwnd=OpenWindow("Rotate",10,10,130,150) : CenterWindow(hwnd)
ImageGadget(1,5,5,100,100,hbmpBack)
Do
  event=WindowEvent()
  If Event=EventClose Then End
  rot()
Loop
FreeGPBitmap(gp_)
Free_Image(hbmpDest)
Free_Image(hbmpback)

Результат

Created with the Personal Edition of HelpNDoc: Easily create iPhone documentation