プログラム言語 FreeBasic |
GetGadgetColor
GetGadgetColor(gadget, flag)
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 -(制限:gtk2を使用するWindowsおよびLinuxのみ)
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