thyphoon/PBMap
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Marker select fixed

Browse Source
This commit is contained in:
djes
2016-09-01 17:43:40 +02:00
parent 3f36ae9799
commit c1a6dda16a
1 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
PBMap.pb
View File

@@ -1138,12 +1138,18 @@ Module PBMap
;Check if we select a marker ;Check if we select a marker
MouseX = PBMap\Position\x - GadgetWidth(PBMap\Gadget) / 2 + GetGadgetAttribute(PBMap\Gadget, #PB_Canvas_MouseX) 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) 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() ForEach PBMap\Marker()
LatLon2XY(@PBMap\Marker()\Location, @Marker) LatLon2XY(@PBMap\Marker()\Location, @Marker)
Debug "Pos : " + StrD(Marker\x) + " ; Drawing pos : " + StrD(PBMap\Drawing\Position\x)
Marker\x * PBMap\TileSize Marker\x * PBMap\TileSize
Marker\y * 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 If Distance(Marker\x, Marker\y, MouseX, MouseY) < 8
PBMap\EditMarkerIndex = ListIndex(PBMap\Marker()) PBMap\EditMarkerIndex = ListIndex(PBMap\Marker())
Break Break
@@ -1383,8 +1389,8 @@ CompilerEndIf
; IDE Options = PureBasic 5.50 (Windows - x64) ; IDE Options = PureBasic 5.50 (Windows - x64)
; CursorPosition = 940 ; CursorPosition = 1149
; FirstLine = 932 ; FirstLine = 1122
; Folding = ---------- ; Folding = ----------
; EnableThread ; EnableThread
; EnableXP ; EnableXP