Fade Effekt Skript

Gut geworden

schönes einfach gehaltenes Script aber in Zukunft würde ich dir empfehlen deine Sripte so zu Posten:

Ist sicherlich nicht verkehrt - aber nichts, wofür ich extra ein Include einfügen würde

Kurze Anmerkung: In den While-Schleifen verwendest du ">=" / "<=".
Dadurch wird die Funktion WinSetTrans allerdings auch mal mit 230 bzw -5 aufgerufen...
Bringt das Script nicht zum Absturz, ist aber unschön. Find ich.

Vielleicht wäre es auch interessant, variable Grenzen der Transparenz zu setzen ?
Und, wenn mein Fenster bereits teils transparent ist , wird es beim Fade-Out erst einmal ganz gezeigt,
beim Fade-In erst einmal ganz versteckt

Und vielleicht interessiert dich ja dieser Post noch: user32.dll AnimateWindow

limth

hier 1 minute googln

Func WinGetTrans($sTitle, $sText = "")
Local $hWnd = WinGetHandle($sTitle, $sText)
If Not $hWnd Then Return -1
Local $val = DllStructCreate("int")
Local $aRet = DllCall("user32.dll", "int", "GetLayeredWindowAttributes", "hwnd", $hWnd, "ulong_ptr", 0, "int_ptr", DllStructGetPtr($val), "ulong_ptr", 0)
If @error Or Not $aRet[0] Then Return -1
Return DllStructGetData($val, 1)
EndFunc

Zitat von alexanderschill

ach übrigens das mit - 5 oder 230 geht eigentlich nich, da das -=5 ist und das geht immer auf

Deine Erklärung versteh ich grad nicht .. oO

Aber ich hab mich geirrt.. Da erst nach dem Aufruf von WinSetTrans der Wert der Variablen verändert wird, passt das wieder ..

Naja, ich mach das immer so:

For $i = 0 To 255 Step +5
WinSetTrans( $WinTitle, '', $i )
Next

Edit:

Zitat von alexanderschill

wenn die Transparenz grenze Variabel sein soll dann muss ich die -=1 setzen und damit ist das skript viel langsamer und damit manchmal ungeeignet

Nö. Du kannst deine Schrittgröße einfach beibehalten.
Prüfst halt einfach auf größer/kleiner und setzt em Ende noch ein WinSetTrans( '', '', 0 ) bzw WinSetTrans( '', '', 255 ) - je nachdem ob Fade-In oder Fade-Out.

Func _FadeIn($WINTITLE,$TEXT,$DELAY,$MAXLIMIT = 255)
$TRANSPARENCY=WinGetTrans($WINTITLE)
For $TRANSPARENCY = 0 To 255 Step +5 ; Warum 0 Bis 255 ? Da werden $MAXLIMIT und WinGetTrans einfach übergangen ??
WinSetTrans($Wintitle,$TEXT,$TRANSPARENCY)
Sleep($Delay)
Next
EndFunc

Func _FadeOut($WINTITLE,$TEXT,$DELAY,$MINLIMIT = 0)
$TRANSPARENCY=WinGetTrans($WINTITLE)

For $TRANSPARENCY = 0 To 255 Step -5 ; Dasselbe hier, außerdem dürfte 'von 0 bis 255 in Schritten von -5' eigentlich gar nicht durchlaufen ?! oO
WinSetTrans($WINTITLE,$TEXT,$TRANSPARENCY)
Sleep($Delay)
Next
EndFunc

Kommentare im Code.

Zitat von alexanderschill

Nach langem suchen nach einem FadeSkript und der erfahrung das keines funktioniert hab ich mal ein ganz einfaches Selber erstellt

Diese Funktion wurde schon öfters geskriptet z.B. _GUIFade udf.

mfg (Auto)Bert

Ich habe die WinAnimate noch mal Als Richtige UDF gefunden

Aber der nachteil bei der Funktion ist das die GUI´s unter XP Schwarze ecken bekommen, wenn diese Funktion angewand wurde. So wars bei mir halt damals.

Nun, wenn du dir _GUIFlyingFadeIn genauer angesehen hättest, wüsstest du, dass:

a) Transparenz vor dem Faden sowie
b) Fade-Out

ebenfalls unterstützt werden.

For $i = $Start To $End Step $Speed

Damit übertrifft es dein Script wieder,
denn _GUIFlyingFadeIn ist kompakter und beinhaltet zusätzlich das "Ein-/Ausfliegen" des Fensters.

Edit:
@Sprenger: Schwarze Ecken ? Ist mir nie aufgefallen - ebenfalls XP

Hm. Das heißt jetzt also, das Besondere an deiner Version ist der Aufruf einer Funktion, die du nicht selbst geschrieben hast ?

Klar, du hast Recht, eingebaut ist das nicht - aber wenn ich meine Fenster selbst transparent gesetzt habe kenne ich auch den Wert..
Oder aber ich besorg mir grad die WinGetTrans - Funktion...

Das soll jetzt keineswegs abwertend klingen, für dich war das jetzt bestimmt eine gute Übung, aber um ehrlich zu sein,...
Wird kaum jemand dein Script benötigen. Die paar Zeilen werden sich die meisten wohl gerade selber zusammenbasteln, - evtl aus dem Forum kopieren, aber bestimmt kein Include dafür verwenden

Wenn man weiter runter scrollt.. ? oO
Tatsache, da ist die auch augesplittet in FadeIn und FadeOut. Ist aber eigentlich unnötig, denn ich kann beides durch die obige Funktion erreichen, indem ich Start > End und Step < 0 wähle.

Den Versuch, deine Funktion noch kompakter zu machen, erachte ich ebenfalls als unnötig. Denn du wirst wohl kaum unter die eine Zeile kommen, die der DllCall für die AnimateWindow-Funktion benötigt
Für dich zum üben, klar, kannst du versuchen. Alles unnötige rausschmeißen, aus 2 Funktionen eine machen - zB per opt Parameter $mode = 0 / 1 für Ein-Ausblenden etc...

Func WinGetTrans($sTitle, $sText = "")
Local $hWnd = WinGetHandle($sTitle, $sText)
If Not $hWnd Then Return -1
Local $val = DllStructCreate("int")
Local $aRet = DllCall("user32.dll", "int", "GetLayeredWindowAttributes", "hwnd", $hWnd, "ulong_ptr", 0, "int_ptr", DllStructGetPtr($val), "ulong_ptr", 0)
If @error Or Not $aRet[0] Then Return -1
Return DllStructGetData($val, 1)
EndFunc

So müsste es gehen.

P.S. Ist nicht von mir sondern imho aus dem englischen Forum.

Sagen wir es so: Dein Bemühen ist schonmal ein Anfang.
Dh., dass das bestimmt schon jeder selbst gecodet hat für ein Projekt oder selbst in der Lage ist dies in einer Minute zu machen...
Also ist es sinnvoll, wenn man eine UDF codet, dass sie einem real auch zeit ersparrt beim coden. (DllCall, oda sehr lange Skripte mit einem Befehl wiedergeben)

Aber da das einer deiner ersten Threads ist und das diese Codes keine Noobs posten: