|
||
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. 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 |