From 979b1b0fb1a32820016d8b218aac16622624bfde Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 17 Nov 2016 08:20:08 +0000
Subject: [PATCH] tvplanit: Fix first day of month not shown in MonthView if
 month starts before WeekStartsOn (issue #0030941, patch by G.Fink)

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

diff --git a/components/tvplanit/source/vpmonthviewpainter.pas b/components/tvplanit/source/vpmonthviewpainter.pas
index acd542faa..0c0916776 100644
--- a/components/tvplanit/source/vpmonthviewpainter.pas
+++ b/components/tvplanit/source/vpmonthviewpainter.pas
@@ -429,6 +429,8 @@ begin
   MonthStartsOn := DayOfWeek(StartingDate);
   DayTag := Ord(FMonthView.WeekStartsOn);
   DayOffset := DayTag - MonthStartsOn;
+  if DayOffset = 0 then
+    DayOffset := -7;
 
   I := 0;
   DayNumber := DayOffset + 1;