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

LCL: TCustomImageList fix for memory leak. Patch by Ondrej Pokorny. issue #34708

Browse Source 
git-svn-id: trunk@59892 -
This commit is contained in:
zeljko 2018-12-22 09:43:31 +00:00
parent 6a64348cd5
commit 042ab4826a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/imglist.inc
View File

@ -326,9 +326,9 @@ begin
if n <> 0 if n <> 0
then Inc(ACount, FImageList.FAllocBy - n); then Inc(ACount, FImageList.FAllocBy - n);
SetLength(FData, ACount * FWidth * FHeight * SizeOf(FData[0])); SetLength(FData, ACount * FWidth * FHeight);
Inc(FAllocCount, ACount); FAllocCount := ACount;
end; end;
procedure TCustomImageListResolution.CheckIndex(AIndex: Integer; procedure TCustomImageListResolution.CheckIndex(AIndex: Integer;
@ -1461,7 +1461,7 @@ begin
ToR.AllocData(ToR.FCount); ToR.AllocData(ToR.FCount);
if ToR.FCount>0 then if ToR.FCount>0 then
begin begin
DataSize := ToR.FWidth * ToR.FHeight * SizeOf(FData[0]); DataSize := ToR.FWidth * ToR.FHeight * SizeOf(ToR.FData[0]);
System.Move(FromR.FData[0], ToR.FData[0], ToR.FCount * DataSize); System.Move(FromR.FData[0], ToR.FData[0], ToR.FCount * DataSize);
end; end;
end; end;