Button Radius and Dynamic Color Change Question

[etLux]

I have a button named Stop, with radius set to 12.

I have a timer running to update layout.

In the timer routine, I have this to change button text and color:

If MediaPlayer1.IsPlaying Then Stop.Color = Colors.Red Else Stop.Color = Colors.Green
If MediaPlayer1.IsPlaying Then Stop.Text = "Stop" Else Stop.Text = "Play"

The color change and text change both work. But the button loses its radius (that is, has square 90 degree corners).

If I remove first line (that changes color), the button behaves correctly (changes the text and retains its radius of 12).

What am I doing incorrectly?

Thanks!



David

 

[Erel]

The radius is only kept when the previous drawable is a ColorDrawable or GradientDrawable. In the case of buttons the default drawable is a StateListDrawable.
You will need to write:

Dim cd As ColorDrawable
cd.Initialize(Colors.Green, 12dip)
Stop.Background = cd

 

[etLux]

Thank you, Erel! Yes, that works fine -- and by
inference, leads me to understand a number of
structural matters better.

While I have long experience developing in other
environments, I'm very new to this one, so I hope
my novice questions will be excused.

My best,



David
-----
David Sosnowski
www.DavidSosnowski.com

 

[Erel]

so I hope
my novice questions will be excused

On the contrary. These are very good questions and I'm sure that will help other users as well.