pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

LazMapViewer: Fix track demos (hick-up with previously used map provider).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8774 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-03-24 14:00:36 +00:00
parent bc05074d55
commit 7b29fa40dc
6 changed files with 15 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazmapviewer/examples/trackdemo/main.pas
View File

@ -74,7 +74,7 @@ begin
crs := Screen.Cursor;
Screen.Cursor := crHourglass;
try
MapView.MapProvider := 'Open Topo Map';
MapView.MapProvider := 'Google Maps'; //'Open Topo Map';
MapView.Active := true;
// Center on Grand Canyon Village
MapView.Zoom := 13;
@ -134,7 +134,7 @@ var
begin
reader := TGpxReader.Create;
try
reader.LoadFromFile(GPX_FILE_NAME, MapView.GPSItems, b);
reader.LoadFromFile(Application.Location + GPX_FILE_NAME, MapView.GPSItems, b);
MapView.Engine.ZoomOnArea(b);
FTrack := MapView.GpsItems.GetObjectsInArea(b).Items[0] as TGpsTrack;