4
$\begingroup$

I just observed that in Mathematica 10.3 for Windows the appearance of a slider has been changed. The slider is now blue, black when the mouse is over the slider and gray when the slider is dragged. For me, this blue is too striking, so I would like to change it. In the options of Slider I see that there must be a DefaultBaseStyle for a Slider, but I was unable to find the corresponding style definitions. Is there a way to find and adapt these definitions, e.g. with CurrentValue?

$\endgroup$
10
  • $\begingroup$ hmm, I don't see on Win 7 V 10.3.1 what you see. p.s. controllers definitions are somewhere in text resources as Graphics. $\endgroup$
    – Kuba
    Commented Feb 13, 2016 at 8:46
  • $\begingroup$ @Kuba. I see this on two computers, each running Windows 10, Mathematica version 10.3.1. On one of them I installed 10.3.1 only two days ago. $\endgroup$ Commented Feb 13, 2016 at 9:10
  • $\begingroup$ Would you please include screen captures so we can see what you're talking about? $\endgroup$
    – Mr.Wizard
    Commented Feb 13, 2016 at 9:43
  • $\begingroup$ Since Kuba is running Windows 7 and hasn't noticed anything, this probably has something to do with Windows 10 as well. Have you tried changing OS style settings to see how they affect this? $\endgroup$
    – Mr.Wizard
    Commented Feb 13, 2016 at 9:49
  • $\begingroup$ A quick search for "Windows 10 slider" leads me to believe that blue is the new style in that version of Windows: cdn.pureinfotech.com/wp-content/uploads/2015/08/… $\endgroup$
    – Mr.Wizard
    Commented Feb 13, 2016 at 9:51

1 Answer 1

4
$\begingroup$

Simply use the wrapper Style[ expr , ControlsRendering -> "Generic" ] or as has been stated in the comments use the option BaseStyle:

Style[
    Manipulate[
       Null,
       {{a,1},1,10,1}
    ],
    ControlsRendering -> "Generic"
]

Generic rendering

$\endgroup$
1
  • 1
    $\begingroup$ @grw, this may be useful in some cases where Manipulate should not be wrapped: Manipulate[Null, Style[Control[{{a, 1}, 1, 10, 1}], ControlsRendering -> "Generic"]] $\endgroup$
    – garej
    Commented Feb 14, 2016 at 12:04

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.