xdmisterx |
|
| Non avendo altro da fare ho fatto questa inutility per settare la trasparenza della barra start xD: CODICE #include <GuiConstants.au3>
GUICreate("Start trasparency",300,100,-1,-1)
$max=GUICtrlCreateMenu("Ripristino")
$tot=GUICtrlCreateMenuItem("Ripristino",$max)
$slider=GUICtrlCreateSlider(20,20,255,20)
GUICtrlSetLimit($slider,255,0)
GUICtrlSetData($slider,255)
GUICtrlSetState($slider,$gui_disable)
$active=GUICtrlCreateButton("Attiva",100,55,100,20)
$stat=False
GUISetState()
While 1
Switch GUIGetMsg()
Case $tot
WinSetTrans("[CLASS:Shell_TrayWnd]","",255)
GUICtrlSetData($slider,255)
Case $gui_event_close
Exit
Case $active
If $stat=False Then
GUICtrlSetState($slider,$gui_enable)
GUICtrlSetData($active,"Imposta")
$stat=True
While 1
$n=GUICtrlRead($slider)
If $n > 254 Then
$a=254
$fin=$n
WinSetTrans("[CLASS:Shell_TrayWnd]","",$a)
Else
$fin=False
WinSetTrans("[CLASS:Shell_TrayWnd]","",$n)
EndIf
Switch GUIGetMsg()
Case $active
If $fin <> False Then WinSetTrans("[CLASS:Shell_TrayWnd]","",$fin)
GUICtrlSetState($slider,$gui_disable)
GUICtrlSetData($active,"Attiva")
$stat=False
ExitLoop
EndSwitch
WEnd
ElseIf $stat=True Then
GUICtrlSetState($slider,$gui_disable)
GUICtrlSetData($active,"Attiva")
$stat=False
EndIf
EndSwitch
WEnd L'unica cosa che mi sono divertito a fare, è stato trovare il modo di eliminare il refresh della barra a valore massimo(ovvero se si selezionava il valore massimo la barra iniziava a dare un fastidioso refresh). ciao  |
| | |
