SetGadgetColor

Синтаксис

Sub SetGadgetColor(byval gadget As Long, ByVal colorBG as Long, ByVal colorText as Long, ByVal flag as Long)

Описание

Устанавливает значение цвета указанного гаджета. Поддерживаемые гаджеты:

    Buttongadget - (ограничение: только для Linux ; устанавливается только цвет текста)
    TextGadget
    StringGadget - (В Linux при использовании gtk3 устанавливается цвет текста и цвет его выделения мышью)
    EditorGadget
    CheckBoxGadget - ( в linux при использовании gtk2 , только цвет текста)
    ComboBoxGadget - (ограничение: только для windows)
    ListBoxGadget
    ListViewGadget
    GadgetToolTip - (ограничение: только для windows)
    OptionGadget - (в linux при использовании gtk2 , только цвет текста)
    TrackBarGadget - (ограничение: только для Windows и Linux с использованием gtk3)
    SpinGadget - (В Linux при использовании gtk3 устанавливается цвет текста и цвет его выделения мышью)
    GroupGadget - (В Linux при использовании gtk2, устанавливается только цвет текста)
    ScrollBarGadget - (ограничение: только для windows)
    ProgressBarGadget - (ограничение: только для Windows и Linux с использованием gtk2)
    ExplorerListGadget - (ограничение: только для windows)

Дополнительное примечание для windows:
Цвет TrackBarGadget и ScrollBarGadget устанавливается только фон. Для ScrollBarGadget необходимо во втором параметре указывать значение цвета, в третьем параметре указывать число больше 0, а в четвертом параметре 3. Если в третьем параметре будет 0, тогда будет цвет по умолчанию. Цвет строк ComboBoxGadget устанавливается для всех ComboBoxGadget общий.

Параметры

gadget - номер гаджета

colorBG - цвет фона

colorText - цвет текста

flag - флаг, определяющий что окрашивать, может быть:
    1 - Цвет фона
    2 - Цвет текста
    3 - Цвет фона и Цвет текста

Платформы

Windows , Linux

Пример1

#Include "window9.bi"
OpenWindow("",10,10,300,150)
ButtonGadget(1,20,20,60,25,"End")
TrackBarGadget(2,20,70,100,30,0,10)
SetGadgetColor(2,50000,0,1)
TextGadget(3,200,20,50,50)
SetGadgetFont(3,LoadFont("Arial",34))
SetGadgetColor(3,0,16777215,3)
Do
  var event=WaitEvent()
  If event=EventGadget Then
     Select case EventNumber
        Case 2
           SetGadgetText(3,Str(GetTrackBarPos(2)))
        Case 1
           end
     End Select
  EndIf
Loop

Результат

Пример2

'Пример для Windows, в Linux цвет ComboBoxGadget не меняется.
'Цвет строк ComboBoxGadget устанавливается для всех ComboBoxGadget общий!
#Include "window9.bi"
CenterWindow(OpenWindow("",10,10,260,100))
ComboBoxGadget(1,10,10,100,80)
AddComboBoxItem(1,"Привет0",-1)
AddComboBoxItem(1,"Привет1",-1)
AddComboBoxItem(1,"Привет2",-1)
ComboBoxGadget(2,120,10,100,80)
AddComboBoxItem(2,"Привет0",-1)
AddComboBoxItem(2,"Привет1",-1)
AddComboBoxItem(2,"Привет2",-1)
SetGadgetColor(1,255,16777215,3)
SetGadgetColor(2,50000,0,1)
Do
  var event=WaitEvent()
  If event=eventclose Then End
Loop

Created with the Personal Edition of HelpNDoc: Easy EBook and documentation generator