MS_0612

app/DD-Record-Organiser/frmGeodataSelect.vb

@@ -2,7 +2,7 @@
 
 Public Class frmGeodataSelect
     Public SelectedPoint As GeoPoint = Nothing
-
+    Dim _SelectActive As Boolean = False
     Private BING_KEY As String = "hQUTlqLLK70bETnonpfi~0jx1pIAq1yQ7gXqbIyzKrg~Au-Tewbty8afAxdbNilSv4JlU7qwU-fQKu0ouH9e1uJmpIyVdA3jugVEWMdy1Rbt"
 
     Private ReadOnly Property ImageLayer() As ImageTilesLayer
@@ -33,7 +33,9 @@ Public Class frmGeodataSelect
         If e.Button <> Windows.Forms.MouseButtons.Left Then
             Exit Sub
         End If
-
+        If _SelectActive = False Then
+            Exit Sub
+        End If
         Dim point As GeoPoint = MapControl1.ScreenPointToCoordPoint(e.Location)
 
         Dim items As New List(Of MapPushpin)
@@ -73,4 +75,14 @@ Public Class frmGeodataSelect
         Me.DialogResult = Windows.Forms.DialogResult.OK
         Me.Close()
     End Sub
+
+    Private Sub tsbtnactivate_Click(sender As Object, e As EventArgs) Handles tsbtnactivate.Click
+        If _SelectActive = False Then
+            _SelectActive = True
+            tsbtnactivate.Checked = True
+        Else
+            tsbtnactivate.Checked = False
+            _SelectActive = False
+        End If
+    End Sub
 End Class