X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemiaUI%2FGUI.fs;fp=Parasitemia%2FParasitemiaUI%2FGUI.fs;h=69ae1f99a2061b5038b1bfa96476bdb7f2012483;hp=40b3965e94cc2e892d628c7efb1afe4cbc15cae1;hb=a498bc4223a22cd38b91b3348912301e15c077ae;hpb=cd9c55f80bcdc4fc6b85eb1b81474aed005e5016 diff --git a/Parasitemia/ParasitemiaUI/GUI.fs b/Parasitemia/ParasitemiaUI/GUI.fs index 40b3965..69ae1f9 100644 --- a/Parasitemia/ParasitemiaUI/GUI.fs +++ b/Parasitemia/ParasitemiaUI/GUI.fs @@ -84,7 +84,7 @@ let run (defaultConfig : Config) (fileToOpen : string option) = let highlightRBC (rbc : RBC) (highlight : bool) = let highlightRBCFrame (rbcFrame : RBCFrame) (strokeThickness : float) = if highlight then - rbcFrame.border.StrokeThickness <- 3. * strokeThickness + rbcFrame.border.StrokeThickness <- 2. * strokeThickness if not rbc.infected && not rbc.setManually && not displayHealthy then rbcFrame.Opacity <- 1. else rbcFrame.border.StrokeThickness <- strokeThickness