How set CalendarEvent.color?

[erich.wanker]

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;

 

[Sherzod]

Hi,

If I understand you correctly, for example:

UniCalendarPanel -> Calendars -> Calendar-0 ->

     Color = clLime

     DefaultColor = False

[erich.wanker]

.. perfect .. thank you

 

just another question:

UniCalendarPanel in Month-view:  the days have all white background .. how can i set the "today"-panel to gray?

 

ThanX

Erich

[GerhardV]

CustomCSS:

.x-calendar-weeks-today-cell {
	background-color: #ddd;
}

 

[erich.wanker]

Perfect :-)

 

ThanX