ImageGadget

Синтаксис

Function ImageGadget(ByVal gadget As Long, ByVal x As Long, ByVal y As Long, ByVal w As Long, ByVal h As Long, ByVal imageId As any ptr =0, byval ExSyle As Long =0, byval Style As Long = SS_BITMAP) As HWND

Описание

Гаджет , который используется для вывода статического изображения

Параметры

gadget - идентификатор\номер (любое натуральное число больше нуля, может быть 1,2,3,4 и др.)

x,y,w,h - расположение и размеры гаджета

imageId - хендл рисунка, изначально в параметре 0, то есть рисунок можно вставить позднее с помощью функции SetImageGadget

ExSyle - (только для Windows) Если TRUE , то гаджет будет с рамкой

Style - (только для Windows) может быть одним из двух стилей:
    SS_BITMAP - гаджет может вмещать битмапы изображений
    SS_ICON - гаджет может вмещать иконки

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As integer event
#Ifdef __FB_WIN32__
Var iStyle = SS_ICON
#Else
Var iStyle = 0
#EndIf
OpenWindow("1",300,10,100,100)
ImageGadget(1,10,10,32,32,Load_icon("1.ico"),,iStyle)
ImageGadget(2,50,10,32,32,Load_image("1.png"))
Do
  event=WaitEvent()
  If event=EventClose Then End
Loop

Результат

Created with the Personal Edition of HelpNDoc: Full featured EBook editor