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;