X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=Parasitemia%2FParasitemia%2FGUI%2FAnalysis.fs;h=0c79d79ce0bcf40e807e4a83a2d2c166c5e4f01d;hb=81d1b86719a1ebaf649c1de4c1364603155a53e1;hp=ccca1b45d9315c70c0af36f27f8b71dfe2f258c4;hpb=ee562c3b613791fd89a5c322546229e9d364cafb;p=master-thesis.git

diff --git a/Parasitemia/Parasitemia/GUI/Analysis.fs b/Parasitemia/Parasitemia/GUI/Analysis.fs
index ccca1b4..0c79d79 100644
--- a/Parasitemia/Parasitemia/GUI/Analysis.fs
+++ b/Parasitemia/Parasitemia/GUI/Analysis.fs
@@ -70,8 +70,8 @@ let showWindow (parent: Window) (state: State.State) : bool =
             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 <- "200000"; updateResolution ())
-            imageSourceSelection.menuZoom100X.Click.AddHandler(fun obj args -> imageSourceSelection.txtResolution.Text <- "400000"; updateResolution ())
+            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.PreviewTextInput.AddHandler(fun obj args ->
                 let text = imageSourceSelection.txtResolution.Text + args.Text
@@ -121,7 +121,7 @@ let showWindow (parent: Window) (state: State.State) : bool =
                                 butClose.Content <- "Close"
                                 updateSourceImages ())
 
-                            Utils.log "Analysis terminated successfully"
+                            Utils.log "All analyses terminated successfully"
                             atLeastOneAnalysisPerformed <- true
                             analysisPerformed <- true)
             } |> Async.Start)
@@ -134,9 +134,4 @@ let showWindow (parent: Window) (state: State.State) : bool =
         if not analysisPerformed
             then
                 analysisCancelled <- true
-        atLeastOneAnalysisPerformed)
-
-
-    (*let results = ImageAnalysis.doMultipleAnalysis (state.SourceImages |> Seq.map (fun srcImg -> string srcImg.num, srcImg.img) |> Seq.toList) defaultConfig
-    for id, rbcRadius, cells in results do
-        state.SetResult (int id) rbcRadius cells*)
\ No newline at end of file
+        atLeastOneAnalysisPerformed)
\ No newline at end of file