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

Header slight modifications

Browse Source
This commit is contained in:
djes
2017-06-15 17:19:59 +02:00
committed by GitHub
parent 13798f2517
commit 596733f49b
1 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
PBMap.pb
View File

@@ -2,13 +2,13 @@
; 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
; Author: Thyphoon, djes And Idle ; Author: Thyphoon, djes, Idle, yves86
; Date: March, 2017 ; Date: June, 2017
; License: PBMap : Free, unrestricted, credit ; License: PBMap : Free, unrestricted, credit
; appreciated but not required. ; appreciated but not required.
; OSM : see http://www.openstreetmap.org/copyright ; OSM : see http://www.openstreetmap.org/copyright
; Note: Please share improvement ! ; Note: Please share improvement !
; Thanks: Progi1984, yves86 ; Thanks: Progi1984
; ******************************************************************** ; ********************************************************************
CompilerIf #PB_Compiler_Thread = #False CompilerIf #PB_Compiler_Thread = #False
@@ -1910,7 +1910,7 @@ Module PBMap
EndProcedure EndProcedure
Procedure DrawOSMCopyright(*Drawing.DrawingParameters) Procedure DrawOSMCopyright(*Drawing.DrawingParameters)
Protected Text.s = "<EFBFBD> OpenStreetMap contributors" Protected Text.s = "© OpenStreetMap contributors"
VectorFont(FontID(PBMap\Font), 12) VectorFont(FontID(PBMap\Font), 12)
VectorSourceColor(RGBA(0, 0, 0, 80)) VectorSourceColor(RGBA(0, 0, 0, 80))
MovePathCursor(GadgetWidth(PBMAP\Gadget) - VectorTextWidth(Text), GadgetHeight(PBMAP\Gadget) - 20) MovePathCursor(GadgetWidth(PBMAP\Gadget) - VectorTextWidth(Text), GadgetHeight(PBMAP\Gadget) - 20)
@@ -2415,14 +2415,14 @@ Module PBMap
EndIf EndIf
Next Next
EndIf 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 If PBMap\EditMarker = #False
Location\Latitude = GetMouseLatitude() Location\Latitude = GetMouseLatitude()
Location\Longitude = GetMouseLongitude() Location\Longitude = GetMouseLongitude()
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<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) 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
@@ -2480,7 +2480,7 @@ Module PBMap
EndIf EndIf
Next Next
; Check if mouse touch tracks ; 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() With PBMap\TracksList()
; Trace Track ; Trace Track
If ListSize(PBMap\TracksList()) > 0 If ListSize(PBMap\TracksList()) > 0
@@ -2518,7 +2518,7 @@ Module PBMap
; 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<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() ForEach PBMap\Markers()
If PBMap\Markers()\Selected = #True If PBMap\Markers()\Selected = #True
If PBMap\CallBackMarker > 0 If PBMap\CallBackMarker > 0
@@ -2946,4 +2946,4 @@ CompilerEndIf
; EnableThread ; EnableThread
; EnableXP ; EnableXP
; CompileSourceDirectory ; CompileSourceDirectory
; DisablePurifier = 1,1,1,1 ; DisablePurifier = 1,1,1,1