ButtonImageGadget

Синтаксис

Function ButtonImageGadget(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 Style As Long=BS_BITMAP) As HWND

Описание

Кнопка с изображением. По умолчанию кнопка без изображения. Вы можете установить изображение или иконку при вызове этой функции или позднее при помощи функций SetImageGadget или SetIconGadget. Для установки иконки параметр Style должен быть установлен в BS_ICON

Параметры

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

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

imageID - хендл изображения или иконки

Style - Для установки кнопки "toogle" можно установить стиль FB_BS_PUSHLIKE.

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As integer event
OpenWindow("1",300,10,100,200)
Var HIMAGE=Load_image("C:\WINDOWS\system32\oobe\images\merlin.gif")
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: Free EPub producer