风格动态值

Question

我可以将Style应用于下面“Labeled”的输出吗？

Manipulate[\[Lambda],
Control@{{\[Lambda], 401,
Style["     \[Lambda]", Black, Bold, 24]},
Range[401, 570, 1],
ControlType -> Slider,
ControlPlacement -> Bottom,
Appearance -> "Labeled",
ImageSize -> 200}]

这是滑块右侧的部分：

Answer 1

您需要选项BaseStyle（显示在Options[Slider]中）。 E.g。

Manipulate[
 Plot[Cos[k x], {x, 0, 2 Pi}, PlotLabel -> "Cosine"], 
 {{k, 1, Style["x", Black, Bold, 24]}, 0, 4, 
  ControlType -> Slider, Appearance -> "Labeled", 
  ControlPlacement -> Bottom, ImageSize -> 200, 
  BaseStyle -> {Red, Large, Italic, FontFamily -> "Times"}}]

在查看此内容时，我注意到您也可以使用almost undocumented ControlType -> LabeledSlider，仅用于其他内容。

Answer 2

它似乎至少受到LabelStyle和BaseStyle的部分影响。 （由于某些原因，我无法更改字体，但尺寸，重量，颜色似乎都能正常工作。）