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 では、2番目のパラメーターで色値を指定し、3番目のパラメーターで 0 より大きい数値を指定し、4番目のパラメーターで 3 を指定する必要があります。
3番目のパラメーターが 0 だと、デフォルトの色になります。
ComboBoxGadget の線の色は、すべての ComboBoxGadget で共通に設定されます。
オプション
gadget - ガジェット番号
colorBG - 背景色
colorText - 文字色 BGR
'SetGadgetColor(3,0,&hFF0000,3) '青'SetGadgetColor(3,0,&h00FF00,3) '緑
'SetGadgetColor(3,0,&h0000FF,3) '赤
flag - 着色対象を指定するフラグ。次のとおりです：
1 - 背景色
2 - 文字色 (BGR macro)
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,"Hello0",-1)
AddComboBoxItem(1,"Hello1",-1)
AddComboBoxItem(1,"Hello2",-1)
ComboBoxGadget(2,120,10,100,80)
AddComboBoxItem(2,"Hello0",-1)
AddComboBoxItem(2,"Hello1",-1)
AddComboBoxItem(2,"Hello2",-1)
SetGadgetColor(1,255,16777215,3)
SetGadgetColor(2,50000,0,1)
Do
var event=WaitEvent()
If event=eventclose Then End
Loop
