In case Flash no longer exists; a copy of this site is included in the Flashpoint archive's "ultimate" collection.

Dead Code Preservation :: Archived AS3 works from wonderfl.net

forked from: TextFieldがスクロールしてしまう件

TextField をこんな感じで作ったとき、
TextField の文字をドラッグしたり、
TextField 上でマウスのスクロールをコロコロすると
文字がスクロールしてしまいます。
どうやったらスクロールしなくなるのでしょうか?
/**
 * Copyright Fumio ( http://wonderfl.net/user/Fumio )
 * MIT License ( http://www.opensource.org/licenses/mit-license.php )
 * Downloaded from: http://wonderfl.net/c/iMfk
 */

// forked from bkzen's TextFieldがスクロールしてしまう件
/**
 * TextField をこんな感じで作ったとき、
 * TextField の文字をドラッグしたり、
 * TextField 上でマウスのスクロールをコロコロすると
 * 文字がスクロールしてしまいます。
 * どうやったらスクロールしなくなるのでしょうか?
 */
package {
    import flash.text.TextFormatAlign;
    import flash.text.TextFieldAutoSize;
    import flash.text.TextFormat;
    import flash.text.TextField;
    import flash.display.Sprite;
    import flash.events.Event;
    public class FlashTest extends Sprite {
        public function FlashTest() {
            // write as3 code here..
            var txt:TextField = new TextField();
            var tf:TextFormat = new TextFormat(null, 12, 0x777777);
            tf.align = TextFormatAlign.LEFT;
            tf.leading = 4;
            txt.defaultTextFormat = tf;
            txt.autoSize = TextFieldAutoSize.LEFT;
            txt.text = "ほげほげ\nもっじゃもじゃ\nぴよぴよ";
            txt.selectable = false;  // 追加
            // 縦スクロールにイベントリスナー登録
            txt.addEventListener(Event.SCROLL, stopScrolling);
            addChild(txt);
        }
 	private function stopScrolling(eventObject:Event):void {
	    var txt:TextField = TextField(eventObject.currentTarget);
	    txt.scrollV = 1;
	}
   }
}