Transperency not working.

[JavaScript_Freek]

#include <GUIConstants.au3>
AutoItSetOption("GUIResizeMode",802)
Global $oldwidth = 500, $oldheight = 100, $ontop = 1

GUICreate("Transparent Test",500,100,-1,-1,$WS_POPUP + $WS_SIZEBOX)
    GUICtrlCreateLabel("",28,28,32,20,$SS_BLACKFRAME)
    $trans = GUICtrlCreateSlider(60,37,73,18,$TBS_NOTICKS)
    GUICtrlSetLimit(-1,255,80)
    GUICtrlSetData(-1,220)
    GUICtrlCreateLabel("Transparency:",70,25,100,12)
    GUICtrlSetFont(-1,7)
    $top = GUICtrlCreateCheckbox('"Always On Top"',28,50)
    GUICtrlSetState(-1,1)
GUISetState()
WinSetTrans("Transparent Test","",220)
WinSetOnTop("Transparent Test","",1)

do
$msg = GUIGetMsg()
    If $msg = $trans then WinSetTrans("Transparent Test","",GUICtrlRead($trans))

Alright why isn't this working? :R

[BPBNA]

Why isnt what working? The transparency works fine for me.

[NELyon]

Works fine on my end.

[JavaScript_Freek]

WIll you get a guicreate pop up with a slider and label (transpareny) and every time u move sider the trancparency changes?

[NELyon]

Yes

[BPBNA]

Do you mean only the label should be transparent or the entire GUI?

[JavaScript_Freek]

Entire GUI.

[Valuater]

Entire GUI.

works fine here too!

8)

[JavaScript_Freek]

So

#include <GUIConstants.au3>

AutoItSetOption("GUIResizeMode",802)

Global $oldwidth = 500, $oldheight = 100, $ontop = 1

GUICreate("Transparent Test",500,100,-1,-1,$WS_POPUP + $WS_SIZEBOX)

GUICtrlCreateLabel("",28,28,32,20,$SS_BLACKFRAME)

$trans = GUICtrlCreateSlider(60,37,73,18,$TBS_NOTICKS)

GUICtrlSetLimit(-1,255,80)

GUICtrlSetData(-1,220)

GUICtrlCreateLabel("Transparency:",70,25,100,12)

GUICtrlSetFont(-1,7)

$top = GUICtrlCreateCheckbox('"Always On Top"',28,50)

GUICtrlSetState(-1,1)

GUISetState()

WinSetTrans("Transparent Test","",220)

WinSetOnTop("Transparent Test","",1)

do

$msg = GUIGetMsg()

If $msg = $trans then WinSetTrans("Transparent Test","",GUICtrlRead($trans))

works fine?

[Vicks]

well i got it but theres one problem i couldn't fix don't have time to mess around, but here ya go

#include <GUIConstants.au3>
$Form1 = GUICreate("Transparent Test", 269, 58, 194, 125)
$Slider1 = GUICtrlCreateSlider(0, 8, 265, 49)
GUICtrlSetLimit(-1,255)
GUICtrlSetData(-1,220)
GUISetState()
While 1
WinSetTrans("Transparent Test","", GUICtrlRead($Slider1))
$msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
     EndSelect
WEnd

Edited August 18, 2006 by Vicks

[NELyon]

Once you fix the syntax on the Do loop, it works fine.

[Valuater]

So

#include <GUIConstants.au3>

AutoItSetOption("GUIResizeMode",802)

Global $oldwidth = 500, $oldheight = 100, $ontop = 1

GUICreate("Transparent Test",500,100,-1,-1,$WS_POPUP + $WS_SIZEBOX)

GUICtrlCreateLabel("",28,28,32,20,$SS_BLACKFRAME)

$trans = GUICtrlCreateSlider(60,37,73,18,$TBS_NOTICKS)

GUICtrlSetLimit(-1,255,80)

GUICtrlSetData(-1,220)

GUICtrlCreateLabel("Transparency:",70,25,100,12)

GUICtrlSetFont(-1,7)

$top = GUICtrlCreateCheckbox('"Always On Top"',28,50)

GUICtrlSetState(-1,1)

GUISetState()

WinSetTrans("Transparent Test","",220)

WinSetOnTop("Transparent Test","",1)

do

$msg = GUIGetMsg()

If $msg = $trans then WinSetTrans("Transparent Test","",GUICtrlRead($trans))

works fine?

obviously an "Until" is needed

Until $msg = $GUI_EVENT_CLOSE

8)

[JavaScript_Freek]

Ok how come the bigger it gets it gets more laggy.

I mean it flashes a black screen when i set the screen size bigger.

[Valik]

Transparency is not cheap. Think about it, it takes two images (background, foreground) and blends them together.