Source position: calendar.pp line 49
type TDisplaySettings = set of (
dsShowHeadings,
dsShowDayNames,
dsNoMonthChange,
dsShowWeekNumbers,
dsStartMonday
);