X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=Parasitemia%2FParasitemia%2FGUI%2FAnalysis.fs;h=7d72e729cfb2e96978493ab643c717f17b87e098;hb=48ecdfc43001c444eff6ad442986049384674af2;hp=6ae1e2057fcf7751b5eaca62c160f20b109e15b4;hpb=05be8164d308447b916544ae3ce4211500dfd8da;p=master-thesis.git

diff --git a/Parasitemia/Parasitemia/GUI/Analysis.fs b/Parasitemia/Parasitemia/GUI/Analysis.fs
index 6ae1e20..7d72e72 100644
--- a/Parasitemia/Parasitemia/GUI/Analysis.fs
+++ b/Parasitemia/Parasitemia/GUI/Analysis.fs
@@ -23,8 +23,7 @@ let showWindow (parent: Window) (state: State.State) : bool =
     window.Root.Left <- parent.Left + parent.ActualWidth / 2. - window.Root.Width / 2.
     window.Root.Top <- parent.Top + parent.ActualHeight / 2. - window.Root.Height / 2.
 
-    let ctrl (name: string): 'a =
-        window.Root.FindName(name) :?> 'a
+    let ctrl (name: string): 'a = window.Root.FindName(name) :?> 'a
 
     let butClose: Button = ctrl "butClose"
     let butStart: Button = ctrl "butStart"
@@ -70,8 +69,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