Tag Info

New answers tagged

0

My solution uses SetterBar with the items framed. {SetterBar[Dynamic[x], {"Play" -> Framed[Rotate["\[FilledUpTriangle]", -\[Pi]/2]], "Stop" -> Framed@"\[FilledSquare]"}, BaseStyle -> {FontSize -> 20}], Dynamic@Switch[x, "Play", Style["Play", Green], "Stop", Style["Stop", Red]]} It is pretty close. I'm certain you can tweak the font ...


1

Turned out it was easy to replicate the buttons from Play: $playView=ToExpression@GraphicsBox[ TagBox[{ {GrayLevel[0.9], RectangleBox[{5, -158}, {29, -135}]}, {GrayLevel[0.3], PolygonBox[NCache[{{13, -153}, {13, -140}, {21, Rational[-293, 2]}, {13, -153}}, {{13, -153}, {13, -140}, {21, -146.5}, {13, -153}}]]}, ...



Top 50 recent answers are included