Badges and Events

Badges are small coloured indicators overlaid on calendar dates to mark events or appointments. Each TTMSFNCCalendarEvent item in the Events collection attaches one badge to a specific date.

Adding badges

// Add event badges programmatically
procedure TForm1.FormCreate(Sender: TObject);
begin
  TMSFNCCalendar1.ShowHint := True;

  // Using Events.Add (date defaults to today)
  TMSFNCCalendar1.Events.Add;  // badge on today

  with TMSFNCCalendar1.Events.Add do
  begin
    Date           := Now + 1;
    BadgeColor     := gcLightblue;
    BadgeFontColor := gcBlack;
    BadgeValue     := 3;
  end;

  with TMSFNCCalendar1.Events.Add do
  begin
    Date       := Now + 2;
    BadgeValue := 2;
    Hint       := 'Tom''s birthday' + sLineBreak + 'Jerry''s birthday';
  end;

  // Using SelectEvent shortcut — sets today's date automatically
  TMSFNCCalendar1.SelectEvent(Now + 5);
  TMSFNCCalendar1.SelectEvent(Now + 10);
end;

SelectEvent shortcut

SelectEvent adds an event directly on the given date without configuring it first:

TMSFNCCalendar1.SelectEvent(Now + 5);
TMSFNCCalendar1.Events.Items[0].BadgeColor := gcOrange;

Badge properties

Property	Description
`Date`	The calendar date the badge appears on.
`BadgeColor`	Badge circle fill colour. Default is red.
`BadgeFontColor`	Badge text colour. Default is white.
`BadgeValue`	Integer count shown inside the badge circle. 0 = no text.
`Hint`	Tooltip text shown on hover (requires `ShowHint = True`).

Global badge size

TMSFNCCalendar1.BadgeSize := 16;  // diameter in pixels (default: 14)

Design-time badges

Open the Events property in the Object Inspector, click Add New, and configure Date, BadgeColor, BadgeValue, and Hint directly.

Combining badge placement, badge properties, and design-time defaults

// Calendar with multi-select, range limits, event badges, and custom navigation
procedure TForm1.FormCreate(Sender: TObject);
begin
  // Multi-select with keyboard support
  TMSFNCCalendar1.Interaction.MultiSelect     := True;
  TMSFNCCalendar1.Interaction.KeyboardSupport := True;

  // Year/month selector popups
  TMSFNCCalendar1.Interaction.AllowYearSelection  := True;
  TMSFNCCalendar1.Interaction.AllowMonthSelection := True;

  // Date range
  TMSFNCCalendar1.MinDate := EncodeDate(2024, 1, 1);
  TMSFNCCalendar1.MaxDate := EncodeDate(2027, 12, 31);

  // Pre-select a range
  TMSFNCCalendar1.SelectMultiDates(Now, Now + 4);

  // Event badges
  TMSFNCCalendar1.ShowHint := True;
  TMSFNCCalendar1.SelectEvent(Now + 7);
  with TMSFNCCalendar1.Events.Items[0] do
  begin
    BadgeValue := 2;
    Hint       := 'Sprint review';
  end;

  // Badge appearance
  TMSFNCCalendar1.BadgeSize := 16;

  // Navigate to next month programmatically
  TMSFNCCalendar1.Date := IncMonth(TMSFNCCalendar1.Date);
end;

// Custom 10-year navigation
procedure TForm1.TMSFNCCalendar1CustomNavigation(Sender: TObject;
  ADate, AFocusedDate: TDate; ADirection: Boolean);
begin
  if ADirection then
    TMSFNCCalendar1.Year := TMSFNCCalendar1.Year + 10
  else
    TMSFNCCalendar1.Year := TMSFNCCalendar1.Year - 10;
end;

Table of Contents