GUI
Class GUIVertScrollZone

Core.Object
   |
   +--GUI.GUI
      |
      +--GUI.GUIComponent
         |
         +--GUI.GUIVertScrollZone

00001	// ====================================================================
00002	//  (c) 2002, Epic Games, Inc.  All Rights Reserved
00003	// ====================================================================
00004	
00005	class GUIVertScrollZone extends GUIComponent
00006		Native;
00007	
00008	
00009	function InitComponent(GUIController MyController, GUIComponent MyOwner)
00010	{
00011		Super.InitComponent(MyController, MyOwner);
00012		
00013		OnClick = InternalOnClick; 
00014	}
00015	
00016	function bool InternalOnClick(GUIComponent Sender)
00017	{
00018		local float perc;
00019		
00020		if (!IsInBounds())
00021			return false;
00022		
00023		perc = ( Controller.MouseY - ActualTop() ) / ActualHeight();
00024		OnScrollZoneClick(perc);
00025	
00026		return true;
00027			
00028	}
00029		
00030	
00031	delegate OnScrollZoneClick(float Delta)		// Should be overridden
00032	{
00033	}
00034	
00035	
00036	
00037	defaultproperties
00038	{
00039	     bAcceptsInput=True
00040	     bCaptureMouse=True
00041	     bNeverFocus=True
00042	     bRepeatClick=True
00043	}