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

Question

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

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

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

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

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

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

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

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

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

Answer 1

Единственный способ, которым я знаю, чтобы изменить размер текста в поле, - это ударить по цели с помощью Magnification. Используя указания Саймона выше, чтобы сделать это с Style:

Style[
  Manipulator[0.5, Appearance -> {"Open", Tiny}], 
  DynamicBoxOptions -> {BaseStyle -> Magnification -> 2}
]