From e727e9f13b793c99758c8b5a2685b6234ec42a75 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 18 Mar 2022 14:29:24 +0100
Subject: [PATCH] lcl: undo alpha reverse with comment

---
 lcl/intfgraphics.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lcl/intfgraphics.pas b/lcl/intfgraphics.pas
index 03da69ea77..bbdca48911 100644
--- a/lcl/intfgraphics.pas
+++ b/lcl/intfgraphics.pas
@@ -5358,7 +5358,8 @@ begin
   if Info.MaskSize.A = 0
   then Result.Alpha := AlphaOpaque
   else begin
-    RBytes.Ah := 255-AColor.A;
+    RBytes.Ah := AColor.A;
+    // fpreadbmp says reverse: RBytes.Ah := 255-AColor.A;
     RBytes.Al := RBytes.Ah;
   end;
 end;