paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 03:35:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: fix mem leak in icon save code

Browse Source 
git-svn-id: trunk@17067 -
This commit is contained in:
paul 2008-10-20 05:02:52 +00:00
parent 99d8fe4631
commit 25d2fc84b2
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/icon.inc
View File

@ -996,7 +996,9 @@ procedure TCustomIcon.WriteStream(AStream: TMemoryStream);
SrcDesc: TRawImageDescription absolute SrcRawImg.Description;
DstDesc: TRawImageDescription absolute DstRawImg.Description;
SrcImage, DstImage: TLazIntfImage;
NeedFreeData: Boolean;
begin
NeedFreeData := True;
if (AIconImage.MaskHandle = 0)
or not RawImage_FromBitmap(SrcRawImg, AIconImage.MaskHandle, 0)
then begin
@ -1004,6 +1006,7 @@ procedure TCustomIcon.WriteStream(AStream: TMemoryStream);
SrcRawImg.Description := ARawImg.Description.GetDescriptionFromMask;
SrcRawImg.Data := ARawImg.Mask;
SrcRawImg.DataSize := ARawImg.MaskSize;
NeedFreeData := False;
end;
DstRawImg.Init;
@ -1034,6 +1037,8 @@ procedure TCustomIcon.WriteStream(AStream: TMemoryStream);
SrcImage.Free;
DstImage.Free;
if NeedFreeData then
SrcRawImg.FreeData;
end;
var