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

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} 
]