paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 13:49:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: fix TCustomImageList.AddLazarusResource (#0012017)

Browse Source 
git-svn-id: trunk@16340 -
This commit is contained in:
paul 2008-09-01 01:27:12 +00:00
parent 6f910265a7
commit e67d502aa5
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/imglist.inc
View File

@ -155,7 +155,10 @@ var
begin
Bmp := CreateBitmapFromLazarusResource(ResourceName);
if MaskColor <> clNone then
begin
Bmp.Mask(MaskColor);
Bmp.Transparent := True;
end;
Result := Add(Bmp, nil);
Bmp.Free;
end;