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

lazMapViewer: Fix memory leak in example/MapViewer_Demo

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6531 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-06-25 17:29:45 +00:00
parent e3a74f280e
commit 3b85bc30e6
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/lazmapviewer/example/MapViewer_Demo.lpi
View File

@ -13,7 +13,6 @@
<XPManifest>
<DpiAware Value="True"/>
</XPManifest>
<Icon Value="0"/>
</General>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>

4
components/lazmapviewer/example/main.lfm
View File

@ -364,7 +364,7 @@ object MainForm: TMainForm
end
object GeoNames: TMVGeoNames
OnNameFound = GeoNamesNameFound
left = 520
top = 288
left = 416
top = 232
end
end

1
components/lazmapviewer/example/main.pas
View File

@ -204,6 +204,7 @@ end;
procedure TMainForm.FormDestroy(Sender: TObject);
begin
WriteToIni;
ClearFoundLocations;
end;
procedure TMainForm.FormShow(Sender: TObject);

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

@ -49,7 +49,7 @@ Type
public
Procedure CheckCacheSize(Sender: TObject);
constructor Create(aOwner: TComponent); override;
destructor destroy; override;
destructor Destroy; override;
Procedure Add(MapProvider: TMapProvider; const TileId: TTileId; Stream: TMemoryStream);
Procedure GetFromCache(MapProvider: TMapProvider; const TileId: TTileId; out img: TLazIntfImage);
function InCache(MapProvider: TMapProvider; const TileId: TTileId): Boolean;