mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Memory leaks

Browse source
This commit is contained in:
Alexander Koblov 2009-12-20 23:48:47 +00:00
commit b912e73b6a
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/platform/upixmapmanager.pas
View file

@ -265,12 +265,14 @@ begin
phicon := phIconLarge // Use large icon
else
phicon := phIconSmall; // Use small icon
Icon:= CreateIconFromHandle(phicon);
Icon:= CreateIconFromHandle(phIcon);
bmStandartBitmap.Assign(Icon);
Result:= StretchBitmap(bmStandartBitmap, iIconSize, clBackColor, True);
finally
FreeThenNil(Icon)
end; // non standart size
DestroyIcon(phIconLarge);
DestroyIcon(phIconSmall);
end // IsExecutable
else
{$ENDIF}