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

LCL: Fix TLazCanvas to respect DrawingModes (alphablending).

Browse Source
This commit is contained in:
wp_xyz 2023-01-27 16:47:37 +01:00
parent 083a92717b
commit aa477d8262
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 ] < lBoundingBox.Left) then nodeX[i] := lBoundingBox.Left;
if (nodeX[i+1] > lBoundingBox.Right) then nodeX[i+1] := lBoundingBox.Right; if (nodeX[i+1] > lBoundingBox.Right) then nodeX[i+1] := lBoundingBox.Right;
for X := nodeX[i] to nodeX[i+1]-1 do for X := nodeX[i] to nodeX[i+1]-1 do
SetColor(X, Y, Brush.FPColor); DrawPixel(X, Y, Brush.FPColor);
end; end;
i := i + 2; i := i + 2;