Private Sub ChangeResetButton(IsReset As Boolean)
Dim Enabled, Disabled As BitmapDrawable
Dim sld As StateListDrawable
Dim Width, Height As Int
Width = Max(btnReset.Width, 20dip)
Height = Max(btnReset.Height, 20dip)
'bitmap state
If IsReset Then
Enabled.Initialize(LoadBitmapSample(File.DirAssets, "btn_reset_enabled.png", Width, Height)
Disabled.Initialize(LoadBitmapSample(File.DirAssets, "btn_reset_disabled.png", Width, Height)
Else
Enabled.Initialize(LoadBitmapSample(File.DirAssets, "btn_next-speed_enabled.png", Width, Height)
Disabled.Initialize(LoadBitmapSample(File.DirAssets, "btn_next-speed_disabled.png", Width, Height)
End If
'initialize statelistdrawable
sld.Initialize
'add states
sld.AddState(sld.State_Pressed, Disabled)
sld.AddState(sld.State_Enabled, Enabled)
sld.AddState(sld.State_Disabled, Disabled)
'set background as state
btnReset.Background = sld
End Sub