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

* fixed compatebility with 32bpp bitmaps and alpha channel (issue #13917)

Browse Source 
git-svn-id: trunk@20498 -
This commit is contained in:
marc 2009-06-07 16:38:54 +00:00
parent bcedde9431
commit 9601319387
1 changed files with 24 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
lcl/intfgraphics.pas
View File

@ -5212,9 +5212,22 @@ begin
GetMaskShiftSize(FDibInfo.PixelMasks.A, FDibInfo.MaskShift.A, FDibInfo.MaskSize.A);
end
else begin
FDibInfo.PixelMasks.A := 0;
FDibInfo.MaskShift.A := 0;
FDibInfo.MaskSize.A := 0;
// officially no alpha support, but that breaks older LCL compatebility
// so add it
if Info.BitCount = 32
then begin
{$ifdef ENDIAN_BIG}
FDibInfo.PixelMasks.A := $000000FF;
{$else}
FDibInfo.PixelMasks.A := $FF000000;
{$endif}
GetMaskShiftSize(FDibInfo.PixelMasks.A, FDibInfo.MaskShift.A, FDibInfo.MaskSize.A);
end
else begin
FDibInfo.PixelMasks.A := 0;
FDibInfo.MaskShift.A := 0;
FDibInfo.MaskSize.A := 0;
end;
end;
if Info.Encoding = lrdeBitfield
@ -5223,6 +5236,14 @@ begin
then begin
// not read yet
TheStream.Read(FDibInfo.PixelMasks, 3 * SizeOf(FDibInfo.PixelMasks.R));
// check if added mask is valid
if (Info.PixelMasks.R or Info.PixelMasks.G or Info.PixelMasks.B) and Info.PixelMasks.A <> 0
then begin
// Alpha mask overlaps others
FDibInfo.PixelMasks.A := 0;
FDibInfo.MaskShift.A := 0;
FDibInfo.MaskSize.A := 0;
end;
end;
GetMaskShiftSize(FDibInfo.PixelMasks.R, FDibInfo.MaskShift.R, FDibInfo.MaskSize.R);
GetMaskShiftSize(FDibInfo.PixelMasks.G, FDibInfo.MaskShift.G, FDibInfo.MaskSize.G);