diff --git a/lcl/interfaces/qt/qtobject.inc b/lcl/interfaces/qt/qtobject.inc
index baefcbf6ce..e6661e2dc4 100644
--- a/lcl/interfaces/qt/qtobject.inc
+++ b/lcl/interfaces/qt/qtobject.inc
@@ -410,7 +410,7 @@ begin
     Painter := TQtDeviceContext(CanvasHandle).Widget;
     Pen := QPainter_pen(Painter);
     QPen_color(Pen, @ASavedColor);
-    QColor_setRgb(QColorH(@Color),Red(AColor),Green(AColor),Blue(AColor));
+    QColor_fromRgb(@Color, Red(AColor),Green(AColor),Blue(AColor));
     QPainter_setPen(Painter, @Color);
     QPainter_drawPoint(Painter, X,Y);
     QPainter_setPen(Painter, @ASavedColor);