From e80cd89ca7462fe4421ad34853baa4452638e083 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 11 Sep 2022 17:38:30 +0000
Subject: [PATCH] tvplanit: Fix TvGanttView's weekend bars painting over fixed
 columns.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8472 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpganttviewpainter.pas | 4 ++++
 1 file changed, 4 insertions(+)

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;