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

3
components/lazmapviewer/examples/colored_tracks/coloredtracks_demo.lpi
View File

@ -60,6 +60,9 @@
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>

5
components/lazmapviewer/examples/colored_tracks/main.lfm
View File

@ -19,7 +19,6 @@ object MainForm: TMainForm
DrawingEngine = MapView.BuiltInDE
Font.Color = clBlack
MapProvider = 'OpenStreetMap Mapnik'
POIImagesWidth = 0
UseThreads = True
OnZoomChange = MapViewZoomChange
end
@ -71,9 +70,9 @@ object MainForm: TMainForm
Left = 339
Height = 19
Top = 19
Width = 117
Width = 156
BorderSpacing.Left = 24
Caption = 'Triangle Loop Tour'
Caption = 'Triangle Loop Tour (black)'
Checked = True
OnChange = CheckBox3Change
State = cbChecked

6
components/lazmapviewer/examples/colored_tracks/main.pas
View File

@ -71,14 +71,14 @@ begin
MapView.Active := true;
// Load GPX files
FTrack1 := LoadGPXFile(FILENAME1, clRed, 1.0);
FTrack1 := LoadGPXFile(Application.Location + FILENAME1, clRed, 1.0);
FTrack1.GetArea(totalArea);
FTrack2 := LoadGPXFile(FILENAME2, clBlue, 1.2);
FTrack2 := LoadGPXFile(Application.Location + FILENAME2, clBlue, 1.2);
FTrack2.GetArea(trackArea);
ExtendArea(totalArea, trackArea);
FTrack3 := LoadGPXFile(FILENAME3, clBlack, 0.5);
FTrack3 := LoadGPXFile(Application.Location + FILENAME3, clBlack, 0.5);
FTrack3.GetArea(trackArea);
ExtendArea(totalArea, trackArea);

3
components/lazmapviewer/examples/trackdemo/main.lfm
View File

@ -22,7 +22,7 @@ object MainForm: TMainForm
Font.CharSet = ANSI_CHARSET
Font.Color = clBlack
Font.Pitch = fpVariable
MapProvider = 'OpenStreetMap Mapnik'
MapProvider = 'Google Maps'
POIImage.Data = {
36170000424D36170000000000003600000028000000200000002E0000000100
2000000000000017000064000000640000000000000000000000FFFFFF00FFFF
@ -211,7 +211,6 @@ object MainForm: TMainForm
FEEB0000FEC70000FE980000FD570000EA0CFFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
}
POIImagesWidth = 0
POITextBgColor = clCream
OnCenterMove = MapViewCenterMove
OnZoomChange = MapViewZoomChange

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;

4
components/lazmapviewer/examples/trackdemo/track_demo.lpi
View File

@ -43,6 +43,7 @@
<Filename Value="main.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="MainForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit1>
</Units>
@ -58,6 +59,9 @@
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>