[jeremiselxi]

Buenos días.

Esperando se encuentren bien, les planteo mi problema.

Tengo un mxcalendar y con este código me colorea bien los días que tengo en una base de datos:

Código Delphi [-]
procedure TForm_Seguimientos.mxCalendar1GetItemStyle(
  Sender: TmxCustomCalendar; AStyleType: TmxStyleType; ADate: TDate;
  var AFont: TFont; var AColor: TColor);






//  var MiFecha :Tdate;
  var sql, sFechaferiado, sFechaseguimiento, sFechaBuscar : string;


  var sqlbuscarfecha, colorearfechaseguimiento: string;

begin


{Si tenemos en una tabla un campo de tipo Date en la cual guardamos los días festivos,
 El codigo siguiente muestra como colorear el fondo de color rojo esos dias guardados en nuestra tabla.
}



{  //aqui comienza el comentario

//coloreamos todos los dias que estan en seguimientos

}

sFechaseguimiento := datetimetostr(ADate);
sFechaseguimiento:= formatdatetime('yyyy-mm-dd',strtodate(sFechaseguimiento));


colorearfechaseguimiento := 'select * from seguimientos where Fecha = ''' + sFechaseguimiento + '''';


form_tablas.Query_dias_seguimientos.sql.clear;
form_tablas.Query_dias_seguimientos.sql.add(colorearfechaseguimiento);

form_tablas.Query_dias_seguimientos.open;
form_tablas.Query_dias_seguimientos.First;
if not form_tablas.Query_dias_seguimientos.Eof then
begin
AColor:=clAqua;
end;

end;

Hasta aquí todo bien, pero el problema es que si quiero realizar una consulta mediante un rango de fecha y que me coloree solo esos días que están en ese rango de fecha no me deja.

La solución que me llega es poder editar ese evento en tiempo de ejecución, o si se pudiera resetear el mxcalendar de alguna manera fuera un éxito, pero no logro llegar a la solución.

Otro problema es que el mxcalender cuando realiza la búsqueda para colorear los días, al momento de abrir la aplicación, dura un poco para abrir no se por qué.

Saludos.