¿Cómo controlar el aspecto de la fuente en el campo de entrada del manipulador?

Question

Disculpa por hacer algo que es probablemente trivial. Mi primera pregunta aquí, pero me acabo de dar cuenta de que no sé cómo darle estilo a la fuente dentro del campo de entrada en un control manipulador. Ninguna de las opciones para esta función es para el estilo dentro del campo de entrada (AFAIK). Me preguntaba si una opción campo de entrada funcionaría:

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

pero no fue así. Asumo que esto es trivial pero me tiene perplejo.

Editar

He intentado usar un estilo manipulador local de

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

Esto está cambiando el color de la fuente y el peso (no quiero éstos cambiaron en mi solicitud, simplemente probando lo que funciona y lo que no funciona) pero sin cambiar el tamaño de la fuente. Si esta solución de estilos trabajó supongo que sería suficiente por ahora, pero en última instancia, me gustaría tener un pequeño manipulador en un Manipular:

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

pero con un no-pequeña fuente en el campo de entrada, y lograr esto mediante la directa codificación.

Answer 1

La única forma que conozco de cambiar el tamaño del texto en el campo es golpear todo con Magnification. El uso de la guía de Simon por encima de hacer esto con Style:

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