Code-Bin #271 - AS3 Service Page Scroll

AS3 Service Page Scroll
Posted by: Fajar Sylvana | April 28, 2009 @ 4:21am

ActionScript Code

package pages.mainPage {
	import flash.display.*;
	import flash.events.*;
	import flash.geom.Rectangle;
	import flash.net.*;
	import flash.text.TextField;
	import gs.TweenLite;
	import gs.easing.*;
	
	/**
	 * @author Fajar Sylvana
	 */
	[Embed(source='my_web.swf', symbol='PageServices')]
	public class PageServices extends Sprite{
		public var service_txt:TextField
		public var scrubServ:Sprite;
		public var scrubBoxServ:Sprite;
		public var bgBlue :Sprite;
		public var bgGrey:Sprite;
		public var barTop :Sprite;
		public var bgLow :Sprite;
		public var bgCont :Sprite;
		public var title:Sprite;
		
		private var textLoader:URLLoader
		private var bounds:Rectangle;
		private var dragging:Boolean;
		private var posHeight:Number;
		
		public function PageServices(){
			init();
			
			textLoader.addEventListener(Event.COMPLETE, textLoad, false, 0, true);
			scrubServ.addEventListener(MouseEvent.MOUSE_DOWN, dragSlider, false, 0, true);
			addEventListener(MouseEvent.MOUSE_UP, dropSlider, false, 0, true);
			service_txt.addEventListener(Event.SCROLL, textScrolled, false, 0, true);
			addEventListener(Event.ENTER_FRAME, checkSlider, false, 0, true);
		}
		private function init():void{
			posHeight = scrubBoxServ.height-(scrubServ.height);
			textLoader = new URLLoader();
			textLoader.load(new URLRequest("assets/comingUp.txt"));
			service_txt.wordWrap=true;
			bounds = new Rectangle(scrubServ.x, scrubServ.y, 0, posHeight);
			dragging = false;

scrubServ.alpha=0;
			scrubBoxServ.alpha=0;
			bgCont.alpha=0;
			
		}
			private function textLoad(e:Event):void{
			service_txt.htmlText = e.currentTarget.data;
		}	
		private	function dragSlider(e:MouseEvent):void{
			scrubServ.startDrag(false, bounds);
			dragging = true;
		}
		private	function dropSlider(e:MouseEvent):void{
			scrubServ.stopDrag();
			dragging = false;
		}
		private	function checkSlider(e:Event):void{
			service_txt.scrollV = Math.round ((scrubServ.y - bounds.y)* service_txt.maxScrollV/posHeight)
		}
		private	function textScrolled(e:Event):void{
			scrubServ.y = bounds.y + (service_txt.scrollV * posHeight/service_txt.maxScrollV);
		}
		public function reset():void{
			TweenLite.to(bgBlue, 0, {y:377} );
			TweenLite.to(barTop, 0 , {x:-640} );
			TweenLite.to(bgCont, 0 , {alpha:0} );
			TweenLite.to(bgGrey, 0 , {y:400} );
			TweenLite.to(bgLow, 0 , {x:822} );
			TweenLite.to(title, 0 , {x:-219} );
			TweenLite.to(service_txt, 0 , {y:-416} );
			TweenLite.to(scrubServ, 0 , {alpha:0} );
			TweenLite.to(scrubBoxServ, 0 , {alpha:0} );
			
			TweenLite.to(bgBlue, .8 , {y:37.6, ease:Back.easeOut} );
			TweenLite.to(barTop, .8 , {x:132.5, delay:.2, ease:Back.easeOut} );
			TweenLite.to(bgCont, .7 , {alpha:1, delay:.4, ease:Back.easeOut} );
			TweenLite.to(bgGrey, 1 , {y:60.6, delay:.5, ease:Back.easeOut} );
			TweenLite.to(bgLow, 1 , {x:132.3, delay:.7, ease:Back.easeOut} );
			TweenLite.to(title, 1 , {x:0, delay:.9, ease:Back.easeOut} );
			TweenLite.to(service_txt, 1 , {y:35, delay:1, ease:Back.easeOut} );
			TweenLite.to(scrubServ, 1 , {alpha:1, delay:.4, ease:Back.easeOut} );
			TweenLite.to(scrubBoxServ, 1 , {alpha:1, delay:.7, ease:Back.easeOut} );
		}
	}
}

Syntax Highlighting

[Open in new window]

Author Comments

Bugs : Scroll nya selalu ngikut gerakan Mouse kl di klik lama

Rating

4.39 / 8
150 Votes