diff --git a/components/tvplanit/source/vpganttviewpainter.pas b/components/tvplanit/source/vpganttviewpainter.pas
index 363283c8e..7b381a451 100644
--- a/components/tvplanit/source/vpganttviewpainter.pas
+++ b/components/tvplanit/source/vpganttviewpainter.pas
@@ -535,6 +535,10 @@ begin
         R := ScaleRect(dayRec.Rect);
         x1 := R.Left - dx;
         x2 := R.Right - dx;
+        if x2 < FScaledFixedColWidth then
+          Continue;
+        if x1 < FScaledFixedColWidth then
+          x1 := FScaledFixedColWidth;
         TPSFilLRect(RenderCanvas, Angle, RenderIn, Rect(x1, y1, x2, y2));
       end;
     end;