paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-01 19:40:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix memleak in fpcanvas. Patch by wp, mantis #24427 attempt two

Browse Source 
git-svn-id: trunk@24555 -
This commit is contained in:
marco 2013-05-23 10:01:46 +00:00
parent abeb2a3aaa
commit 80b52b2a6a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-image/src/fpcanvas.inc
View File

@ -19,7 +19,6 @@ constructor TFPCustomCanvas.Create;
begin begin
inherited create; inherited create;
FClipping := false; FClipping := false;
FreeAndNil(FClipRegion);
FRemovingHelpers := false; FRemovingHelpers := false;
FHelpers := TList.Create; FHelpers := TList.Create;
FDefaultFont := CreateDefaultFont; FDefaultFont := CreateDefaultFont;
@ -29,6 +28,7 @@ end;
destructor TFPCustomCanvas.Destroy; destructor TFPCustomCanvas.Destroy;
begin begin
FreeAndNil(FClipRegion);
FRemovingHelpers := True; FRemovingHelpers := True;
// first remove all helper references // first remove all helper references
RemoveHelpers; RemoveHelpers;