Jump to content

How set CalendarEvent.color?


erich.wanker

Recommended Posts

Hi ..

i found out what CalendarEvent has 4 predefined CSS styles...
if i create a CalendarEvent with CalendarId 1 - it uses the first css

i want to change the colors of the 4 styles ..

How can i do this?

 

 

 

procedure TS_TOOL_KALENDER.termin_eintragen(wann:TDateTime;was:String;id:Integer;mein_status:integer);
var
  E : TUniCalendarEvent;
begin

E:=UniCalendarPanel1.Events.Add;
E.StartDate :=wann;
E.EndDate   :=wann;
E.Title     :=was;
e.EventId   :=id;

if mein_status = 0 then  e.CalendarId:=1;   // open schedule
if mein_status = 1 then  e.CalendarId:=2;   // closed schedule

E.IsAllDay  :=true;

end;

 

Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...