From c1a6dda16a4fcc0a6f08c178669ad93101a78c21 Mon Sep 17 00:00:00 2001
From: djes <djes1975@gmail.com>
Date: Thu, 1 Sep 2016 17:43:40 +0200
Subject: [PATCH] Marker select fixed

---
 PBMap.pb | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/PBMap.pb b/PBMap.pb
index 2951b93..23eca67 100644
--- a/PBMap.pb
+++ b/PBMap.pb
@@ -1138,12 +1138,18 @@ Module PBMap
         ;Check if we select a marker
         MouseX = PBMap\Position\x - GadgetWidth(PBMap\Gadget) / 2 + GetGadgetAttribute(PBMap\Gadget, #PB_Canvas_MouseX)
         MouseY = PBMap\Position\y - GadgetHeight(PBMap\Gadget) / 2 + GetGadgetAttribute(PBMap\Gadget, #PB_Canvas_MouseY)
+        ;Clip MouseX to the map range (in X, the map is infinite)
+        If MouseX < 0
+          MouseX + Pow(2, PBMap\Zoom) * PBMap\TileSize
+        EndIf
+        MouseX = Mod(MouseX, Pow(2, PBMap\Zoom) * PBMap\TileSize)
+;         Debug "---"
+;         Debug "mx : " + Str(MouseX)
         ForEach PBMap\Marker()                   
           LatLon2XY(@PBMap\Marker()\Location, @Marker)
-               Debug "Pos : " + StrD(Marker\x) + " ; Drawing pos : " + StrD(PBMap\Drawing\Position\x) 
-
           Marker\x * PBMap\TileSize
           Marker\y * PBMap\TileSize 
+;           Debug "Pos : " + StrD(Marker\x) + " ; Drawing pos : " + StrD(PBMap\Drawing\Position\x) 
           If Distance(Marker\x, Marker\y, MouseX, MouseY) < 8
             PBMap\EditMarkerIndex = ListIndex(PBMap\Marker())  
             Break
@@ -1383,8 +1389,8 @@ CompilerEndIf
 
 
 ; IDE Options = PureBasic 5.50 (Windows - x64)
-; CursorPosition = 940
-; FirstLine = 932
+; CursorPosition = 1149
+; FirstLine = 1122
 ; Folding = ----------
 ; EnableThread
 ; EnableXP