ComboBoxGadget

Gadget ››
Parent Previous Next

ComboBoxGadget

Синтаксис

Function ComboBoxGadget(ByVal gadget As Long, ByVal x As Long, ByVal y As Long, ByVal w As Long, ByVal h As Long, ByVal Style As Long=CBS_DROPDOWNLIST Or WS_VSCROLL) As HWND

Описание

комбинированный список. Цвет и шрифт можно поменять только в Windows. Установить цвет в гаджет можно функцией SetGadgetColor . Получить цвет из гаджета можно функцией GetGadgetColor. Установить шрифт в гаджет можно функцией SetGadgetFont. При использовании в программе нескольких ComboBoxGadget , цвет текста строк для всех гаджетов общий.

Параметры

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

x - координата X расположения гаджета

y - координата Y расположения гаджета

w - ширина гаджета

h - Для windows это высота раскрывающегося списка, высота же самого гаджета неизменна. Для Linux это высота гаджета , высота же раскрывающегося списка рассчитывается автоматически.

Style - стиль только для Windows , описаны ниже

Платформы

Windows , Linux

Пример

#Include "window9.bi"
#Ifdef __FB_WIN32__
Dim h As Long = 80
#Else
Dim h As Long = 30
#EndIf
OpenWindow("",10,10,300,100)
ComboBoxGadget(1,10,10,100,h)
AddComboBoxItem(1,"Привет0",-1)
AddComboBoxItem(1,"Привет1",-1)
AddComboBoxItem(1,"Привет2",-1)
TextGadget(2,150,10,100,20)
Do
  var event=WaitEvent()
  If event=eventclose Then End
  If event=eventgadget Then
     If eventnumber()=1 Then
        setgadgettext(2,GetComboBoxText(1,GetItemComboBox(1)))
     EndIf
  EndIf
Loop

Результат

Возможные стили:

Так же можно позаимствовать некоторые стили из вкладки OpenWindow !

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