paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

LazMapViewer: Fix fulldemo ignoring designtime-selection of MapProvider at first run.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9328 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2024-04-08 17:06:22 +00:00
parent 64723e46e1
commit 5aaf2b4d92
2 changed files with 19 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
components/lazmapviewer/examples/fulldemo/main.pas
View File

@ -145,7 +145,7 @@ var
function CalcIniName: String;
begin
Result := ChangeFileExt(Application.ExeName, '.ini');
Result := Application.Location + 'mapviewer_demo.ini';
end;
@ -662,22 +662,24 @@ begin
OpenWeatherMap_ApiKey := ini.ReadString('OpenWeatherMap', 'API_Key', '');
ThunderForest_ApiKey := ini.ReadString('ThunderForest', 'API_Key', '');
list := TStringList.Create;
try
MapView.Engine.ClearMapProviders;
MapView.Engine.RegisterProviders;
MapView.GetMapProviders(list);
sgLayers.Columns[1].PickList.Assign(list);
provider := ini.ReadString('MapView', 'Provider', MapView.MapProvider);
if MapView.Engine.MapProviderByName(provider) = nil then
begin
MessageDlg('Map provider "' + provider + '" not found.', mtError, [mbOK], 0);
provider := list[0];
provider := ini.ReadString('MapView', 'Provider', '');
if provider <> '' then
begin
list := TStringList.Create;
try
MapView.Engine.ClearMapProviders;
MapView.Engine.RegisterProviders;
MapView.GetMapProviders(list);
sgLayers.Columns[1].PickList.Assign(list);
if MapView.Engine.MapProviderByName(provider) = nil then
begin
MessageDlg('Map provider "' + provider + '" not found.', mtError, [mbOK], 0);
provider := list[0];
end;
MapView.MapProvider := provider;
finally
list.Free;
end;
MapView.MapProvider := provider;
finally
list.Free;
end;
MapView.InactiveColor := ini.ReadInteger('MapView', 'MapBkgrColor', MapView.InactiveColor);

2
components/lazmapviewer/examples/fulldemo/mapviewer_demo_with_addons.lpi
View File

@ -102,7 +102,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="bin\$(TargetCPU)-$(TargetOS)\MapViewer_Demo"/>
<Filename Value="bin\$(TargetCPU)-$(TargetOS)\MapViewer_Demo_with_Addons"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>