- let parameters = seq {
- for srcImgCtrl in sourceImagesControls do
- let srcImg = srcImgCtrl.Tag :?> SourceImage
- let isChecked = srcImgCtrl.chkSelection.IsChecked
- match parseAndValidatePPI srcImgCtrl.txtResolution.Text with
- | Some resolution ->
- yield Some (srcImg, isChecked.HasValue && isChecked.Value, { srcImg.config.Parameters with resolution = resolution * 1.<ppi> })
- | None ->
- MessageBox.Show(sprintf "No resolution defined for the image number %d" srcImg.num, "No resolution defined", MessageBoxButton.OK, MessageBoxImage.Information) |> ignore
- yield None } |> Seq.takeWhile (fun e -> e.IsSome) |> Seq.map (fun e -> e.Value) |> List.ofSeq
- if parameters.Count() <> sourceImagesControls.Count()
- then None
- else Some parameters
-
- win.butClose.Click.AddHandler(fun obj args -> win.Root.Close())
+ let parameters =
+ seq {
+ for srcImgCtrl in sourceImagesControls do
+ let srcImg = srcImgCtrl.Tag :?> SourceImage
+ let isChecked = srcImgCtrl.chkSelection.IsChecked
+ match parseAndValidatePPI srcImgCtrl.txtResolution.Text with
+ | Some resolution ->
+ yield Some (srcImg, isChecked.HasValue && isChecked.Value, { srcImg.config.Parameters with resolution = resolution * 1.<ppi> })
+ | None ->
+ MessageBox.Show(sprintf "No resolution defined for the image number %d" srcImg.num, "No resolution defined", MessageBoxButton.OK, MessageBoxImage.Information) |> ignore
+ yield None
+ } |> Seq.takeWhile (fun e -> e.IsSome) |> Seq.map (fun e -> e.Value) |> List.ofSeq
+
+ if parameters.Count() <> sourceImagesControls.Count() then
+ None
+ else
+ Some parameters
+
+ win.butClose.Click.AddHandler(fun obj args -> win.Close())