Ver Mensaje Individual
  #16  
Antiguo 23-03-2007
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 28
Lepe Va por buen camino
Código Delphi [-]
uses DateUtils;

mxcalendar1.OnGetItemStyle(Sender:TmxCustomCalendar;AstyleType:TmxStyleType;
                      ADate:TDate;var AFont:Tfont; var AColor:TColor)

var MiFecha :Tdate;
begin
// colorear según la fecha que yo quiera:
MiFecha := encodeDate(2007, 03, 25);
if ADate = MiFecha then
begin
  AFont.Style := AFont.Style + [fsBold] // poner en negrita la letra de ese día
  Acolor := clRed; // color de esa fecha en rojo
end;

// colorear todos los fines de semana:
if AStyleType = stWeekend then AColor := clgreen

//colorear la fecha que hace click
else if AStyleType = stSelected then AColor := clYellow;
....
// mira en mxCalendar.pas para ver el StyleType

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita