+ let highlightRBCFrame (rbcFrame : RBCFrame) (strokeThickness : float) =
+ if highlight then
+ rbcFrame.border.StrokeThickness <- 3. * strokeThickness
+ if not rbc.infected && not rbc.setManually && not displayHealthy then rbcFrame.Opacity <- 1.
+ else
+ rbcFrame.border.StrokeThickness <- strokeThickness
+ if not rbc.infected && not rbc.setManually && not displayHealthy then rbcFrame.Opacity <- 0.