Simons SRCalendar Termine mit 2 verschiedene Farben darstellen

[DeddyH]

Zitat:

Delphi-Quellcode:

procedure TSRCalendar.SetMarked(Index: integer; const newValue: boolean);
begin
  FMarked[Index]:=newValue;
  Invalidate;
end;

Da dürfte der Hase im Pfeffer liegen. Ich habe den Code jetzt nicht in Gänze durchgeschaut, aber durch das Invalidate wird für jede Zelle das DrawCell durchlaufen und dort wohl die aktuell gesetzte Farbe ausgewertet und gezeichnet. Du wirst Dir die Komponente also selbst erweitern müssen.