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

lazmapviewer: Cosmetic changes

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6833 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-03-22 23:09:44 +00:00
parent 867942971e
commit ddd6428ace
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazmapviewer/source/mvcache.pas
View File

@ -288,7 +288,7 @@ begin
FileName := GetFileName(MapProvider, TileId); FileName := GetFileName(MapProvider, TileId);
EnterCrit; EnterCrit;
try try
idx := Cache.IndexOF(FileName); idx := Cache.IndexOf(FileName);
if idx <> -1 then if idx <> -1 then
Cache.Objects[idx].Free Cache.Objects[idx].Free
else else
@ -304,7 +304,7 @@ begin
if UseDisk then if UseDisk then
begin begin
if assigned(img) then if Assigned(img) then
begin begin
lFile := TFileStream.Create(BasePath + FileName, fmCreate); lFile := TFileStream.Create(BasePath + FileName, fmCreate);
try try