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

LCL: Fix TLazCanvas to respect DrawingModes (alphablending).

Browse Source 
(cherry picked from commit aa477d8262)
This commit is contained in:
wp_xyz 2023-01-27 16:47:37 +01:00 committed by Maxim Ganetsky
parent 153f8b932c
commit ecfe876bfb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/lazcanvas.pas
View File

@ -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;