- Offizieller Beitrag
Hi!
nich viel.. aber etwas.. ein programm mit dem man genau bestimmen kann wie doll ein fenster transparent wird, wie bei dem zukünftigen windows longhorn...
edit: kleiner bug behoben
Code
#include <GUIConstants.au3>
$Form1 = GUICreate("Set Trans - By GtaSpider",157, 125, 192, 125)
$Slider1 = GUICtrlCreateSlider(8, 32, 142, 29)
GUICtrlSetLimit(-1,255)
$Combo1 = GUICtrlCreateCombo("Choose", 8, 8, 145, 21)
$wl = WinList()
$setcomb = ""
For $i = 1 To $wl[0][0]
if $wl[$i][0] <> "" And $wl[$i][0] <> "Set Trans - By GtaSpider" AND IsVisible($wl[$i][1]) Then
$setcomb &= $wl[$i][0]&"|"
EndIf
Next
GUICtrlSetData($Combo1,$setcomb)
GUICtrlCreateLabel("0%", 16, 72, 18, 17)
GUICtrlCreateLabel("100%", 120, 72, 30, 17)
$Progress1 = GUICtrlCreateProgress(35, 72, 83, 17)
GUICtrlSetColor(-1, 0x335EA8)
$update = GUICtrlCreateButton("&Update",10,95,137)
GUISetState(@SW_SHOW)
$old = 0
While 1
$new = GUICtrlRead($Slider1)
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $update
GUICtrlSetData($Combo1,"")
$wl = WinList()
$setcomb = "Choose|"
For $i = 1 To $wl[0][0]
if $wl[$i][0] <> "" And $wl[$i][0] <> "Set Trans - By GtaSpider" AND IsVisible($wl[$i][1]) Then
$setcomb &= $wl[$i][0]&"|"
EndIf
Next
GUICtrlSetData($Combo1,$setcomb,"Choose")
Case $old <> $new
WinSetTrans(GUICtrlRead($Combo1),"",255-$new)
GUICtrlSetData($Progress1,$new*100/255)
If $new = 0 Then WinSetTrans(GUICtrlRead($Combo1),"",0)
$old = $new
EndSelect
WEnd
Exit
Func IsVisible($handle)
If BitAnd( WinGetState($handle), 2 ) Then
Return 1
Else
Return 0
EndIf
EndFunc
Alles anzeigen
mfg Spielkind^^