OptionGadget

Синтаксис

Function OptionGadget(ByVal gadget As Long, ByVal x As Long, ByVal y As Long, ByVal w As Long, ByVal h As Long, ByRef s As String="", ByVal Style As Long = 9) As HWND

Описание

Переключаемая опциональная кнопка.

Установить текст в гаджет можно функцией SetGadgetText
Получить текст из гаджета можно функцией GetGadgetText
Установить цвет в гаджет можно функцией SetGadgetColor (На системе Linux с подсистемой GTK2 можно установить только цвет текста)
Получить цвет из гаджета можно функцией GetGadgetColor (На системе Linux с подсистемой GTK2 можно получить только цвет текста)
Установить шрифт в гаджет можно функцией SetGadgetFont
Проверить состояние кнопок можно функцией GetGadgetState
Установить состояние кнопок можно функцией SetGadgetState

Параметры

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

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

s - любой текст, подсказывающий , что делает данный переключатель

Style - (только для Windows) стиль (смотрите параметр Style на странице ButtonGadget)

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As integer event
OpenWindow("1",300,10,500,500)
OptionGadget(1,10,10,100,30,"option 1")
OptionGadget(2,10,40,100,30,"option 2")
TextGadget(3,100,30,100,30,"Бу-га-га")
Do
  event=WaitEvent()
  If event=EventClose Then End
  If event=eventgadget Then
     If eventNumber = 1 Then
        setgadgettext(3,"1 option")
     ElseIf eventNumber = 2 Then
        setgadgettext(3,"2 option")
     EndIf
  EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Single source CHM, PDF, DOC and HTML Help creation