1
module ParasitemiaUI.About
5 open System.Windows.Media
6 open System.Windows.Markup
7 open System.Windows.Shapes
8 open System.Windows.Controls
9 open System.Diagnostics
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.
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)
21 let navigateTo = Navigation.RequestNavigateEventHandler(fun obj args
->
22 Process.Start(ProcessStartInfo(args
.Uri.AbsoluteUri)) |> ignore
25 win.linkHESSO
.RequestNavigate.AddHandler(navigateTo);
26 win.linkCHUV
.RequestNavigate.AddHandler(navigateTo);
27 win.linkGBurri
.RequestNavigate.AddHandler(navigateTo);
30 win.txtAbout
.Inlines.FirstInline.ElementEnd.InsertTextInRun(" - DEBUG")
33 win.butClose
.Click.AddHandler(fun obj args
-> win.Root.Close())
35 win.Root.ShowDialog() |> ignore