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

lcl: undo alpha reverse with comment

Browse Source
This commit is contained in:
mattias 2022-03-18 14:29:24 +01:00
parent a435993a01
commit e727e9f13b
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/intfgraphics.pas
View File

@ -5358,7 +5358,8 @@ begin
if Info.MaskSize.A = 0 if Info.MaskSize.A = 0
then Result.Alpha := AlphaOpaque then Result.Alpha := AlphaOpaque
else begin else begin
RBytes.Ah := 255-AColor.A; RBytes.Ah := AColor.A;
// fpreadbmp says reverse: RBytes.Ah := 255-AColor.A;
RBytes.Al := RBytes.Ah; RBytes.Al := RBytes.Ah;
end; end;
end; end;