diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index 0526323b75..6be6282521 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -2006,7 +2006,7 @@ begin
       QEventContentsRectChange: LCLObject.DoAdjustClientRectChange(False);
       QEventPaint:
         begin
-          if canPaintBackground then
+          if canPaintBackground and (LCLObject.Color <> clDefault) then
             SlotPaintBg(Sender, Event);
           if FHasPaint then
             SlotPaint(Sender, Event);