From ecfe876bfbe7e4b4f379c9fba3ccb2ced4ba9fc3 Mon Sep 17 00:00:00 2001
From: wp_xyz <wp_xxyyzzz@gmx.net>
Date: Fri, 27 Jan 2023 16:47:37 +0100
Subject: [PATCH] LCL: Fix TLazCanvas to respect DrawingModes (alphablending).

(cherry picked from commit aa477d82623c14f5481e18c6c977f9101001c7d6)
---
 lcl/lazcanvas.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/lazcanvas.pas b/lcl/lazcanvas.pas
index e1c10dbc09..b6bbd54f96 100644
--- a/lcl/lazcanvas.pas
+++ b/lcl/lazcanvas.pas
@@ -406,7 +406,7 @@ begin
         if (nodeX[i  ] < lBoundingBox.Left) then nodeX[i] := lBoundingBox.Left;
         if (nodeX[i+1] > lBoundingBox.Right) then nodeX[i+1] := lBoundingBox.Right;
         for X := nodeX[i] to nodeX[i+1]-1 do
-          SetColor(X, Y, Brush.FPColor);
+          DrawPixel(X, Y, Brush.FPColor);
       end;
 
       i := i + 2;