GetGadgetColor

Синтаксис

Function GetGadgetColor(byval gadget as Long ,ByVal flag as Long ) As Integer

Описание

Получает значение цвета указанного гаджета.

Поддерживаемые гаджеты:
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)

Параметры

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

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

Платформы

Windows , Linux

Пример

#Include "window9.bi"
OpenWindow("",10,10,240,150)
EditorGadget(1,20,20,100,40,"Editor")
SetGadgetColor(1,50000,0,1)
ButtonGadget(2,10,70,150,30,"Получить цвет Editor")
TextGadget(3,150,20,45,17,"",SS_CENTER)
SetGadgetColor(3,255,16777215,3)
Do
  var event=WaitEvent()
  If event=EventGadget Then
     Select case EventNumber
        Case 2
           SetGadgetText(3,Str(GetGadgetColor(1,1)))
     End Select
  ElseIf  event=Eventclose Then
     End
  EndIf
Loop

Результат

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