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

fix adding image to TImageList in case Image.Mask = nil (problem with missed component glyphs under linux must be solved) by Marc with my help

Browse Source 
git-svn-id: trunk@12797 -
This commit is contained in:
paul 2007-11-09 17:37:26 +00:00
parent 442741d188
commit 6223cf758e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/imglist.inc
View File

@ -991,7 +991,8 @@ var
begin
SrcHasAlpha := AImage.Description.AlphaPrec > 0;
KeepAlpha := SrcHasAlpha;
if not SrcHasAlpha and (Desc.BitsPerPixel = 32) and (Desc.Depth = 24)
if not SrcHasAlpha and (Desc.BitsPerPixel = 32) and (Desc.Depth = 24) and
(AImage.Mask <> nil) and (Desc.MaskBitsPerPixel > 0)
then begin
// Try to squeeze Aplha channel in some unused bits
if (Desc.RedShift >= 8)