From 7a5f4c73db6380932c2ef6e3183162c42da5309f Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 9 Feb 2023 21:37:59 +0000
Subject: [PATCH] TvPlanIt: Fix TVpCalendar crashing due to painting Feb 29,
 2023

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

diff --git a/components/tvplanit/source/vpcalendarpainter.pas b/components/tvplanit/source/vpcalendarpainter.pas
index 2b97af842..221074215 100644
--- a/components/tvplanit/source/vpcalendarpainter.pas
+++ b/components/tvplanit/source/vpcalendarpainter.pas
@@ -188,7 +188,10 @@ begin
   day := TVpCalendarOpener(FCalendar).clCalendar[I];
   S := IntToStr(day);
 
-  dt := Encodedate(FCalendar.Year, FCalendar.Month, day);
+  if not TryEncodeDate(FCalendar.Year, FCalendar.Month, day, dt) then
+    exit;
+
+  //dt := Encodedate(FCalendar.Year, FCalendar.Month, day);
   if Grayed then
     RenderCanvas.Font.Color := InactiveDayColor
   else