Switch from FMXCalendar to FNCCalendar

FNC TMS FNC UI Pack
1

I switched from fmxcalendar to fnccalendar. With fmxcalendar it was possible to place several symbols per day in the calendar. I need this function to signal to the user that different types of appointments (Holiday, Appointment and Birthday) are available. With fmxcalendar this is possible via the event TMSFMXCalendar1CustomizeEvent.
Is there somehow the possibility of realizing that with fnccalendar?
Thanks in advance.

2

Hi,

Something similar can be done with:

procedure TForm1.TMSFNCCalendar1AfterDrawDayNumbers(Sender: TObject;
  AGraphics: TTMSFNCGraphics; ARect: TRectF; ADate: TDate);
var
  r: TRectF;
begin
  r := RectF(ARect.Right - 5, ARect.Top, ARect.Right, ARect.Top + 5);
  AGraphics.Fill.Color := gcRed;
  AGraphics.Fill.Kind := gfkSolid;
  AGraphics.Stroke.Color := gcRed;
  AGraphics.Stroke.Kind := gskSolid;
  AGraphics.DrawEllipse(r)
end;

To add custom symbols to a specific date.

3

Thanks Pieter, that was a great tip.:grinning:

1 Like