浏览代码

Scrollview now only eats mousewheel event if scrolling occured.

Mark Sibly 8 年之前
父节点
当前提交
3f79ae2a11
共有 1 个文件被更改,包括 6 次插入5 次删除
  1. 6 5
      modules/mojox/scrollview.monkey2

+ 6 - 5
modules/mojox/scrollview.monkey2

@@ -253,13 +253,14 @@ Class ScrollView Extends DockingView
 		Select event.Type
 		Case EventType.MouseWheel
 		
-			Scroll-=New Vec2i( 0,_content.RenderStyle.Font.Height*event.Wheel.Y )
+			Local scroll:=_scroll
 			
-		Default
-			Return
+			Local delta:=New Vec2i( 0,_content.RenderStyle.Font.Height*event.Wheel.Y )
+			
+			Scroll-=delta
+			
+			If scroll<>_scroll event.Eat()
 		End
-		
-		event.Eat()
 	End
 	
 	Method ContentViewContainer:View( contentView:View ) Override