Toggle black/white background

[bonus]

The background in VW is white by default and can be changed to black in preferences.

Is there a way to toggle between them easily without going to prefs?

Even better: is there a way to set only the design layers to black?

My reason is that I'm working a lot on ACAD files where yellow lines are used.

Therefore it would also be nice to be able to set the visibility to b/w (ot color) in the sheet layers only - not the whole document.

[Ray Libby]

Here is a script to toggle any preference. The script is set to toggle Zoom Line Thickness, replace the number to change to the preference you want to change.

SetPref(9, NOT GetPref(9));

{Set kPref below to the value from the fol-

lowing list to toggle the stated preference:

Click-Drag Mode = 0

Offset Duplicates = 1

Full Screen Cursor = 2

Show Screen Hints = 3

Floating Datum = 4

Snap To Loci = 5

Show Rulers = 6

Show Scroll Bars = 7

No Fill Behind Text = 8

Zoom Line Thickness = 9

Black and White Only = 10

Use Layer Colors = 11

Log Time in Program = 12

Adjust Flipped Text = 13

Show Other Objects While In Group = 14

Show 3D Axis Labels = 15

Use Black Background = 16

Use Eight Selection Handles = 17

Use Sound = 18

Issue Undo Warnings = 19

Opaque SmartCursor = 20

Stop VectorScript on Warnings = 21

Left Palette Margin = 22

Right Palette Margin = 23

Use Save Reminder = 24

Show Parametric Constraints = 25

Display Minor Alerts on Mode Bar = 27

Associate Dimensions = 28

Spell Check Capitalized Words = 29

Spell Check Words in ALL CAPS = 30

Spell Check Mixed Case Words = 31

Spell Check Words With Numbers = 32

Auto Join Walls = 33

Show Page Breaks = 34

Show Grid = 35

Print Grid = 36

Snap To Grid = 37

Snap To Object = 38

Save By Time = 39

Save Confirm = 40

Save To Backup = 41

Palette Docking = 43

Create Dimensions in Dimension Class = 44

Accelerated 2D Navigation = 45

Use Vector Caching = 46

Sketch Hidden Line = 47

Snap to Edge Points = 48

Show Page Boundary = 49

Display Default Content = 130}

[shorter]

I have a 'loadfile' script but it has to run from a white background.

The problem is, if the user likes a black background, then I want the script to first change to a white background (which I am guessing is setpref(16,FALSE), and return to the black background after running the script.

However, if the user is on a white background, then I don't want the script to do anything.

Any tips?

[Pat Stanford]

Var BBg:boolean; Black Background

If GetPref(16) Then

Begin

BBG:=True;

SetPref(16,False); {Set backgound to white}

End;

Do_Your_Stuff;

If BBG then SetPref(16,True); {Set background back to Black}

But what is in the script that requires the white background?

[lcda]

not working these works

Toggle "Zoom line thickness"

SetPref(9, NOT GetPref(9)); { toggle zoom-line }

Toggle "Black and white only"

SetPref(10, NOT GetPref(10)); { black and white only }

Toggle "Show Other Objects While In Group"

SetPref(14, NOT GetPref(14)); { Show Other Objects While In Group }

Toggle "Use Black Background"

SetPref(16, NOT GetPref(16)); { Use Black Background }

Toggle "Use Sound"

SetPref(18, NOT GetPref(18)); { Use Sound }

Toggle "Compiler mode"

SetPref(407, NOT GetPref(407)); { toggle zoom-line }

[edit]