home *** CD-ROM | disk | FTP | other *** search
/ Game Level Design / GLDesign.bin / Software / UnrealEngine2Runtime / UE2Runtime-22262001_Demo.exe / GUI / Classes / GUIHorzScrollZone.uc < prev    next >
Text File  |  2003-06-30  |  951b  |  49 lines
  1. // ====================================================================
  2. //  Class:  GUI.GUIHorzScrollZone
  3. //  Parent: GUI.GUIComponent
  4. //
  5. //  <Enter a description here>
  6. // ====================================================================
  7.  
  8. class GUIHorzScrollZone extends GUIComponent
  9.         Native;
  10.  
  11. cpptext
  12. {
  13.         void Draw(UCanvas* Canvas);
  14. }
  15.  
  16. function InitComponent(GUIController MyController, GUIComponent MyOwner)
  17. {
  18.     Super.Initcomponent(MyController, MyOwner);
  19.  
  20.     OnClick = InternalOnClick;
  21. }
  22.  
  23. function bool InternalOnClick(GUIComponent Sender)
  24. {
  25.     local float perc;
  26.  
  27.     if (!IsInBounds())
  28.         return false;
  29.  
  30.     perc = ( Controller.MouseX - ActualLeft() ) / ActualWidth();
  31.     OnScrollZoneClick(perc);
  32.  
  33.     return true;
  34.  
  35. }
  36.  
  37.  
  38. delegate OnScrollZoneClick(float Delta)        // Should be overridden
  39. {
  40. }
  41.  
  42. defaultproperties
  43. {
  44.     StyleName="ScrollZone"
  45.     bNeverFocus=true
  46.     bAcceptsInput=true
  47.     bCaptureMouse=true
  48.     bRepeatClick=true
  49. }