AdvSmoothCalendar change Color of Date

VCL TMS VCL UI Pack
1

Hello!



Is there a way to change the font color of some dates?



Greets Versteeg

2

Hi, 


You can accomplish this with the following code:

procedure TForm1.AdvSmoothCalendar1DateFill(Sender: TObject; AFill: TGDIPFill;
  AFont: TFont; Date: TDateTime; DateKind: TAdvSmoothCalendarDateKind);
begin
  if Date = Int(Now) then
    AFont.Color := clRed;
end;