LoadImageFromResourceA

Синтаксис

Function LoadImageFromResourceA(byval lpResName As LPCTSTR) As Any ptr

Описание

Позволяет из ресурсов , получить битмап GDI+. Поддерживаемые форматы: Jpeg, Png, Gif, Bmp, Tiff, Ico

Параметры

lpResName - идентификатор ресурса:
RCDATA для форматов Jpeg, Png, Gif,Tiff
BITMAP для формата BMP
ICON для формата ICO

Для тех кто не знает, в файле ресурсов прописываем примерно следующее:
100 RCDATA "1.png"
Или
100 Bitmap "1.bmp"

Платформы

Windows

Пример

#Include "window9.bi"
Dim As Integer event
Dim As HWND hwnd
Dim As PVOID gdiBitmap,bmp,font
font=CreateFontDrawA("Courier",24,3,2)
hwnd=OpenWindow("",10,10,200,200) : CenterWindow(hwnd)
gdiBitmap=LoadImageFromResourceA(Cast(any ptr,100))
ImageStartDrawA(gdiBitmap)
TextDrawA("Gdi+",1,60,font,&hFFFF0000,,4)
StopDrawA
bmp=CreateHBitmapFromGpBitmap(gdiBitmap)
ImageGadget(1,50,30,170,170,bmp)
Do
  event=WaitEvent()
  If Event=EventClose Then End
Loop
FreeGpBitmap(gdiBitmap): Free_Image(bmp)

Результат

Created with the Personal Edition of HelpNDoc: Easily create Help documents