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
2022-09-11 17:38:30 +00:00
parent 5704686e09
commit e80cd89ca7
1 changed files with 4 additions and 0 deletions
--- 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;