paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 20:19:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

don't free maskimage, that is created to add to the imagelist.

Browse Source 
git-svn-id: trunk@7161 -
This commit is contained in:
vincents 2005-05-09 10:41:56 +00:00
parent e56a156d04
commit 86691add67
1 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lcl/include/imglist.inc
View File

@ -724,19 +724,15 @@ var
Mask: TBitmap;
begin
Mask := TBitmap.Create;
try
with Mask do
begin
Height := Image.Height;
Width := Image.Width;
Assign(Image);
Mask(MaskColor);
end;
Insert(Index, Image, Mask);
Change;
finally
Mask.Free;
with Mask do
begin
Height := Image.Height;
Width := Image.Width;
Assign(Image);
Mask(MaskColor);
end;
Insert(Index, Image, Mask);
Change;
end;
{------------------------------------------------------------------------------
@ -1262,6 +1258,9 @@ end;
{
$Log$
Revision 1.42 2005/05/09 10:41:56 vincents
don't free maskimage, that is created to add to the imagelist.
Revision 1.41 2005/03/07 21:59:44 vincents
changed hexstr(cardinal()) for pointers to dbgs() and other 64-bits fixes from Peter Vreman