prev | index | next

MX - News-ticker
6
50
739 bytes
1479 bytes
2008-05-05 12:44:04
2008-05-05 13:38:06
Oldes (oliva.david@seznam.cz)


Just a very simple scrolling text example

Require Rebol/Flash dialect of version 2.16.0 and or higher (because it's using Text tag, which does not require to define font manually).
Note that this is just an example, if you would like to use it in a real life, you should set the news text from outside instead of compiling the SWF for each text change.

(mx-news-ticker.rswf)

background 255.255.255

txt_news: Text 3000x80 [
    FontSize 64
    NoSelect
    Html
]

spr_news: Sprite [
    textField: place txt_news
]

news: place spr_news [
    actions [
        load [
            textField.htmlText:  rejoin [
                "<b>The Anacondas</b> - "
                "Hudba The Anacondas se pohybuje mezi lehkou psychedelií marihuanových polí "
                "a motorkářkých těžkooděnců v kožených bundách... "
                "<b>Tahle země není pro starý</b> - film o tvrdých chlapech z amerického jihu. "
                "Šarmantně usměvavého packala George Clooneyho nahradilo... "
            ]
            textField._width: textField.textWidth
            minX: 0 - textField._width
            _x:   Stage.width
            step: 1
            
            cacheAsBitmap: true
            
            onEnterFrame: does [
                this._x: this._x - this.step
                if this._x < this.minX [
                    this._x: Stage.width
                ]
            ]
            onRollOver: does [this.step: 25]
            onRollOut:  does [this.step: 1 ]
        ]
    ]
]

showFrame
end