Creating a transparent slider control..?

[Damein]

So I have this GUI that is set to be slightly transparent, and I have a slider control inside of it. The problem is, the slider control looks way out of place because its background is white. And even if I set it to gray or something it doesn't look right. Now, obviously thats because the GUI is transparent. So is there anyway to get the same effect or something to make the slider look the same?

Here's the section with the GUI. Just copy/paste and you can run it.

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#Include <WinAPI.au3>
#include <array.au3>
#include <Constants.au3>
_FixRightNowStatus()
Func _FixRightNowStatus()
;~  GuiSetState(@SW_DISABLE, $RightNowGUI)
$FixStatusGUI = GUICreate("FixRightNow", 150, 300, -1,-1, BitOR($WS_POPUP,$WS_BORDER))
    GuiSetFont(13)
    GUICtrlSetDefColor(0xFFFFFF)
    GUISetBkColor(0x000000)
    GuiCtrlCreateLabel("Right Now",38,10,200,50)
$FixRightNowStatus = GuiCtrlCreateLabel("Test",10,200)
GuiCtrlSetFont(-1,7.8)
    GuiCtrlCreateLabel("Temperature",30,230,200,40)
    GuiCtrlCreateLabel("73" & "°F",60,250,200,30)
GuiCtrlCreateLabel("Extended Info",47,280,70,15)
GUICtrlSetTip(-1, "Test extended")
GuiCtrlSetFont(-1,7)
$AlignmentSliderForRightNow = GUICtrlCreateSlider(20, 160, 100, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
    GUICtrlSetLimit(-1, 150, 0)
$FinishedRightNowFix = GuiCtrlCreateButton("Done", 45,100)
WinSetTrans($FixStatusGUI,"",200)
GuiSetState()
EndFunc
While 1
Sleep(10)
WEnd

[Damein]

Nevermind... after digging into the Help file, without thinking about it before hand I found it.

For future reference:

Adding:

$WS_EX_TRANSPARENT to the extendedstyle does the trick.

[Skitty]

Nevermind... after digging into the Help file, without thinking about it before hand I found it.

For future reference:

Adding:

$WS_EX_TRANSPARENT to the extendedstyle does the trick.

Ah, I was about to post that, and you can also just do this as well.

#include <WindowsConstants.au3>
_FixRightNowStatus()
While 1
    Sleep(10)
WEnd
Func _FixRightNowStatus()
;~  GuiSetState(@SW_DISABLE, $RightNowGUI)
    $FixStatusGUI = GUICreate("FixRightNow", 150, 300, -1, -1, BitOR($WS_POPUP, $WS_BORDER))
    GUISetFont(13)
    GUICtrlSetDefColor(0xFFFFFF)
    GUICtrlSetDefBkColor(0x000000)
GUISetBkColor(0x000000)
    GUICtrlCreateLabel("Right Now", 38, 10, 200, 50)
    $FixRightNowStatus = GUICtrlCreateLabel("Test", 10, 200)
    GUICtrlSetFont(-1, 7.8)
    GUICtrlCreateLabel("Temperature", 30, 230, 200, 40)
    GUICtrlCreateLabel("73" & "°F", 60, 250, 200, 30)
    GUICtrlCreateLabel("Extended Info", 47, 280, 70, 15)
    GUICtrlSetTip(-1, "Test extended")
    GUICtrlSetFont(-1, 7)
    $AlignmentSliderForRightNow = GUICtrlCreateSlider(20, 160, 100, 20)
    ;GUICtrlSetBkColor(-1, 0xFFFFFF)
    GUICtrlSetLimit(-1, 150, 0)
    $FinishedRightNowFix = GUICtrlCreateButton("Done", 45, 100)
    WinSetTrans($FixStatusGUI, "", 230)
    GUISetState()
EndFunc   ;==>_FixRightNowStatus