+ rectangle.MouseEnter.AddHandler(
+ fun obj args -> match obj with
+ | :? Rectangle as r ->
+ r.StrokeThickness <- 3.
+ if not (r.Tag :?> RBC).infected then r.Opacity <- 1.
+ | _ -> ())
+ rectangle.MouseLeave.AddHandler(
+ fun obj args -> match obj with
+ | :? Rectangle as r ->
+ r.StrokeThickness <- 1.
+ if not (r.Tag :?> RBC).infected then r.Opacity <- 0.
+ | _ -> ())