let menuExit: MenuItem = ctrl "menuExit"
let menuSaveFile: MenuItem = ctrl "menuSave"
+ let menuSaveAsFile: MenuItem = ctrl "menuSaveAs"
let menuLoadFile: MenuItem = ctrl "menuOpen"
let menuNewFile: MenuItem = ctrl "menuNew"
let menuAddSourceImage: MenuItem = ctrl "menuAddSourceImage"
let menuHightlightRBC: MenuItem = ctrl "menuHightlightRBC"
let menuAbout: MenuItem = ctrl "menuAbout"
+ let txtDocumentStatus: TextBlock = ctrl "txtDocumentStatus"
+ let txtMessageStatus: TextBlock = ctrl "txtMessageStatus"
+
let txtPatient: TextBox = ctrl "txtPatient"
let txtGlobalParasitemia: TextBox = ctrl "txtGlobalParasitemia"
let scrollViewCurrentImage: ScrollViewer = ctrl "scrollViewCurrentImage"
let borderCurrentImage: Border = ctrl "borderCurrentImage"
let canvasCurrentImage: Canvas = ctrl "canvasCurrentImage"
- let txtImageInformation: TextBlock = ctrl "txtImageInformation"
+ let txtImageInformation1: TextBlock = ctrl "txtImageInformation1"
+ let txtImageInformation2: TextBlock = ctrl "txtImageInformation2"
let scrollRBC: ScrollViewer = ctrl "scrollRBC"
let stackRBC: StackPanel = ctrl "stackRBC"
+ let imgLogos: Border = ctrl "imgLogos"
+
// Initializations.
+ let canvasCurrentImageColor = canvasCurrentImage.Background
menuHightlightRBC.IsChecked <- displayHealthy
// Utils.
frame.txtRBCNumber.Text <- rbc.num.ToString()
frame
+ let updateDocumentStatus () =
+ txtDocumentStatus.Text <- if state.FilePath = "" then "<New document>" else state.FilePath
+
+ let statusMessageTimer = Threading.DispatcherTimer()
+ statusMessageTimer.Tick.AddHandler(fun obj args -> statusMessageTimer.Stop(); txtMessageStatus.Text <- "")
+ statusMessageTimer.Interval <- TimeSpan(0, 0, 2)
+ let displayStatusMessage (message: string) =
+ txtMessageStatus.Text <- message
+ statusMessageTimer.Stop()
+ statusMessageTimer.Start()
+
let highlightRBCFrame (frame: Views.RBCFrame) (highlight: bool) =
let rbc = frame.Tag :?> RBC
if highlight
scrollViewCurrentImage.ScrollToHorizontalOffset(rbc.center.X * currentScale - scrollViewCurrentImage.ViewportWidth / 2. + borderCurrentImage.BorderThickness.Left)
scrollViewCurrentImage.ScrollToVerticalOffset(rbc.center.Y * currentScale - scrollViewCurrentImage.ViewportHeight / 2. + borderCurrentImage.BorderThickness.Top)
- let parasitemiaText (nbTotal: int, nbInfected: int) : string =
+ let percentText (nbTotal: int, nb: int) : string =
if nbTotal = 0
then
""
else
- let percent = 100. * (float nbInfected) / (float nbTotal)
- sprintf "%.1f %% (%d / %d)" percent nbInfected nbTotal
+ let percent = 100. * (float nb) / (float nbTotal)
+ sprintf "%.1f %% (%d / %d)" percent nb nbTotal
let updateCurrentImageInformation () =
+ txtImageInformation1.Inlines.Clear()
+ txtImageInformation2.Inlines.Clear()
+
match state.CurrentImage with
| Some srcImg ->
- let parasitemiaStr = parasitemiaText (state.ImageParasitemia srcImg)
- txtImageInformation.Inlines.Clear()
- txtImageInformation.Inlines.Add(Documents.Run("Parasitemia: ", FontWeight = FontWeights.Bold))
- txtImageInformation.Inlines.Add(parasitemiaStr)
- txtImageInformation.Inlines.Add(Documents.LineBreak())
-
- txtImageInformation.Inlines.Add(Documents.Run("Average erytrocyte diameter: ", FontWeight = FontWeights.Bold))
- txtImageInformation.Inlines.Add(Documents.Run(srcImg.config.RBCRadius.ToString()))
- txtImageInformation.Inlines.Add(Documents.LineBreak())
-
- txtImageInformation.Inlines.Add(Documents.Run("Last analysis: ", FontWeight = FontWeights.Bold))
- txtImageInformation.Inlines.Add(Documents.Run(if srcImg.dateLastAnalysis.Ticks = 0L then "<Never>" else srcImg.dateLastAnalysis.ToLocalTime().ToString()))
+ let parasitemiaStr = percentText (state.ImageParasitemia srcImg)
+ txtImageInformation1.Inlines.Add(Documents.Run("Parasitemia: ", FontWeight = FontWeights.Bold))
+ txtImageInformation1.Inlines.Add(parasitemiaStr)
+ txtImageInformation1.Inlines.Add(Documents.LineBreak())
+
+ txtImageInformation1.Inlines.Add(Documents.Run("Last analysis: ", FontWeight = FontWeights.Bold))
+ txtImageInformation1.Inlines.Add(Documents.Run(if srcImg.dateLastAnalysis.Ticks = 0L then "<Never>" else srcImg.dateLastAnalysis.ToLocalTime().ToString()))
+
+ let alteredStr = percentText (state.ImageNbAltered srcImg)
+ txtImageInformation2.Inlines.Add(Documents.Run("Number of erytrocytes manually altered: ", FontWeight = FontWeights.Bold))
+ txtImageInformation2.Inlines.Add(Documents.Run(alteredStr))
+ txtImageInformation2.Inlines.Add(Documents.LineBreak())
+
+ txtImageInformation2.Inlines.Add(Documents.Run("Average erytrocyte diameter: ", FontWeight = FontWeights.Bold))
+ txtImageInformation2.Inlines.Add(Documents.Run(srcImg.config.RBCRadius.ToString()))
| _ -> ()
let updateGlobalParasitemia () =
- txtGlobalParasitemia.Text <- parasitemiaText state.GlobalParasitemia
+ txtGlobalParasitemia.Text <- percentText state.GlobalParasitemia
let updateViewportPreview () =
for preview in stackPreviews.Children |> Seq.cast<Views.ImageSourcePreview> do
canvasCurrentImage.Children.[i].Visibility <- Visibility.Hidden
| _ -> ()
+ let askDocumentPathToSave () : string option =
+ let dialog = SaveFileDialog(AddExtension = true, DefaultExt = PiaZ.extension, Filter = PiaZ.filter)
+
+ if state.FilePath <> ""
+ then
+ dialog.FileName <- FileInfo(state.FilePath).Name
+ elif state.PatientID <> ""
+ then
+ dialog.FileName <- state.PatientID + PiaZ.extension
+
+ let res = dialog.ShowDialog()
+ if res.HasValue && res.Value then
+ Some dialog.FileName
+ else
+ None
+
let saveCurrentDocument () =
try
if state.FilePath = ""
then
- let dialog = SaveFileDialog(AddExtension = true, DefaultExt = PiaZ.extension, Filter = PiaZ.filter);
- let res = dialog.ShowDialog()
- if res.HasValue && res.Value
- then
- state.FilePath <- dialog.FileName
+ match askDocumentPathToSave () with
+ | Some filepath ->
+ state.FilePath <- filepath
state.Save()
+ | _ -> ()
else
state.Save()
+ updateDocumentStatus ()
+ displayStatusMessage "Document saved"
with
| :? IOException as ex ->
Log.Error(ex.ToString())
MessageBox.Show(sprintf "The document cannot be save in '%s'" state.FilePath, "Error saving the document", MessageBoxButton.OK, MessageBoxImage.Error) |> ignore
+ let saveCurrentDocumentAsNewFile () =
+ match askDocumentPathToSave () with
+ | Some filepath ->
+ state.FilePath <- filepath
+ saveCurrentDocument ()
+ | _ -> ()
+
// Ask the use to save the current document if neccessary.
let askSaveCurrent () =
if state.AlteredSinceLastSave
let updateCurrentImage () =
match state.CurrentImage with
| Some srcImg ->
+ imgLogos.Visibility <- Visibility.Collapsed
+
// Highlight the preview.
stackPreviews.Children
|> Seq.cast<Views.ImageSourcePreview>
updateRBCFramesCurrent ()
updateRBCFramesPreview ()
- updateCurrentImageInformation ()
| None ->
+ imgLogos.Visibility <- Visibility.Visible
stackRBC.Children.Clear()
canvasCurrentImage.Children.Clear()
- canvasCurrentImage.Background <- Brushes.Black
+ canvasCurrentImage.Background <- canvasCurrentImageColor
+
+ updateCurrentImageInformation ()
let setCurrentImage (srcImg: SourceImage) =
if state.CurrentImage.IsNone || state.CurrentImage.Value <> srcImg
if currentRemoved
then
updateCurrentImage()
+
+ updateGlobalParasitemia()
+
+ // Update image numbers.
stackPreviews.Children |> Seq.cast<Views.ImageSourcePreview> |> Seq.iter (fun imgPreview -> imgPreview.txtImageNumber.Text <- (imgPreview.Tag :?> SourceImage).num.ToString()))
imgCtrl.Tag <- srcImg
txtPatient.Text <- state.PatientID
updatePreviews ()
updateGlobalParasitemia ()
+ updateDocumentStatus ()
let loadFile (filepath: string) =
askSaveCurrent ()
| :? IOException as ex ->
Log.Error(ex.ToString())
state.FilePath <- previousFilePath
- MessageBox.Show(sprintf "The document cannot be loaded from '%s'" state.FilePath, "Error saving the document", MessageBoxButton.OK, MessageBoxImage.Error) |> ignore
-
- txtPatient.LostFocus.AddHandler(fun obj args -> state.PatientID <- txtPatient.Text)
-
- menuExit.Click.AddHandler(fun obj args ->
- askSaveCurrent ()
- mainWindow.Root.Close())
+ MessageBox.Show(sprintf "The document cannot be loaded from '%s'" state.FilePath, "Error loading the document", MessageBoxButton.OK, MessageBoxImage.Error) |> ignore
- menuSaveFile.Click.AddHandler(fun obj args -> saveCurrentDocument ())
-
- menuLoadFile.Click.AddHandler(fun obj args ->
- // TODO: if current state not saved and not empty, ask to save it.
+ let askLoadFile () =
let dialog = OpenFileDialog(Filter = PiaZ.filter)
let res = dialog.ShowDialog()
if res.HasValue && res.Value
- then loadFile dialog.FileName)
+ then loadFile dialog.FileName
- menuNewFile.Click.AddHandler(fun obj args ->
+ let newFile () =
askSaveCurrent ()
state.Reset()
- updateGUI())
+ updateGUI()
+
+ txtPatient.TextChanged.AddHandler(fun obj args -> state.PatientID <- txtPatient.Text)
+
+ menuExit.Click.AddHandler(fun obj args -> mainWindow.Root.Close())
+ menuSaveFile.Click.AddHandler(fun obj args -> saveCurrentDocument ())
+ menuSaveAsFile.Click.AddHandler(fun obj args -> saveCurrentDocumentAsNewFile ())
+ menuLoadFile.Click.AddHandler(fun obj args -> askLoadFile ())
+ menuNewFile.Click.AddHandler(fun obj args -> newFile ())
menuAddSourceImage.Click.AddHandler(fun obj args ->
let dialog = OpenFileDialog(Filter = "Image Files|*.png;*.jpg;*.tif;*.tiff", Multiselect = true)
let noSourceImage = state.SourceImages.Count() = 0
for filename in dialog.FileNames do
- let srcImg = state.AddSourceImage filename defaultConfig
- addPreview srcImg
+ try
+ let srcImg = state.AddSourceImage filename defaultConfig
+ addPreview srcImg
+ with
+ | _ as ex ->
+ Log.Error(ex.ToString())
+ MessageBox.Show(sprintf "Unable to read the image from '%s'" filename, "Error adding an image", MessageBoxButton.OK, MessageBoxImage.Error) |> ignore
updateGlobalParasitemia ()
menuAbout.Click.AddHandler(fun obj args -> About.showWindow mainWindow.Root)
+ mainWindow.Root.Closing.AddHandler(fun obj args -> askSaveCurrent ())
+
// Zoom on the current image.
let adjustCurrentImageBorders (deltaX: float) (deltaY: float) =
borderCurrentImage.BorderThickness <-
borderCurrentImage.ReleaseMouseCapture()
args.Handled <- true)
+ // Shortcuts.
+ // Save.
+ mainWindow.Root.InputBindings.Add(
+ Input.KeyBinding(
+ FSharp.ViewModule.FunCommand((fun obj -> saveCurrentDocument ()), (fun obj -> true)),
+ Input.KeyGesture(Input.Key.S, Input.ModifierKeys.Control))) |> ignore
+
+ // Save as.
+ mainWindow.Root.InputBindings.Add(
+ Input.KeyBinding(
+ FSharp.ViewModule.FunCommand((fun obj -> saveCurrentDocumentAsNewFile ()), (fun obj -> true)),
+ Input.KeyGesture(Input.Key.S, Input.ModifierKeys.Control ||| Input.ModifierKeys.Shift))) |> ignore
+
+ // Open.
+ mainWindow.Root.InputBindings.Add(
+ Input.KeyBinding(
+ FSharp.ViewModule.FunCommand((fun obj -> askLoadFile ()), (fun obj -> true)),
+ Input.KeyGesture(Input.Key.O, Input.ModifierKeys.Control))) |> ignore
+
+ // New file.
+ mainWindow.Root.InputBindings.Add(
+ Input.KeyBinding(
+ FSharp.ViewModule.FunCommand((fun obj -> newFile ()), (fun obj -> true)),
+ Input.KeyGesture(Input.Key.N, Input.ModifierKeys.Control))) |> ignore
+
// Viewport preview.
scrollViewCurrentImage.ScrollChanged.AddHandler(fun obj args -> updateViewportPreview ())
+ updateDocumentStatus ()
+
mainWindow.Root.Show()
match fileToOpen with