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

UTF8 source

Browse Source
This commit is contained in:
djes
2018-06-11 23:36:47 +02:00
parent c13ff4fc92
commit 7970758114
1 changed files with 9 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
PBMap.pb
View File

@@ -1,4 +1,4 @@
; ******************************************************************** ; ********************************************************************
; Program: PBMap ; Program: PBMap
; Description: Permits the use of tiled maps like ; Description: Permits the use of tiled maps like
; OpenStreetMap in a handy PureBASIC module ; OpenStreetMap in a handy PureBASIC module
@@ -2543,14 +2543,13 @@ Module PBMap
EndIf EndIf
Next Next
EndIf EndIf
; YA pour sélectionner un point de la trace avec le clic gauche
If *PBMap\EditMarker = #False If *PBMap\EditMarker = #False
Location\Latitude = GetMouseLatitude(MapGadget) Location\Latitude = GetMouseLatitude(MapGadget)
Location\Longitude = GetMouseLongitude(MapGadget) Location\Longitude = GetMouseLongitude(MapGadget)
If *PBMap\CallBackLeftClic > 0 If *PBMap\CallBackLeftClic > 0
CallFunctionFast(*PBMap\CallBackLeftClic, @Location) CallFunctionFast(*PBMap\CallBackLeftClic, @Location)
EndIf EndIf
; ajout YA // change la forme du pointeur de souris pour les déplacements de la carte ; ajout YA // Mouse pointer when moving map
SetGadgetAttribute(*PBMap\Gadget, #PB_Canvas_Cursor, #PB_Cursor_Hand) SetGadgetAttribute(*PBMap\Gadget, #PB_Canvas_Cursor, #PB_Cursor_Hand)
Else Else
SetGadgetAttribute(*PBMap\Gadget, #PB_Canvas_Cursor, #PB_Cursor_Default) ; ajout YA pour remettre le pointeur souris en normal SetGadgetAttribute(*PBMap\Gadget, #PB_Canvas_Cursor, #PB_Cursor_Default) ; ajout YA pour remettre le pointeur souris en normal
@@ -2608,7 +2607,7 @@ Module PBMap
EndIf EndIf
Next Next
; Check if mouse touch tracks ; Check if mouse touch tracks
If *PBMap\Options\ShowTrackSelection ; YA ajout pour éviter la sélection de la trace If *PBMap\Options\ShowTrackSelection ; YA to avoid selecting track
With *PBMap\TracksList() With *PBMap\TracksList()
; Trace Track ; Trace Track
If ListSize(*PBMap\TracksList()) > 0 If ListSize(*PBMap\TracksList()) > 0
@@ -2642,11 +2641,11 @@ Module PBMap
EndIf EndIf
EndIf EndIf
Case #PB_EventType_LeftButtonUp Case #PB_EventType_LeftButtonUp
SetGadgetAttribute(*PBMap\Gadget,#PB_Canvas_Cursor,#PB_Cursor_Default) ; ajout YA pour remettre le pointeur souris en normal SetGadgetAttribute(*PBMap\Gadget,#PB_Canvas_Cursor,#PB_Cursor_Default) ; YA normal mouse pointer
; *PBMap\MoveStartingPoint\x = - 1 ; *PBMap\MoveStartingPoint\x = - 1
*PBMap\Dragging = #False *PBMap\Dragging = #False
*PBMap\Redraw = #True *PBMap\Redraw = #True
;YA pour connaitre les coordonnées d'un marqueur après déplacement ;YA to knows marker coordinates after moving
ForEach *PBMap\Markers() ForEach *PBMap\Markers()
If *PBMap\Markers()\Selected = #True If *PBMap\Markers()\Selected = #True
If *PBMap\CallBackMarker > 0 If *PBMap\CallBackMarker > 0
@@ -3141,9 +3140,9 @@ CompilerIf #PB_Compiler_IsMainFile
CompilerEndIf CompilerEndIf
; IDE Options = PureBasic 5.61 (Windows - x86) ; IDE Options = PureBasic 5.61 (Windows - x64)
; CursorPosition = 517 ; CursorPosition = 2648
; FirstLine = 513 ; FirstLine = 2606
; Folding = --------------------- ; Folding = ---------------------
; EnableThread ; EnableThread
; EnableXP ; EnableXP