Merge branch 'djes' of https://github.com/djes/PBMap into djes
This commit is contained in:
13
PBMap.pb
13
PBMap.pb
@@ -3,7 +3,7 @@
|
||||
; Description: Permits the use of tiled maps like
|
||||
; OpenStreetMap in a handy PureBASIC module
|
||||
; Author: Thyphoon, djes, Idle, yves86
|
||||
; Date: July, 2017
|
||||
; Date: June, 2018
|
||||
; License: PBMap : Free, unrestricted, credit
|
||||
; appreciated but not required.
|
||||
; OSM : see http://www.openstreetmap.org/copyright
|
||||
@@ -1987,7 +1987,7 @@ Module PBMap
|
||||
|
||||
Procedure DrawOSMCopyright(MapGadget.i, *Drawing.DrawingParameters)
|
||||
Protected *PBMap.PBMap = PBMaps(Str(MapGadget))
|
||||
Protected Text.s = "<EFBFBD> OpenStreetMap contributors"
|
||||
Protected Text.s = "© OpenStreetMap contributors"
|
||||
VectorFont(FontID(*PBMap\StandardFont), 12)
|
||||
VectorSourceColor(RGBA(0, 0, 0, 80))
|
||||
MovePathCursor(GadgetWidth(*PBMap\Gadget) - VectorTextWidth(Text), GadgetHeight(*PBMap\Gadget) - 20)
|
||||
@@ -2543,14 +2543,14 @@ Module PBMap
|
||||
EndIf
|
||||
Next
|
||||
EndIf
|
||||
; YA pour s<EFBFBD>lectionner un point de la trace avec le clic gauche
|
||||
; YA pour sélectionner un point de la trace avec le clic gauche
|
||||
If *PBMap\EditMarker = #False
|
||||
Location\Latitude = GetMouseLatitude(MapGadget)
|
||||
Location\Longitude = GetMouseLongitude(MapGadget)
|
||||
If *PBMap\CallBackLeftClic > 0
|
||||
CallFunctionFast(*PBMap\CallBackLeftClic, @Location)
|
||||
EndIf
|
||||
; ajout YA // change la forme du pointeur de souris pour les d<EFBFBD>placements de la carte
|
||||
; ajout YA // change la forme du pointeur de souris pour les déplacements de la carte
|
||||
SetGadgetAttribute(*PBMap\Gadget, #PB_Canvas_Cursor, #PB_Cursor_Hand)
|
||||
Else
|
||||
SetGadgetAttribute(*PBMap\Gadget, #PB_Canvas_Cursor, #PB_Cursor_Default) ; ajout YA pour remettre le pointeur souris en normal
|
||||
@@ -2608,7 +2608,7 @@ Module PBMap
|
||||
EndIf
|
||||
Next
|
||||
; Check if mouse touch tracks
|
||||
If *PBMap\Options\ShowTrackSelection ; YA ajout pour <EFBFBD>viter la s<EFBFBD>lection de la trace
|
||||
If *PBMap\Options\ShowTrackSelection ; YA ajout pour éviter la sélection de la trace
|
||||
With *PBMap\TracksList()
|
||||
; Trace Track
|
||||
If ListSize(*PBMap\TracksList()) > 0
|
||||
@@ -2646,7 +2646,7 @@ Module PBMap
|
||||
; *PBMap\MoveStartingPoint\x = - 1
|
||||
*PBMap\Dragging = #False
|
||||
*PBMap\Redraw = #True
|
||||
;YA pour connaitre les coordonn<EFBFBD>es d'un marqueur apr<EFBFBD>s d<EFBFBD>placement
|
||||
;YA pour connaitre les coordonnées d'un marqueur après déplacement
|
||||
ForEach *PBMap\Markers()
|
||||
If *PBMap\Markers()\Selected = #True
|
||||
If *PBMap\CallBackMarker > 0
|
||||
@@ -3148,3 +3148,4 @@ CompilerEndIf
|
||||
; EnableThread
|
||||
; EnableXP
|
||||
; CompileSourceDirectory
|
||||
; DisablePurifier = 1,1,1,1
|
||||
|
Reference in New Issue
Block a user