function Load_Image(byref sFileName as String , ByVal ColorBack As Integer=0) as HBITMAP
Позволяет загружать изображения в память.
Поддерживаемые форматы в Windows: Jpeg, Png, Gif, Bmp, Tiff, Ico
Поддерживаемые форматы в Linux: jpeg, png, tiff, ico , bmp . (На самом деле кол-во форматов может быть больше. Это зависит от того, с какой конфигурацией собрана библиотека GTK)
sFileName - путь к файлу изображения
ColorBack - цвет фона для изображений, поддерживающих прозрачность. На рисунке ниже, цвет фона по умолчанию черный, если установить 2 параметром у функции цвет: &hf0f0f0, то фон сольется с цветом кнопки и будет виден только волшебник. В Linux, если данный параметр равен &hFF000000, то изображения поддерживающие прозрачность загружаются с прозрачностью; если параметр равен &hFFFFFF и меньше , то функция ведет себя также как в Windows.
Windows , Linux
#Include "window9.bi"
Dim As integer event
Dim As HWND hwnd
hwnd=OpenWindow("1",300,10,100,200)
Var HIMAGE=Load_image("1.png")
ButtonImageGadget(1,10,10,80,80,HIMAGE, FB_BS_PUSHLIKE or BS_BITMAP)
Do
event=WaitEvent()
If event=EventClose Then End
Loop
Created with the Personal Edition of HelpNDoc: Easily create PDF Help documents