luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[EXAMPLES]

Browse source 
* NEW: Add copyright on OpenStreetMap Layer.
* NEW: Add a "padding" on lens mapp


git-svn-id: svn://localhost/gambas/trunk@5407 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Fabien Bodard 2012-11-30 23:34:21 +00:00
parent 054cd7dbb3
commit 0857ddcf71
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
examples/examples/Control/MapView/.src/FMain.class
View file

@ -18,12 +18,12 @@ Public Sub _new()
MapView1.Map.AddTile("GoogleMap", "https://khms{s}.google.fr/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "121"], "gm").SubDomains = ["0", "1", "2"]
MapView1.Map["GoogleMap"].Visible = False
MapView1.Map.AddTile("OpenStreet", "http://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png", Null)
MapView1.Map.AddTile("OpenStreet", "http://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png", Null).Copyright = "© OpenStreetMap contributors"
'Map for lens
hmap.AddTile("GoogleMap", "https://khms{s}.google.fr/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "121"]).SubDomains = ["0", "1", "2"]
hmap.Padding = 256
hmap.Resize(200, 200)
'Manage the list of layers