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

tvplanit: Fix crash when a DayView/WeekView/MonthView/GanttView is dropped on an empty form.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8552 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-13 14:43:54 +00:00
parent 26581143a8
commit b7c534c59a
5 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/tvplanit/source/vpganttview.pas
View File

@@ -1284,6 +1284,7 @@ begin
FOnHoliday(Self, ADate, AHolidayName);
Result := AHolidayName <> '';
end else
if Assigned(FControlLink) then
Result := FControlLink.IsHoliday(ADate, AHolidayName);
end;