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> <XPManifest>
<DpiAware Value="True"/> <DpiAware Value="True"/>
</XPManifest> </XPManifest>
<Icon Value="0"/>
</General> </General>
<BuildModes Count="1"> <BuildModes Count="1">
<Item1 Name="Default" Default="True"/> <Item1 Name="Default" Default="True"/>

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

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

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

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

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

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