Add SetMapServer() and RefreshMapGadget()

This commit is contained in:
2016-08-03 21:19:18 +02:00
parent 024ee41f93
commit d91ea5ed17

View File

@@ -267,6 +267,13 @@ Module PBMap
EndIf EndIf
EndProcedure EndProcedure
Procedure SetMapServer(ServerURL.s="http://tile.openstreetmap.org/",TileSize.l=256,ZoomMin.l=0,ZoomMax.l=18)
PBMap\ServerURL = ServerURL
PBMap\ZoomMin = ZoomMin
PBMap\ZoomMax = ZoomMax
PBMap\TileSize = TileSize
EndProcedure
Procedure Quit() Procedure Quit()
;kill main drawing thread (nicer than KillThread(PBMap\MainDrawingThread)) ;kill main drawing thread (nicer than KillThread(PBMap\MainDrawingThread))
LockMutex(PBMap\Drawing\Mutex) LockMutex(PBMap\Drawing\Mutex)
@@ -1058,8 +1065,8 @@ CompilerIf #PB_Compiler_IsMainFile
CompilerEndIf CompilerEndIf
; IDE Options = PureBasic 5.50 (Windows - x86) ; IDE Options = PureBasic 5.50 (Windows - x86)
; CursorPosition = 835 ; CursorPosition = 272
; FirstLine = 811 ; FirstLine = 224
; Folding = --------- ; Folding = ---------
; EnableThread ; EnableThread
; EnableXP ; EnableXP