How to control font appearance in Manipulator input field?

Question

Sorry for doing something that is probably trivial, my first question is here, but I just realized that I don’t know how to style the font in the input field in the Manipulator control. None of the options for this function is for styles in the input field (AFAIK). I wondered if the input option would work:

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

but this is not so. I suppose this is trivial, but it puzzled me.

Edit

I tried using the local Manipulator style

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

This changes the color and weight of the font (I don’t want them to change in my application, just checking what works and what doesn't), but without changing the font size. If this style solution worked, I think that would be enough, but in the end I would like to have a tiny manipulator in Manipulate:

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

but with a non-tiny font in the input field and achieve this by direct coding.

Answer 1

The only way I know to resize text in a field is to hit everything with Magnification . Using Simon's above guide, do this with Style :

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