CODEWITHSUNDEEP
wolfram-mathematica
P. Fonseca
P. Fonseca

Reputation: 549

How to change the background style of TabView?

When including a 3D plot inside a TabView, in my computer, the entire tab is grayed as if it was a giant button, leaving the Graphics with a white background:

example

To avoid the contrast between the gray and the white, I would prefer that the tab also had a white color.

Tried BaseStyle -> {Background -> White} but with no success (only the borders get restyled).

How can I change the Background color of the tab?

Upvotes: 7

Views: 1321

Answers (3)

Szabolcs
Szabolcs

Reputation: 25703

The default background is not white but transparent for graphics, so there's no harsh contrast. Background -> White makes the background white and leaves the borders, quite the opposite of what you said. BaseStyle doesn't seem to do anything.

This is what I get on Windows XP:

TabView

EDIT: An alternative is a custom TabView-implementation along the following lines:

objects = Table[Plot[f[x], {x, 0, 10}], {f, {Sin, Cos, Exp}}];

Column[
 {SetterBar[Dynamic[x], Thread[objects -> Range@Length[objects]]], 
  Dynamic[x]}
 ]

This is unfinished, but the basics work, and it shows you how to do it yourself.

Upvotes: 5

Mr.Wizard
Mr.Wizard

Reputation: 24336

I can confirm Heike's assertion for Windows 7.

If you wish to always overwrite the system theme color for TabView boxes, you may evaluate:

SetOptions[$FrontEnd,
  TabViewBoxOptions -> {Background -> GrayLevel[1]}
]

Using either the "Windows 7 Basic" or "Windows 7 Aero" theme, I see this:

enter image description here

However, using the "Windows Classic" theme I see this:

enter image description here

If, using the Classic theme, I open Window Color and Appearance and change the 3D Objects Color 1 to white, I see:

enter image description here

Upvotes: 3

Heike
Heike

Reputation: 24420

This seems to be an OS specific problem. On OS X, TabView does have a grey background (albeit very light), even with Background->White. For example

TabView[Table[Plot[Sin[i x], {x, 0, 2 Pi}, Background -> White], {i, 4}], 
  Background->White]

produces this

enter image description here

Upvotes: 3

Related Questions