Private B4XComboBox1 As B4XComboBox
#if B4I
SetAllButtonTextColor(b4xComboBox1.mBtn,xui.Color_white)
B4XComboBox1.mBtn.SetColorAndBorder(XUI.Color_Black,1dip,XUI.Color_Black,0dip)
#End If
Sub SetAllButtonTextColor(btn As Button, clr As Int)
state: 0 = normal, 1 = pressed, 2 = disabled
Dim no As NativeObject = btn
no.RunMethod("setTitleColor:forState:", Array(no.ColorToUIColor(clr), 0))
no.RunMethod("setTitleColor:forState:", Array(no.ColorToUIColor(clr), 1))
no.RunMethod("setTitleColor:forState:", Array(no.ColorToUIColor(clr), 2))
End Sub