pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

TvPlanIt: Fix TVpCalendar crashing due to painting Feb 29, 2023

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8698 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-02-09 21:37:59 +00:00
parent 8ab147776a
commit 7a5f4c73db
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/tvplanit/source/vpcalendarpainter.pas
View File

@ -188,7 +188,10 @@ begin
day := TVpCalendarOpener(FCalendar).clCalendar[I]; day := TVpCalendarOpener(FCalendar).clCalendar[I];
S := IntToStr(day); 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 if Grayed then
RenderCanvas.Font.Color := InactiveDayColor RenderCanvas.Font.Color := InactiveDayColor
else else