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

LazMapViewer: Make sure that the Cache path exists.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8107 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-09-30 22:16:04 +00:00
parent c155c7646e
commit ca72aa00be
2 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/lazmapviewer/source/mvengine.pas
View File

@ -1107,6 +1107,7 @@ end;
procedure TMapViewerEngine.SetCachePath(AValue: String); procedure TMapViewerEngine.SetCachePath(AValue: String);
begin begin
ForceDirectories(aValue);
Cache.BasePath := aValue; Cache.BasePath := aValue;
end; end;

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

@ -384,7 +384,7 @@ end;
procedure TMapView.SetCachePath(AValue: String); procedure TMapView.SetCachePath(AValue: String);
begin begin
Engine.CachePath := AValue; //CachePath; Engine.CachePath := AValue;
end; end;
procedure TMapView.SetCenter(AValue: TRealPoint); procedure TMapView.SetCenter(AValue: TRealPoint);