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

LazMapViewer: Repeat incomplete previous commit.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8268 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-04-27 16:44:11 +00:00
parent 6b48ad28ce
commit 05745e2252
1 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -134,11 +134,12 @@ type
const
MAX_LOCATIONS_HISTORY = 50;
MAP_PROVIDER_FILENAME = 'map-providers.xml';
HOMEDIR = '../../../../';
USE_DMS = true;
var
PointFormatSettings: TFormatsettings;
CacheDir: String = '../../../../'; // share the cache in both example projects
CacheDir: String = HOMEDIR + 'cache/'; // share the cache in both example projects
function CalcIniName: String;
@ -340,7 +341,7 @@ begin
fn := Application.Location + 'mapmarker.png';
if not FileExists(fn) then
MessageDlg('Copy the file "mapmarker.png" from the source to the app binary directory.',
MessageDlg('Copy the file "mapmarker.png" from the source folder to the folder with the executable.',
mtError, [mbOK], 0)
else
begin
@ -350,8 +351,13 @@ begin
POIImage.LoadFromFile(fn);
end;
ForceDirectories(HOMEDIR + 'cache/');
MapView.CachePath := HOMEDIR + 'cache/';
CacheDir := HOMEDIR + 'cache/';
if not ForceDirectories(CacheDir) then
begin
CacheDir := GetAppConfigDir(false) + 'cache/';
ForceDirectories(CacheDir);
end;
MapView.CachePath := CacheDir;
MapView.GetMapProviders(CbProviders.Items);
CbProviders.ItemIndex := CbProviders.Items.Indexof(MapView.MapProvider);
MapView.DoubleBuffered := true;