El problema a mi parecer está aquí:
[quote:2h4dpzfk]
*----- fjhg para los numeros de dia del Domingo en rojo
if nCol == 1 // si el calendario comienza en lunes se debería reemplazar por 7 para que las fechas domingo aparezcan en rojo en el calendario
nOldClr := SetTextColor( hDC, nRGB(200,0,0) )
else
nOldClr := SetTextColor( hDC, ::nClrText )
endif
*----- fin fjhg
[/quote:2h4dpzfk]
al tener una constante el el valor de la columna que se colorea en rojo, siempre es la misma columna, es decir la primera de izquierda a derecha, debería considerarse que la columna en rojo fuera la del domingo o que hubiera otro parámetro para indicar cual es para los casos en que el feriado semanal fuera otro, por ejemplo el sábado.
Es solo una opinión, mi granito de arena
↧