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

LazMapViewer: Update map providers, new provider 2GIS (issue #39052, patch by regs01). Split off provider registration into include file

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8872 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-07-03 17:27:45 +00:00
parent 217b3207b4
commit 132a03fb08
4 changed files with 180 additions and 154 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
components/lazmapviewer/source/mvmapviewer.pas
View File

@ -980,8 +980,18 @@ begin
end;
procedure TMapView.GetMapProviders(lstProviders: TStrings);
var
L: TStringList;
begin
Engine.GetMapProviders(lstProviders);
L := TStringList.Create;
try
Engine.GetMapProviders(L);
L.Sort;
lstProviders.Assign(L);
finally
L.Free;
end;
// Engine.GetMapProviders(lstProviders);
end;
procedure TMapView.WaitEndOfRendering;