Moin
Ich habe hier ein Bsp. Script, bei dem alle paar Sekunden der Titel geändert wir.
So jetzt sieht die Titeländerung recht unatraktiv aus, deshalb würde ich diesen gerne immer einbelenden bzw. Ausblenden. Anders gesagt bei jeder Titeländerung den Titel von Sichtbar bis Komplett Tranzparent und umgekehrt setzen.
Ist das realisierbar?
Spoiler anzeigen
Global $hGUI, $GUI, $Titelindex
opt("GUIOnEventMode",1)
$GUI = GUICreate("Anfangstitel",300,200)
$hGUI = WinGetHandle($GUI)
GUISetOnEvent(-3,"_exit")
GUISetState()
$Timer_ChangeTitle = TimerInit()
[/autoit] [autoit][/autoit] [autoit]While 1
If TimerDiff($Timer_ChangeTitle) > 3000 Then Change_Titel()
Sleep(100)
WEnd
Func Change_Titel()
Local $aTitels[6] = ["Anfangstitel","Titel 2","Nächster Titel","Noch ein Titel","Titel 5"]
If $Titelindex = UBound($aTitels)-1 Then $Titelindex = 0
WinSetTitle($hGUI,"",$aTitels[$Titelindex])
$Titelindex += 1
$Timer_ChangeTitle = TimerInit()
EndFunc
Func _exit()
Exit
EndFunc
EDIT: Ne möglichkeit wäre natürlich ne Child Gui mit nem Label zu erstellen und diese an den Platz des Titel zu legen aber geht es auch einfacher?
EDIT EDIT: Ich hab auch so nen schönen kleinen effekt hinbekommen. Aber für lösungen zur Ausgangsfrage würde ich mich Trozdem freuen.
Spoiler anzeigen
#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]Global $hGUI, $GUI, $Titelindex
[/autoit] [autoit][/autoit] [autoit]opt("GUIOnEventMode",1)
$GUI = GUICreate("Anfangstitel",300,200)
$hGUI = WinGetHandle($GUI)
GUISetOnEvent(-3,"_exit")
GUISetState()
$Timer_ChangeTitle = TimerInit()
[/autoit] [autoit][/autoit] [autoit]While 1
If TimerDiff($Timer_ChangeTitle) > 3000 Then Change_Titel()
Sleep(100)
WEnd
Func Change_Titel()
Local $aTitels[6] = ["Anfangstitel","Titel 2","Nächster Titel","Noch ein Titel","Titel 5"], $AktTitle,$aAktTitle, $aNewTitle
If $Titelindex = UBound($aTitels)-1 Then $Titelindex = 0
[/autoit] [autoit][/autoit] [autoit]$AktTitle = WinGetTitle($hGUI)
$aAktTitle = StringSplit($AktTitle,"")
For $i = 1 To $aAktTitle[0]
WinSetTitle($hGUI,"",_ArrayToString($aAktTitle,"",$i))
Sleep(150)
Next
WinSetTitle($hGUI,"","")
Sleep(500)
$aNewTitle = StringSplit($aTitels[$Titelindex],"")
For $i = $aNewTitle[0] To 1 Step -1
WinSetTitle($hGUI,"",_ArrayToString($aNewTitle,"",$i))
Sleep(150)
Next
WinSetTitle($hGUI,"",$aTitels[$Titelindex])
$Titelindex += 1
$Timer_ChangeTitle = TimerInit()
EndFunc
Func _exit()
Exit
EndFunc
mfg Darter