Scrolling Banner

[Skrip]

Check it out..

Dim $test
Dim $set

Banner("Thank you for using our program.", 500, 17, @DesktopWidth / 2 - 250, @DesktopHeight / 2 + 222, 1, 0.075, 1)
Banner("Written by Firestorm, with AutoIt", 500, 17, @DesktopWidth / 2 - 250, @DesktopHeight / 2 + 222, 1, 0.075, 0)

Func Banner($text, $w, $h, $posx, $posy, $opt, $wait = 0.075, $unscroll = 1)
    $set = 0
    $stop = 0
    Do
        $set = $set + 1
        $string = StringLeft($text, $set)
        SplashTextOn("", $string, $w, $h, $posx, $posy, $opt)
        Sleep($wait * 1000)
        If $string = $text Then
            Sleep(750)
            $stop = 1
        EndIf
    Until $stop = 1
    $stop = 0
    If $unscroll = 1 Then
        Do
            $set = $set - 1
            $string = StringLeft($text, $set)
            SplashTextOn("", $string, $w, $h, $posx, $posy, $opt)
            Sleep($wait * 1000 / 2)
            If $string = "" Then
                $stop = 1
            EndIf
        Until $stop = 1
    EndIf
    SplashOff()
EndFunc ;==>Banner

Edited April 21, 2008 by Firestorm

[JustinReno]

Cool, nice concept. But it flickers.

[Swift]

Same here, really nice, but flickers

[Skrip]

I'm not getting a flicker here...lol.

EDIT: Well, the text does flicker a bit. Not too noticable on my PC though.

Edited April 22, 2008 by Firestorm

[JustinReno]

The whole GUI looks like its going through various shades of gray each time it adds/deletes a letter.

[Skrip]

Hmm...Well, AFAIK can't fix that in autoit.

[ptrex]

@Firestorm

I don"t see a flicker here

works nice !!

regards

ptrex

[GEOSoft]

I get the flicker too but I suspect that it's hardware related. Monitor refresh rate perhaps?

[arcker]

i've always fixed flickering by playing with wm_paint, but each time its hard to do.

[LIMITER]

Nice work but ... it flickers here too

EDIT: After playing a little with the code i managed to eliminate the flicker

Dim $test
Dim $set

_Banner("Thank you for using our program.", 500, 17, @DesktopWidth / 2 - 250, @DesktopHeight / 2 + 222, 1, 0.075, 1)
_Banner("Written by Firestorm & Updated by L|M|TER", 500, 17, @DesktopWidth / 2 - 250, @DesktopHeight / 2 + 222, 1, 0.075, 0)

Func _Banner($text, $w, $h, $posx, $posy, $opt, $wait = 0.075, $unscroll = 1)
    $set = 0
    $stop = 0
 SplashTextOn("L|M|TER Banner", "", $w, $h, $posx, $posy, $opt)
    Do
        $set = $set + 1
        $string = StringLeft($text, $set)
        ControlSetText("L|M|TER Banner", "", "Static1", $string)
        Sleep($wait * 1000)
        If $string = $text Then
            Sleep(750)
            $stop = 1
        EndIf
  Sleep(20)
    Until $stop = 1
 $stop = 0
    If $unscroll = 1 Then
        Do
            $set = $set - 1
            $string = StringLeft($text, $set)
            ControlSetText("L|M|TER Banner", "", "Static1", $string)
            Sleep($wait * 1000 / 2)
            If $string = "" Then
                $stop = 1
            EndIf
   Sleep(10)
        Until $stop = 1
    EndIf
    SplashOff()
EndFunc

Edited April 22, 2008 by LIMITER

[Skrip]

Nice work but ... it flickers here too

EDIT: After playing a little with the code i managed to eliminate the flicker

Dim $test
Dim $set

_Banner("Thank you for using our program.", 500, 17, @DesktopWidth / 2 - 250, @DesktopHeight / 2 + 222, 1, 0.075, 1)
_Banner("Written by Firestorm & Updated by L|M|TER", 500, 17, @DesktopWidth / 2 - 250, @DesktopHeight / 2 + 222, 1, 0.075, 0)

Func _Banner($text, $w, $h, $posx, $posy, $opt, $wait = 0.075, $unscroll = 1)
    $set = 0
    $stop = 0
 SplashTextOn("L|M|TER Banner", "", $w, $h, $posx, $posy, $opt)
    Do
        $set = $set + 1
        $string = StringLeft($text, $set)
        ControlSetText("L|M|TER Banner", "", "Static1", $string)
        Sleep($wait * 1000)
        If $string = $text Then
            Sleep(750)
            $stop = 1
        EndIf
  Sleep(20)
    Until $stop = 1
 $stop = 0
    If $unscroll = 1 Then
        Do
            $set = $set - 1
            $string = StringLeft($text, $set)
            ControlSetText("L|M|TER Banner", "", "Static1", $string)
            Sleep($wait * 1000 / 2)
            If $string = "" Then
                $stop = 1
            EndIf
   Sleep(10)
        Until $stop = 1
    EndIf
    SplashOff()
EndFunc

Ah ha! Very nice (I think..I don't get the flicker) I do not see any flicker here, or on my version, but if this works better..by all means!