- win.borderCurrentImage.PreviewMouseLeftButtonDown.AddHandler(fun obj args ->
- scrollStartPosition <- args.GetPosition(win.scrollViewCurrentImage)
- scrollStartOffsetX <- win.scrollViewCurrentImage.HorizontalOffset
- scrollStartOffsetY <- win.scrollViewCurrentImage.VerticalOffset
- win.borderCurrentImage.Cursor <- Input.Cursors.ScrollAll
- win.borderCurrentImage.CaptureMouse() |> ignore
- args.Handled <- true)
-
- win.borderCurrentImage.PreviewMouseMove.AddHandler(fun obj args ->
- if win.borderCurrentImage.IsMouseCaptured
- then
- let position = args.GetPosition(win.scrollViewCurrentImage)
- let deltaX = scrollStartPosition.X - position.X
- let deltaY = scrollStartPosition.Y - position.Y
- win.scrollViewCurrentImage.ScrollToHorizontalOffset(deltaX + scrollStartOffsetX)
- win.scrollViewCurrentImage.ScrollToVerticalOffset(deltaY + scrollStartOffsetY)
-
- args.Handled <- true)
-
- win.borderCurrentImage.PreviewMouseLeftButtonUp.AddHandler(fun obj args ->
- if win.borderCurrentImage.IsMouseCaptured
- then
- win.borderCurrentImage.Cursor <- Input.Cursors.Arrow
- win.borderCurrentImage.ReleaseMouseCapture()
- args.Handled <- true)
+ win.borderCurrentImage.PreviewMouseLeftButtonDown.AddHandler (
+ fun _obj args ->
+ scrollStartPosition <- args.GetPosition win.scrollViewCurrentImage
+ scrollStartOffsetX <- win.scrollViewCurrentImage.HorizontalOffset
+ scrollStartOffsetY <- win.scrollViewCurrentImage.VerticalOffset
+ win.borderCurrentImage.Cursor <- Input.Cursors.ScrollAll
+ win.borderCurrentImage.CaptureMouse () |> ignore
+ args.Handled <- true
+ )
+
+ win.borderCurrentImage.PreviewMouseMove.AddHandler (
+ fun _obj args ->
+ if win.borderCurrentImage.IsMouseCaptured then
+ let position = args.GetPosition win.scrollViewCurrentImage
+ let deltaX = scrollStartPosition.X - position.X
+ let deltaY = scrollStartPosition.Y - position.Y
+ win.scrollViewCurrentImage.ScrollToHorizontalOffset (deltaX + scrollStartOffsetX)
+ win.scrollViewCurrentImage.ScrollToVerticalOffset (deltaY + scrollStartOffsetY)
+
+ args.Handled <- true
+ )
+
+ win.borderCurrentImage.PreviewMouseLeftButtonUp.AddHandler (
+ fun _obj args ->
+ if win.borderCurrentImage.IsMouseCaptured then
+ win.borderCurrentImage.Cursor <- Input.Cursors.Arrow
+ win.borderCurrentImage.ReleaseMouseCapture ()
+ args.Handled <- true
+ )