Mathematica: как сделать текст в нескольких цветах?

Question

Я бы хотел иметь манипулятивный контроль, что-то вроде {{wAB, 1, "AB"}, 0, 1, Appearance -> "Labeled"}, но хотелось бы, чтобы A и B были разных цветов, скажем, Red и Blue.
Я могу изменить общий цвет с помощью Style["AB",Red], но не смог получить A и B в разных цветах. Любая помощь будет оценена!

Answer 1

Вы имеете в виду, как это?

Manipulate[
 wAB,
 {{wAB,1,Row[{Style["A", Red], Style["B", Blue]}]},0,1,Appearance->"Labeled"}
 ]

и если вы предпочитаете определять отделочную часть отдельно (что может быть полезно для больших и более сложных элементов управления) и ссылкипозже в элементах управления (например, объявление переменной, вроде как, но на самом деле это макрос) и повторное использование ее для других элементов управления, тогда вы можете использовать With, например,

Manipulate[wAB,

 Evaluate@With[

   {myStyle = Row[{Style["A", Red], Style["B", Blue]}]},

   {{wAB, 1, myStyle}, 0, 1, Appearance -> "Labeled"}

   ]
 ]

Answer 2

Несмотря на то, что с помощью Style безопаснее выполнять стилизацию, вы можете на самом деле раскрасить символы строки напрямую, используя меню Формат или сочетания клавиш, и Mathematica сохранит его в динамическом элементе управления:

Answer 3

Если вертикальная позиция равна x, вы должны напечатать одну букву на x, затем считать ширину (w) и напечатать следующую букву другим цветом на новой позиции x + = w.