_GUIFade udf

  • Moin zusamm.

    Mir war grad lamngweilig, deswegen hab ich das hier schnell gemacht:

    Spoiler anzeigen
    [autoit]

    ; ====================================================
    ; Funktionsname: _GUIFlyingFadeIn
    ; Funktion: Lässt das Fenster erscheinen und von einer Seite einfliegen. (Ersetzt auch GUISetState).
    ;
    ; Parameter: $WHnd = Handle des Fensters
    ; $Speed = Geschwindigkeit, mit der das Fenster verschwinden soll. (1 = Sehr langsam bis 255 = verschwindet sofort)
    ; $Start = Transparents, die das Fenster zum Start haben soll.
    ; $End = Transparents, die das Fenster zum Schluss haben soll.
    ; $StartPosX = X-Position des Fensters, von wo es starten soll.
    ; $StartPosY = Y-Position des Fensters, von wo es starten soll.
    ; $EndPosX = X-Position des Fensters, wo es stehen beleiben soll.
    ; $EndPosY = Y-Position des Fensters, wo es stehen bleiben soll.
    ; $MoveSpeed = Geschwindigkeit, mit der sich das Fenster bewegen sol (1 = Sehr schnell bis 100 = Sehr langsam).
    ;
    ; Autor: Commander21
    ; ====================================================
    Global $WHnd, $EndPosX, $EndPosY, $WinSize, $MoveSpeed
    Func _GUIFlyingFadeIn ($WHnd, $Speed, $Start, $End, $StartPosX, $StartPosY, $EndPosX, $EndPosY, $MoveSpeed)
    WinMove ($WHnd, "", $StartPosX, $StartPosY)
    WinSetTrans ($WHnd, "", $Start)
    GUISetState (@SW_SHOW, $WHnd)
    For $i = $Start To $End Step $Speed
    WinSetTrans ($WHnd, "", $i)
    Sleep (1)
    Next
    $WinSize = WinGetPos ($WHnd, "")
    WinMove ($WHnd, "", $EndPosX, $EndPosY, $WinSize[2], $WinSize[3], $MoveSpeed)
    EndFunc ;==> _GUIFlyingFadeIn

    [/autoit]

    ACHTUNG: _GUIFadeIn ersetzt GUISetState (@SW_SHOW)!

    Viel Spaß damit, wird aber bestimmt noch mehr ^^


    MfG


    Update: Neue Funktion eingebaut. Siehe Script...

    Einmal editiert, zuletzt von Commander21 (25. April 2009 um 15:24)

  • Ich hab noch mal gerad was geändert

    Spoiler anzeigen
    [autoit]

    ; ====================================================
    ; Funktionsname: _GUIFadeIn
    ; Funktion: Lässt das Fenster erscheinen (ersetzt auch GUISetState).
    ;
    ; Parameter: $WHnd = Handle des Fensters
    ; $Speed = Geschwindigkeit, mit der das Fenster ersteinen soll. (1 = Sehr langsam bis 255 = erscheint sofort)
    ; $Start = Transparents, die das Fenster zum Start haben soll.
    ; $End = Transparents, die das Fenster zum Schluss haben soll.
    ;
    ; Autor: Commander21
    ; ====================================================
    Func _GUIFadeIn ($WHnd, $Speed, $Start, $End)
    WinSetTrans ($WHnd, "", $Start)
    GUISetState (@SW_SHOW)
    For $i = $Start To $End Step $Speed
    WinSetTrans ($WHnd, "", $i)
    Sleep (1)
    Next
    EndFunc ;==> _GUIFadeIn
    ; ====================================================
    ; Funktionsname: _GUIFadeOut
    ; Funktion: Lässt das Fenster verschwinden.
    ;
    ; Parameter: $WHnd = Handle des Fensters
    ; $Speed = Geschwindigkeit, mit der das Fenster verschwinden soll. (1 = Sehr langsam bis 255 = verschwindet sofort)
    ; $Start = Transparents, die das Fenster zum Start haben soll.
    ; $End = Transparents, die das Fenster zum Schluss haben soll.
    ;
    ; Autor: Commander21
    ; ====================================================
    Func _GUIFadeOut ($WHnd, $Speed, $Start, $End)
    For $i = $Start To $End Step -$Speed
    WinSetTrans ($WHnd, "", $i)
    Sleep (1)
    Next
    EndFunc ;==> _GUIFadeOut

    [/autoit]

    mfg. Jam00

  • ist zwar egal, ob man das GUISetState in die For schleife setzt, oda net, aber trotzdem thx ^^

    EDIT:
    Hab mal noch ne Funktion eingebaut, ist noch etwas holbrig, vllt lässt sich das noch etwas verbessern. vorerst hab ichs allerdings net besser hin gekomm...

    Einmal editiert, zuletzt von Commander21 (25. April 2009 um 15:25)