## GUI
Class GUIVertScrollZone

source: C:\XIII\GUI\Classes\GUIVertScrollZone.uc

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

Direct Known Subclasses:None

class GUIVertScrollZone
extends GUI.GUIComponent

    // ====================================================================
    //  (c) 2002, Epic Games, Inc.  All Rights Reserved
    // ====================================================================

Function Summary
`void` | `InitComponent(GUIController MyController, GUIComponent MyOwner)`
`bool` | `InternalOnClick(GUIComponent Sender)`

Source Code

    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	}

End Source Code