Sign in to follow this  
Followers 0
Champak

color problems with embedding obj

1 post in this topic

#1 ·  Posted (edited)

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.

$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 by Champak

Share this post


Link to post
Share on other sites



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0