Código Delphi [-]
uses DateUtils;
mxcalendar1.OnGetItemStyle(Sender:TmxCustomCalendar;AstyleType:TmxStyleType;
ADate:TDate;var AFont:Tfont; var AColor:TColor)
var MiFecha :Tdate;
begin
MiFecha := encodeDate(2007, 03, 25);
if ADate = MiFecha then
begin
AFont.Style := AFont.Style + [fsBold] Acolor := clRed; end;
if AStyleType = stWeekend then AColor := clgreen
else if AStyleType = stSelected then AColor := clYellow;
....
Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
|