Parasitemia/ParasitemiaUI/About.fs

   1 module ParasitemiaUI.About
   2
   3 open System
   4 open System.Windows
   5 open System.Windows.Media
   6 open System.Windows.Markup
   7 open System.Windows.Shapes
   8 open System.Windows.Controls
   9 open System.Diagnostics
  10
  11 let showWindow (parent: Window) =
  12     let win = Views.AboutWindow()
  13     win.Root.Owner <- parent
  14     win.Root.Left <- parent.Left + parent.ActualWidth / 2. - win.Root.Width / 2.
  15     win.Root.Top <- parent.Top + parent.ActualHeight / 2. - win.Root.Height / 2.
  16
  17     let version = System.Reflection.Assembly.GetEntryAssembly().GetName().Version
  18     let txtVersion = sprintf " %d.%d.%d" version.Major version.Minor version.Revision
  19     win.txtAbout.Inlines.FirstInline.ElementEnd.InsertTextInRun(txtVersion)
  20
  21     let navigateTo = Navigation.RequestNavigateEventHandler(fun obj args ->
  22         Process.Start(ProcessStartInfo(args.Uri.AbsoluteUri)) |> ignore
  23         args.Handled <- true)
  24
  25     win.linkHESSO.RequestNavigate.AddHandler(navigateTo);
  26     win.linkCHUV.RequestNavigate.AddHandler(navigateTo);
  27     win.linkGBurri.RequestNavigate.AddHandler(navigateTo);
  28
  29 #if DEBUG
  30     win.txtAbout.Inlines.FirstInline.ElementEnd.InsertTextInRun(" - DEBUG")
  31 #endif
  32
  33     win.butClose.Click.AddHandler(fun obj args -> win.Root.Close())
  34
  35     win.Root.ShowDialog() |> ignore
  36