topic ArcScene Background Color - Harder than it should be. in ArcObjects SDK Questions

ArcScene Background Color - Harder than it should be.

WilliamMcInnes — Thu, 10 Feb 2011 21:10:46 GMT

I'm having trouble setting the background color in ArcScene

I can "set" the backroundcolor i.e. the message box reports it as being changed, but it doesn't change in the scene.

The refreshviewers method refreshes the background to white, even though the default background is something different (150,0,150)

In the GUI, this code does set the combobox background color to grey (128,128,128)
but it doesn't apply.

Code attached below.

How do I get the background to change?

Public Sub ChangeBackground()

    Dim pSxDoc As ISxDocument
    Set pSxDoc = ThisDocument

    Dim pViews3d As IViewers3D
    Set pViews3d = pSxDoc.Scene.SceneGraph
    
    Dim r As Single
    Dim g As Single
    Dim b As Single
    
    pViews3d.SetBackgroundColor 128, 128, 128
    pViews3d.GetBackgroundColor r, g, b
      
    MsgBox r & g & b
    
    pViews3d.RefreshViewers

End Sub

End Sub

Cheers,

Will

Re: ArcScene Background Color - Harder than it should be.

Venkata_RaoTammineni — Sat, 11 Dec 2021 12:14:37 GMT

I'm having trouble setting the background color in ArcScene

I can "set" the backroundcolor i.e. the message box reports it as being changed, but it doesn't change in the scene.

The refreshviewers method refreshes the background to white, even though the default background is something different (150,0,150)

In the GUI, this code does set the combobox background color to grey (128,128,128)
but it doesn't apply.

Code attached below.

How do I get the background to change?
Public Sub ChangeBackground()

    Dim pSxDoc As ISxDocument
    Set pSxDoc = ThisDocument

    Dim pViews3d As IViewers3D
    Set pViews3d = pSxDoc.Scene.SceneGraph
    
    Dim r As Single
    Dim g As Single
    Dim b As Single
    
    pViews3d.SetBackgroundColor 128, 128, 128
    pViews3d.GetBackgroundColor r, g, b
      
    MsgBox r & g & b
    
    pViews3d.RefreshViewers

End Sub
End Sub

Cheers,

Will

Mostly you play with Scene ..if you want to change and once you run the code... go scene properties and press Restore Default colors

Public Sub test()
    Dim pSxDoc As ISxDocument
    Set pSxDoc = ThisDocument

    Dim pViews3d As IViewers3D
    Set pViews3d = pSxDoc.Scene.SceneGraph

    Dim r As Single
    Dim g As Single
    Dim b As Single

    pViews3d.Scene.SetDefaultBackgroundColor 128, 128, 128


    pViews3d.RefreshViewers

    pViews3d.GetAllViewers

End Sub

Re: ArcScene Background Color - Harder than it should be.

WilliamMcInnes — Tue, 15 Feb 2011 03:16:18 GMT

I added pViews3d.GetAllViewers, and it reports changing the color, but it still refreshes to white.

Thanks though.