X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=Parasitemia%2FParasitemiaUI%2FAbout.fs;fp=Parasitemia%2FParasitemiaUI%2FAbout.fs;h=908ccd5d17efdceac5e45fe7e3f56235a8fe49e2;hb=2e3cd07dd099944059ef5e7a7f5ef57ffe3d677b;hp=18f266f6ca06f95af4d6b011f03b62e62cde90b7;hpb=1b8e45987bde692ab5602c281f878707f70459b7;p=master-thesis.git

diff --git a/Parasitemia/ParasitemiaUI/About.fs b/Parasitemia/ParasitemiaUI/About.fs
index 18f266f..908ccd5 100644
--- a/Parasitemia/ParasitemiaUI/About.fs
+++ b/Parasitemia/ParasitemiaUI/About.fs
@@ -11,8 +11,9 @@ open System.Diagnostics
 let showWindow (parent: Window) =
     let win = Views.AboutWindow()
     win.Root.Owner <- parent
-    win.Root.Left <- parent.Left + parent.ActualWidth / 2. - win.Root.Width / 2.
-    win.Root.Top <- parent.Top + parent.ActualHeight / 2. - win.Root.Height / 2.
+
+    win.Root.Left <- (if parent.WindowState = WindowState.Maximized then 0. else parent.Left) + parent.ActualWidth / 2. - win.Root.Width / 2.
+    win.Root.Top <- (if parent.WindowState = WindowState.Maximized then 0. else parent.Top) + parent.ActualHeight / 2. - win.Root.Height / 2.
 
     let version = System.Reflection.Assembly.GetEntryAssembly().GetName().Version
     let txtVersion = sprintf " %d.%d.%d" version.Major version.Minor version.Revision