home *** CD-ROM | disk | FTP | other *** search
/ Canadian Forces: Prepare for Takeoff as a Pilot / CF_FS_Air.iso.iso / pc / data / swf / avions / 07_fr.swf / scripts / DefineSprite_20 / frame_1 / DoAction.as
Text File  |  2004-09-22  |  1KB  |  37 lines
  1. ButtonHoverSpeed = 3;
  2. ButtonClickSpeed = 6;
  3. ScrollBarClickSpeed = 20;
  4. VisibleTextAreaHeight = 123;
  5. TotalScrollBarHeight = 50;
  6. ArrowButtonHeight = 15;
  7. TextMarginLeft = 10;
  8. TextMarginTop = 10;
  9. MinimumScrollerHeight = 25;
  10. SliderXPosition = 5;
  11. HighestPoint = 3;
  12. LowestPoint = 73;
  13. setProperty("MyText", _X, TextMarginLeft);
  14. setProperty("ScrollSlider", _X, SliderXPosition);
  15. setProperty("ScrollSlider", _Y, HighestPoint);
  16. TextHeight = MyText._height;
  17. ScrollBarRange = TotalScrollBarHeight - ArrowButtonHeight * 2 - 2;
  18. SliderYScale = ScrollBarRange / TextHeight * 100;
  19. if(SliderYScale < 100)
  20. {
  21.    if(SliderYScale / 100 * ScrollSlider._height > MinimumScrollerHeight)
  22.    {
  23.       setProperty("ScrollSlider", _yscale, SliderYScale);
  24.    }
  25.    else
  26.    {
  27.       setProperty("ScrollSlider", _height, MinimumScrollerHeight);
  28.    }
  29. }
  30. else
  31. {
  32.    setProperty("ScrollSlider", _visible, false);
  33. }
  34. SliderHeight = ScrollSlider._height;
  35. LowestPoint = Math.floor(LowestPoint - SliderHeight);
  36. ScrollRange = LowestPoint - HighestPoint;
  37.