color problems with embedding obj

[Champak]

I'm trying to use _IECreateEmbedded with GUICtrlCreateObj. My problem is it seems the natural state of its background is white and none of the gui and cntrl background color settings can seem to change this. Its a problem because im using it with wmp visualiation and when switching songs the background will pop up bright white for 1-2 seconds. Id like to make it black. I've tried locking the gui before song change and hiding the control before song change they all produce a white flash the size of the visualization control. And yes, I know the current color in this ex is red.

Thanks.

expandcollapse popup

$MEDIAVISUALGUI = GUICreate($APPTITLE & " - MediaVisual", 800, 600, 0, -600, $WS_POPUP + $WS_BORDER, $WS_EX_TOPMOST)
GUISetBkColor(0xff0000)
$OIE_AD = _IECreateEmbedded()
$MEDIA_PLAYER_ARRAY[17] = GUICtrlCreateObj($OIE_AD, 0, 0, 600, 800)
GUICtrlSetColor(-1, 0xff0000)
GUICtrlSetBkColor(-1, 0xff0000)
_IENavigate($OIE_AD, "about:blank", 1)
_IELoadWait($OIE_AD, 180, 4000)
Do
    Sleep(50)
    $ODOC_AD = $OIE_AD.document
Until IsObj($ODOC_AD)
Sleep(25)
$OBODY_AD = $ODOC_AD.body
$OBODY_AD.scroll = "no"
$OBODY_ADSTYLE = $OBODY_AD.style
With $OBODY_ADSTYLE
    .margin = "0px"
    .border = "0px"
    .padding = "0px"
    .backgroundcolor = "#ff0000"
EndWith
$OPLAYER2 = $ODOC_AD.createElement("OBJECT")
With $OPLAYER2
    .style.width = 800
    .style.height = 600
    .style.background = "#ff0000"
    .classid = "CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6"
    .uiMode = "none"
    .settings.setMode("loop", "false")
    .settings.volume = 0
EndWith
$OBODY_AD.appendChild($OPLAYER2)
$MEDIA_PLAYER_ARRAY[18] = GUICtrlCreatePic("", 500, 0, 300, 300)


GUISetState()

Edited July 22, 2013 by Champak