cool win effect

[ludocus]

I made this simple but cool win effect

expandcollapse popup

$newtitle = inputbox('Hello', "please select a new title" )
if @Error then exit

HotKeySet('{ESC}', 'ex')
While 1
sleep (1)
$error = _WinSetTitleScroll($newtitle)
if $error = -1 then exit
WEnd

func ex()
    exit
EndFunc


Func _WinSetTitleScroll($sTitle, $sWindow = '', $sLength=200, $sSpeed=50)
if $sWindow = '' Then
    $window = WinGetTitle("")
Else
    $window = $sWindow
EndIf
if @Error then return -1

$length = StringLen ( $newtitle )+1
$count = 1
if @Error then return -1
Do
$convertedtitle = StringRight ( $sTitle, $count )
if @Error then return -1
WinSetTitle ( '', '', $convertedtitle )
if @Error then return -1
$count = $count + 1
sleep ( $sSpeed )
until $count = $length
$c = 1
While 1
$win = WinGetTitle('')
if @Error then return -1
WinSetTitle ( $win, '', ' '&$win )
if @Error then return -1
sleep ( $sSpeed )
$c = $c + 1
if $c = $sLength then return 1
WEnd
EndFunc

Edited May 17, 2008 by ludocus

[Madza91]

Nice

[Coolw]

That's aswome! ... but can you add a stop so that you dont have to exit out of the program to stop it? Maybe a choice to do it to any active window?

[Horrendous]

hehe, nice

[SmOke_N]

I made this simple but cool win effect

expandcollapse popup

$newtitle = inputbox('Hello', "please select a new title" )
$length = StringLen ( $newtitle )+1
sleep ( 100 )
$window = WinGetTitle("")


While 1
$count = 1
Do
$convertedtitle = StringRight ( $newtitle, $count )
WinSetTitle ( '', '', $convertedtitle )
$count = $count + 1
sleep ( 100 )
until $count = $length
space()
WEnd

Func space()
$c = 1
While 1
$win = WinGetTitle('')
WinSetTitle ( $win, '', ' '&$win )
sleep ( 100 )
$c = $c + 1
if $c = 100 then return
WEnd
EndFuncoÝ÷ Ûú®¢×¢,)Ê·ö· zÛbaz'^j춸§f§¥jبw«{l²Þ¶!{
'jëh×6Local $sNewTitle = InputBox("Hello", "Please select a new title.")
If @error = 1 Then Exit

Sleep(500)
Local $hWnd = WinGetHandle(""), $sHold, $aSplit = StringSplit($sNewTitle, ""), $i

While WinExists($hWnd)
    For $i = $aSplit[0] To 1 Step - 1
        Sleep(100)
        $sHold = $aSplit[$i] & $sHold
        WinSetTitle($hWnd, "", $sHold)
    Next
    Sleep(100)
    For $i = 1 To 100
        Sleep(100)
        $sHold = " " & $sHold
        WinSetTitle($hWnd, "", $sHold)
    Next
    $sHold = ""
    WinSetTitle($hWnd, "", "")
WEndoÝ÷ ØGb´w«zƧ¢Ø^­ªi®«­¢+Ù1½°ÀÌØíÍ9ÝQ¥Ñ±ô%¹ÁÕÑ   ½à ÅÕ½Ðí!±±¼ÅÕ½Ðì°ÅÕ½ÐíA±ÍͱйÜѥѱ¸ÅÕ½Ðì¤)%ÉɽÈôÄQ¡¸á¥Ð()M±À ÔÀÀ¤)1½°ÀÌØí¡]¹ô]¥¹Ñ!¹± ÅÕ½ÐìÅÕ½Ð줰ÀÌØí¹]¥Ñ ôÄÀÀ°ÀÌØí¤°ÀÌØíÍ!½±()1½°ÀÌØí]A½Ìô]¥¹ÑA½Ì ÀÌØí¡]¹¤°ÀÌØí¹1¸ôMÑÉ¥¹1¸ ÀÌØíÍ9ÝQ¥Ñ±¤)%%ÍÉÉä ÀÌØí]A½Ì¤Q¡¸ÀÌØí¹]¥Ñ ô  ÀÌØí]A½ÍlÉt´ÀÌØí]A½ÍlÁt¤´ÀÌØí¹1¸¤´ÌÀ)½ÈÀÌØí¤ôÄQ¼ÀÌØí¹]¥Ñ ($ÀÌØíÍ9ÝQ¥Ñ±ôÅÕ½ÐìÅÕ½ÐìµÀìÀÌØíÍ9ÝQ¥Ñ±)9áÐ()1½°ÀÌØíMÁ±¥ÐôMÑÉ¥¹MÁ±¥Ð ÀÌØíÍ9ÝQ¥Ñ±°ÅÕ½ÐìÅÕ½Ð줰ÀÌØí¤(í
½Õ±Ý½É¬Ñ¡]¥¹ÑA½Ì¹ÍÑÕ½Ù¥¸Ñ¡±½½À½ÈÉÍ¥éÝ¥¹Ì¥å½ÔݹÑ)]¡¥±]¥¹á¥ÍÑÌ ÀÌØí¡]¹¤(%½ÈÀÌØí¤ôÀÌØíMÁ±¥ÑlÁtQ¼ÀÌØí¹1¸MÑÀ´Ä($%M±À ÈÔ¤($$ÀÌØíÍ!½±ôÀÌØíMÁ±¥ÑlÀÌØí¥tµÀìÀÌØíÍ!½±($%]¥¹MÑQ¥Ñ± ÀÌØí¡]¹°ÅÕ½ÐìÅÕ½Ðì°ÀÌØíÍ!½±¤(%9áÐ($ÀÌØíÍ!½±ôÅÕ½ÐìÅÕ½Ðì)]¹

Using different variants (win width, space content etc... )

Edited April 10, 2008 by SmOke_N

[Xenobiologist]

Hi,

there is a nice texteffect udf from peethebee which can be used for titles also.

Mega

[GEOSoft]

Hi,

there is a nice texteffect udf from peethebee which can be used for titles also.

Mega

I'm not sure that it's still available. peethebee moved all his files to his fileman and I don't think his were put back up after they got wiped.

[Xenobiologist]

I'm not sure that it's still available. peethebee moved all his files to his fileman and I don't think his were put back up after they got wiped.

Hi,

you are right, but have a look here : LINK texteffect UDF

Mega

[crashdemons]

I made this simple but cool win effect

Here's another cool one

- Title / Control marquee's (moving left by default)

Note: $m can be set higher than one to take larger steps, or set to a negative value to move right instead.

Edit: _CircValue was wrong - fixed.

Edit: _CircValue was updated - AGAIN!

expandcollapse popup

$gui=GUICreate("My Cool Scrolling Title ",300,20)
$lab=GUICtrlCreateLabel("My Cool Scrolling Label ",0,0,300,20)
GUISetState()
While 1
    _WinTitle_CircShift($gui,-1)
    _ControlText_CircShift($gui,$lab)
    Sleep(300)
WEnd



;functions
Func _WinTitle_CircShift($hwnd,$m=1)
    WinSetTitle($hwnd,'',_CircShift(WinGetTitle($hwnd), $m))
EndFunc
Func _ControlText_CircShift($parent,$hwnd,$m=1)
    ControlSetText($parent,'',$hwnd,_CircShift(ControlGetText($parent,"",$hwnd), $m))
EndFunc
Func _CircShift($string, $movement)
    ;moves a substring from the left of the string to the right of the string
    ;movement = how long a substring to move from left of string to the right of string
    $len=StringLen($string)
    $movement=_CircValue($movement,1,$len)
    Return StringMid($string,$movement+1)&StringMid($string,1,$movement)
EndFunc   ;==>_CircShift
Func _CircValue($i,$n,$x)
    If $i>=$n And $i<=$x Then Return $i
    Select
        Case $i>$x
            $dx=$i-$x
            $o=_CircValue($n+$dx-1,$n,$x)
            Return $o
        Case $i<$n
            $dn=$n-$i
            $o=_CircValue($x-$dn,$n,$x)
            Return $o
    EndSelect
    Return $i
EndFunc

Edited May 18, 2008 by crashdemons

[ludocus]

Thnx everybody..

[KeCe]

lol pretty cool.. but now i cant stop it dude

[flip209]

This is pretty cool

[flip209]

HotKeySet("{ESC}", "_Exit")

win_title("New Window")
Func _exit()
    Exit
EndFunc   ;==>_exit

Func win_title($Newtitle)
    $winsize = WinGetPos("")
    $winmin = StringLen($Newtitle) * 2
    While 1
        For $i = 0 To 100
            WinSetTitle("", "", $Newtitle)
            $Newtitle = " " & $Newtitle
            Sleep(100)
        Next
        
        For $i = 0 To  100
            WinSetTitle("", "", $Newtitle)
            $Newtitle = StringTrimLeft($Newtitle, 1)
            Sleep(200)
        Next
    WEnd
EndFunc   ;==>win_title

Goes back and forth

Edited May 1, 2008 by flip209

[crashdemons]

The following function writes characters of a window title to the title one-by-one.

if the $direction parameter is NOT 1, it will erase the characters one-by-one

Func _WinTitle_WriteChars($HWnd, $direction=1, $change_delay=100)
    Local $t, $tn, $l, $i
    $t=WinGetTitle($HWnd)
    $l=StringLen($t)
    For $i=1 To $l
        If $direction=1 Then
            $tn=StringMid($t,1,$i)
        Else
            $tn=StringMid($t,1,$l-$i)
        EndIf
        WinSetTitle($HWnd,'',$tn)
        Sleep($change_delay)
    Next
    WinSetTitle($HWnd,'',$t)
EndFunc

Notes: you can do a cool write-unwrite loop with the following

While 1
    _WinTitle_WriteChars($HWnd, 1)
    _WinTitle_WriteChars($HWnd,-1)
WEnd

[ludocus]

hey, Thats pretty neat, Cool