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 sql, sFechaferiado, sFechaseguimiento, sFechaBuscar : string;
var sqlbuscarfecha, colorearfechaseguimiento: string;
begin
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.