Как контролировать внешний вид шрифта в поле ввода манипулятора?

Прошу прощения за создание чего-то, что, вероятно, является тривиальным, мой первый вопрос здесь, но я только что понял, что не знаю, как стилизовать шрифт в поле ввода в элементе управления Manipulator. Ни один из вариантов этой функции не предназначен для стилизации в поле ввода (AFAIK). Я задавался вопросом, будет ли работать опция поля ввода:

Style[Manipulator[0.5, Appearance -> {"Open", Tiny}], 
 DefaultOptions -> {InputField -> {BaseStyle -> Directive[Red, 16]}}]

Mathematica graphics

, но этого не произошло. Я предполагаю, что это тривиально, но это меня поставило в тупик.

Редактировать

Я пробовал использовать стиль локального манипулятора

Cell[StyleData["Manipulator"],
 ShowStringCharacters->False,
 NumberMarks->False,
 FontFamily:>CurrentValue["PanelFontFamily"],
 FontSize->24,
 FontColor->RGBColor[1,0,0],
 FontWeight->"Bold"]

Mathematica graphics

Это меняет цвет и вес шрифта (я не хочу, чтобы они менялись в моем приложении, просто проверяю, что работает, а что нет), но все равно не изменение размера шрифта. Если бы это решение с таблицей стилей работало, я думаю, на данный момент этого было бы достаточно, но в конечном итоге я хотел бы иметь крошечный манипулятор в Manipulate:

{{x, 40, "Hello World"}, 20, 100, 5, Appearance -> "Open", 
AppearanceElements -> {"InputField", "StepLeftButton", "StepRightButton",    
                        "HideControlsButton"}, ImageSize -> Tiny}

, но с не крошечным шрифтом в поле ввода, и добиться этого путем прямого кодирования.

8
задан Sjoerd C. de Vries 10 January 2012 в 22:12
поделиться