Text Ticker

[ioliver]

Here is my code for a Text Ticker.

; Ticker.au3
; August 25, 2004

; Use to display scrolling text across the top of the screen.
; Ticker displays whatever text is in the file C:\marquee.txt.
; Ticker can be updated on-the-fly.  Just change the text in
; C:\marquee.txt and save the file.

; Thanks Larry!

Global $WS_POPUP = 0x80000000
Global $WS_DLGFRAME = 0x400000

$style = $WS_POPUP + $WS_DLGFRAME
$text = FileReadLine("C:\marquee.txt", 1)
$len = StringLen($text)
$show = $text

Opt("GuiNotifyMode", 1)
GuiCreate("Ticker", 1024, 40, 0, 0, $style)
  GUIDefaultFont (12, 600)
  $ref = GUISetControl("Label", $show, 10, 10)
GuiShow()

While 1
  For $i = 0 to $len - 1
    $show = StringRight($text,$len - $i) & StringLeft($text,$i)
    GUIWrite($ref, 0, $show)
    Sleep(500)
  Next
  $text = FileReadLine("C:\marquee.txt", 1)
  $len = StringLen($text)
Wend

Thanks,

Ian

[flyingboz]

Marquee logic from ioliver implemented as UDF

expandcollapse popup

#cs
    Marquee.au3
    August 26, 2004
    
    Adapted from post on AutoIT S/S forum, ioliver
   
    Modified to Genericize the input
    
    UDF takes 3 functions - control to make scroll, text to scroll, and scroll delay 
    In order to be useful for more than getting stuck in an infinite loop, insert 
    logic for an event handler -- 
   
   
   
    
#ce

$text = "This is scroll text.   "
$delay = 80; on my system 80 msec gives a nice smooth but fast scroll.

$hGUI = GUICreate("Marquee", 400, 400)


GUIShow()
$hLbl = GUISetControl("label", $text, 40, 40)


_Marquee ($hlbl, $text, $delay)

Exit

Func _Marquee ($control, $text, $delay)
    Local $text, $delay, $control
    Local $len, $i, $show
   Local $event
    $len = StringLen($text)
    While 1
        
        For $i = 0 To $len - 1
            $show = StringRight($text, $len - $i) & StringLeft($text, $i)
            GUIWrite($control, 0, $show)
            Sleep($delay)
            
        Next
     ;event handler
      $event = GuiMsg(0)
      if $event <> 0 Then
        ;_EventHandler($event)
      EndIf
      
    Wend
EndFunc  ;==>Marquee

[ioliver]

Great. The scrolling text part was from Larry. So, props to Larry.

BTW, What does UDF stand for?

Ian

[Guest Guidosoft]

Great.  The scrolling text part was from Larry.  So, props to Larry.

BTW, What does UDF stand for?

Ian

<{POST_SNAPBACK}>

neat, do I have permission to include any of this in my notepad console script for version 5. I don't want it to just stay prompts you know and fast text prints.

[Guest Guidosoft]

neat, do I have permission to include any of this in my notepad console script for version 5. I don't want it to just stay prompts you know and fast text prints.

<{POST_SNAPBACK}>

I mean change it so it can be a marquee in the notepad.

[ioliver]

LIke I said, the scrolling text is Larry's. But I think AutoIT code is kinda like open-source, so I don't see why you couldn't use it.

Ian

[ezzetabi]

BTW, What does UDF stand for?

<{POST_SNAPBACK}>

User Defined Function

[ioliver]

User Defined Function 

<{POST_SNAPBACK}>

Is that an #Include statement?

I know, I'm sure this is in the manual...

Ian

[Guest Guidosoft]

How many people actualy use my notepad console script. Please list yourself below.

[Guest Guidosoft]

How many people actualy use my notepad console script. Please list yourself below.

<{POST_SNAPBACK}>

me! It's realy cool, more people should use it. LOL!