10
$\begingroup$

Is there a way to change the coloring of the boxes that are generated by Animate or Manipulate? The color of what is gray by default.

Animate[ArrayPlot[CellularAutomaton[n, {{1}, 0}, {40, All}]], {n, 0, 
  255, 1}, AnimationRunning -> False]

enter image description here

$\endgroup$
  • $\begingroup$ To change all panels, use the menu Mathematica | Preferences ... | Open Option Inspector; with Global Preferences search for panel, then select Formatting Options | Expression Formatting | Controls Options | PanelBoxOptions | Background and set to desired color. $\endgroup$ – Bob Hanlon Jul 14 at 22:27
11
$\begingroup$

You can wrap Animate and Manipulate with Style and set the DefaultOptions for Panel:

 Style[#, DefaultOptions -> {Panel -> {Background -> LightBlue}}] & @
   Animate[ArrayPlot[CellularAutomaton[n, {{1}, 0}, {40, All}]], {n, 0, 255, 1}, 
      AnimationRunning -> False]

enter image description here

 Style[#, DefaultOptions -> {Panel -> {Background -> LightBlue}}] & @
   Manipulate[ArrayPlot[CellularAutomaton[n, {{1}, 0}, {40, All}]], {n, 0, 255, 1}]

enter image description here

| improve this answer | |
$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

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