Source position: calendar.pp line 49
type TCalendarPart = (
cpNoWhere,
cpDate,
cpWeekNumber,
cpTitle,
cpTitleBtn,
cpTitleMonth,
cpTitleYear
);