X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemiaUI%2FAnalysis.fs;h=24f9adbcaa743661dbebb0243cb2f5f80f1c13b0;hp=40fd30342c7d736fa9b83f9ca4198e690301c6d3;hb=3990946e49fe34e9adcf0e04b0418cd16676e6fe;hpb=170abb893b9e6babbf93276e39e8c984cedbc68f

diff --git a/Parasitemia/ParasitemiaUI/Analysis.fs b/Parasitemia/ParasitemiaUI/Analysis.fs
index 40fd303..24f9adb 100644
--- a/Parasitemia/ParasitemiaUI/Analysis.fs
+++ b/Parasitemia/ParasitemiaUI/Analysis.fs
@@ -29,7 +29,7 @@ let showWindow (parent: Window) (state: State.State) : bool =
     let butClose: Button = ctrl "butClose"
     let butStart: Button = ctrl "butStart"
 
-    let stackImagesSourceSelection: StackPanel = ctrl "stackImagesSourceSelection"
+    let stackSourceImagesSelection: StackPanel = ctrl "stackSourceImagesSelection"
     let progressBar: ProgressBar = ctrl "progress"
     let textLog: TextBlock = ctrl "textLog"
     let scrollLog: ScrollViewer = ctrl "scrollLog"
@@ -58,15 +58,11 @@ let showWindow (parent: Window) (state: State.State) : bool =
     let mutable analysisCancelled = false
 
     let updateSourceImages () =
-        stackImagesSourceSelection.Children.Clear()
-        let width = int stackImagesSourceSelection.ActualWidth
+        stackSourceImagesSelection.Children.Clear()
+        let width = int stackSourceImagesSelection.ActualWidth
         for srcImg in state.SourceImages do
             let imageSourceSelection = Views.ImageSourceSelection(Tag = srcImg, Margin = Thickness(3.))
-
-            let updateResolution () =
-                match parseAndValidatePPI imageSourceSelection.txtResolution.Text with
-                | Some resolution -> srcImg.config.Parameters <- { srcImg.config.Parameters with resolution = resolution * 1.<ppi> }
-                | None -> ()
+            imageSourceSelection.Tag <- srcImg
 
             imageSourceSelection.txtImageNumber.Text <- srcImg.num.ToString()
             let height = srcImg.img.Height * width / srcImg.img.Width
@@ -74,9 +70,9 @@ let showWindow (parent: Window) (state: State.State) : bool =
             imageSourceSelection.chkSelection.IsChecked <- Nullable<bool>(srcImg.dateLastAnalysis.Ticks = 0L)
             imageSourceSelection.lblDateLastAnalysis.Content <- if srcImg.dateLastAnalysis.Ticks = 0L then "<Never>" else srcImg.dateLastAnalysis.ToString()
 
-            imageSourceSelection.txtResolution.Text <- srcImg.config.Parameters.resolution.ToString()
-            imageSourceSelection.menuZoom50X.Click.AddHandler(fun obj args -> imageSourceSelection.txtResolution.Text <- "230000"; updateResolution ())
-            imageSourceSelection.menuZoom100X.Click.AddHandler(fun obj args -> imageSourceSelection.txtResolution.Text <- "460000"; updateResolution ())
+            imageSourceSelection.txtResolution.Text <- if srcImg.dateLastAnalysis.Ticks = 0L then "" else srcImg.config.Parameters.resolution.ToString()
+            imageSourceSelection.menuZoom50X.Click.AddHandler(fun obj args -> imageSourceSelection.txtResolution.Text <- "230000")
+            imageSourceSelection.menuZoom100X.Click.AddHandler(fun obj args -> imageSourceSelection.txtResolution.Text <- "460000")
 
             imageSourceSelection.txtResolution.PreviewTextInput.AddHandler(fun obj args ->
                 let text = imageSourceSelection.txtResolution.Text + args.Text
@@ -86,50 +82,67 @@ let showWindow (parent: Window) (state: State.State) : bool =
                 let checkbox = imageSourceSelection.chkSelection
                 checkbox.IsChecked <- Nullable<bool>(not (checkbox.IsChecked.HasValue && checkbox.IsChecked.Value)))
 
-            imageSourceSelection.txtResolution.LostFocus.AddHandler(fun obj args -> updateResolution ())
-
-            stackImagesSourceSelection.Children.Add(imageSourceSelection) |> ignore
+            stackSourceImagesSelection.Children.Add(imageSourceSelection) |> ignore
+
+    // Get the new parameters for each image. If an error occurs then 'None' is returned and a message box is displayed.
+    // The boolean is 'true' if the image is selected (checked).
+    let getInputImagesParameters () : (SourceImage * bool * Parameters) list option =
+        let sourceImagesControls = stackSourceImagesSelection.Children |> Seq.cast<Views.ImageSourceSelection>
+        let parameters = seq {
+            for srcImgCtrl in sourceImagesControls do
+                let srcImg = srcImgCtrl.Tag :?> SourceImage
+                let isChecked = srcImgCtrl.chkSelection.IsChecked
+                match parseAndValidatePPI srcImgCtrl.txtResolution.Text with
+                    | Some resolution ->
+                        yield Some (srcImg, isChecked.HasValue && isChecked.Value, { srcImg.config.Parameters with resolution = resolution * 1.<ppi> })
+                    | None ->
+                        MessageBox.Show(sprintf "No resolution defined for the image number %d" srcImg.num, "No resolution defined", MessageBoxButton.OK, MessageBoxImage.Information) |> ignore
+                        yield None } |> Seq.takeWhile (fun e -> e.IsSome) |> Seq.map (fun e -> e.Value) |> List.ofSeq
+        if parameters.Count() <> sourceImagesControls.Count()
+        then None
+        else Some parameters
 
     butClose.Click.AddHandler(fun obj args -> window.Root.Close())
 
     butStart.Click.AddHandler(fun obj args ->
-        let imagesToProcess = [
-            for imageSelection in stackImagesSourceSelection.Children |> Seq.cast<Views.ImageSourceSelection> do
-                let chk = imageSelection.chkSelection.IsChecked
-                if chk.HasValue && chk.Value
-                then
-                    let srcImg = imageSelection.Tag :?> SourceImage
-                    yield srcImg.num.ToString(), srcImg.config, srcImg.img ]
-
-        if imagesToProcess.IsEmpty
-        then
-            MessageBox.Show("No image selected", "Cannot start analysis", MessageBoxButton.OK, MessageBoxImage.Information) |> ignore
-        else
-            analysisPerformed <- false
-            butStart.IsEnabled <- false
-            butClose.Content <- "Abort"
-            async {
-                let results =
-                    ParasitemiaCore.Analysis.doMultipleAnalysis
-                        imagesToProcess
-                        (Some (fun progress -> window.Root.Dispatcher.Invoke(fun () -> progressBar.Value <- float progress)))
-
-                lock monitor (
-                    fun() ->
-                        if not analysisCancelled
-                        then
-                            for id, cells in results do
-                                state.SetResult (int id) cells
-
-                            window.Root.Dispatcher.Invoke(fun () ->
-                                butStart.IsEnabled <- true
-                                butClose.Content <- "Close"
-                                updateSourceImages ())
-
-                            Logger.Log.User("All analyses terminated successfully")
-                            atLeastOneAnalysisPerformed <- true
-                            analysisPerformed <- true)
-            } |> Async.Start)
+        match getInputImagesParameters () with
+        | Some imagesParameters ->
+            let imagesToProcess = [
+                for srcImg, selected, parameters in imagesParameters do
+                    srcImg.config.Parameters <- parameters // Save parameters.
+                    if selected
+                    then yield srcImg.num.ToString(), srcImg.config, srcImg.img ]
+
+            if imagesToProcess.IsEmpty
+            then
+                MessageBox.Show("No image selected", "Cannot start analysis", MessageBoxButton.OK, MessageBoxImage.Information) |> ignore
+            else
+                analysisPerformed <- false
+                butStart.IsEnabled <- false
+                butClose.Content <- "Abort"
+                async {
+                    let results =
+                        ParasitemiaCore.Analysis.doMultipleAnalysis
+                            imagesToProcess
+                            (Some (fun progress -> window.Root.Dispatcher.Invoke(fun () -> progressBar.Value <- float progress)))
+
+                    lock monitor (
+                        fun() ->
+                            if not analysisCancelled
+                            then
+                                for id, cells in results do
+                                    state.SetResult (int id) cells
+
+                                window.Root.Dispatcher.Invoke(fun () ->
+                                    butStart.IsEnabled <- true
+                                    butClose.Content <- "Close"
+                                    updateSourceImages ())
+
+                                Logger.Log.User("All analyses terminated successfully")
+                                atLeastOneAnalysisPerformed <- true
+                                analysisPerformed <- true)
+                } |> Async.Start
+        | _ -> ())
 
     window.Root.Loaded.AddHandler(fun obj args -> updateSourceImages ())