From 905089671a9441b7dd8bd5129bed31736db2cb41 Mon Sep 17 00:00:00 2001
From: Kenneth van Ewijk <kennyboy@live.nl>
Date: Thu, 21 Jan 2016 23:04:09 +0100
Subject: [PATCH] Fix map zooming

---
 YJMPD-UWP/Views/MatchView.xaml.cs | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/YJMPD-UWP/Views/MatchView.xaml.cs b/YJMPD-UWP/Views/MatchView.xaml.cs
index 6f4210b..13e99d5 100644
--- a/YJMPD-UWP/Views/MatchView.xaml.cs
+++ b/YJMPD-UWP/Views/MatchView.xaml.cs
@@ -1,4 +1,6 @@
-using Windows.Devices.Geolocation;
+using System;
+using System.Threading.Tasks;
+using Windows.Devices.Geolocation;
 using Windows.UI;
 using Windows.UI.Xaml.Controls;
 using Windows.UI.Xaml.Controls.Maps;
@@ -43,9 +45,16 @@ namespace YJMPD_UWP.Views
 
                 old = e.Position;
 
-                Map.TrySetViewAsync(e.Position.Coordinate.Point);
-                Map.TryZoomToAsync(13);
+                ZoomMap(e.Position.Coordinate.Point); 
             });
         }
+
+        private async void ZoomMap(Geopoint p)
+        {
+            await Task.Delay(TimeSpan.FromMilliseconds(200));
+            await Map.TrySetViewAsync(p);
+            await Task.Delay(TimeSpan.FromMilliseconds(500));
+            await Map.TryZoomToAsync(13);
+        }
     }
 }