JavaScript_Freek Posted August 17, 2006 Share Posted August 17, 2006 #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 [center]Cookyx.com :: Simple LAN Chat[/center] Link to comment Share on other sites More sharing options...
BPBNA Posted August 17, 2006 Share Posted August 17, 2006 Why isnt what working? The transparency works fine for me. Link to comment Share on other sites More sharing options...
NELyon Posted August 17, 2006 Share Posted August 17, 2006 Works fine on my end. Link to comment Share on other sites More sharing options...
JavaScript_Freek Posted August 17, 2006 Author Share Posted August 17, 2006 WIll you get a guicreate pop up with a slider and label (transpareny) and every time u move sider the trancparency changes? [center]Cookyx.com :: Simple LAN Chat[/center] Link to comment Share on other sites More sharing options...
NELyon Posted August 17, 2006 Share Posted August 17, 2006 Yes Link to comment Share on other sites More sharing options...
BPBNA Posted August 17, 2006 Share Posted August 17, 2006 Do you mean only the label should be transparent or the entire GUI? Link to comment Share on other sites More sharing options...
JavaScript_Freek Posted August 18, 2006 Author Share Posted August 18, 2006 Entire GUI. [center]Cookyx.com :: Simple LAN Chat[/center] Link to comment Share on other sites More sharing options...
Valuater Posted August 18, 2006 Share Posted August 18, 2006 Entire GUI.works fine here too!8) Link to comment Share on other sites More sharing options...
JavaScript_Freek Posted August 18, 2006 Author Share Posted August 18, 2006 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? [center]Cookyx.com :: Simple LAN Chat[/center] Link to comment Share on other sites More sharing options...
Vicks Posted August 18, 2006 Share Posted August 18, 2006 (edited) 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 [s]Autoit[/s] Link to comment Share on other sites More sharing options...
NELyon Posted August 18, 2006 Share Posted August 18, 2006 Once you fix the syntax on the Do loop, it works fine. Link to comment Share on other sites More sharing options...
Valuater Posted August 18, 2006 Share Posted August 18, 2006 So#include <GUIConstants.au3>AutoItSetOption("GUIResizeMode",802)Global $oldwidth = 500, $oldheight = 100, $ontop = 1GUICreate("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 neededUntil $msg = $GUI_EVENT_CLOSE8) Link to comment Share on other sites More sharing options...
JavaScript_Freek Posted August 18, 2006 Author Share Posted August 18, 2006 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. [center]Cookyx.com :: Simple LAN Chat[/center] Link to comment Share on other sites More sharing options...
Valik Posted August 18, 2006 Share Posted August 18, 2006 Transparency is not cheap. Think about it, it takes two images (background, foreground) and blends them together. Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now