+ let srcImg = state.AddSourceImage(dialog.FileName)
+ addPreview srcImg
+ updateGlobalParasitemia ()
+ if state.SourceImages.Count() = 1
+ then
+ updateCurrentImage ())
+
+ menuStartAnalysis.Click.AddHandler(fun obj args ->
+ if Analysis.showWindow mainWindow.Root state defaultConfig
+ then
+ updateGlobalParasitemia ()
+ updateCurrentImage ())
+
+ menuHightlightRBC.Click.AddHandler(fun obj args ->
+ displayHealthy <- menuHightlightRBC.IsChecked
+ updateRBCFramesPreview ()
+ updateRBCFramesCurrent ())
+
+ // Zoom on the current image.
+ let adjustCurrentImageBorders (deltaX: float) (deltaY: float) =
+ borderCurrentImage.BorderThickness <-
+ Thickness(
+ (scrollViewCurrentImage.ViewportWidth + deltaX) / 2.,
+ (scrollViewCurrentImage.ViewportHeight + deltaY) / 2.,
+ (scrollViewCurrentImage.ViewportWidth + deltaX) / 2.,
+ (scrollViewCurrentImage.ViewportHeight + deltaY) / 2.)
+
+ canvasCurrentImage.SizeChanged.AddHandler(fun obj args ->
+ let deltaX = args.NewSize.Width - args.PreviousSize.Width
+ let deltaY = args.NewSize.Height - args.PreviousSize.Height
+ if deltaX > 0.5 || deltaY > 0.5
+ then
+ adjustCurrentImageBorders 0.0 0.0
+ // Center the view at the center of the image initialy.
+ scrollViewCurrentImage.UpdateLayout()
+ scrollViewCurrentImage.ScrollToHorizontalOffset(borderCurrentImage.ActualWidth / 2. - scrollViewCurrentImage.ViewportWidth / 2.)
+ scrollViewCurrentImage.ScrollToVerticalOffset(borderCurrentImage.ActualHeight / 2. - scrollViewCurrentImage.ViewportHeight / 2.))
+
+ scrollViewCurrentImage.SizeChanged.AddHandler(fun obj args ->
+ let deltaX = args.NewSize.Width - args.PreviousSize.Width
+ let deltaY = args.NewSize.Height - args.PreviousSize.Height
+ adjustCurrentImageBorders deltaX deltaY
+ scrollViewCurrentImage.ScrollToHorizontalOffset(scrollViewCurrentImage.HorizontalOffset + deltaX / 8.)
+ scrollViewCurrentImage.ScrollToVerticalOffset(scrollViewCurrentImage.VerticalOffset + deltaY / 8.))
+
+ let mutable maxScale = 4.
+ let mutable minScale = 0.25
+ let currentImageScaleTransform = ScaleTransform()
+ canvasCurrentImage.LayoutTransform <- currentImageScaleTransform
+ borderCurrentImage.PreviewMouseWheel.AddHandler(fun obj args ->
+ let scaleFactor = if args.Delta > 0 then 2.0 else 0.5
+ if scaleFactor > 1. && currentScale < maxScale || scaleFactor < 1. && currentScale > minScale
+ then
+ let previousScale = currentScale
+ currentScale <-
+ let newScale = currentScale * scaleFactor
+ if newScale > maxScale then maxScale elif newScale < minScale then minScale else newScale
+ let realScaleFactor = currentScale / previousScale
+
+ let centerX = scrollViewCurrentImage.HorizontalOffset + scrollViewCurrentImage.ViewportWidth / 2. - borderCurrentImage.BorderThickness.Left
+ let centerY = scrollViewCurrentImage.VerticalOffset + scrollViewCurrentImage.ViewportHeight / 2. - borderCurrentImage.BorderThickness.Top
+
+ currentImageScaleTransform.ScaleX <- currentScale
+ currentImageScaleTransform.ScaleY <- currentScale
+
+ scrollViewCurrentImage.ScrollToHorizontalOffset(centerX * realScaleFactor - scrollViewCurrentImage.ViewportWidth / 2. + borderCurrentImage.BorderThickness.Left)
+ scrollViewCurrentImage.ScrollToVerticalOffset(centerY * realScaleFactor - scrollViewCurrentImage.ViewportHeight / 2. + borderCurrentImage.BorderThickness.Top)
+
+ args.Handled <- true)
+
+ // Pan on the current image.
+ let mutable scrollStartPosition = Point(0., 0.)
+ let mutable scrollStartOffsetX = 0.
+ let mutable scrollStartOffsetY = 0.
+ borderCurrentImage.PreviewMouseLeftButtonDown.AddHandler(fun obj args ->
+ scrollStartPosition <- args.GetPosition(scrollViewCurrentImage)
+ scrollStartOffsetX <- scrollViewCurrentImage.HorizontalOffset
+ scrollStartOffsetY <- scrollViewCurrentImage.VerticalOffset
+ borderCurrentImage.Cursor <- Input.Cursors.ScrollAll
+ borderCurrentImage.CaptureMouse() |> ignore
+ args.Handled <- true)
+
+ borderCurrentImage.PreviewMouseMove.AddHandler(fun obj args ->
+ if borderCurrentImage.IsMouseCaptured
+ then
+ let position = args.GetPosition(scrollViewCurrentImage)
+ let deltaX = scrollStartPosition.X - position.X
+ let deltaY = scrollStartPosition.Y - position.Y
+ scrollViewCurrentImage.ScrollToHorizontalOffset(deltaX + scrollStartOffsetX)
+ scrollViewCurrentImage.ScrollToVerticalOffset(deltaY + scrollStartOffsetY)