procedure TForm1.AdvSmoothCalendar1DateStatus(Sender: TObject; Date: TDateTime;
  var StatusMessage: string; Fill: TGDIPStatus; var OffsetX, OffsetY: Integer);
var
  da,mo,ye: word;
begin
  if date = int(now) then
  begin
    statusmessage := 'Now';
    fill.Assign(AdvSmoothCalendar1.StatusAppearance);
  end;

  decodedate(date, ye, mo, da);

  if da = 15 then
  begin
    statusmessage := 'halfway';
    fill.Fill.Color := clLime;
    fill.Fill.ColorTo := clGreen;
    fill.Fill.ColorMirror := clNone;
    fill.Fill.ColorMirrorTo := clNone;
  end;
end;